From 5d5d3fa80a7f98adebbffa1cc93bf9c2d53bdc18 Mon Sep 17 00:00:00 2001 From: Tomasz Rybarczyk Date: Wed, 28 Feb 2024 14:26:57 +0100 Subject: [PATCH] Testing DSL: add logs for babbage era txs in Runtime interpreter --- .../Language/Marlowe/CLI/Test/Runtime/Interpret.hs | 9 +++++++++ 1 file changed, 9 insertions(+) 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 index 86ed5c14ba..6193cc22ed 100644 --- a/marlowe-cli/cli-test/Language/Marlowe/CLI/Test/Runtime/Interpret.hs +++ b/marlowe-cli/cli-test/Language/Marlowe/CLI/Test/Runtime/Interpret.hs @@ -534,6 +534,11 @@ interpret ro@RuntimeCreateContract{..} = do res <- liftIO $ flip runMarloweT connector do Marlowe.Class.submitAndWait BabbageEraOnwardsBabbage tx logStoreLabeledMsg ro $ "Submitted" <> show contractId + + case C.cardanoEra @era of + C.BabbageEra -> logTxBody ("Submitted tx" :: String) "" txBody id + _ -> pure () + case res of Right _ -> do logStoreLabeledMsg ro $ "Contract created: " <> show tx @@ -669,6 +674,10 @@ interpret ro@RuntimeApplyInputs{..} = do Marlowe.Class.submitAndWait BabbageEraOnwardsBabbage tx logStoreLabeledMsg ro "Submitted and confirmed." + case C.cardanoEra @era of + C.BabbageEra -> logTxBody ("Submitted tx" :: String) "" txBody id + _ -> pure () + case res of Right bl -> do logStoreLabeledMsg ro $ "Inputs applied: " <> show bl