equal
deleted
inserted
replaced
81 print (clId, clUid, ReplayName fn) |
81 print (clId, clUid, ReplayName fn) |
82 hFlush stdout |
82 hFlush stdout |
83 |
83 |
84 SendStats clients rooms -> |
84 SendStats clients rooms -> |
85 void $ execute dbConn dbQueryStats (clients, rooms) |
85 void $ execute dbConn dbQueryStats (clients, rooms) |
86 --StoreAchievements (B.pack fileName) (map toPair teams) info |
|
87 StoreAchievements p fileName teams info -> |
86 StoreAchievements p fileName teams info -> |
88 void $ executeMany dbConn dbQueryAchievement $ (parseStats p fileName teams) info |
87 mapM_ (execute dbConn dbQueryAchievement) $ (parseStats p fileName teams) info |
89 |
88 |
90 |
89 |
91 readTime = read . B.unpack . B.take 19 . B.drop 8 |
90 readTime = read . B.unpack . B.take 19 . B.drop 8 |
92 |
91 |
93 |
92 |