[commit: ghc] ghc-8.0: Fix pretty printing of IEThingWith (1d46fd5)

git at git.haskell.org git at git.haskell.org
Wed Aug 24 00:22:31 UTC 2016


Repository : ssh://git@git.haskell.org/ghc

On branch  : ghc-8.0
Link       : http://ghc.haskell.org/trac/ghc/changeset/1d46fd5e4897301f3def5267e46e7d07fb85590b/ghc

>---------------------------------------------------------------

commit 1d46fd5e4897301f3def5267e46e7d07fb85590b
Author: Matthew Pickering <matthewtpickering at gmail.com>
Date:   Fri May 6 17:15:54 2016 +0100

    Fix pretty printing of IEThingWith
    
    [skip ci]
    
    (cherry picked from commit 018487e686793e22efd595491be5b5305ed2b9c0)


>---------------------------------------------------------------

1d46fd5e4897301f3def5267e46e7d07fb85590b
 compiler/hsSyn/HsImpExp.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/hsSyn/HsImpExp.hs b/compiler/hsSyn/HsImpExp.hs
index 493a92b..4c72b35 100644
--- a/compiler/hsSyn/HsImpExp.hs
+++ b/compiler/hsSyn/HsImpExp.hs
@@ -228,8 +228,8 @@ instance (HasOccName name, OutputableBndr name) => Outputable (IE name) where
     ppr (IEThingAll      thing) = hcat [pprImpExp (unLoc thing), text "(..)"]
     ppr (IEThingWith thing wc withs flds)
         = pprImpExp (unLoc thing) <> parens (fsep (punctuate comma
-                                              ppWiths ++
-                                              map (ppr . flLabel . unLoc) flds))
+                                              (ppWiths ++
+                                              map (ppr . flLabel . unLoc) flds)))
       where
         ppWiths =
           case wc of



More information about the ghc-commits mailing list