equal
deleted
inserted
replaced
62 dbQueryGamesHistoryPlaces = "INSERT INTO rating_players (userid, gameid, place) \ |
62 dbQueryGamesHistoryPlaces = "INSERT INTO rating_players (userid, gameid, place) \ |
63 \ VALUES ((SELECT uid FROM users WHERE name = ?), ?, ?)" |
63 \ VALUES ((SELECT uid FROM users WHERE name = ?), ?, ?)" |
64 |
64 |
65 dbQueryReplayFilename = "SELECT filename FROM achievements WHERE id = ?" |
65 dbQueryReplayFilename = "SELECT filename FROM achievements WHERE id = ?" |
66 |
66 |
67 dbQueryBestTime = "SELECT MIN(value) FROM achievements WHERE location = ?" |
67 dbQueryBestTime = "SELECT MIN(value) FROM achievements WHERE location = ? AND id <> (SELECT MAX(id) FROM achievements)" |
68 |
68 |
69 dbInteractionLoop dbConn = forever $ do |
69 dbInteractionLoop dbConn = forever $ do |
70 q <- liftM read getLine |
70 q <- liftM read getLine |
71 hPutStrLn stderr $ show q |
71 hPutStrLn stderr $ show q |
72 |
72 |