diff options
Diffstat (limited to 'fig-frontend/main/Main.hs')
| -rw-r--r-- | fig-frontend/main/Main.hs | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/fig-frontend/main/Main.hs b/fig-frontend/main/Main.hs deleted file mode 100644 index 7db5efe..0000000 --- a/fig-frontend/main/Main.hs +++ /dev/null @@ -1,32 +0,0 @@ -{-# Language ApplicativeDo #-} - -module Main where - -import Fig.Prelude - -import Options.Applicative - -import Fig.Frontend -import Fig.Frontend.Utils - -data Opts = Opts - { busHost :: Text - , busPort :: Text - , config :: FilePath - } - -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") - config <- strOption (long "config" <> metavar "PATH" <> help "Path to config file" <> showDefault <> value "fig-frontend.toml") - pure Opts{..} - -main :: IO () -main = do - opts <- execParser $ info (parseOpts <**> helper) - ( fullDesc - <> header "fig-frontend - public-facing web applications" - ) - cfg <- loadConfig opts.config - server cfg (opts.busHost, opts.busPort) |
