diff options
author | Julien Dessaux | 2010-05-16 17:58:38 +0200 |
---|---|---|
committer | Julien Dessaux | 2010-05-16 17:58:38 +0200 |
commit | 738ad9e9bbbefb43a7889a458ff1c326a324eb9a (patch) | |
tree | f8337cc73ffdfa6956dc9425a8338fe496eafec7 /Hsbot/Irc/Plugin/Quote.hs | |
parent | Rewrote nearly everything! (diff) | |
download | hsbot-738ad9e9bbbefb43a7889a458ff1c326a324eb9a.tar.gz hsbot-738ad9e9bbbefb43a7889a458ff1c326a324eb9a.tar.bz2 hsbot-738ad9e9bbbefb43a7889a458ff1c326a324eb9a.zip |
Removed thread ids from plugins data structure.
Diffstat (limited to '')
-rw-r--r-- | Hsbot/Irc/Plugin/Quote.hs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/Hsbot/Irc/Plugin/Quote.hs b/Hsbot/Irc/Plugin/Quote.hs index ff037c7..31eaeaf 100644 --- a/Hsbot/Irc/Plugin/Quote.hs +++ b/Hsbot/Irc/Plugin/Quote.hs @@ -2,7 +2,6 @@ module Hsbot.Irc.Plugin.Quote ( ircBotPluginQuote ) where -import Control.Concurrent (myThreadId) import Control.Concurrent.Chan import Control.Exception import Control.Monad.State @@ -61,9 +60,7 @@ ircBotPluginQuote myChan masterChan = do txtQuoteBot <- TIO.readFile $ dbfile let quoteBot = read (T.unpack txtQuoteBot) :: QuoteBotState -- The plugin main loop - threadId <- myThreadId let plugin = IrcPluginState { ircPluginName = "Quote" - , ircPluginThreadId = threadId , ircPluginChan = myChan , ircPluginMasterChan = masterChan } evalStateT (mapM_ sendRegisterCommand ["quote"]) plugin |