From b943731970d71b1898eb04d1d26dc3134f7c6a88 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Thu, 7 Nov 2024 22:58:58 -0500 Subject: Fix warnings --- fig-web/main/Main.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'fig-web/main') diff --git a/fig-web/main/Main.hs b/fig-web/main/Main.hs index 926685c..3567529 100644 --- a/fig-web/main/Main.hs +++ b/fig-web/main/Main.hs @@ -24,7 +24,7 @@ data Opts = Opts { busHost :: !Text , busPort :: !Text , config :: !FilePath - , command :: !Command + , cmd :: !Command } parseOpts :: Parser Opts @@ -32,7 +32,7 @@ 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") config <- strOption (long "config" <> metavar "PATH" <> help "Path to config file" <> showDefault <> value "fig-web.toml") - command <- parseCommand + cmd <- parseCommand pure Opts{..} main :: IO () @@ -42,6 +42,6 @@ main = do <> header "fig-web - public-facing web applications" ) cfg <- loadConfig opts.config - case cfg.command of + case opts.cmd of Public -> Public.server cfg (opts.busHost, opts.busPort) Secure -> Secure.server cfg (opts.busHost, opts.busPort) -- cgit v1.2.3