equal
deleted
inserted
replaced
73 maybeException Nothing = ioError (userError "Can't read") |
73 maybeException Nothing = ioError (userError "Can't read") |
74 |
74 |
75 |
75 |
76 pipeDbConnection accountsCache serverInfo = do |
76 pipeDbConnection accountsCache serverInfo = do |
77 updatedCache <- |
77 updatedCache <- |
78 Exception.handle (\e -> warningM "Database" (show e) >> return accountsCache) $ do |
78 Exception.handle (\(e :: Exception.IOException) -> warningM "Database" (show e) >> return accountsCache) $ do |
79 (Just hIn, Just hOut, _, _) <- createProcess (proc "./OfficialServer/extdbinterface" []) |
79 (Just hIn, Just hOut, _, _) <- createProcess (proc "./OfficialServer/extdbinterface" []) |
80 {std_in = CreatePipe, |
80 {std_in = CreatePipe, |
81 std_out = CreatePipe} |
81 std_out = CreatePipe} |
82 hSetBuffering hIn LineBuffering |
82 hSetBuffering hIn LineBuffering |
83 hSetBuffering hOut LineBuffering |
83 hSetBuffering hOut LineBuffering |