From: simonmar <unknown>
Date: Tue, 15 Feb 2005 15:58:28 +0000 (+0000)
Subject: [project @ 2005-02-15 15:58:28 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1064
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=88841e6447b740106a1c85a561a47ceb83d307b0

[project @ 2005-02-15 15:58:28 by simonmar]
Fix --mk-dll
---

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.