From df5f62ab71f56722bdeca8e77c78ab1d7aeeeb24 Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Tue, 16 Mar 2010 20:56:57 +0000
Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@34
 9f8f72e9-4bf4-416e-b76e-7d4203597157

---
 Env.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Env.hs')

diff --git a/Env.hs b/Env.hs
index 30c005d..a914dab 100644
--- a/Env.hs
+++ b/Env.hs
@@ -4,11 +4,11 @@ import Conf
 import State
 
 type Dispatch = String -> (String -> IO ()) -> Env -> IO ()
-data Env = Env State Conf Dispatch | EnvWoDispatch State Conf
+data Env = DispatchEnv State Conf Dispatch | Env State Conf
 
 envGetInt :: String -> Env -> Int
-envGetInt key (Env _ conf _) = getUnwrappedInt key conf
+envGetInt key (DispatchEnv _ conf _) = getUnwrappedInt key conf
 
 envGet :: String -> Env -> String
-envGet key (Env _ conf _) = getUnwrapped key conf
+envGet key (DispatchEnv _ conf _) = getUnwrapped key conf
 
-- 
cgit v1.2.3