shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add traceM

--- a/lib/Debug/Trace.hs

+++ b/lib/Debug/Trace.hs

@@ -8,3 +8,6 @@

     putStrLn msg

     return a

   )

+

+traceM :: forall (m :: Type -> Type) a . Monad m => String -> m ()

+traceM s = trace s (return ())

-- 

⑨