X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Debug%2FTrace.hs;h=16a614e6614a3e729c6229ae57929c400c925394;hb=e8a5a9136fee6d032580b885457581955884a777;hp=accf247e882f234fd4eba7da7df0373d059d4490;hpb=abc9e4369fa4c24363de159bec3acb7d2baa3ec7;p=ghc-base.git

diff --git a/Debug/Trace.hs b/Debug/Trace.hs
index accf247..16a614e 100644
--- a/Debug/Trace.hs
+++ b/Debug/Trace.hs
@@ -15,7 +15,8 @@
 module Debug.Trace (
 	-- * Tracing
 	putTraceMsg,      -- :: String -> IO ()
-	trace             -- :: String -> a -> a
+	trace,            -- :: String -> a -> a
+        traceShow
   ) where
 
 import Prelude