[commit: ghc] tc-untouchables: Wibble to debug print (f18c188)
Simon Peyton Jones <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
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 <[email protected]> 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}