@@ -640,7 +640,7 @@ prettyPrintSingleError (PPEOptions codeColor full level showWiki) e = flip evalS
640 go _ = False
640 go _ = False
641 renderSimpleErrorMessage (AmbiguousTypeVariables t _) =
641 renderSimpleErrorMessage (AmbiguousTypeVariables t _) =
642 paras [ line "The inferred type"
642 paras [ line "The inferred type"
643− , indent $ line $ markCode $ prettyPrintType t
643+ , markCodeBox $ indent $ typeAsBox t
644 , line "has type variables which are not mentioned in the body of the type. Consider adding a type annotation."
644 , line "has type variables which are not mentioned in the body of the type. Consider adding a type annotation."
646 renderSimpleErrorMessage (PossiblyInfiniteInstance nm ts) =
646 renderSimpleErrorMessage (PossiblyInfiniteInstance nm ts) =