Improve pretty-printing of Avail
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 24 Jun 2016 08:03:01 +0000 (09:03 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 24 Jun 2016 10:04:31 +0000 (11:04 +0100)
compiler/basicTypes/Avail.hs

index 9595abc..4dc6cb6 100644 (file)
@@ -171,8 +171,11 @@ instance Outputable AvailInfo where
    ppr = pprAvail
 
 pprAvail :: AvailInfo -> SDoc
-pprAvail (Avail _ n)         = ppr n
-pprAvail (AvailTC n ns fs) = ppr n <> braces (hsep (punctuate comma (map ppr ns ++ map (ppr . flLabel) fs)))
+pprAvail (Avail _ n)
+  = ppr n
+pprAvail (AvailTC n ns fs)
+  = ppr n <> braces (sep [ fsep (punctuate comma (map ppr ns)) <> semi
+                         , fsep (punctuate comma (map (ppr . flLabel) fs))])
 
 instance Binary AvailInfo where
     put_ bh (Avail b aa) = do