diff options
| author | andy <unknown> | 2000-03-06 08:01:01 +0000 |
|---|---|---|
| committer | andy <unknown> | 2000-03-06 08:01:01 +0000 |
| commit | 03920884b1ff5ced4849e4afadb84d50454e66cf (patch) | |
| tree | a05e4a3005c515e8e3aabb7dd7afa6d595d462f2 /ghc/lib/std/IO.lhs | |
| parent | f798a1a5d66b99417bebc12db994dbd0e747a987 (diff) | |
| download | haskell-03920884b1ff5ced4849e4afadb84d50454e66cf.tar.gz | |
[project @ 2000-03-06 08:01:01 by andy]
Removing debugging printf code from hClose.
Diffstat (limited to 'ghc/lib/std/IO.lhs')
| -rw-r--r-- | ghc/lib/std/IO.lhs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/ghc/lib/std/IO.lhs b/ghc/lib/std/IO.lhs index 0ca21801ea..fbb5cd34ad 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) |