Commit e6ce335e authored by Erik de Castro Lopo's avatar Erik de Castro Lopo
Browse files

Fix pprPanic so that it doesn't throw away the SDoc part of the error.

parent 3a40456f
...@@ -898,7 +898,8 @@ plural _ = char 's' ...@@ -898,7 +898,8 @@ plural _ = char 's'
pprPanic :: String -> SDoc -> a pprPanic :: String -> SDoc -> a
-- ^ Throw an exception saying "bug in GHC" -- ^ Throw an exception saying "bug in GHC"
pprPanic = panicDoc pprPanic s doc
= throwGhcException (Panic (s ++ "\n" ++ showSDoc unsafeGlobalDynFlags doc))
pprSorry :: String -> SDoc -> a pprSorry :: String -> SDoc -> a
-- ^ Throw an exception saying "this isn't finished yet" -- ^ Throw an exception saying "this isn't finished yet"
......
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