equal
deleted
inserted
replaced
58 --processRequest :: DBQuery -> IO String |
58 --processRequest :: DBQuery -> IO String |
59 --processRequest (CheckAccount clId clUid clNick clHost) = return $ show (clclId, clUid, Guest) |
59 --processRequest (CheckAccount clId clUid clNick clHost) = return $ show (clclId, clUid, Guest) |
60 |
60 |
61 main = do |
61 main = do |
62 dbHost <- getLine |
62 dbHost <- getLine |
|
63 dbName <- getLine |
63 dbLogin <- getLine |
64 dbLogin <- getLine |
64 dbPassword <- getLine |
65 dbPassword <- getLine |
65 |
66 |
66 let mySQLConnectInfo = defaultMySQLConnectInfo {mysqlHost = dbHost, mysqlDatabase = "hedge_main", mysqlUser = dbLogin, mysqlPassword = dbPassword} |
67 let mySQLConnectInfo = defaultMySQLConnectInfo {mysqlHost = dbHost, mysqlDatabase = dbName, mysqlUser = dbLogin, mysqlPassword = dbPassword} |
67 |
68 |
68 dbConnectionLoop mySQLConnectInfo |
69 dbConnectionLoop mySQLConnectInfo |