equal
deleted
inserted
replaced
46 |
46 |
47 dbConnectionLoop mySQLConnectionInfo = |
47 dbConnectionLoop mySQLConnectionInfo = |
48 Control.Exception.handle (\e -> return ()) $ handleSqlError $ |
48 Control.Exception.handle (\e -> return ()) $ handleSqlError $ |
49 bracket |
49 bracket |
50 (connectMySQL mySQLConnectionInfo) |
50 (connectMySQL mySQLConnectionInfo) |
51 (disconnect) |
51 (return . const) |
52 (dbInteractionLoop) |
52 (dbInteractionLoop) |
53 |
53 |
54 |
54 |
55 processRequest :: DBQuery -> IO String |
55 processRequest :: DBQuery -> IO String |
56 processRequest (CheckAccount clUid clNick clHost) = return $ show (clUid, Guest) |
56 processRequest (CheckAccount clUid clNick clHost) = return $ show (clUid, Guest) |