From 432ff585d9fa0aafcf898a2e8e8be2d5b4524874 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Fri, 19 Apr 2024 02:08:00 -0400 Subject: Multi-bridge functionality --- fig-bridge-irc-discord/main/Main.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'fig-bridge-irc-discord/main') diff --git a/fig-bridge-irc-discord/main/Main.hs b/fig-bridge-irc-discord/main/Main.hs index 8cd1fcb..2c6d2ba 100644 --- a/fig-bridge-irc-discord/main/Main.hs +++ b/fig-bridge-irc-discord/main/Main.hs @@ -5,16 +5,19 @@ import Fig.Prelude import Options.Applicative import Fig.Bridge.IRCDiscord +import Fig.Bridge.IRCDiscord.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-bridge-irc-discord.toml") main :: IO () main = do @@ -22,4 +25,5 @@ main = do ( fullDesc <> header "fig-bridge-irc-discord - bridge between IRC and Discord" ) - bridge (opts.busHost, opts.busPort) + cfg <- loadConfig opts.config + bridge cfg (opts.busHost, opts.busPort) -- cgit v1.2.3