[commit: ghc] tc-untouchables: Wibble to debug print (f18c188)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : tc-untouchables

http://hackage.haskell.org/trac/ghc/changeset/f18c1886dd6de9bd2a9fc2750b84a10ccd8d10f8

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

commit f18c1886dd6de9bd2a9fc2750b84a10ccd8d10f8
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Sep 28 15:25:14 2012 +0100

    Wibble to debug print

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

 compiler/typecheck/TcSplice.lhs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/compiler/typecheck/TcSplice.lhs b/compiler/typecheck/TcSplice.lhs
index 49beb13..5514d93 100644
--- a/compiler/typecheck/TcSplice.lhs
+++ b/compiler/typecheck/TcSplice.lhs
@@ -872,7 +872,7 @@ runMeta show_code run_and_convert expr
         exn_msg <- liftIO $ Panic.safeShowException exn
         let msg = vcat [text "Exception when trying to" <+> text phase <+> text "compile-time code:",
                         nest 2 (text exn_msg),
-                        if show_code then nest 2 (text "Code:" <+> ppr expr) else empty]
+                        if show_code then text "Code:" <+> ppr expr else empty]
         failWithTc msg
 \end{code}