diff options
| -rw-r--r-- | fig-web/main/Main.hs | 6 | ||||
| -rw-r--r-- | fig-web/src/Fig/Web/Secure.hs | 2 |
2 files changed, 4 insertions, 4 deletions
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) diff --git a/fig-web/src/Fig/Web/Secure.hs b/fig-web/src/Fig/Web/Secure.hs index dfb7e1b..54a5306 100644 --- a/fig-web/src/Fig/Web/Secure.hs +++ b/fig-web/src/Fig/Web/Secure.hs @@ -1,6 +1,6 @@ {-# Language QuasiQuotes #-} -module Fig.Web where +module Fig.Web.Secure where import Fig.Prelude |