@@ -94,11 +94,11 @@ illFormedTypes decls = map report (Maybe.mapMaybe isIllFormed (aliases ++ adts))
95 case tvars of
95 case tvars of
96 [tvar] -> " " ++ quote tvar ++ " is"
96 [tvar] -> " " ++ quote tvar ++ " is"
97− _ -> "s " ++ addCommas (addAnd (map quote tvars)) ++ " are"
97+ _ -> "s" ++ addCommas (map ((++) " ") (addAnd (map quote tvars))) ++ " are"
99 addCommas xs
99 addCommas xs
100 | length xs < 3 = concat xs
100 | length xs < 3 = concat xs
101− | otherwise = intercalate ", " xs
101+ | otherwise = intercalate "," xs
103 addAnd xs
103 addAnd xs
104 | length xs < 2 = xs
104 | length xs < 2 = xs