@@ -69,7 +69,7 @@ import Data.Typeable (Typeable)
6969import Data.Vector (Vector)
7070import Data.Word (Word, Word8, Word16, Word32, Word64)
7171import Foreign.Storable (Storable)
72−import System.Locale (defaultTimeLocale)
72+import System.Locale (defaultTimeLocale, dateTimeFmt)
7373import qualified Data.ByteString as B
7474import qualified Data.ByteString.Lazy as LB
7575import qualified Data.HashMap.Strict as H
@@ -673,9 +673,10 @@ instance ToJSON ZonedTime where
673673
674674instance FromJSON ZonedTime where
675675 parseJSON (String t) =
676− tryFormats alternateFormats
676+ tryFormats (defaultFormat : alternateFormats)
677677 <|> fail "could not parse ECMA-262 ISO-8601 date"
678678 where
679+ defaultFormat = dateTimeFmt defaultTimeLocale
679680 tryFormat f =
680681 case parseTime defaultTimeLocale f (unpack t) of
681682 Just d -> pure d