diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-04-26 21:09:46 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-04-26 21:36:04 +0100 |
| commit | cee55b9e9b4396f68c787d573007999e4588a558 (patch) | |
| tree | 8c900b30904dcf677ddbf45d28e40ace737814a9 /compiler/main/CodeOutput.lhs | |
| parent | 4ae3def26ff935349bd03bdf0a51bd9377fc6315 (diff) | |
| download | haskell-cee55b9e9b4396f68c787d573007999e4588a558.tar.gz | |
Remove DynFlags's hscOutName field
We now just pass the output filename as an argument instead
Diffstat (limited to 'compiler/main/CodeOutput.lhs')
| -rw-r--r-- | compiler/main/CodeOutput.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/CodeOutput.lhs b/compiler/main/CodeOutput.lhs index d6c096a595..ce25727703 100644 --- a/compiler/main/CodeOutput.lhs +++ b/compiler/main/CodeOutput.lhs @@ -45,6 +45,7 @@ import System.IO \begin{code} codeOutput :: DynFlags -> Module + -> FilePath -> ModLocation -> ForeignStubs -> [PackageId] @@ -52,7 +53,7 @@ codeOutput :: DynFlags -> IO (FilePath, (Bool{-stub_h_exists-}, Maybe FilePath{-stub_c_exists-})) -codeOutput dflags this_mod location foreign_stubs pkg_deps cmm_stream +codeOutput dflags this_mod filenm location foreign_stubs pkg_deps cmm_stream = do { -- Lint each CmmGroup as it goes past @@ -72,7 +73,6 @@ codeOutput dflags this_mod location foreign_stubs pkg_deps cmm_stream } ; showPass dflags "CodeOutput" - ; let filenm = hscOutName dflags ; stubs_exist <- outputForeignStubs dflags this_mod location foreign_stubs ; case hscTarget dflags of { HscAsm -> outputAsm dflags filenm linted_cmm_stream; |