diff options
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 |