diff options
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) - |