From 373978e7d6db47f318555397753b1d41064b1750 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 13 Mar 2010 22:48:52 +0000 Subject: [PATCH] Rename a variable --- compiler/main/DriverPipeline.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index 4e48a58..2bdf982 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -1423,7 +1423,7 @@ linkBinary dflags o_files dep_packages = do let no_hs_main = dopt Opt_NoHsMain dflags let main_lib | no_hs_main = [] | otherwise = [ "-lHSrtsmain" ] - rtsEnabledLib <- if dopt Opt_RtsOptsEnabled dflags + rtsEnabledObj <- if dopt Opt_RtsOptsEnabled dflags then do fn <- mkExtraCObj dflags ["#include \"Rts.h\"", "const rtsBool rtsOptsEnabled = rtsTrue;"] @@ -1503,7 +1503,7 @@ linkBinary dflags o_files dep_packages = do #endif ++ pkg_lib_path_opts ++ main_lib - ++ rtsEnabledLib + ++ rtsEnabledObj ++ pkg_link_opts #ifdef darwin_TARGET_OS ++ pkg_framework_path_opts -- 1.7.10.4