X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FPanic.lhs;fp=compiler%2Futils%2FPanic.lhs;h=ffd3b6751d6068e4f3cd6ec1c174b1892dfa71f6;hb=db0591be8928dbe75e8b804f2ae95728a6074b7e;hp=defbbef630924f8b06fdc0193aa4f06b1dc1e1df;hpb=bc81a6a5d88d4e7cfe4489755c2a17e416472788;p=ghc-hetmet.git

diff --git a/compiler/utils/Panic.lhs b/compiler/utils/Panic.lhs
index defbbef..ffd3b67 100644
--- a/compiler/utils/Panic.lhs
+++ b/compiler/utils/Panic.lhs
@@ -89,6 +89,7 @@ showException other_exn	       	 	 = show other_exn
 
 instance Show GhcException where
   showsPrec _ e@(ProgramError _) = showGhcException e
+  showsPrec _ e@(CmdLineError _) = showString "<command line>: " . showGhcException e
   showsPrec _ e = showString progName . showString ": " . showGhcException e
 
 showGhcException :: GhcException -> String -> String