@@ -7,6 +7,7 @@ import qualified Data.Aeson as Json
77import qualified Text.PrettyPrint as P
88import Text.PrettyPrint ((<+>))
99
10+import qualified AST.Helpers as Help
1011import qualified AST.Module.Name as ModuleName
1112import qualified AST.Type as Type
1213import qualified Reporting.Annotation as A
@@ -50,9 +51,15 @@ toReport dealiaser warning =
5051 ++ P.render (P.nest 4 typeDoc)
5152 )
5253 where
54+ nameDoc =
55+ if Help.isOp name then
56+ P.parens (P.text name)
57+ else
58+ P.text name
59+
5360 typeDoc =
5461 P.hang
55− (P.text name <+> P.colon)
62+ (nameDoc <+> P.colon)
5663 4
5764 (P.pretty dealiaser False inferredType)
5865