From eb9535febeb8c4f87473773ef7d9bec9a2ffd76d Mon Sep 17 00:00:00 2001 From: pb Date: Tue, 16 Mar 2010 21:00:52 +0000 Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@35 9f8f72e9-4bf4-416e-b76e-7d4203597157 --- Env.hs | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'Env.hs') diff --git a/Env.hs b/Env.hs index a914dab..5064392 100644 --- a/Env.hs +++ b/Env.hs @@ -6,9 +6,14 @@ import State type Dispatch = String -> (String -> IO ()) -> Env -> IO () 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 (DispatchEnv _ conf _) = getUnwrappedInt key conf +envGetInt key (Env _ conf) = getUnwrappedInt key conf +envGetInt key env = envGetInt key (castEnv env) envGet :: String -> Env -> String -envGet key (DispatchEnv _ conf _) = getUnwrapped key conf +envGet key (Env _ conf) = getUnwrapped key conf +envGet key env = envGet key (castEnv env) -- cgit v1.2.3