diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-09-17 22:32:11 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-09-17 22:32:11 +0100 |
| commit | 5a369e7b9d99fb585aac1e994f7d180e2bc408ca (patch) | |
| tree | e9d896fc521e4dc806ca91df1ca3f514fdea227e | |
| parent | 908a62db3fe04c6f113f32bde27d866fb5fad7f5 (diff) | |
| download | haskell-5a369e7b9d99fb585aac1e994f7d180e2bc408ca.tar.gz | |
Parenthesise type operators in -ddump-minimal-imports output; trac #4239
| -rw-r--r-- | compiler/hsSyn/HsImpExp.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/hsSyn/HsImpExp.lhs b/compiler/hsSyn/HsImpExp.lhs index 266b6fdbeb..01890b6c95 100644 --- a/compiler/hsSyn/HsImpExp.lhs +++ b/compiler/hsSyn/HsImpExp.lhs @@ -139,7 +139,7 @@ instance (Outputable name) => Outputable (IE name) where ppr (IEThingAbs thing) = ppr thing ppr (IEThingAll thing) = hcat [ppr thing, text "(..)"] ppr (IEThingWith thing withs) - = ppr thing <> parens (fsep (punctuate comma (map pprHsVar withs))) + = pprHsVar thing <> parens (fsep (punctuate comma (map pprHsVar withs))) ppr (IEModuleContents mod') = ptext (sLit "module") <+> ppr mod' ppr (IEGroup n _) = text ("<IEGroup: " ++ (show n) ++ ">") |