@@ -65,3 +65,4 @@ traceFormat :: (Show a)
65traceFormat NoOpTracer _ _ = return ()
65traceFormat NoOpTracer _ _ = return ()
66traceFormat t f xs =
66traceFormat t f xs =
67 trace t $ foldl' (\e a -> ((show e) `f` (show a))) "" xs
67 trace t $ foldl' (\e a -> ((show e) `f` (show a))) "" xs