[project @ 2002-12-18 10:42:54 by malcolm]

[ghc-base.git] / Control / Monad.hs

diff --git a/Control/Monad.hs b/Control/Monad.hs
index 013d12a..29f8f66 100644 (file)
--- a/Control/Monad.hs
+++ b/Control/Monad.hs
@@ -72,7 +72,7 @@ import GHC.List
 import GHC.Base
 #endif
 
-#ifndef __HUGS__
+#ifdef __GLASGOW_HASKELL__
 infixr 1 =<<
 
 -- -----------------------------------------------------------------------------
@@ -99,7 +99,7 @@ mapM f as       =  sequence (map f as)
 mapM_           :: Monad m => (a -> m b) -> [a] -> m ()
 {-# INLINE mapM_ #-}
 mapM_ f as      =  sequence_ (map f as)
-#endif  /* __HUGS__ */
+#endif  /* __GLASGOW_HASKELL__ */
 
 -- -----------------------------------------------------------------------------
 -- |The MonadPlus class definition