gameServer/Actions.hs
changeset 11250 09a2d3988569
parent 11046 47a8c19ecb60
child 11320 556eafd1443a
equal deleted inserted replaced
11246:d9622394ec9c 11250:09a2d3988569
   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