@@ -30,26 +30,31 @@ run p t = case A.parseOnly (p <* A.endOfInput) t of
3030-- | Parse a date of the form @[+,-]YYYY-MM-DD@.
3131day :: Parser Day
3232day = T.day
33+{-# INLINE day #-}
3334
3435-- | Parse a time of the form @HH:MM[:SS[.SSS]]@.
3536timeOfDay :: Parser Local.TimeOfDay
3637timeOfDay = T.timeOfDay
38+{-# INLINE timeOfDay #-}
3739
3840-- | Parse a time zone, and return 'Nothing' if the offset from UTC is
3941-- zero. (This makes some speedups possible.)
4042timeZone :: Parser (Maybe Local.TimeZone)
4143timeZone = T.timeZone
44+{-# INLINE timeZone #-}
4245
4346-- | Parse a date and time, of the form @YYYY-MM-DD HH:MM[:SS[.SSS]]@.
4447-- The space may be replaced with a @T@. The number of seconds is optional
4548-- and may be followed by a fractional component.
4649localTime :: Parser Local.LocalTime
4750localTime = T.localTime
51+{-# INLINE localTime #-}
4852
4953-- | Behaves as 'zonedTime', but converts any time zone offset into a
5054-- UTC time.
5155utcTime :: Parser UTCTime
5256utcTime = T.utcTime
57+{-# INLINE utcTime #-}
5358
5459-- | Parse a date with time zone info. Acceptable formats:
5560--
@@ -64,3 +69,4 @@ utcTime = T.utcTime
6469-- (also optional) are minutes.
6570zonedTime :: Parser Local.ZonedTime
6671zonedTime = T.zonedTime
72+{-# INLINE zonedTime #-}