equal
deleted
inserted
replaced
669 processAction (CheckFailed msg) = do |
669 processAction (CheckFailed msg) = do |
670 Just (CheckInfo fileName _) <- client's checkInfo |
670 Just (CheckInfo fileName _) <- client's checkInfo |
671 io $ moveFailedRecord fileName |
671 io $ moveFailedRecord fileName |
672 |
672 |
673 processAction (CheckSuccess info) = do |
673 processAction (CheckSuccess info) = do |
674 Just (CheckInfo fileName _) <- client's checkInfo |
674 Just (CheckInfo fileName teams) <- client's checkInfo |
|
675 io $ writeChan (dbQueries si) $ StoreAchievement fileName (map toPair teams) info |
675 io $ moveCheckedRecord fileName |
676 io $ moveCheckedRecord fileName |
|
677 where |
|
678 toPair t = (teamname t, teamowner t) |
676 |
679 |
677 #else |
680 #else |
678 processAction SaveReplay = return () |
681 processAction SaveReplay = return () |
679 processAction CheckRecord = return () |
682 processAction CheckRecord = return () |
680 processAction (CheckFailed _) = return () |
683 processAction (CheckFailed _) = return () |