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/Dummy.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 'Hsbot/Irc/Plugin/Dummy.hs')
| -rw-r--r-- | Hsbot/Irc/Plugin/Dummy.hs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/Hsbot/Irc/Plugin/Dummy.hs b/Hsbot/Irc/Plugin/Dummy.hs index 48515ce..c543b90 100644 --- a/Hsbot/Irc/Plugin/Dummy.hs +++ b/Hsbot/Irc/Plugin/Dummy.hs @@ -2,7 +2,6 @@ module Hsbot.Irc.Plugin.Dummy ( ircBotPluginDummy ) where -import Control.Concurrent (myThreadId) import Control.Concurrent.Chan import Control.Exception import Control.Monad.State @@ -14,9 +13,7 @@ import Hsbot.Irc.PluginCommons -- | The plugin's main entry point ircBotPluginDummy :: Chan IrcBotMsg -> Chan IrcBotMsg -> IO () ircBotPluginDummy myChan masterChan = do - threadId <- myThreadId let plugin = IrcPluginState { ircPluginName = "Dummy" - , ircPluginThreadId = threadId , ircPluginChan = myChan , ircPluginMasterChan = masterChan } _ <- (execStateT run plugin) `catch` (\(_ :: AsyncException) -> return plugin) |