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-bridge-irc-discord/main/Main.hs | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 fig-bridge-irc-discord/main/Main.hs (limited to 'fig-bridge-irc-discord/main/Main.hs') diff --git a/fig-bridge-irc-discord/main/Main.hs b/fig-bridge-irc-discord/main/Main.hs new file mode 100644 index 0000000..8cd1fcb --- /dev/null +++ b/fig-bridge-irc-discord/main/Main.hs @@ -0,0 +1,25 @@ +module Main where + +import Fig.Prelude + +import Options.Applicative + +import Fig.Bridge.IRCDiscord + +data Opts = Opts + { busHost :: Text + , busPort :: Text + } + +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") + +main :: IO () +main = do + opts <- execParser $ info (parseOpts <**> helper) + ( fullDesc + <> header "fig-bridge-irc-discord - bridge between IRC and Discord" + ) + bridge (opts.busHost, opts.busPort) -- cgit v1.2.3