From 26f300cea548cd8bbc9983975f95fa8a5d13384d Mon Sep 17 00:00:00 2001 From: panne Date: Sat, 29 Oct 2005 14:19:59 +0000 Subject: [PATCH] [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... --- ghc/compiler/main/HscMain.lhs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 -- 1.7.10.4