diff options
author | Julien Dessaux | 2010-08-01 17:40:53 +0200 |
---|---|---|
committer | Julien Dessaux | 2010-08-01 17:40:53 +0200 |
commit | 6a7d1f0381601ee7e6b64bf41d603961d32859ac (patch) | |
tree | 53675da98fbedf0ef7f01111733a7dd699044953 /HsbotIrcBot/Main.hs | |
parent | Added the cli parser and a config file handler for hsbot-irc. (diff) | |
download | hsbot-6a7d1f0381601ee7e6b64bf41d603961d32859ac.tar.gz hsbot-6a7d1f0381601ee7e6b64bf41d603961d32859ac.tar.bz2 hsbot-6a7d1f0381601ee7e6b64bf41d603961d32859ac.zip |
Added configuration debug stuff.
Diffstat (limited to 'HsbotIrcBot/Main.hs')
-rw-r--r-- | HsbotIrcBot/Main.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/HsbotIrcBot/Main.hs b/HsbotIrcBot/Main.hs index 070b7b6..b8fc259 100644 --- a/HsbotIrcBot/Main.hs +++ b/HsbotIrcBot/Main.hs @@ -22,11 +22,10 @@ main = do hPutStrLn stderr $ concat errors ++ usageInfo header options exitWith $ ExitFailure 1 -- From there the initialization code truly begins - when (optDebug opts) . putStrLn $ "Got options : " ++ (show opts) + when (optDebug opts) . putStrLn $ "[hsbot-irc] Got CLI options :\n" ++ (show opts) -- We find and parse the config file ircConfig <- getIrcConfig $ optConfigFile opts - print $ ircConfigChannels ircConfig - print $ ircConfigPlugins ircConfig + when (optDebug opts) . putStrLn $ "[hsbot-irc] Compiled config :\n" ++ (show ircConfig) -- CLI argument parting stuff {{{ -- | CLI options |