@@ -776,8 +776,8 @@ toReport source err =
776776 H.stack
777777 [ H.fillSep $
778778 ["I","recommend","removing"] ++ stuff ++ ["from","the","declaration,","like","this:"]
779− , H.indent 4 $ H.dullyellow $ H.hsep $
780− ["type","alias",H.nameToDoc typeName]
779+ , H.indent 4 $ H.hsep $
780+ ["type","alias",H.green (H.nameToDoc typeName)]
781781 ++ map H.nameToDoc (filter (`notElem` allUnusedNames) allVars)
782782 ++ ["=", "..."]
783783 , H.reflow $