diff options
| author | pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157> | 2010-05-15 17:10:28 +0000 |
|---|---|---|
| committer | pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157> | 2010-05-15 17:10:28 +0000 |
| commit | 55d68bd70662f906b69b49979e22ead3fcc4178f (patch) | |
| tree | b290a8a57e80f1eb74f2b15db2da045607633fd8 /HsBot | |
| parent | 66b1cbb4385107a98591d6a45f1fe3713496f2b0 (diff) | |
renamed the type "Dispatch" into "DispatchFunction"
git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@65 9f8f72e9-4bf4-416e-b76e-7d4203597157
Diffstat (limited to 'HsBot')
| -rw-r--r-- | HsBot/Base/Env.hs | 5 |
1 files 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 |