test-network: added debugging tracers to the utils module

IntersectMBO · Sep 22, 2020 · 75c759f · 75c759f
1 parent 394fd81
commit 75c759f
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/ouroboros-network/test/Test/Ouroboros/Network/Utils.hs b/ouroboros-network/test/Test/Ouroboros/Network/Utils.hs
@@ -3,8 +3,13 @@
 module Test.Ouroboros.Network.Utils where
 
 import           Control.Monad.Class.MonadTime
+import           Control.Monad.Class.MonadSay
+import           Control.Tracer (Tracer (..))
+
 import           Test.QuickCheck
 
+import           Debug.Trace (traceShowM)
+
 
 newtype Delay = Delay { getDelay :: DiffTime }
   deriving Show
@@ -20,3 +25,13 @@ instance Arbitrary Delay where
     shrink (Delay delay) | delay >= 0.1 = [ Delay (delay - 0.1) ]
                          | otherwise    = []
 
+
+--
+-- Debugging tools
+--
+
+debugTracer :: ( Show a, Applicative m) => Tracer m a
+debugTracer = Tracer traceShowM
+
+sayTracer :: ( Show a, MonadSay m) => Tracer m a
+sayTracer = Tracer (say . show)