diff options
Diffstat (limited to 'fig-web/main')
| -rw-r--r-- | fig-web/main/Main.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/fig-web/main/Main.hs b/fig-web/main/Main.hs index a3c798a..7e3d509 100644 --- a/fig-web/main/Main.hs +++ b/fig-web/main/Main.hs @@ -36,6 +36,7 @@ parseCommand = hsubparser $ mconcat data Opts = Opts { busHost :: !Text , busPort :: !Text + , port :: !(Maybe Int) , config :: !FilePath , cmd :: !Command } @@ -44,6 +45,7 @@ parseOpts :: Parser Opts parseOpts = do busHost <- strOption (long "bus-host" <> metavar "HOST" <> help "Address of message bus" <> value "localhost") busPort <- strOption (long "bus-port" <> metavar "PORT" <> help "Message bus port" <> showDefault <> value "32050") + port <- optional $ option auto (long "port" <> metavar "PORT" <> help "Web server port") config <- strOption (long "config" <> metavar "PATH" <> help "Path to config file" <> showDefault <> value "fig-web.toml") cmd <- parseCommand pure Opts{..} @@ -54,7 +56,10 @@ main = do ( fullDesc <> Options.Applicative.header "fig-web - web backends" ) - cfg <- loadConfig opts.config + icfg <- loadConfig opts.config + let cfg = case opts.port of + Nothing -> icfg + Just p -> icfg { Fig.Web.Utils.port = p } case opts.cmd of Public o -> Public.server o cfg (opts.busHost, opts.busPort) Secure o -> Secure.server o cfg (opts.busHost, opts.busPort) |