[project @ 2003-05-27 08:03:46 by stolz]

[ghc-base.git] / System / IO / Error.hs

diff --git a/System/IO/Error.hs b/System/IO/Error.hs
index 3253894..14e29fb 100644 (file)
--- a/System/IO/Error.hs
+++ b/System/IO/Error.hs
@@ -271,7 +271,7 @@ annotateIOError (IOError ohdl errTy _ str opath) loc hdl path =
     xs      `mplus` _  = xs
 #endif /* __GLASGOW_HASKELL__ || __HUGS__ */
 
-#ifdef 0 /*__NHC__*/
+#if 0 /*__NHC__*/
 annotateIOError (IOError msg file hdl code) msg' file' hdl' =
     IOError (msg++'\n':msg') (file`mplus`file') (hdl`mplus`hdl') code
 annotateIOError (EOFError msg hdl) msg' file' hdl' =