@@ -673,16 +673,16 @@ instance ToJSON ZonedTime where
673673
674674instance FromJSON ZonedTime where
675675 parseJSON (String t) =
676− tryFormats (defaultFormat : alternateFormats)
676+ tryFormats alternateFormats
677677 <|> fail "could not parse ECMA-262 ISO-8601 date"
678678 where
679− defaultFormat = dateTimeFmt defaultTimeLocale
680679 tryFormat f =
681680 case parseTime defaultTimeLocale f (unpack t) of
682681 Just d -> pure d
683682 Nothing -> empty
684683 tryFormats = foldr1 (<|>) . map tryFormat
685684 alternateFormats =
685+ dateTimeFmt defaultTimeLocale :
686686 distributeList ["%Y", "%Y-%m", "%F"]
687687 ["T%R", "T%T", "T%T%Q", "T%T%QZ", "T%T%Q%z"]
688688