ref: 1b9bdf04bb2f42b0dda89ecbbdd1c84fa21166f9
dir: /lib/Debug/Trace.hs/
module Debug.Trace(module Debug.Trace) where import Prelude(); import MiniPrelude import Primitives trace :: forall a . String -> a -> a trace msg a = primitive "IO.performIO" ( do putStrLn msg return a ) traceM :: forall m . Monad m => String -> m () traceM s = trace s (return ())