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

[ghc-hetmet.git] / ghc / compiler / utils / Panic.lhs

diff --git a/ghc/compiler/utils/Panic.lhs b/ghc/compiler/utils/Panic.lhs
index 3210b00..81818df 100644 (file)
--- a/ghc/compiler/utils/Panic.lhs
+++ b/ghc/compiler/utils/Panic.lhs
@@ -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")