From: simonmar <unknown>
Date: Mon, 6 Dec 2004 10:47:22 +0000 (+0000)
Subject: [project @ 2004-12-06 10:47:22 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1356
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=23843129c0eb7338e99d3edebb6e67f669557dc1;p=ghc-hetmet.git

[project @ 2004-12-06 10:47:22 by simonmar]
Error message fixup
---

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index 12825fe..db2caf0 100644
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -1127,7 +1127,8 @@ downsweep dflags roots old_summaries
 
 -- ToDo: we don't have a proper line number for this error
 noModError dflags loc mod_nm err
-  = ProgramError (showSDoc (noIfaceErr dflags mod_nm err))
+  = ProgramError (showSDoc (hang (text loc <> colon) 4 $
+				noIfaceErr dflags mod_nm err))
 
 -----------------------------------------------------------------------------
 -- Summarising modules