diff options
| author | LLLL Colonq <llll@colonq> | 2024-11-07 22:37:32 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-11-07 22:37:32 -0500 |
| commit | 624f7ba8b2fcda6675951dd8d41dcc99017484cf (patch) | |
| tree | ff1bcc3ee77c73e73c3e246bc8e18ce8f3aca004 /fig-frontend/main/Main.hs | |
| parent | bb3f54c297f480db32303e9ee78fb72c5418b77a (diff) | |
Rename fig-frontend to fig-web
(It was the backend anyway :3)
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) |
