@@ -42,9 +42,9 @@ import qualified Data.Time.LocalTime as Local
42day :: Parser Day
42day :: Parser Day
44 absOrNeg <- negate <$ char '-' <|> id <$ char '+' <|> pure id
44 absOrNeg <- negate <$ char '-' <|> id <$ char '+' <|> pure id
45− y <- decimal <* char '-'
45+ y <- (decimal <* char '-') <|> fail "date must be of form [+,-]YYYY-MM-DD"
46− m <- twoDigits <* char '-'
46+ m <- (twoDigits <* char '-') <|> fail "date must be of form [+,-]YYYY-MM-DD"
47− d <- twoDigits
47+ d <- twoDigits <|> fail "date must be of form [+,-]YYYY-MM-DD"
48 maybe (fail "invalid date") return (fromGregorianValid (absOrNeg y) m d)
48 maybe (fail "invalid date") return (fromGregorianValid (absOrNeg y) m d)
50-- | Parse a two-digit integer (e.g. day of month, hour).
50-- | Parse a two-digit integer (e.g. day of month, hour).