diff options
author | Julien Dessaux | 2010-08-01 23:29:48 +0200 |
---|---|---|
committer | Julien Dessaux | 2010-08-01 23:29:48 +0200 |
commit | 8c59b45dc7c88cea63a4cf47566a3d5124a8a0b0 (patch) | |
tree | 67b65a6ab0b3605ed21ae0725a185798638559b2 /HsbotIrcBot/Main.hs | |
parent | Moved the CLI argument processing stuff in its own file. (diff) | |
download | hsbot-8c59b45dc7c88cea63a4cf47566a3d5124a8a0b0.tar.gz hsbot-8c59b45dc7c88cea63a4cf47566a3d5124a8a0b0.tar.bz2 hsbot-8c59b45dc7c88cea63a4cf47566a3d5124a8a0b0.zip |
Got a working hsbot-irc back online!
Diffstat (limited to 'HsbotIrcBot/Main.hs')
-rw-r--r-- | HsbotIrcBot/Main.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/HsbotIrcBot/Main.hs b/HsbotIrcBot/Main.hs index 8c371bd..97e7052 100644 --- a/HsbotIrcBot/Main.hs +++ b/HsbotIrcBot/Main.hs @@ -8,6 +8,7 @@ import System.IO import Hsbot.Irc.CLI import Hsbot.Irc.Config +import Hsbot.Irc.Core -- | Main function main :: IO () @@ -26,4 +27,8 @@ main = do -- We find and parse the config file ircConfig <- getIrcConfig $ optConfigFile opts when (optDebug opts) . putStrLn $ "[hsbot-irc] Compiled config :\n" ++ (show ircConfig) + -- Finally we get into the ircbot stuff + case optDebug opts of + True -> startIrcbot opts ircConfig + False -> startIrcbot opts ircConfig -- TODO : fork process in background |