From dcef0b65069fb38fd0f6c4382353167f603ebff1 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Thu, 16 Nov 2023 19:06:43 -0500 Subject: Initial commit --- fig-monitor-irc/main/Main.hs | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 fig-monitor-irc/main/Main.hs (limited to 'fig-monitor-irc/main') diff --git a/fig-monitor-irc/main/Main.hs b/fig-monitor-irc/main/Main.hs new file mode 100644 index 0000000..c28061b --- /dev/null +++ b/fig-monitor-irc/main/Main.hs @@ -0,0 +1,29 @@ +module Main where + +import Fig.Prelude + +import Options.Applicative + +import Fig.Monitor.IRC +import Fig.Monitor.IRC.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-irc.toml") + +main :: IO () +main = do + opts <- execParser $ info (parseOpts <**> helper) + ( fullDesc + <> header "fig-monitor-discord - monitor IRC chat events" + ) + cfg <- loadConfig opts.config + ircBot cfg (opts.busHost, opts.busPort) -- cgit v1.2.3