print GHC's version in the panic message
panic, panic#, assertPanic, trace
) where
+import Config
import FastTypes
import Dynamic
showBarf (Interrupted)
= showString "interrupted"
showBarf (Panic s)
- = showString ("panic! (the `impossible' happened):\n\t"
+ = showString ("panic! (the `impossible' happened, GHC version "
+ ++ cProjectVersion ++ "):\n\t"
++ s ++ "\n\n"
++ "Please report it as a compiler bug "
++ "to glasgow-haskell-bugs@haskell.org.\n\n")