diff options
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] |