[project @ 2000-03-06 08:01:01 by andy]

Removing debugging printf code from hClose.

diff --git a/ghc/lib/std/IO.lhs b/ghc/lib/std/IO.lhs
index 0ca2180..fbb5cd3 100644 (file)
--- a/ghc/lib/std/IO.lhs
+++ b/ghc/lib/std/IO.lhs
@@ -886,7 +886,6 @@ openFile_main f mode
 hClose :: Handle -> IO ()
 hClose h
    = do mut <- readIORef (mut h)
-        putStrLn ( "hClose: state is " ++ show mut)
         if    state mut == HClosed
          then mkErr h
                  ("hClose on closed handle " ++ show h)