Fix printing of type operators in declarations.
authorIavor S. Diatchki <iavor.diatchki@gmail.com>
Sat, 24 Mar 2012 22:14:50 +0000 (15:14 -0700)
committerIavor S. Diatchki <iavor.diatchki@gmail.com>
Sat, 24 Mar 2012 22:14:50 +0000 (15:14 -0700)
compiler/hsSyn/HsDecls.lhs

index d323169..0ebb1f6 100644 (file)
@@ -693,9 +693,9 @@ pp_decl_head :: OutputableBndr name
    -> Maybe [LHsType name]
    -> SDoc
 pp_decl_head context thing tyvars Nothing       -- no explicit type patterns
-  = hsep [pprHsContext context, ppr thing, interppSP tyvars]
+  = hsep [pprHsContext context, pprPrefixOcc (unLoc thing), interppSP tyvars]
 pp_decl_head context thing _      (Just typats) -- explicit type patterns
-  = hsep [ pprHsContext context, ppr thing
+  = hsep [ pprHsContext context, pprPrefixOcc (unLoc thing)
          , hsep (map (pprParendHsType.unLoc) typats)]
 
 pp_condecls :: OutputableBndr name => [LConDecl name] -> SDoc