Fix Blockfrost getUtxo to exclude spent outputs

Plutonomicon · Jan 8, 2025 · ed1b028 · ed1b028
1 parent b02718b
commit ed1b028
Showing 1 changed file with 14 additions and 5 deletions.
diff --git a/src/Internal/Service/Blockfrost.purs b/src/Internal/Service/Blockfrost.purs
@@ -1186,15 +1186,24 @@ instance Show BlockfrostUtxosOfTransaction where
 instance DecodeAeson BlockfrostUtxosOfTransaction where
   decodeAeson = aesonObject \obj -> do
     txHash <- getField obj "hash"
-    getField obj "outputs"
-      >>= aesonArray (map wrap <<< traverse (decodeUtxoEntry txHash))
+    outputs <- getField obj "outputs"
+    aesonArray (map (wrap <<< catMaybes) <<< traverse (decodeUtxoEntry txHash))
+      outputs
     where
     decodeUtxoEntry
       :: TransactionHash
       -> Aeson
-      -> Either JsonDecodeError BlockfrostUnspentOutput
-    decodeUtxoEntry txHash utxoAeson =
-      Tuple <$> decodeTxOref txHash utxoAeson <*> decodeAeson utxoAeson
+      -> Either JsonDecodeError (Maybe BlockfrostUnspentOutput)
+    decodeUtxoEntry txHash utxoAeson = do
+      (consumedByTx :: Maybe String) <- aesonObject
+        (flip getFieldOptional "consumed_by_tx")
+        utxoAeson
+      case consumedByTx of
+        Nothing ->
+          Just <$>
+            (Tuple <$> decodeTxOref txHash utxoAeson <*> decodeAeson utxoAeson)
+        Just _ ->
+          pure Nothing
 
     decodeTxOref
       :: TransactionHash -> Aeson -> Either JsonDecodeError TransactionInput