Commit f18c1886 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Wibble to debug print

parent 4e339e0c
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment