diff options
| author | pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157> | 2010-03-28 11:09:30 +0000 |
|---|---|---|
| committer | pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157> | 2010-03-28 11:09:30 +0000 |
| commit | 80ff91aa5d6cda6adc1c97dc39b950dd7daed9d5 (patch) | |
| tree | 4b1ad4310067e9ee9b5dcbae027844ed596e015f /HsBot/Env.hs | |
| parent | 7a7302c5b86e89f3fc2fbc3476db731dfd6ed11b (diff) | |
git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@50 9f8f72e9-4bf4-416e-b76e-7d4203597157
Diffstat (limited to 'HsBot/Env.hs')
| -rw-r--r-- | HsBot/Env.hs | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/HsBot/Env.hs b/HsBot/Env.hs deleted file mode 100644 index e8f6092..0000000 --- a/HsBot/Env.hs +++ /dev/null @@ -1,19 +0,0 @@ -module HsBot.Env where - -import HsBot.Conf -import HsBot.State - -type Dispatch = String -> (String -> IO ()) -> Env -> IO Env -data Env = DispatchEnv State Conf Dispatch | Env State Conf - -castEnv :: Env -> Env -castEnv (DispatchEnv state conf _) = Env state conf - -envGetInt :: String -> Env -> Int -envGetInt key (Env _ conf) = getUnwrappedInt key conf -envGetInt key env = envGetInt key (castEnv env) - -envGet :: String -> Env -> String -envGet key (Env _ conf) = getUnwrapped key conf -envGet key env = envGet key (castEnv env) - |