backwards compat for traceM

2016-04-09 14:25:20 -04:00
parent 4bd0ed3e83
commit 8f6e97633c
2 changed files with 2 additions and 5 deletions
@@ -35,8 +35,8 @@ traceShowM :: (P.Show a, P.Monad m) => a -> m ()
 traceShowM a = T.traceM (P.show a)

 {-# WARNING traceM "'traceM' remains in code" #-}
-traceM :: P.Monad m => P.String -> m ()
-traceM = T.traceM
+traceM :: (P.Monad m) => P.String -> m ()
+traceM s = T.trace s (P.return ())

 {-# WARNING traceIO "'traceIO' remains in code" #-}
 traceIO :: P.String -> P.IO ()