diff options
Diffstat (limited to 'fig-monitor-bullfrog/main/Main.hs')
| -rw-r--r-- | fig-monitor-bullfrog/main/Main.hs | 29 |
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) |
