Commit 9b7ba5ed authored by Ian Lynagh's avatar Ian Lynagh

Remove dead code

parent 4ca6790f
......@@ -408,7 +408,6 @@ data DynFlags = DynFlags {
depIncludePkgDeps :: Bool,
depExcludeMods :: [ModuleName],
depSuffixes :: [String],
depWarnings :: Bool,
-- Package flags
extraPkgConfs :: [FilePath],
......@@ -624,7 +623,6 @@ defaultDynFlags =
depIncludePkgDeps = False,
depExcludeMods = [],
depSuffixes = [],
depWarnings = True,
-- end of ghc -M values
haddockOptions = Nothing,
flags = [
......@@ -770,9 +768,6 @@ addDepExcludeMod m d
addDepSuffix :: FilePath -> DynFlags -> DynFlags
addDepSuffix s d = d { depSuffixes = deOptDep s : depSuffixes d }
setDepWarnings :: Bool -> DynFlags -> DynFlags
setDepWarnings b d = d { depWarnings = b }
-- XXX Legacy code:
-- We used to use "-optdep-flag -optdeparg", so for legacy applications
-- we need to strip the "-optdep" off of the arg
......@@ -1203,7 +1198,7 @@ dynamic_flags = [
, Flag "dep-makefile" (HasArg (upd . setDepMakefile)) Supported
, Flag "optdep-f" (HasArg (upd . setDepMakefile))
(Deprecated "Use -dep-makefile instead")
, Flag "optdep-w" (NoArg (upd (setDepWarnings False)))
, Flag "optdep-w" (NoArg (return ()))
(Deprecated "-optdep-w doesn't do anything")
, Flag "include-pkg-deps" (NoArg (upd (setDepIncludePkgDeps True))) Supported
, Flag "optdep--include-prelude" (NoArg (upd (setDepIncludePkgDeps True)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment