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