Replace H.annotate with H.noteShow_

IntersectMBO · Apr 17, 2023 · 45657ed · 45657ed
1 parent fcd3744
commit 45657ed
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/cardano-testnet/test/Test/Cli/Alonzo/LeadershipSchedule.hs b/cardano-testnet/test/Test/Cli/Alonzo/LeadershipSchedule.hs
@@ -22,6 +22,7 @@ import qualified Data.Map.Strict as Map
 import           Data.Monoid (Last (..))
 import           Data.Set (Set)
 import qualified Data.Set as Set
+import           Data.Text (Text)
 import qualified Data.Text as T
 import qualified Data.Time.Clock as DTC
 import           GHC.Stack (callStack)
@@ -516,7 +517,7 @@ hprop_leadershipSchedule = integrationRetryWorkspace 2 "alonzo-leadership-schedu
   H.noteShow_ notLeaderSlots
 
   -- Double check that we've seen all slots
-  H.annotate "Slots not seen as TraceNodeIsLeader nor TraceNodeNotLeader"
+  H.noteShow_ ("Slots not seen as TraceNodeIsLeader nor TraceNodeNotLeader" :: Text)
   ([minimum expectedLeadershipSlotNumbers .. maxSlotExpected] \\ leaderSlots) \\ notLeaderSlots === []
 
   -- It's possible for some slots to not be assigned in TPraos when BFT nodes are running.

diff --git a/cardano-testnet/test/Test/Cli/Babbage/LeadershipSchedule.hs b/cardano-testnet/test/Test/Cli/Babbage/LeadershipSchedule.hs
@@ -20,6 +20,7 @@ import           Cardano.CLI.Shelley.Output (QueryTipLocalStateOutput (..))
 import           Control.Monad (void)
 import           Data.List ((\\))
 import           Data.Monoid (Last (..))
+import           Data.Text (Text)
 import           GHC.Stack (callStack)
 import           Hedgehog (Property, (===))
 import           Prelude
@@ -150,7 +151,7 @@ hprop_leadershipSchedule = H.integrationRetryWorkspace 2 "babbage-leadership-sch
     H.noteShow_ notLeaderSlots
 
     -- Double check that we've seen all slots
-    H.annotate "Slots not seen as TraceNodeIsLeader nor TraceNodeNotLeader"
+    H.noteShow_ ("Slots not seen as TraceNodeIsLeader nor TraceNodeNotLeader" :: Text)
     ([minimum expectedLeadershipSlotNumbers .. maxSlotExpected] \\ leaderSlots) \\ notLeaderSlots === []
 
     -- As there are no BFT nodes, the next leadership schedule should match slots assigned exactly
@@ -197,7 +198,7 @@ hprop_leadershipSchedule = H.integrationRetryWorkspace 2 "babbage-leadership-sch
     H.noteShow_ notLeaderSlots
 
     -- Double check that we've seen all slots
-    H.annotate "Slots not seen as TraceNodeIsLeader nor TraceNodeNotLeader"
+    H.noteShow_ ("Slots not seen as TraceNodeIsLeader nor TraceNodeNotLeader" :: Text)
     ([minimum expectedLeadershipSlotNumbers .. maxSlotExpected] \\ leaderSlots) \\ notLeaderSlots === []
 
     -- As there are no BFT nodes, the next leadership schedule should match slots assigned exactly