summaryrefslogtreecommitdiff
path: root/fig-frontend/main/Main.hs
diff options
context:
space:
mode:
authorLLLL Colonq <llll@colonq>2024-11-07 22:37:32 -0500
committerLLLL Colonq <llll@colonq>2024-11-07 22:37:32 -0500
commit624f7ba8b2fcda6675951dd8d41dcc99017484cf (patch)
treeff1bcc3ee77c73e73c3e246bc8e18ce8f3aca004 /fig-frontend/main/Main.hs
parentbb3f54c297f480db32303e9ee78fb72c5418b77a (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.hs32
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)