equal
deleted
inserted
replaced
47 case q of |
47 case q of |
48 CheckAccount clId clUid _ clHost -> |
48 CheckAccount clId clUid _ clHost -> |
49 writeChan (coreChan si) $ ClientAccountInfo clId clUid (if clHost `L.elem` localAddressList then Admin else Guest) |
49 writeChan (coreChan si) $ ClientAccountInfo clId clUid (if clHost `L.elem` localAddressList then Admin else Guest) |
50 ClearCache -> return () |
50 ClearCache -> return () |
51 SendStats {} -> return () |
51 SendStats {} -> return () |
|
52 GetReplayName {} -> return () |
|
53 StoreAchievements {} -> return () |
52 flushRequests si |
54 flushRequests si |
53 |
55 |
54 pipeDbConnectionLoop :: Chan DBQuery -> Chan CoreMessage -> Handle -> Handle -> Map.Map ByteString (UTCTime, AccountInfo) -> Int -> IO (Map.Map ByteString (UTCTime, AccountInfo), Int) |
56 pipeDbConnectionLoop :: Chan DBQuery -> Chan CoreMessage -> Handle -> Handle -> Map.Map ByteString (UTCTime, AccountInfo) -> Int -> IO (Map.Map ByteString (UTCTime, AccountInfo), Int) |
55 pipeDbConnectionLoop queries cChan hIn hOut accountsCache req = |
57 pipeDbConnectionLoop queries cChan hIn hOut accountsCache req = |
56 Exception.handle (\(e :: Exception.IOException) -> warningM "Database" (show e) >> return (accountsCache, req)) $ |
58 Exception.handle (\(e :: Exception.IOException) -> warningM "Database" (show e) >> return (accountsCache, req)) $ |