equal
deleted
inserted
replaced
73 pipeDbConnection accountsCache serverInfo = do |
73 pipeDbConnection accountsCache serverInfo = do |
74 updatedCache <- |
74 updatedCache <- |
75 Control.Exception.handle (\e -> warningM "Database" (show e) >> return accountsCache) $ |
75 Control.Exception.handle (\e -> warningM "Database" (show e) >> return accountsCache) $ |
76 bracket |
76 bracket |
77 (createProcess (proc "./OfficialServer/extdbinterface" []) {std_in = CreatePipe, std_out = CreatePipe}) |
77 (createProcess (proc "./OfficialServer/extdbinterface" []) {std_in = CreatePipe, std_out = CreatePipe}) |
78 (\(_, _, _, processHandle) -> getProcessExitCode processHandle >> return (accountsCache)) |
78 (\(_, _, _, processHandle) -> return accountsCache) |
79 (\(Just hIn, Just hOut, _, _) -> do |
79 (\(Just hIn, Just hOut, _, _) -> do |
80 hSetBuffering hIn LineBuffering |
80 hSetBuffering hIn LineBuffering |
81 hSetBuffering hOut LineBuffering |
81 hSetBuffering hOut LineBuffering |
82 |
82 |
83 hPutStrLn hIn $ dbHost serverInfo |
83 hPutStrLn hIn $ dbHost serverInfo |