From: Lemmih <lemmih@gmail.com>
Date: Sat, 4 Mar 2006 12:39:57 +0000 (+0000)
Subject: Allow hscCompileMake to target HscNothing.
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=229307330827699a964174a69b03969769ca19dd;p=ghc-hetmet.git

Allow hscCompileMake to target HscNothing.
---

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index 330f79a..7236620 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -260,32 +260,18 @@ hscCompileMake :: Compiler (HscStatus, ModIface, ModDetails)
 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) -> (NewHscRecomp False, i, d))
+                      _other     -> hscCodeGenMake
           compiler
               = case ms_hsc_src mod_summary of
                 ExtCoreFile
-                    -> mkComp hscCoreFrontEnd hscNewBackEnd hscCodeGenMake
+                    -> mkComp hscCoreFrontEnd hscNewBackEnd backend
                 HsSrcFile
-                    -> mkComp hscFileFrontEnd hscNewBackEnd hscCodeGenMake
+                    -> mkComp hscFileFrontEnd hscNewBackEnd backend
                 HsBootFile
                     -> mkComp hscFileFrontEnd hscNewBootBackEnd hscCodeGenIdentity
 
--- Same as 'hscCompileMake' but don't generate any actual code.
-hscCompileMakeNothing :: Compiler (HscStatus, ModIface, ModDetails)
-hscCompileMakeNothing hsc_env mod_summary
-    = compiler hsc_env mod_summary
-    where mkComp = hscMkCompiler norecompMake
-          codeGen = hscCodeGenSimple (\(i, d, g) -> (NewHscRecomp False, i, d))
-          compiler
-              = case ms_hsc_src mod_summary of
-                ExtCoreFile
-                    -> mkComp hscCoreFrontEnd hscNewBackEnd
-                              codeGen
-                HsSrcFile
-                    -> mkComp hscFileFrontEnd hscNewBackEnd
-                              codeGen
-                HsBootFile
-                    -> mkComp hscFileFrontEnd hscNewBootBackEnd
-                              hscCodeGenIdentity
 
 -- Compile Haskell, extCore to bytecode.
 hscCompileInteractive :: Compiler (InteractiveStatus, ModIface, ModDetails)