# HG changeset patch # User unc0rr # Date 1433966738 -10800 # Node ID c99385e4654d7164863f93594f16ad681bd3d70d # Parent 0ea100eefae78952e88cafd349aca6294c21f904 Buggy executeMany? diff -r 0ea100eefae7 -r c99385e4654d gameServer/OfficialServer/extdbinterface.hs --- a/gameServer/OfficialServer/extdbinterface.hs Mon Jun 08 08:21:09 2015 -0400 +++ b/gameServer/OfficialServer/extdbinterface.hs Wed Jun 10 23:05:38 2015 +0300 @@ -83,9 +83,8 @@ SendStats clients rooms -> void $ execute dbConn dbQueryStats (clients, rooms) ---StoreAchievements (B.pack fileName) (map toPair teams) info StoreAchievements p fileName teams info -> - void $ executeMany dbConn dbQueryAchievement $ (parseStats p fileName teams) info + mapM_ (execute dbConn dbQueryAchievement) $ (parseStats p fileName teams) info readTime = read . B.unpack . B.take 19 . B.drop 8