755 , ModifyClient $ \c -> c{checkInfo = cinfo, isReady = False} |
755 , ModifyClient $ \c -> c{checkInfo = cinfo, isReady = False} |
756 ] |
756 ] |
757 |
757 |
758 |
758 |
759 processAction (CheckFailed msg) = do |
759 processAction (CheckFailed msg) = do |
760 Just (CheckInfo fileName _) <- client's checkInfo |
760 Just (CheckInfo fileName _ _) <- client's checkInfo |
761 io $ moveFailedRecord fileName |
761 io $ moveFailedRecord fileName |
762 |
762 |
763 |
763 |
764 processAction (CheckSuccess info) = do |
764 processAction (CheckSuccess info) = do |
765 Just (CheckInfo fileName teams) <- client's checkInfo |
765 Just (CheckInfo fileName teams script) <- client's checkInfo |
766 p <- client's clientProto |
766 p <- client's clientProto |
767 si <- gets serverInfo |
767 si <- gets serverInfo |
768 io $ writeChan (dbQueries si) $ StoreAchievements p (B.pack fileName) (map toPair teams) info |
768 io $ writeChan (dbQueries si) $ StoreAchievements p (B.pack fileName) (map toPair teams) script info |
769 io $ moveCheckedRecord fileName |
769 io $ moveCheckedRecord fileName |
770 where |
770 where |
771 toPair t = (teamname t, teamowner t) |
771 toPair t = (teamname t, teamowner t) |
772 |
772 |
773 processAction (QueryReplay rname) = do |
773 processAction (QueryReplay rname) = do |