X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverFlags.hs;fp=ghc%2Fcompiler%2Fmain%2FDriverFlags.hs;h=9489388233cc8d85995643a87585b7fd044b10b3;hb=88841e6447b740106a1c85a561a47ceb83d307b0;hp=892dce7f1c5d1d3b7ff6b2503b7d1888205514f9;hpb=8284fd0f929d6be825756cb3dd90a90f008004ad;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs
index 892dce7..9489388 100644
--- a/ghc/compiler/main/DriverFlags.hs
+++ b/ghc/compiler/main/DriverFlags.hs
@@ -183,7 +183,7 @@ static_flags =
   ,  ( "S"		, PassFlag (setMode (StopBefore As)))
   ,  ( "-make"		, PassFlag (setMode DoMake))
   ,  ( "-interactive"	, PassFlag (setMode DoInteractive))
-  ,  ( "-mk-dll"	, NoArg (writeIORef v_GhcLink NoLink))
+  ,  ( "-mk-dll"	, NoArg (writeIORef v_GhcLink MkDLL))
   ,  ( "e"              , HasArg   (\s -> setMode (DoEval s) "-e"))
 
 	-- -fno-code says to stop after Hsc but don't generate any code.