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

Fix sig for guard in module header

diff --git a/ghc/lib/std/Monad.lhs b/ghc/lib/std/Monad.lhs
index 4c8c3ed..6cfff09 100644 (file)
--- a/ghc/lib/std/Monad.lhs
+++ b/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