X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FCmdLineOpts.lhs;h=57fc0ae15254f8e71e06edd82edcf5594cf0106c;hb=b5dbb387d42da93c3fa2976dd70475a9d6c03475;hp=5fbf20dea00bc218839ac84c4e62b84bb168211d;hpb=8ec76b056b1da2ab9fae3dbf572f01aa2f37e296;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index 5fbf20d..57fc0ae 100644
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -90,7 +90,7 @@ module CmdLineOpts (
 #include "HsVersions.h"
 
 import {-# SOURCE #-} Packages (PackageState)
-import DriverPhases	( HscTarget(..), HscSource(..) )
+import DriverPhases	( HscTarget(..) )
 import Constants	-- Default values for some flags
 import Util
 import FastString	( FastString, mkFastString )
@@ -306,6 +306,7 @@ data DynFlags = DynFlags {
   ruleCheck		:: Maybe String,
   cppFlag    		:: Bool,	-- preprocess with cpp?
   ppFlag                :: Bool,        -- preprocess with a Haskell Pp?
+  recompFlag		:: Bool,	-- True <=> recompilation checker is on
   stolen_x86_regs	:: Int,		
   cmdlineHcIncludes	:: [String],	-- -#includes
   importPaths		:: [FilePath],
@@ -365,6 +366,7 @@ defaultDynFlags = DynFlags {
   ruleCheck		= Nothing,
   cppFlag		= False,
   ppFlag                = False,
+  recompFlag		= True,
   stolen_x86_regs	= 4,
   cmdlineHcIncludes	= [],
   importPaths		= ["."],