equal
deleted
inserted
replaced
15 |
15 |
16 dbQueryAccount = |
16 dbQueryAccount = |
17 "SELECT users.pass, users_roles.rid FROM users LEFT JOIN users_roles ON users.uid = users_roles.uid WHERE users.name = ?" |
17 "SELECT users.pass, users_roles.rid FROM users LEFT JOIN users_roles ON users.uid = users_roles.uid WHERE users.name = ?" |
18 |
18 |
19 dbQueryStats = |
19 dbQueryStats = |
20 "UPDATE gameserver_stats SET players = ?, rooms = ?, last_update = UNIX_TIMESTAMP()" |
20 "INSERT INTO gameserver_stats (players, rooms, last_update) VALUES (?, ?, UNIX_TIMESTAMP())" |
21 |
21 |
22 dbInteractionLoop dbConn = forever $ do |
22 dbInteractionLoop dbConn = forever $ do |
23 q <- liftM read getLine |
23 q <- liftM read getLine |
24 hPutStrLn stderr $ show q |
24 hPutStrLn stderr $ show q |
25 |
25 |