From 8204c80847518e3157c122fc51960f8e7d3a23e7 Mon Sep 17 00:00:00 2001 From: Lemmih Date: Sat, 4 Mar 2006 13:30:08 +0000 Subject: [PATCH] Use hscCodeGenNothing instead of hscCodeGenSimple. --- ghc/compiler/main/HscMain.lhs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs index 3885bd3..32eefb8 100644 --- a/ghc/compiler/main/HscMain.lhs +++ b/ghc/compiler/main/HscMain.lhs @@ -253,7 +253,7 @@ hscCompileMake hsc_env mod_summary = compiler hsc_env mod_summary where mkComp = hscMkCompiler norecompMake backend = case hscTarget (hsc_dflags hsc_env) of - HscNothing -> hscCodeGenSimple (\(i, d, g) -> (HscRecomp False, i, d)) + HscNothing -> hscCodeGenNothing _other -> hscCodeGenMake compiler = case ms_hsc_src mod_summary of @@ -531,9 +531,6 @@ hscCodeGenCompile hsc_env mod_summary cgguts hscCodeGenIdentity :: CodeGen a a hscCodeGenIdentity hsc_env mod_summary a = return a -hscCodeGenSimple :: (a -> b) -> CodeGen a b -hscCodeGenSimple fn hsc_env mod_summary a = return (fn a) - hscCodeGenConst :: b -> CodeGen a b hscCodeGenConst b hsc_env mod_summary a = return b -- 1.7.10.4