[project @ 2002-10-31 13:13:04 by simonpj]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcSplice.lhs

diff --git a/ghc/compiler/typecheck/TcSplice.lhs b/ghc/compiler/typecheck/TcSplice.lhs
index f29069e..6f60abf 100644 (file)
--- a/ghc/compiler/typecheck/TcSplice.lhs
+++ b/ghc/compiler/typecheck/TcSplice.lhs
@@ -349,10 +349,10 @@ Two successive brackets aren't allowed
 showSplice :: String -> TypecheckedHsExpr -> SDoc -> TcM ()
 showSplice what before after
   = getSrcLocM         `thenM` \ loc ->
-    traceSplice (hang (ppr loc <> colon <+> text "Splicing" <+> text what) 4
-                     (sep [nest 2 (ppr before),
-                           text "======>",
-                           nest 2 after]))
+    traceSplice (vcat [ppr loc <> colon <+> text "Splicing" <+> text what, 
+                      nest 2 (sep [nest 2 (ppr before),
+                                   text "======>",
+                                   nest 2 after])])
 
 illegalSplice level
   = ptext SLIT("Illegal splice at level") <+> ppr level