diff --git a/examples/ByUrl.purs b/examples/ByUrl.purs index e4f75e7e1f..e5aa8f68cd 100644 --- a/examples/ByUrl.purs +++ b/examples/ByUrl.purs @@ -30,6 +30,7 @@ import Contract.Config , testnetNamiConfig , testnetNuFiConfig ) +import Contract.Log (logInfo') import Contract.Monad (Contract) import Contract.Test.E2E (E2EConfigName, E2ETestName, addLinks, route) import Ctl.Examples.AdditionalUtxos as AdditionalUtxos @@ -195,7 +196,7 @@ mkBlockfrostPreprodConfig apiKey = } examples :: Map E2ETestName (Contract Unit) -examples = Map.fromFoldable +examples = addSuccessLog <$> Map.fromFoldable [ "AdditionalUtxos" /\ AdditionalUtxos.contract false , "AlwaysMints" /\ AlwaysMints.contract , "NativeScriptMints" /\ NativeScriptMints.contract @@ -227,3 +228,6 @@ examples = Map.fromFoldable , "ChangeGeneration1-3" /\ ChangeGeneration.checkChangeOutputsDistribution 1 3 7 ] + +addSuccessLog :: Contract Unit -> Contract Unit +addSuccessLog contract = contract *> logInfo' "Success!"