@@ -7,6 +7,7 @@ import qualified Data.Aeson as Json
7import qualified Text.PrettyPrint as P
7import qualified Text.PrettyPrint as P
8import Text.PrettyPrint ((<+>))
8import Text.PrettyPrint ((<+>))
10+import qualified AST.Helpers as Help
10import qualified AST.Module.Name as ModuleName
11import qualified AST.Module.Name as ModuleName
11import qualified AST.Type as Type
12import qualified AST.Type as Type
12import qualified Reporting.Annotation as A
13import qualified Reporting.Annotation as A
@@ -50,9 +51,15 @@ toReport dealiaser warning =
50 ++ P.render (P.nest 4 typeDoc)
51 ++ P.render (P.nest 4 typeDoc)
55+ if Help.isOp name then
56+ P.parens (P.text name)
55− (P.text name <+> P.colon)
62+ (nameDoc <+> P.colon)
57 (P.pretty dealiaser False inferredType)
64 (P.pretty dealiaser False inferredType)