From 03920884b1ff5ced4849e4afadb84d50454e66cf Mon Sep 17 00:00:00 2001
From: andy <unknown>
Date: Mon, 6 Mar 2000 08:01:01 +0000
Subject: [PATCH] [project @ 2000-03-06 08:01:01 by andy] Removing debugging
 printf code from hClose.

---
 ghc/lib/std/IO.lhs |    1 -
 1 file changed, 1 deletion(-)

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