diff options
Diffstat (limited to 'libraries/base/Text/ParserCombinators/ReadPrec.hs')
| -rw-r--r-- | libraries/base/Text/ParserCombinators/ReadPrec.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/libraries/base/Text/ParserCombinators/ReadPrec.hs b/libraries/base/Text/ParserCombinators/ReadPrec.hs index 4306c6eca4..8e763ce1c2 100644 --- a/libraries/base/Text/ParserCombinators/ReadPrec.hs +++ b/libraries/base/Text/ParserCombinators/ReadPrec.hs @@ -73,22 +73,28 @@ newtype ReadPrec a = P (Prec -> ReadP a) -- Functor, Monad, MonadPlus +-- | @since 2.01 instance Functor ReadPrec where fmap h (P f) = P (\n -> fmap h (f n)) +-- | @since 4.6.0.0 instance Applicative ReadPrec where pure x = P (\_ -> pure x) (<*>) = ap +-- | @since 2.01 instance Monad ReadPrec where fail s = P (\_ -> fail s) P f >>= k = P (\n -> do a <- f n; let P f' = k a in f' n) +-- | @since 4.9.0.0 instance MonadFail.MonadFail ReadPrec where fail s = P (\_ -> MonadFail.fail s) +-- | @since 2.01 instance MonadPlus ReadPrec +-- | @since 4.6.0.0 instance Alternative ReadPrec where empty = pfail (<|>) = (+++) |