equal
deleted
inserted
replaced
22 dbQueryStats = |
22 dbQueryStats = |
23 "INSERT INTO gameserver_stats (players, rooms, last_update) VALUES (?, ?, UNIX_TIMESTAMP())" |
23 "INSERT INTO gameserver_stats (players, rooms, last_update) VALUES (?, ?, UNIX_TIMESTAMP())" |
24 |
24 |
25 dbQueryAchievement = |
25 dbQueryAchievement = |
26 "INSERT INTO achievements (time, typeid, userid, value, filename, location) \ |
26 "INSERT INTO achievements (time, typeid, userid, value, filename, location) \ |
27 \ VALUES ((SELECT id FROM achievement_types WHERE name = ?), (SELECT uid FROM users WHERE name = ?), \ |
27 \ VALUES (?, (SELECT id FROM achievement_types WHERE name = ?), (SELECT uid FROM users WHERE name = ?), \ |
28 \ ?, ?, ?)" |
28 \ ?, ?, ?)" |
29 |
29 |
30 dbInteractionLoop dbConn = forever $ do |
30 dbInteractionLoop dbConn = forever $ do |
31 q <- liftM read getLine |
31 q <- liftM read getLine |
32 hPutStrLn stderr $ show q |
32 hPutStrLn stderr $ show q |