[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 (file)
--- 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__