Make sure we don't use the named UTC zone
When we did so, we got silly inequalities between time zone of Z
and +0000, even though they're the same.
commita9408f0d977a90e8682cbaaae00f5307c047e460
authorBryan O'Sullivan <bos@serpentine.com>
dateFri 17 Jul 2015, 23:35 (11 years ago)
parent0a1ad3f
Data/Aeson/Parser/Time.hs+1−1
@@ -70,7 +70,7 @@ timeZone = do
7070 maybeSkip ' '
7171 ch <- satisfy $ \c -> c == 'Z' || c == '+' || c == '-'
7272 if ch == 'Z'
73− then return Local.utc
73+ then return (Local.TimeZone 0 False "")
7474 else do
7575 h0 <- twoDigits
7676 m <- maybeSkip ':' *> twoDigits