@@ -332,18 +332,18 @@ react
332332 -> IO response
333333 -> AsyncT m eventdata
334334react setHandler iob = AsyncT $ do
335− cont <- get
336− case event cont of
335+ context <- get
336+ case event context of
337337 Nothing -> do
338338 lift $ setHandler $ \dat ->do
339− runStateT (resume cont) cont{event= Just $ unsafeCoerce dat}
339+ resume (updateContextEvent context dat)
340340 liftIO iob
341341 loc <- getLocation
342342 when (loc /= RemoteNode) $ setLocation WaitingParent
343343 return Nothing
344344
345345 j@(Just _) -> do
346− put cont{event=Nothing}
346+ put context{event=Nothing}
347347 return $ unsafeCoerce j
348348
349349------------------------------------------------------------------------------