Fix marlowe-cli test interpreter

input-output-hk · Jun 2, 2023 · a6757f2 · a6757f2
1 parent 1fec95f
commit a6757f2
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/marlowe-cli/cli-test/Language/Marlowe/CLI/Test/Runtime/Interpret.hs b/marlowe-cli/cli-test/Language/Marlowe/CLI/Test/Runtime/Interpret.hs
@@ -421,7 +421,7 @@ interpret ro@RuntimeCreateContract {..} = do
           , collateralUtxos = mempty
           }
 
-      Marlowe.Class.createContract Nothing MarloweV1 walletAddresses roleTokensConfig emptyMarloweTransactionMetadata minLovelace contract
+      Marlowe.Class.createContract Nothing MarloweV1 walletAddresses roleTokensConfig emptyMarloweTransactionMetadata minLovelace $ Left contract
     era <- view eraL
     case result of
       Right Transaction.ContractCreated { txBody, contractId } -> do
@@ -537,4 +537,3 @@ interpret ro@RuntimeApplyInputs {..} = do
             throwLabeledError ro $ runtimeOperationFailed' $ "Failed to submit contract: " <> show err
       Left err ->
         throwLabeledError ro $ runtimeOperationFailed' $ "Failed to create contract: " <> show err
-