@@ -25,6 +25,7 @@ module Data.Aeson.Parser.Time
2525import Prelude ()
2626import Prelude.Compat
2727
28+import Control.Applicative ((<|>))
2829import Control.Monad (void, when)
2930import Data.Aeson.Internal.Time (toPico)
3031import Data.Attoparsec.Text as A
@@ -49,11 +50,7 @@ run p t = case A.parseOnly (p <* endOfInput) t of
4950-- | Parse a date of the form @[+,-]YYYY-MM-DD@.
5051day :: Parser Day
5152day = do
52− absOrNeg <- choice
53− [ char '-' *> pure negate
54− , char '+' *> pure id
55− , pure id
56− ]
53+ absOrNeg <- negate <$ char '-' <|> id <$ char '+' <|> pure id
5754 y <- decimal <* char '-'
5855 m <- twoDigits <* char '-'
5956 d <- twoDigits