From 3d7e9915c4fab6f91f11b3de66ac8bbcb8b3c0c7 Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Sun, 28 Mar 2010 11:31:45 +0000
Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@51
 9f8f72e9-4bf4-416e-b76e-7d4203597157

---
 HsBot/Base/Env.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'HsBot/Base')

diff --git a/HsBot/Base/Env.hs b/HsBot/Base/Env.hs
index 58b2347..36fafd5 100644
--- a/HsBot/Base/Env.hs
+++ b/HsBot/Base/Env.hs
@@ -3,7 +3,8 @@ module HsBot.Base.Env where
 import HsBot.Base.Conf
 import HsBot.Base.State
 
-type Dispatch = String -> (String -> IO ()) -> Env -> IO Env
+type SendMessage = String -> IO ()
+type Dispatch = String -> SendMessage -> Env -> IO Env
 data Env = DispatchEnv State Conf Dispatch | Env State Conf
 
 castEnv :: Env -> Env
-- 
cgit v1.2.3