From: simonmar <unknown>
Date: Fri, 23 Feb 2001 12:25:05 +0000 (+0000)
Subject: [project @ 2001-02-23 12:25:05 by simonmar]
X-Git-Tag: Approximately_9120_patches~2556
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1dbd9ba1fa6518393572997a547d6a9156f533c6;p=ghc-hetmet.git

[project @ 2001-02-23 12:25:05 by simonmar]
print GHC's version in the panic message
---

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