X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FPanic.lhs;fp=compiler%2Futils%2FPanic.lhs;h=d430df695e4c168cf2f4e98dc6b7b90a580b6244;hb=2590ff4374466b196da479c2776c35336b9f0495;hp=c9e35511b7a30429e471af91dcdeeecd7fd8bb71;hpb=e639fb4700db196a81734f69f96f6d57767fc23d;p=ghc-hetmet.git

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