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

GCC 3.3 cpp wibbles

diff --git a/Data/FiniteMap.hs b/Data/FiniteMap.hs
index 493cb95..3b1b785 100644 (file)
--- a/Data/FiniteMap.hs
+++ b/Data/FiniteMap.hs
@@ -787,4 +787,4 @@ instance (Ord key, Ord elt) => Ord (FiniteMap key elt) where
     IF_NCG(COMMA   (elt -> elt -> elt) -> FiniteMap Reg elt -> FiniteMap Reg elt -> FiniteMap Reg elt)
     #-}
 
-#endif {- compiling for GHC -}
+#endif /* compiling for GHC */

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' =