diff options
| author | Julien Dessaux | 2010-04-21 20:57:22 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2010-04-21 20:57:22 +0200 |
| commit | 4c76d3d40bbfea365283c13256b3e7cf2d2deb5e (patch) | |
| tree | b5f4e70d225ba0247ad0691e37b45b8cb4142f6c /Hsbot/Types.hs | |
| parent | Fixed the clean killing of plugin's threads, fixed exception management and c... (diff) | |
| download | hsbot-4c76d3d40bbfea365283c13256b3e7cf2d2deb5e.tar.gz hsbot-4c76d3d40bbfea365283c13256b3e7cf2d2deb5e.tar.bz2 hsbot-4c76d3d40bbfea365283c13256b3e7cf2d2deb5e.zip | |
Fixed several stuff.
Diffstat (limited to '')
| -rw-r--r-- | Hsbot/Types.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Hsbot/Types.hs b/Hsbot/Types.hs index 99619ee..acca137 100644 --- a/Hsbot/Types.hs +++ b/Hsbot/Types.hs @@ -13,7 +13,7 @@ module Hsbot.Types ) where import Control.Concurrent -import Control.Concurrent.Chan +import Control.Concurrent.Chan() import Control.Monad.State import qualified Data.Map as M import Network @@ -97,7 +97,7 @@ data IntCmd = IntCmd , intCmdMsg :: String -- the IrcMsg associated with the command } deriving (Show) -data BotMsg = InputMsg IrcMsg | OutputMsg IrcMsg | InternalCmd IntCmd +data BotMsg = InputMsg IrcMsg | OutputMsg IrcMsg | InternalCmd IntCmd deriving (Show) -- | A plugin (core side) data Plugin = Plugin |