equal
deleted
inserted
replaced
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 teams) <- client's checkInfo |
674 Just (CheckInfo fileName teams) <- client's checkInfo |
675 io $ writeChan (dbQueries si) $ StoreAchievement fileName (map toPair teams) info |
675 si <- gets serverInfo |
|
676 io $ writeChan (dbQueries si) $ StoreAchievements (B.pack fileName) (map toPair teams) info |
676 io $ moveCheckedRecord fileName |
677 io $ moveCheckedRecord fileName |
677 where |
678 where |
678 toPair t = (teamname t, teamowner t) |
679 toPair t = (teamname t, teamowner t) |
679 |
680 |
680 #else |
681 #else |