summaryrefslogtreecommitdiff
path: root/fig-monitor-bullfrog/main/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'fig-monitor-bullfrog/main/Main.hs')
-rw-r--r--fig-monitor-bullfrog/main/Main.hs29
1 files changed, 0 insertions, 29 deletions
diff --git a/fig-monitor-bullfrog/main/Main.hs b/fig-monitor-bullfrog/main/Main.hs
deleted file mode 100644
index 966e0a1..0000000
--- a/fig-monitor-bullfrog/main/Main.hs
+++ /dev/null
@@ -1,29 +0,0 @@
-module Main where
-
-import Fig.Prelude
-
-import Options.Applicative
-
-import Fig.Monitor.Bullfrog
-import Fig.Monitor.Bullfrog.Utils
-
-data Opts = Opts
- { busHost :: Text
- , busPort :: Text
- , config :: FilePath
- }
-
-parseOpts :: Parser Opts
-parseOpts = Opts
- <$> strOption (long "bus-host" <> metavar "HOST" <> help "Address of message bus" <> value "localhost")
- <*> strOption (long "bus-port" <> metavar "PORT" <> help "Message bus port" <> showDefault <> value "32050")
- <*> strOption (long "config" <> metavar "PATH" <> help "Path to config file" <> showDefault <> value "fig-monitor-bullfrog.toml")
-
-main :: IO ()
-main = do
- opts <- execParser $ info (parseOpts <**> helper)
- ( fullDesc
- <> header "fig-monitor-bullfrog - monitor Bullfrog broadcast server"
- )
- cfg <- loadConfig opts.config
- bullfrogClient cfg (opts.busHost, opts.busPort)