@@ -522,7 +522,7 @@ instance FromJSON ZonedTime where
522522 ["T%R", "T%T", "T%T%Q", "T%T%QZ", "T%T%Q%z"]
523523
524524 distributeList xs ys =
525− foldr (\x acc -> acc ++ distribute x ys) [] xs
525+ foldr (\x -> (++ distribute x ys)) [] xs
526526 distribute x = map (mappend x)
527527
528528 parseJSON v = typeMismatch "ZonedTime" v