From: simonpj@microsoft.com <unknown>
Date: Wed, 4 Oct 2006 12:12:24 +0000 (+0000)
Subject: Improve pretty printing slightly
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=1f315eba139d1845f44f5fefcc7d3c353eba93d3

Improve pretty printing slightly
---

diff --git a/compiler/iface/TcIface.lhs b/compiler/iface/TcIface.lhs
index 20aaa9f..099fd9a 100644
--- a/compiler/iface/TcIface.lhs
+++ b/compiler/iface/TcIface.lhs
@@ -65,7 +65,7 @@ import Outputable
 import ErrUtils		( Message )
 import Maybes		( MaybeErr(..) )
 import SrcLoc		( noSrcLoc )
-import Util		( zipWithEqual, equalLength )
+import Util		( zipWithEqual )
 import DynFlags		( DynFlag(..), isOneShot )
 
 import List		( elemIndex)
@@ -830,7 +830,7 @@ tcPragExpr name expr
 	get_in_scope_ids			`thenM` \ in_scope -> 
 	case lintUnfolding noSrcLoc in_scope core_expr' of
 	  Nothing       -> returnM ()
-	  Just fail_msg -> pprPanic "Iface Lint failure" (doc <+> fail_msg)
+	  Just fail_msg -> pprPanic "Iface Lint failure" (hang doc 2 fail_msg)
     )				`thenM_`
 
    returnM core_expr'