Commit 373978e7 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Rename a variable

parent 929d1669
...@@ -1423,7 +1423,7 @@ linkBinary dflags o_files dep_packages = do ...@@ -1423,7 +1423,7 @@ linkBinary dflags o_files dep_packages = do
let no_hs_main = dopt Opt_NoHsMain dflags let no_hs_main = dopt Opt_NoHsMain dflags
let main_lib | no_hs_main = [] let main_lib | no_hs_main = []
| otherwise = [ "-lHSrtsmain" ] | otherwise = [ "-lHSrtsmain" ]
rtsEnabledLib <- if dopt Opt_RtsOptsEnabled dflags rtsEnabledObj <- if dopt Opt_RtsOptsEnabled dflags
then do fn <- mkExtraCObj dflags then do fn <- mkExtraCObj dflags
["#include \"Rts.h\"", ["#include \"Rts.h\"",
"const rtsBool rtsOptsEnabled = rtsTrue;"] "const rtsBool rtsOptsEnabled = rtsTrue;"]
...@@ -1503,7 +1503,7 @@ linkBinary dflags o_files dep_packages = do ...@@ -1503,7 +1503,7 @@ linkBinary dflags o_files dep_packages = do
#endif #endif
++ pkg_lib_path_opts ++ pkg_lib_path_opts
++ main_lib ++ main_lib
++ rtsEnabledLib ++ rtsEnabledObj
++ pkg_link_opts ++ pkg_link_opts
#ifdef darwin_TARGET_OS #ifdef darwin_TARGET_OS
++ pkg_framework_path_opts ++ pkg_framework_path_opts
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment