From: simonpj <unknown>
Date: Mon, 27 Mar 2000 08:58:37 +0000 (+0000)
Subject: [project @ 2000-03-27 08:58:37 by simonpj]
X-Git-Tag: Approximately_9120_patches~4899
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=36908417be25c8de3bff3a7726984bc8f363a127;p=ghc-hetmet.git

[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
--- 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