From 738ad9e9bbbefb43a7889a458ff1c326a324eb9a Mon Sep 17 00:00:00 2001 From: Julien Dessaux Date: Sun, 16 May 2010 17:58:38 +0200 Subject: Removed thread ids from plugins data structure. --- Hsbot/Irc/Plugin/Core.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Hsbot/Irc/Plugin/Core.hs') diff --git a/Hsbot/Irc/Plugin/Core.hs b/Hsbot/Irc/Plugin/Core.hs index 5d69ca3..9987a89 100644 --- a/Hsbot/Irc/Plugin/Core.hs +++ b/Hsbot/Irc/Plugin/Core.hs @@ -2,7 +2,7 @@ module Hsbot.Irc.Plugin.Core ( ircBotPluginCore ) where -import Control.Concurrent (Chan, myThreadId) +import Control.Concurrent (Chan) import Control.Exception import Control.Monad.State import Prelude hiding (catch) @@ -13,9 +13,7 @@ import Hsbot.Irc.PluginCommons -- | The plugin's main entry point ircBotPluginCore :: Chan IrcBotMsg -> Chan IrcBotMsg -> IO () ircBotPluginCore myChan masterChan = do - threadId <- myThreadId let plugin = IrcPluginState { ircPluginName = "Core" - , ircPluginThreadId = threadId , ircPluginChan = myChan , ircPluginMasterChan = masterChan } evalStateT (mapM_ sendRegisterCommand ["list", "load", "reload", "unload"]) plugin -- cgit v1.2.3