Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/3cf28893a949775b01e6bd870ad9c7f2fa68b76f

>---------------------------------------------------------------

commit 3cf28893a949775b01e6bd870ad9c7f2fa68b76f
Author: David Terei <[email protected]>
Date:   Tue May 10 16:36:18 2011 -0700

    SafeHaskell: Allow some flags that were cmdline only before by mistake

>---------------------------------------------------------------

 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 c125949..52c5107 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)



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to