From 93c5156fa1e4c9e6dccf184b11fd11d0f4a3fba3 Mon Sep 17 00:00:00 2001 From: Joris Dral Date: Tue, 1 Jul 2025 10:45:57 +0200 Subject: [PATCH] `ScheduledMerges`: disable debug tracer --- test-prototypes/Test/ScheduledMergesQLS.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test-prototypes/Test/ScheduledMergesQLS.hs b/test-prototypes/Test/ScheduledMergesQLS.hs index 0dd8b13e2..c3d94aab6 100644 --- a/test-prototypes/Test/ScheduledMergesQLS.hs +++ b/test-prototypes/Test/ScheduledMergesQLS.hs @@ -7,7 +7,7 @@ module Test.ScheduledMergesQLS (tests) where import Control.Monad.Reader (ReaderT (..)) import Control.Monad.ST -import Control.Tracer (Contravariant (contramap), Tracer, debugTracer) +import Control.Tracer (Tracer, nullTracer) import Data.Constraint (Dict (..)) import Data.Map.Strict (Map) import qualified Data.Map.Strict as Map @@ -411,7 +411,7 @@ runActionIO action lookUp = ReaderT $ \tidVar -> do lookUpVar = realLookupVar (Proxy :: Proxy IO) lookUp tr :: Tracer (ST RealWorld) Event - tr = show `contramap` debugTracer + tr = nullTracer incrTidVar :: PrimVar RealWorld TableId -> IO TableId incrTidVar tidVar = do