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

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) $