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/Hsbot | |
| 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 '')
| -rw-r--r-- | HsbotIrcBot/Hsbot/Irc/Config.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/HsbotIrcBot/Hsbot/Irc/Config.hs b/HsbotIrcBot/Hsbot/Irc/Config.hs index e0b8c64..ff14efd 100644 --- a/HsbotIrcBot/Hsbot/Irc/Config.hs +++ b/HsbotIrcBot/Hsbot/Irc/Config.hs @@ -22,6 +22,20 @@ data IrcConfig = IrcConfig , ircConfigPlugins :: [String] -- the ircPlugins to load } +instance Show IrcConfig where + show (IrcConfig address port channels nickname password realname commandPrefix plugins) = unlines $ + concat [ "Address: ", address ] : + concat [ "Port: ", case port of + PortNumber num -> show num + Service s -> show s + UnixSocket u -> show u ] : + concat [ "Channels: ", show channels ] : + concat [ "Nickname: ", nickname ] : + concat [ "Password: ", password ] : + concat [ "Realname: ", realname ] : + concat [ "CommandPrefix: ", show commandPrefix ] : + [ "Plugins: ", show plugins ] + -- | User configuration ircDefaultConfig :: IrcConfig ircDefaultConfig = IrcConfig |