From 55d68bd70662f906b69b49979e22ead3fcc4178f Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Sat, 15 May 2010 17:10:28 +0000
Subject: renamed the type "Dispatch" into "DispatchFunction"

git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@65 9f8f72e9-4bf4-416e-b76e-7d4203597157
---
 HsBot/Base/Env.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/HsBot/Base/Env.hs b/HsBot/Base/Env.hs
index e5a9133..a4aca57 100644
--- a/HsBot/Base/Env.hs
+++ b/HsBot/Base/Env.hs
@@ -4,8 +4,9 @@ import HsBot.Base.Conf
 import HsBot.Base.State
 
 type SendMessage = String -> IO ()
-type Dispatch = String -> SendMessage -> Env -> IO Env
-data Env = DispatchEnv State Conf Dispatch | Env State Conf
+type DispatchFunction = String -> SendMessage -> Env -> IO Env
+
+data Env = DispatchEnv State Conf DispatchFunction | Env State Conf
 
 castEnv :: Env -> Env
 castEnv (DispatchEnv state conf _) = Env state conf
-- 
cgit v1.2.3