From 4c76d3d40bbfea365283c13256b3e7cf2d2deb5e Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Wed, 21 Apr 2010 20:57:22 +0200
Subject: Fixed several stuff.

---
 Hsbot/Types.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Hsbot/Types.hs')

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
-- 
cgit v1.2.3