[project @ 2005-10-29 14:19:59 by panne]

[ghc-hetmet.git] / ghc / compiler / main / HscMain.lhs

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index 5fb8671..4e9b440 100644 (file)
--- 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