Archived
1
0
Fork 0

Added configuration debug stuff.

This commit is contained in:
Julien Dessaux 2010-08-01 17:40:53 +02:00
parent 6888950b60
commit 6a7d1f0381
2 changed files with 16 additions and 3 deletions

View file

@ -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