From: panne <unknown>
Date: Sat, 29 Oct 2005 14:19:59 +0000 (+0000)
Subject: [project @ 2005-10-29 14:19:59 by panne]
X-Git-Tag: Initial_conversion_from_CVS_complete~100
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=26f300cea548cd8bbc9983975f95fa8a5d13384d;p=ghc-hetmet.git

[project @ 2005-10-29 14:19:59 by panne]
Fixed the last commit, which broke the nightly builds. I'm not sure if
this is really a fix or a workaround only, though...
---

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index 5fb8671..4e9b440 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -38,7 +38,7 @@ import VarEnv		( emptyTidyEnv )
 #endif
 
 import Var		( Id )
-import Module		( emptyModuleEnv )
+import Module		( emptyModuleEnv, ModLocation(..) )
 import RdrName		( GlobalRdrEnv, RdrName )
 import HsSyn		( HsModule, LHsBinds, HsGroup )
 import SrcLoc		( Located(..) )
@@ -538,7 +538,9 @@ hscCmmFile dflags filename = do
 	return True
   where
 	no_mod = panic "hscCmmFile: no_mod"
-	no_loc = panic "hscCmmFile: no_location"
+	no_loc = ModLocation{ ml_hs_file  = Just filename,
+                              ml_hi_file  = panic "hscCmmFile: no hi file",
+                              ml_obj_file = panic "hscCmmFile: no obj file" }
 
 
 myParseModule dflags src_filename maybe_src_buf