diff options
| author | pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157> | 2010-03-28 11:52:17 +0000 |
|---|---|---|
| committer | pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157> | 2010-03-28 11:52:17 +0000 |
| commit | ed66eb310a9ec78901e6a3be2275f9de62ad5708 (patch) | |
| tree | f37e37f47e0ea693200d1a0783796cb45e6bdb2c /HsBot/Base | |
| parent | 3d7e9915c4fab6f91f11b3de66ac8bbcb8b3c0c7 (diff) | |
git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@52 9f8f72e9-4bf4-416e-b76e-7d4203597157
Diffstat (limited to 'HsBot/Base')
| -rw-r--r-- | HsBot/Base/Env.hs | 3 | ||||
| -rw-r--r-- | HsBot/Base/State.hs | 1 |
2 files changed, 4 insertions, 0 deletions
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] |