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

1 files changed, 3 insertions, 3 deletions

diff --git a/HsBot/IRC.hs b/HsBot/IRC.hs
index cf1a1e8..da488ea 100644
--- a/HsBot/IRC.hs
+++ b/HsBot/IRC.hs
@@ -60,7 +60,7 @@ ircStart (DispatchEnv state conf dispatch) = do
    hSetBuffering h NoBuffering
    ircWrite h "NICK" ircNick
    ircWrite h "USER" $ ircNick ++ " 0 * :" ++ ircUser
-   ircEvalLoop h (DispatchEnv state { currentChannel = ircChannel } conf dispatch)
+   ircEvalLoop h (DispatchEnv state { isReady = False, currentChannel = ircChannel } conf dispatch)
    return ()
 
 ircEvalLoop :: Handle -> Env -> IO () 
@@ -84,11 +84,11 @@ ircEvalLoop h env = do
       }
 
 ircEval :: Handle -> IrcMessage -> Env -> IO Env
-ircEval h msg env@(DispatchEnv state _ dispatch) = ircEval' (clean msg)
+ircEval h msg env@(DispatchEnv state conf dispatch) = ircEval' (clean msg)
    where
       ircEval' "+x" = do
          ircWrite h "JOIN" (currentChannel state)
-         return (env)
+         return (DispatchEnv state { isReady = True } conf dispatch)
       ircEval' cleanMsg = do
          (Env s c) <- dispatch cleanMsg sendReplyMsg (castEnv env)
          return (DispatchEnv s c dispatch)