git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@44 9f8f72e9-4bf4-416e-b76e-7d4203597157

1 files changed, 0 insertions, 19 deletions

diff --git a/Env.hs b/Env.hs
deleted file mode 100644
index bb6a0b8..0000000
--- a/Env.hs
+++ /dev/null
@@ -1,19 +0,0 @@
-module Env where
-
-import Conf
-import 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)
-