Multi-bridge functionality

1 files changed, 5 insertions, 1 deletions

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)