Commit 1dbd9ba1 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-02-23 12:25:05 by simonmar]

print GHC's version in the panic message
parent 20d1c20c
......@@ -15,6 +15,7 @@ module Panic
panic, panic#, assertPanic, trace
) where
import Config
import FastTypes
import Dynamic
......@@ -56,7 +57,8 @@ showBarf (PhaseFailed phase code)
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")
......
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