X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverPipeline.hs;h=4ab9f5527e6f0cb894a63545d891b3d2293c8ecc;hb=fb7a723bfd7650a705cb226e07c5b08b7a8e9279;hp=c69f5bafd96d10372960b80eee692b9196e2b1bf;hpb=ab10dec5390e625f5624a91e0cb9c4d1a4ecd6e7;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index c69f5ba..4ab9f55 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -868,8 +868,8 @@ doLink o_files = do
 	 	      ++ pkg_extra_ld_opts
 	 	      ++ extra_ld_opts
 	              ++ if static && not no_hs_main then
-			    [ "-u", prefixUnderscore "PrelMain_mainIO_closure" ,
-			      "-u", prefixUnderscore "__init_PrelMain"] 
+			    [ "-u", prefixUnderscore "PrelMain_mainIO_closure",
+			      "-u", prefixUnderscore "__stginit_PrelMain"] 
 			 else []))
 
     -- parallel only: move binary to another dir -- HWL