moving setFlags to Gap.

This commit is contained in:
Kazu Yamamoto
2014-07-18 11:09:11 +09:00
parent 0ce70ae22d
commit 233f4cf05e
3 changed files with 13 additions and 5 deletions

View File

@@ -2,7 +2,7 @@ module Language.Haskell.GhcMod.DynFlags where
import Control.Applicative ((<$>))
import Control.Monad (forM, void, (>=>))
import DynFlags (ExtensionFlag(..), xopt, GeneralFlag(..), gopt_unset)
import DynFlags (ExtensionFlag(..), xopt)
import GHC (DynFlags(..), GhcMode(..), GhcLink(..), HscTarget(..), LoadHowMuch(..))
import qualified GHC as G
import GHC.Paths (libdir)
@@ -40,9 +40,6 @@ setModeIntelligent df = df {
, optLevel = 0
}
setFlags :: DynFlags -> DynFlags
setFlags df = df `gopt_unset` Opt_SpecConstr -- consume memory if -O2
setIncludeDirs :: [IncludeDir] -> DynFlags -> DynFlags
setIncludeDirs idirs df = df { importPaths = idirs }