equal
deleted
inserted
replaced
715 io $ moveFailedRecord fileName |
715 io $ moveFailedRecord fileName |
716 |
716 |
717 |
717 |
718 processAction (CheckSuccess info) = do |
718 processAction (CheckSuccess info) = do |
719 Just (CheckInfo fileName teams) <- client's checkInfo |
719 Just (CheckInfo fileName teams) <- client's checkInfo |
|
720 p <- client's clientProto |
720 si <- gets serverInfo |
721 si <- gets serverInfo |
721 io $ writeChan (dbQueries si) $ StoreAchievements (B.pack fileName) (map toPair teams) info |
722 io $ writeChan (dbQueries si) $ StoreAchievements p (B.pack fileName) (map toPair teams) info |
722 io $ moveCheckedRecord fileName |
723 io $ moveCheckedRecord fileName |
723 where |
724 where |
724 toPair t = (teamname t, teamowner t) |
725 toPair t = (teamname t, teamowner t) |
725 |
726 |
726 processAction (QueryReplay rname) = do |
727 processAction (QueryReplay rname) = do |