From: simonmar <unknown>
Date: Tue, 22 Jul 2003 12:55:50 +0000 (+0000)
Subject: [project @ 2003-07-22 12:55:50 by simonmar]
X-Git-Tag: nhc98-1-18-release~584
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e0ee2d2f20208c45c6f414debca1a5361c352e78;p=ghc-base.git

[project @ 2003-07-22 12:55:50 by simonmar]
Export hShow (GHC only for now).
---

diff --git a/System/IO.hs b/System/IO.hs
index 2e7bdd0..f936a56 100644
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -104,6 +104,10 @@ module System.IO (
 
     hIsTerminalDevice,	 	-- :: Handle -> IO Bool
 #endif
+
+#ifdef __GLASGOW_HASKELL__
+    hShow,			-- :: Handle -> IO String
+#endif
   ) where
 
 #ifdef __GLASGOW_HASKELL__