From: Lemmih <lemmih@gmail.com>
Date: Sat, 4 Mar 2006 13:30:08 +0000 (+0000)
Subject: Use hscCodeGenNothing instead of hscCodeGenSimple.
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8204c80847518e3157c122fc51960f8e7d3a23e7;p=ghc-hetmet.git

Use hscCodeGenNothing instead of hscCodeGenSimple.
---

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