From d6dcd1abc8874922603bbe9199a8498750ae2ddc Mon Sep 17 00:00:00 2001
From: Vladimir Kalnitsky <vladimir@mlabs.city>
Date: Thu, 15 Feb 2024 19:01:38 +0400
Subject: [PATCH] Add success logging to all examples we serve in ByUrl

---
 examples/ByUrl.purs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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!"