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

Simplified implementation of cert/key parser option

Browse Source
This commit is contained in:
James Burton 2021-02-10 13:54:22 +00:00
parent 4699479bbb
commit a068bbdb8c
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
yesod-bin/main.hs
View File

@ -169,15 +169,11 @@ develOptions = Devel <$> optStr ( long "success-hook" <> short 's' <> metavar "C
<> help "Disable reverse proxy" ) <> help "Disable reverse proxy" )
<*> optStr (long "host" <> metavar "HOST" <*> optStr (long "host" <> metavar "HOST"
<> help "Host interface to bind to; IP address, '*' for all interfaces, '*4' for IP4, '*6' for IP6") <> help "Host interface to bind to; IP address, '*' for all interfaces, '*4' for IP4, '*6' for IP6")
<*> optionPair <*> optional ( (,)
(strOption (long "cert" <> metavar "CERT" <$> strOption (long "cert" <> metavar "CERT"
<> help "Path to TLS certificate file, requires that --key is also defined")) <> help "Path to TLS certificate file, requires that --key is also defined")
(strOption (long "key" <> metavar "KEY" <*> strOption (long "key" <> metavar "KEY"
<> help "Path to TLS key file, requires that --cert is also defined")) <> help "Path to TLS key file, requires that --cert is also defined") )
optionPair :: Parser a -> Parser b -> Parser (Maybe (a,b))
optionPair pa pb = Just <$> liftA2 (,) pa pb
<|> pure Nothing
extraStackArgs :: Parser [String] extraStackArgs :: Parser [String]
extraStackArgs = many (strOption ( long "extra-stack-arg" <> short 'e' <> metavar "ARG" extraStackArgs = many (strOption ( long "extra-stack-arg" <> short 'e' <> metavar "ARG"