@@ -92,7 +92,7 @@ setMempty setter a = set setter a mempty
92neConcat :: Foldable f => (a -> a -> a) -> f a -> Maybe a
92neConcat :: Foldable f => (a -> a -> a) -> f a -> Maybe a
93neConcat f a
93neConcat f a
94 | F.null a = Nothing
94 | F.null a = Nothing
95− | otherwise = Just $ F.foldl1 f a
95+ | otherwise = Just $ F.foldr1 f a
97textErrors :: [Text] -> Maybe Text
97textErrors :: [Text] -> Maybe Text
98textErrors = neConcat (\a b -> a <> ", " <> b)
98textErrors = neConcat (\a b -> a <> ", " <> b)