From: andy <unknown>
Date: Mon, 6 Mar 2000 08:01:01 +0000 (+0000)
Subject: [project @ 2000-03-06 08:01:01 by andy]
X-Git-Tag: Approximately_9120_patches~5061
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=03920884b1ff5ced4849e4afadb84d50454e66cf;p=ghc-hetmet.git

[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
--- 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)