diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-09-28 15:25:14 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-09-28 15:25:14 +0100 |
| commit | f18c1886dd6de9bd2a9fc2750b84a10ccd8d10f8 (patch) | |
| tree | 18a09d706dab76b127e51e8b38c068c5959c2829 | |
| parent | 4e339e0c8eea41b93ac511a8a0dd873889231cdc (diff) | |
| download | haskell-f18c1886dd6de9bd2a9fc2750b84a10ccd8d10f8.tar.gz | |
Wibble to debug print
| -rw-r--r-- | 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 49beb13fbb..5514d9305c 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} |