From db0591be8928dbe75e8b804f2ae95728a6074b7e Mon Sep 17 00:00:00 2001
From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 23 Jan 2008 16:31:45 +0000
Subject: [PATCH] Show CmdLineError exceptions as "<command line>: ..."
 instead of something like "ghc-6.8.2: ...", which causes
 problems in the test suite.  In any case, "<command line>"
 seems a more appropriate context for these errors, the only
 question is whether we're using CmdLineError incorrectly
 anywhere.

---
 compiler/utils/Panic.lhs |    1 +
 1 file changed, 1 insertion(+)

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
-- 
1.7.10.4