From 1dbd9ba1fa6518393572997a547d6a9156f533c6 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 23 Feb 2001 12:25:05 +0000
Subject: [PATCH] [project @ 2001-02-23 12:25:05 by simonmar] print GHC's
 version in the panic message

---
 ghc/compiler/utils/Panic.lhs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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")
-- 
1.7.10.4