X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FGHC.hs;h=f63b98f124f58bae168ae537e8802a059fae5317;hb=8aaa9ef471cadbc79fca58b234b198065f650dcf;hp=c5571cbd9ff549f38848a3943a0cff0caacd52a5;hpb=ef03a76a01e538ccae5239dce00c583e9da17984;p=ghc-hetmet.git

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index c5571cb..f63b98f 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -888,7 +888,7 @@ load2 how_much mod_graph = do
 	      let 
 	 	main_mod = mainModIs dflags
 		a_root_is_Main = any ((==main_mod).ms_mod) mod_graph
-		do_linking = a_root_is_Main || no_hs_main
+		do_linking = a_root_is_Main || no_hs_main || not StaticFlags.opt_Static
 
 	      when (ghcLink dflags == LinkBinary 
                     && isJust ofile && not do_linking) $