From: Ian Lynagh <igloo@earth.li>
Date: Sat, 13 Mar 2010 22:48:52 +0000 (+0000)
Subject: Rename a variable
X-Git-Tag: 2010-03-16~6
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=373978e7d6db47f318555397753b1d41064b1750

Rename a variable
---

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