[project @ 2002-07-16 15:47:25 by ross]

[haskell-directory.git] / Control / Monad.hs

diff --git a/Control/Monad.hs b/Control/Monad.hs
index 14f33d6..c86ffbb 100644 (file)
--- a/Control/Monad.hs
+++ b/Control/Monad.hs
@@ -51,6 +51,7 @@ import GHC.List
 import GHC.Base
 #endif
 
+#ifndef __HUGS__
 infixr 1 =<<
 
 -- -----------------------------------------------------------------------------
@@ -77,6 +78,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__ */
 
 -- -----------------------------------------------------------------------------
 -- Monadic classes: MonadPlus