diff options
| author | David Terei <davidterei@gmail.com> | 2011-05-10 16:36:18 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-06-17 18:39:29 -0700 |
| commit | 3cf28893a949775b01e6bd870ad9c7f2fa68b76f (patch) | |
| tree | 26904d92a4655976087439204778fc120f06c747 | |
| parent | cb40a3fd653bec7b6f420bcddb8e37486d4816db (diff) | |
| download | haskell-3cf28893a949775b01e6bd870ad9c7f2fa68b76f.tar.gz | |
SafeHaskell: Allow some flags that were cmdline only before by mistake
| -rw-r--r-- | compiler/main/DynFlags.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index c125949f05..52c51070e5 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -1403,7 +1403,7 @@ dynamic_flags = [ , flagC "optl" (hasArg addOptl) , flagC "optwindres" (hasArg (\f -> alterSettings (\s -> s { sOpt_windres = f : sOpt_windres s}))) - , flagC "split-objs" + , flagA "split-objs" (NoArg (if can_split then setDynFlag Opt_SplitObjs else addWarn "ignoring -fsplit-objs")) @@ -1424,7 +1424,7 @@ dynamic_flags = [ -------- Linking ---------------------------------------------------- , flagA "no-link" (noArg (\d -> d{ ghcLink=NoLink })) , flagA "shared" (noArg (\d -> d{ ghcLink=LinkDynLib })) - , flagC "dynload" (hasArg parseDynLibLoaderMode) + , flagA "dynload" (hasArg parseDynLibLoaderMode) , flagC "dylib-install-name" (hasArg setDylibInstallName) ------- Libraries --------------------------------------------------- @@ -1447,7 +1447,7 @@ dynamic_flags = [ , flagC "tmpdir" (hasArg setTmpDir) , flagC "stubdir" (hasArg setStubDir) , flagC "outputdir" (hasArg setOutputDir) - , flagC "ddump-file-prefix" (hasArg (setDumpPrefixForce . Just)) + , flagA "ddump-file-prefix" (hasArg (setDumpPrefixForce . Just)) ------- Keeping temporary files ------------------------------------- -- These can be singular (think ghc -c) or plural (think ghc --make) |