From ed66eb310a9ec78901e6a3be2275f9de62ad5708 Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Sun, 28 Mar 2010 11:52:17 +0000
Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@52
 9f8f72e9-4bf4-416e-b76e-7d4203597157

---
 HsBot/Base/Env.hs   | 3 +++
 HsBot/Base/State.hs | 1 +
 2 files changed, 4 insertions(+)

(limited to 'HsBot/Base')

diff --git a/HsBot/Base/Env.hs b/HsBot/Base/Env.hs
index 36fafd5..e5a9133 100644
--- a/HsBot/Base/Env.hs
+++ b/HsBot/Base/Env.hs
@@ -18,3 +18,6 @@ envGet :: String -> Env -> String
 envGet key (Env _ conf) = getUnwrapped key conf
 envGet key env = envGet key (castEnv env)
 
+envState :: Env -> State
+envState (Env state _) = state
+envState env = envState (castEnv env)
diff --git a/HsBot/Base/State.hs b/HsBot/Base/State.hs
index abcf479..6d4efdc 100644
--- a/HsBot/Base/State.hs
+++ b/HsBot/Base/State.hs
@@ -6,6 +6,7 @@ import List
 import HsBot.IRC.User
 
 data State = State { 
+		isReady :: Bool,
       currentChannel :: String, 
       line :: String, 
       users :: [User]
-- 
cgit v1.2.3