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 

    51 

    50 dbConnectionLoop mySQLConnectionInfo =

    52 dbConnectionLoop mySQLConnectionInfo =

    51     Control.Exception.handle (\(e :: IOException) -> hPutStrLn stderr $ show e) $ handleSqlError $

    53     Control.Exception.handle (\(e :: IOException) -> hPutStrLn stderr $ show e) $ handleSqlError $

    52         bracket

    54         bracket

    53             (connectMySQL mySQLConnectionInfo)

    55             (connectMySQL mySQLConnectionInfo)