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

1 files changed, 1 insertions, 1 deletions

diff --git a/Env.hs b/Env.hs
index 29963b3..30c005d 100644
--- a/Env.hs
+++ b/Env.hs
@@ -4,7 +4,7 @@ import Conf
 import State
 
 type Dispatch = String -> (String -> IO ()) -> Env -> IO ()
-data Env = Env State Conf Dispatch
+data Env = Env State Conf Dispatch | EnvWoDispatch State Conf
 
 envGetInt :: String -> Env -> Int
 envGetInt key (Env _ conf _) = getUnwrappedInt key conf