X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FHscMain.lhs;h=4e9b44016d330a5654b74ab396c2ddfc837c5be5;hb=26f300cea548cd8bbc9983975f95fa8a5d13384d;hp=5fb8671d805502b7b0aa72065c6e145ce43a51f3;hpb=9decae3f49f00d1373d1a49951ae3716fd170fec;p=ghc-hetmet.git

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