@@ -517,16 +517,24 @@ instance FromJSON ZonedTime where
517 Just d -> pure d
517 Just d -> pure d
518 Nothing -> empty
518 Nothing -> empty
519 tryFormats = foldr1 (<|>) . map tryFormat
519 tryFormats = foldr1 (<|>) . map tryFormat
520− alternateFormats = nub $
520+ alternateFormats =
521− "%FT%T%QZ" :
521+ "%FT%T%QZ" :
522− "%FT%T%Q%z" :
522+ "%FT%T%Q%z" :
523− distributeList ["%F", "%Y", "%Y-%m"]
523+ "%Y-%mT%T%Q" :
524− ["T%T%Q", "T%R", "T%T", "T%T%QZ", "T%T%Q%z"] ++
524+ "%Y-%mT%R" :
525− [dateTimeFmt defaultTimeLocale]
536+ dateTimeFmt defaultTimeLocale :
527− distributeList xs ys =
528− foldr (\x -> (++ distribute x ys)) [] xs
529− distribute x = map (mappend x)
531 parseJSON v = typeMismatch "ZonedTime" v
539 parseJSON v = typeMismatch "ZonedTime" v