From 6cab5d804dd2f5a5bcaa74ebad2347c9581a06b8 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 15 Feb 2017 23:44:38 +0100 Subject: Refined framework --- lib/Postdelay/Scan.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Postdelay/Scan.hs') diff --git a/lib/Postdelay/Scan.hs b/lib/Postdelay/Scan.hs index 0a265b4..7f80818 100644 --- a/lib/Postdelay/Scan.hs +++ b/lib/Postdelay/Scan.hs @@ -70,7 +70,7 @@ extractDelay (Message headers _) = do guard $ CI.mk field == "X-Timezone" either throwM return =<< runParserT (spaceConsumer *> lexeme timeZone <* eof) field content parseDelay :: Field -> m (Endo LocalTime) - parseDelay (OptionalField field content) = either throwM return =<< runParserT (spaceConsumer *> lexeme timeSpec <* eof) field content + parseDelay (OptionalField field content) = either throwM return =<< runParserT (spaceConsumer *> timeSpec <* eof) field content localT :: Either TimeZone TZ -> Iso' UTCTime LocalTime localT (Left tz) = iso (utcToLocalTime tz) (localTimeToUTC tz) -- cgit v1.2.3