X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FhsSyn%2FHsBinds.lhs;h=375fe31ef69e95ef536d7133d87f2dd63ce14ea3;hb=cfcebde74cf826af12143a92bcffa8c995eee135;hp=8a559f3f8e531b6c3364fb78f3b94016d2ff9464;hpb=7dd11ebc4d4d091edc0f5e3c13f041b99961c136;p=ghc-hetmet.git

diff --git a/ghc/compiler/hsSyn/HsBinds.lhs b/ghc/compiler/hsSyn/HsBinds.lhs
index 8a559f3..375fe31 100644
--- a/ghc/compiler/hsSyn/HsBinds.lhs
+++ b/ghc/compiler/hsSyn/HsBinds.lhs
@@ -194,7 +194,7 @@ ppr_monobind (AbsBinds tyvars dictvars exports inlines val_binds)
      = sep [ptext SLIT("AbsBinds"),
 	    brackets (interpp'SP tyvars),
 	    brackets (interpp'SP dictvars),
-	    brackets (interpp'SP exports),
+	    brackets (sep (punctuate comma (map ppr exports))),
 	    brackets (interpp'SP (nameSetToList inlines))]
        $$
        nest 4 (ppr val_binds)