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