haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

optparse-applicative 0.10

Browse Source
This commit is contained in:
Michael Snoyman 2014-09-03 08:20:10 +03:00
parent ec91c8b59b
commit 67438d191d
2 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
yesod-bin/main.hs
View File

@ -155,6 +155,12 @@ keterOptions = Keter <$> switch ( long "nobuild" <> short 'n' <> help "Skip rebu
defaultRescan :: Int defaultRescan :: Int
defaultRescan = 10 defaultRescan = 10
#if MIN_VERSION_optparse_applicative(0,10,0)
option' = option auto
#else
option' = option
#endif
develOptions :: Parser Command develOptions :: Parser Command
develOptions = Devel <$> switch ( long "disable-api" <> short 'd' develOptions = Devel <$> switch ( long "disable-api" <> short 'd'
<> help "Disable fast GHC API rebuilding") <> help "Disable fast GHC API rebuilding")
@ -162,7 +168,7 @@ develOptions = Devel <$> switch ( long "disable-api" <> short 'd'
<> help "Run COMMAND after rebuild succeeds") <> help "Run COMMAND after rebuild succeeds")
<*> optStr ( long "failure-hook" <> short 'f' <> metavar "COMMAND" <*> optStr ( long "failure-hook" <> short 'f' <> metavar "COMMAND"
<> help "Run COMMAND when rebuild fails") <> help "Run COMMAND when rebuild fails")
<*> option ( long "event-timeout" <> short 't' <> value defaultRescan <> metavar "N" <*> option' ( long "event-timeout" <> short 't' <> value defaultRescan <> metavar "N"
<> help ("Force rescan of files every N seconds (default " <> help ("Force rescan of files every N seconds (default "
++ show defaultRescan ++ show defaultRescan
++ ", use -1 to rely on FSNotify alone)") ) ++ ", use -1 to rely on FSNotify alone)") )
@ -172,9 +178,9 @@ develOptions = Devel <$> switch ( long "disable-api" <> short 'd'
<> help "ignore file changes in DIR" ) <> help "ignore file changes in DIR" )
) )
<*> extraCabalArgs <*> extraCabalArgs
<*> option ( long "port" <> short 'p' <> value 3000 <> metavar "N" <*> option' ( long "port" <> short 'p' <> value 3000 <> metavar "N"
<> help "Devel server listening port" ) <> help "Devel server listening port" )
<*> option ( long "proxy-timeout" <> short 'x' <> value 0 <> metavar "N" <*> option' ( long "proxy-timeout" <> short 'x' <> value 0 <> metavar "N"
<> help "Devel server timeout before returning 'not ready' message (in seconds, 0 for none)" ) <> help "Devel server timeout before returning 'not ready' message (in seconds, 0 for none)" )
<*> switch ( long "disable-reverse-proxy" <> short 'n' <*> switch ( long "disable-reverse-proxy" <> short 'n'
<> help "Disable reverse proxy" ) <> help "Disable reverse proxy" )
@ -189,7 +195,11 @@ extraCabalArgs = many (strOption ( long "extra-cabal-arg" <> short 'e' <> metava
-- | Optional @String@ argument -- | Optional @String@ argument
optStr :: Mod OptionFields (Maybe String) -> Parser (Maybe String) optStr :: Mod OptionFields (Maybe String) -> Parser (Maybe String)
optStr m = optStr m =
#if MIN_VERSION_optparse_applicative(0,10,0)
nullOption (success . str) $ value Nothing <> m
#else
nullOption $ value Nothing <> reader (success . str) <> m nullOption $ value Nothing <> reader (success . str) <> m
#endif
where where
#if MIN_VERSION_optparse_applicative(0,6,0) #if MIN_VERSION_optparse_applicative(0,6,0)
success = ReadM . Right success = ReadM . Right

4
yesod-bin/yesod-bin.cabal
View File

@ -1,5 +1,5 @@
name: yesod-bin name: yesod-bin
version: 1.2.12.6 version: 1.2.12.7
license: MIT license: MIT
license-file: LICENSE license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com> author: Michael Snoyman <michael@snoyman.com>
@ -74,7 +74,7 @@ executable yesod
, system-fileio >= 0.3 && < 0.4 , system-fileio >= 0.3 && < 0.4
, unordered-containers , unordered-containers
, yaml >= 0.8 && < 0.9 , yaml >= 0.8 && < 0.9
, optparse-applicative >= 0.5 && <= 0.9.1.1 , optparse-applicative >= 0.5
, fsnotify >= 0.0 && < 0.2 , fsnotify >= 0.0 && < 0.2
, split >= 0.2 && < 0.3 , split >= 0.2 && < 0.3
, file-embed , file-embed