[project @ 1997-09-04 19:56:48 by sof]

[ghc-hetmet.git] / ghc / compiler / stgSyn / StgLint.lhs

diff --git a/ghc/compiler/stgSyn/StgLint.lhs b/ghc/compiler/stgSyn/StgLint.lhs
index 053d8e7..70bbf41 100644 (file)
--- a/ghc/compiler/stgSyn/StgLint.lhs
+++ b/ghc/compiler/stgSyn/StgLint.lhs
@@ -61,7 +61,7 @@ lintStgBindings sty whodunnit binds
                        ptext SLIT("*** Stg Lint Errors: in "),text whodunnit, ptext SLIT(" ***"),
                        msg sty,
                        ptext SLIT("*** Offending Program ***"),
-                       vcat (map (pprPlainStgBinding sty) binds),
+                       pprStgBindings sty binds,
                        ptext SLIT("*** End of Offense ***")])
   where
     lint_binds :: [StgBinding] -> LintM ()