equal
deleted
inserted
replaced
38 (clUid, Guest) |
38 (clUid, Guest) |
39 putStrLn (show response) |
39 putStrLn (show response) |
40 |
40 |
41 SendStats clients rooms -> do |
41 SendStats clients rooms -> do |
42 statement <- prepare dbConn dbQueryStats |
42 statement <- prepare dbConn dbQueryStats |
43 execute statement [SqlInt32 $ fromIntegral rooms, SqlInt32 $ fromIntegral clients] |
43 execute statement [SqlInt32 $ fromIntegral clients, SqlInt32 $ fromIntegral rooms] |
44 finish statement |
44 finish statement |
45 |
45 |
46 hFlush stdout |
46 hFlush stdout |
47 |
47 |
48 dbConnectionLoop mySQLConnectionInfo = |
48 dbConnectionLoop mySQLConnectionInfo = |