Tweak the "sorry" message a bit

-		"sorry! (this is work in progress)\n"
+		"sorry! (unimplemented feature or known bug)\n"

diff --git a/compiler/utils/Panic.lhs b/compiler/utils/Panic.lhs
index c9e3551..d430df6 100644 (file)
--- 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"