From 23843129c0eb7338e99d3edebb6e67f669557dc1 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 6 Dec 2004 10:47:22 +0000
Subject: [PATCH] [project @ 2004-12-06 10:47:22 by simonmar] Error message
 fixup

---
 ghc/compiler/compMan/CompManager.lhs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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