X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fmain%2FDriverPipeline.hs;h=d7d6ae331da33d94d2afa2a6cfde0973dcf74eff;hb=5463b55b7dadc1e9918edb2d8666bf3ed195bc61;hp=bc16ede088bf1bd8cb138faaa926ea50a9cf0c88;hpb=814edf44433801e37318ce79082ac6991dbc87dd;p=ghc-hetmet.git

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index bc16ede..d7d6ae3 100644
--- a/compiler/main/DriverPipeline.hs
+++ b/compiler/main/DriverPipeline.hs
@@ -1420,13 +1420,13 @@ mkExtraObjToLinkIntoBinary dflags dep_packages = do
     mk_rts_opts_enabled val
          = vcat [text "#include \"Rts.h\"",
                  text "#include \"RtsOpts.h\"",
-                 text "const rtsOptsEnabledEnum rtsOptsEnabled = " <>
+                 text "const RtsOptsEnabledEnum rtsOptsEnabled = " <>
                        text val <> semi ]
 
     rts_opts_enabled = case rtsOptsEnabled dflags of
-          RtsOptsNone     -> mk_rts_opts_enabled "rtsOptsNone"
+          RtsOptsNone     -> mk_rts_opts_enabled "RtsOptsNone"
           RtsOptsSafeOnly -> empty -- The default
-          RtsOptsAll      -> mk_rts_opts_enabled "rtsOptsAll"
+          RtsOptsAll      -> mk_rts_opts_enabled "RtsOptsAll"
 
     extra_rts_opts = case rtsOpts dflags of
           Nothing   -> empty