diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-03-14 17:08:13 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-03-14 17:08:13 +0000 |
| commit | 04089f99f55e719afd0c967be35e8bbb8691dbed (patch) | |
| tree | 756015e2720e046fb5ff66bf53e7a0eea382f341 /ghc/compiler/utils | |
| parent | aa056e7fda12383c88de03c7b2ac611307d8019c (diff) | |
| download | haskell-04089f99f55e719afd0c967be35e8bbb8691dbed.tar.gz | |
improve panic messages a bit, with the GHC version and platform
Diffstat (limited to 'ghc/compiler/utils')
| -rw-r--r-- | ghc/compiler/utils/Panic.lhs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/ghc/compiler/utils/Panic.lhs b/ghc/compiler/utils/Panic.lhs index cdfc9628b9..1a74d5db32 100644 --- a/ghc/compiler/utils/Panic.lhs +++ b/ghc/compiler/utils/Panic.lhs @@ -120,11 +120,10 @@ showGhcException (InstallationError str) showGhcException (Interrupted) = showString "interrupted" showGhcException (Panic s) - = showString ("panic! (the `impossible' happened, GHC version " - ++ cProjectVersion ++ "):\n\t" + = showString ("panic! (the 'impossible' happened)\n" + ++ " (GHC version " ++ cProjectVersion ++ " for " ++ TargetPlatform_NAME ++ "):\n\t" ++ s ++ "\n\n" - ++ "Please report this as a compiler bug. See:\n" - ++ " http://www.haskell.org/ghc/reportabug\n") + ++ "Please report this as a GHC bug: http://www.haskell.org/ghc/reportabug\n") #if __GLASGOW_HASKELL__ < 603 myMkTyConApp = mkAppTy |