equal
deleted
inserted
replaced
9 import HandlerUtils |
9 import HandlerUtils |
10 |
10 |
11 |
11 |
12 handleCmd_checker :: CmdHandler |
12 handleCmd_checker :: CmdHandler |
13 |
13 |
14 handleCmd_checker ["READY"] = return [CheckRecord] |
14 handleCmd_checker ["READY"] = return [ModifyClient $ \c -> c{isReady = True}, CheckRecord] |
15 |
15 |
16 handleCmd_checker ["CHECKED", "FAIL", msg] = do |
16 handleCmd_checker ["CHECKED", "FAIL", msg] = do |
17 isChecking <- liftM (isJust . checkInfo) thisClient |
17 isChecking <- liftM (isJust . checkInfo) thisClient |
18 if not isChecking then |
18 if not isChecking then |
19 return [] |
19 return [] |