diff -r 3c4ec0742967 -r 556eafd1443a gameServer/Actions.hs --- a/gameServer/Actions.hs Sat Nov 07 21:01:04 2015 +0100 +++ b/gameServer/Actions.hs Sat Nov 07 23:44:49 2015 +0300 @@ -762,10 +762,11 @@ processAction (CheckSuccess info) = do - Just (CheckInfo fileName teams script) <- client's checkInfo + Just (CheckInfo fileName teams gameDetails) <- client's checkInfo p <- client's clientProto si <- gets serverInfo - io $ writeChan (dbQueries si) $ StoreAchievements p (B.pack fileName) (map toPair teams) script info + when (isJust gameDetails) + $ io $ writeChan (dbQueries si) $ StoreAchievements p (B.pack fileName) (map toPair teams) (fromJust gameDetails) info io $ moveCheckedRecord fileName where toPair t = (teamname t, teamowner t)