diff options
author | Simon Marlow <marlowsd@gmail.com> | 2010-12-08 16:32:12 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2010-12-08 16:32:12 +0000 |
commit | 2590ff4374466b196da479c2776c35336b9f0495 (patch) | |
tree | d51177c4a87a83178633ec3c5aa37fc733e68109 | |
parent | e639fb4700db196a81734f69f96f6d57767fc23d (diff) | |
download | haskell-2590ff4374466b196da479c2776c35336b9f0495.tar.gz |
Tweak the "sorry" message a bit
- "sorry! (this is work in progress)\n"
+ "sorry! (unimplemented feature or known bug)\n"
-rw-r--r-- | compiler/utils/Panic.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/Panic.lhs b/compiler/utils/Panic.lhs index c9e35511b7..d430df695e 100644 --- a/compiler/utils/Panic.lhs +++ b/compiler/utils/Panic.lhs @@ -133,7 +133,7 @@ showGhcException exception Sorry s -> showString $ - "sorry! (this is work in progress)\n" + "sorry! (unimplemented feature or known bug)\n" ++ " (GHC version " ++ cProjectVersion ++ " for " ++ TargetPlatform_NAME ++ "):\n\t" ++ s ++ "\n" |