equal
deleted
inserted
replaced
85 void $ execute dbConn dbQueryStats (clients, rooms) |
85 void $ execute dbConn dbQueryStats (clients, rooms) |
86 StoreAchievements p fileName teams info -> |
86 StoreAchievements p fileName teams info -> |
87 mapM_ (execute dbConn dbQueryAchievement) $ (parseStats p fileName teams) info |
87 mapM_ (execute dbConn dbQueryAchievement) $ (parseStats p fileName teams) info |
88 |
88 |
89 |
89 |
90 readTime = read . B.unpack . B.take 19 . B.drop 8 |
90 --readTime = read . B.unpack . B.take 19 . B.drop 8 |
91 |
91 readTime = B.take 19 . B.drop 8 |
92 |
92 |
93 parseStats :: |
93 parseStats :: |
94 Word16 |
94 Word16 |
95 -> B.ByteString |
95 -> B.ByteString |
96 -> [(B.ByteString, B.ByteString)] |
96 -> [(B.ByteString, B.ByteString)] |