[project @ 2000-03-27 08:58:37 by simonpj]

Fix sig for guard in module header

ghc/lib/std/Monad.lhs

@@ -12,7 +12,7 @@ module Monad
 	, mplus     -- :: (MonadPlus m) => m a -> m a -> m a
 	)
     , join          -- :: (Monad m) => m (m a) -> m a
-    , guard	    -- :: (Monad m) => Bool -> m ()
+    , guard	    -- :: (MonadPlus m) => Bool -> m ()
     , when          -- :: (Monad m) => Bool -> m () -> m ()
     , unless        -- :: (Monad m) => Bool -> m () -> m ()
     , ap	    -- :: (Monad m) => (m (a -> b)) -> (m a) -> m b