This commit is contained in:
Alexander Kjeldaas
2017-02-07 14:12:47 +00:00
committed by Stephen Diehl
parent f9b5a5cbf4
commit fd3d667cde
+1 -1
View File
@@ -54,7 +54,7 @@ traceShowM a = trace (P.show a) (return ())
traceM :: (Monad m) => Text -> m ()
traceM s = trace (unpack s) (return ())
{-# WARNING traceId "'traceM' remains in code" #-}
{-# WARNING traceId "'traceId' remains in code" #-}
traceId :: Text -> Text
traceId s = trace s s