5e9330a · typeable/aeson

git.iko.soy/typeable/aeson

Merge pull request #756 from fosskers/colin/failing

MonadFail-less failing

commit5e9330ae479c32b5348451b408d88b014b7311f0 authorAdam Bergmark <adam@bergmark.nl> dateWed 18 Mar 2020, 05:07 (7 years ago) parente41a401 8f04de0

2 files changed+6

unifiedsplit

Data/Aeson/Types.hs+1

@@ -35,6 +35,7 @@ module Data.Aeson.Types

3535 , parse

3636 , parseEither

3737 , parseMaybe

38+ , parseFail

3839 , ToJSON(..)

3940 , KeyValue(..)

4041 , modifyFailure

Data/Aeson/Types/Internal.hs+5

@@ -44,6 +44,7 @@ module Data.Aeson.Types.Internal

4444 , parse

4545 , parseEither

4646 , parseMaybe

47+ , parseFail

4748 , modifyFailure

4849 , prependFailure

4950 , parserThrowError

@@ -342,6 +343,10 @@ instance Monoid (Parser a) where

342343 mappend = (<>)

343344 {-# INLINE mappend #-}

344345

346+-- | Raise a parsing failure with some custom message.

347+parseFail :: String -> Parser a

348+parseFail = fail

349+

345350apP :: Parser (a -> b) -> Parser a -> Parser b

346351apP d e = do

347352 b <- d