fix compile time

input-output-hk · Sep 2, 2024 · 475488a · 475488a
1 parent 91ea28d
commit 475488a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/marlowe-runtime/tx/Language/Marlowe/Runtime/Transaction/Constraints.hs b/marlowe-runtime/tx/Language/Marlowe/Runtime/Transaction/Constraints.hs
@@ -1235,7 +1235,7 @@ solveInitialTxBodyContent era protocol marloweVersion scriptCtx WalletContext{..
         , helperRoles
         )
 
-    solveTxInsReference :: Set Chain.ScriptHash -> Set C.TxIn -> Either ConstraintError (C.TxInsReference C.BuildTx era)
+    solveTxInsReference :: Set Chain.ScriptHash -> Set C.TxIn -> Either ConstraintError (C.TxInsReference era)
     solveTxInsReference requiredPayoutScriptHashes helperTxInReferences =
       maybe (pure C.TxInsReferenceNone) (fmap (C.TxInsReference era) . sequence)
       -- sequenceL is from the 'Crosswalk' type class. It behaves similarly to