Fix --ghc-options arg

This commit is contained in:
Chris Done 2015-02-17 20:09:26 +01:00
parent 048106c593
commit 69b30063ff

View File

@ -3,11 +3,12 @@
module Main where module Main where
import Control.Monad import Control.Monad
import Data.Maybe
import Data.Monoid import Data.Monoid
import Data.String (fromString) import Data.String (fromString)
import Data.Version import Data.Version
import Options.Applicative
import Filesystem.Path.CurrentOS (decodeString) import Filesystem.Path.CurrentOS (decodeString)
import Options.Applicative
import Paths_stackage (version) import Paths_stackage (version)
import Stackage.CompleteBuild import Stackage.CompleteBuild
import Stackage.InstallBuild import Stackage.InstallBuild
@ -91,12 +92,11 @@ main =
switch switch
(long "skip-check" <> (long "skip-check" <>
help "Skip the check phase, and pass --allow-newer to cabal configure") <*> help "Skip the check phase, and pass --allow-newer to cabal configure") <*>
option fmap (fromMaybe "")
auto (optional (strOption
(long "ghc-options" <> (long "ghc-options" <>
metavar "OPTIONS" <>
showDefault <> showDefault <>
help "GHC options") help "GHC options")))
nightlyUploadFlags = fromString <$> strArgument nightlyUploadFlags = fromString <$> strArgument
(metavar "DATE" <> (metavar "DATE" <>