Update RedeemerPointer decoder for Ogmios v6.1

Author: klntsky

src/Internal/QueryM/Ogmios.purs

@@ -814,10 +814,11 @@ instance DecodeAeson TxEvaluationResult where
       :: Aeson -> Either JsonDecodeError (RedeemerPointer /\ ExecutionUnits)
     decodeRdmrPtrExUnitsItem elem = do
       res
-        :: { validator :: String
+        :: { validator :: Aeson
            , budget :: { memory :: Natural, cpu :: Natural }
            } <- decodeAeson elem
-      redeemerPtr <- decodeRedeemerPointer res.validator
+      redeemerPtr <- (decodeAeson res.validator >>= decodeRedeemerPointer) <|>
+        decodeRedeemerPointerV6 res.validator
       pure $ redeemerPtr /\ { memory: res.budget.memory, steps: res.budget.cpu }
 
 redeemerPtrTypeMismatch :: JsonDecodeError
@@ -834,6 +835,16 @@ decodeRedeemerPointer redeemerPtrRaw = note redeemerPtrTypeMismatch
         <*> Natural.fromString indexRaw
     _ -> Nothing
 
+decodeRedeemerPointerV6 :: Aeson -> Either JsonDecodeError RedeemerPointer
+decodeRedeemerPointerV6 aeson = do
+  obj <- decodeAeson aeson
+  purpose <- obj .: "purpose"
+  index <- obj .: "index"
+  note (TypeMismatch "RedeemerPointer") $
+    { redeemerTag: _, redeemerIndex: _ }
+      <$> RedeemerTag.fromString purpose
+      <*> Natural.fromString index
+
 type OgmiosDatum = String
 type OgmiosScript = String
 type OgmiosTxId = String