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

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