Blockfrost UTxO query attempt inline datum before attempting datum hash

j-mueller · Jan 7, 2025 · ddf520b · ddf520b
1 parent e275955
commit ddf520b
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/blockfrost/lib/Convex/Blockfrost/Types.hs b/src/blockfrost/lib/Convex/Blockfrost/Types.hs
@@ -349,9 +349,8 @@ convertOutput addr_ amount dataHash inlineDatum refScriptHash =
           C.TxOutValueShelleyBased
             C.shelleyBasedEra
             (C.toLedgerValue @era C.maryBasedEra $ foldMap (L.fromList . return . toAssetId) amount)
-        dat =
-          fmap (C.TxOutDatumHash C.alonzoBasedEra . toDatumHash) dataHash
-            <|> fmap (C.TxOutDatumInline C.babbageBasedEra) (inlineDatum >>= either (const Nothing) Just . toDatum)
+        dat = fmap (C.TxOutDatumInline C.babbageBasedEra) (inlineDatum >>= either (const Nothing) Just . toDatum)
+            <|> fmap (C.TxOutDatumHash C.alonzoBasedEra . toDatumHash) dataHash
 
         txuOutput = C.TxOut addr val (fromMaybe C.TxOutDatumNone dat) C.ReferenceScriptNone
      in case refScriptHash of