@@ -438,9 +438,9 @@ prettyPrintSingleError full e = prettyPrintErrorMessage <$> onTypesInErrorMessag
438438 goSimple (UnknownDataConstructor dc tc) =
439439 line $ " Unknown data constructor " ++ show dc ++ foldMap ((" for type constructor " ++ ) . show ) tc
440440 goSimple (ConflictingImport nm mn) =
441- line $ " Cannot declare ` " ++ nm ++ " ` since another declaration of that name was imported from ` " ++ show mn ++ " ` "
441+ line $ " Cannot declare " ++ show nm ++ " since another declaration of that name was imported from " ++ show mn
442442 goSimple (ConflictingImports nm m1 m2) =
443- line $ " Conflicting imports for " ++ nm ++ " from modules " ++ show m1 ++ " and " ++ show m2
443+ line $ " Conflicting imports for " ++ show nm ++ " from modules " ++ show m1 ++ " and " ++ show m2
444444 goSimple (ConflictingTypeDecls nm) =
445445 line $ " Conflicting type declarations for " ++ show nm
446446 goSimple (ConflictingCtorDecls nm) =
@@ -653,11 +653,11 @@ prettyPrintSingleError full e = prettyPrintErrorMessage <$> onTypesInErrorMessag
653653 suggestions :: ErrorMessage -> [Box. Box ]
654654 suggestions = suggestions' . unwrapErrorMessage
655655 where
656- suggestions' (ConflictingImport nm im) = [ line $ " Possible fix: hide ` " ++ nm ++ " ` when importing ` " ++ show im ++ " ` :"
656+ suggestions' (ConflictingImport nm im) = [ line $ " Possible fix: hide " ++ show nm ++ " when importing " ++ show im ++ " :"
657657 , indent . line $ " import " ++ show im ++ " hiding (" ++ nm ++ " )"
658658 ]
659659 suggestions' (TypesDoNotUnify t1 t2)
660- | any isObject [t1, t2] = [line " Note that function composition in PureScript is defined using ` (<<<)` " ]
660+ | any isObject [t1, t2] = [line " Note that function composition in PureScript is defined using (<<<)" ]
661661 | otherwise = []
662662 suggestions' _ = []
663663
0 commit comments