equal
deleted
inserted
replaced
44 hFlush stdout |
44 hFlush stdout |
45 |
45 |
46 SendStats clients rooms -> |
46 SendStats clients rooms -> |
47 run dbConn dbQueryStats [SqlInt32 $ fromIntegral clients, SqlInt32 $ fromIntegral rooms] >> return () |
47 run dbConn dbQueryStats [SqlInt32 $ fromIntegral clients, SqlInt32 $ fromIntegral rooms] >> return () |
48 |
48 |
49 StoreAchievements -> return () |
49 StoreAchievements {} -> return () |
50 |
50 |
51 |
51 |
52 dbConnectionLoop mySQLConnectionInfo = |
52 dbConnectionLoop mySQLConnectionInfo = |
53 Control.Exception.handle (\(e :: IOException) -> hPutStrLn stderr $ show e) $ handleSqlError $ |
53 Control.Exception.handle (\(e :: IOException) -> hPutStrLn stderr $ show e) $ handleSqlError $ |
54 bracket |
54 bracket |