diff options
Diffstat (limited to 'HsBot/Base')
| -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 |