Fix warnings

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