Added access controls to hsbot.

2011-08-08 11:39:41 +02:00 · 2011-08-08 11:39:41 +02:00 · 1c8cab09cb
commit 1c8cab09cb
parent e74094d5d9
5 changed files with 32 additions and 6 deletions
--- a/Hsbot/Core.hs
+++ b/Hsbot/Core.hs
@ -76,6 +76,7 @@ runHsbot = do
        mapM_ (liftIO . sendStr connhdl tlsCtx . IRC.encode . IRC.joinChan) channels
        -- Finally we set the new bot state
        asks envBotState >>= liftIO . flip putMVar BotState { botPlugins  = M.empty
+                                                            , botAccess   = configAccess config
                                                            , botHooks    = []
                                                            , botChannels = channels
                                                            , botNickname = nickname }