[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 (file)
--- 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
 
 -- 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
 
 -----------------------------------------------------------------------------
 -- Summarising modules