diff options
| -rw-r--r-- | libraries/base/Control/Monad.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/Control/Monad.hs b/libraries/base/Control/Monad.hs index 94318be738..619a2bad94 100644 --- a/libraries/base/Control/Monad.hs +++ b/libraries/base/Control/Monad.hs @@ -87,7 +87,7 @@ import GHC.List ( zipWith, unzip, replicate ) -- | @'guard' b@ is @'pure' ()@ if @b@ is 'True', -- and 'empty' if @b@ is 'False'. -guard :: (MonadPlus m) => Bool -> m () +guard :: (Alternative f) => Bool -> f () guard True = pure () guard False = empty |