From 6a7d1f0381601ee7e6b64bf41d603961d32859ac Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sun, 1 Aug 2010 17:40:53 +0200
Subject: Added configuration debug stuff.

---
 HsbotIrcBot/Main.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'HsbotIrcBot/Main.hs')

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
-- 
cgit v1.2.3