equal
deleted
inserted
replaced
76 do |
76 do |
77 writeChan cChan $ ClientAccountInfo clId clUid (snd $ fromJust cacheEntry) |
77 writeChan cChan $ ClientAccountInfo clId clUid (snd $ fromJust cacheEntry) |
78 return (accountsCache, req) |
78 return (accountsCache, req) |
79 |
79 |
80 ClearCache -> return (Map.empty, req) |
80 ClearCache -> return (Map.empty, req) |
|
81 StoreAchievements {} -> ( |
|
82 (SIO.hPutStrLn hIn $ show q) >> |
|
83 hFlush hIn >> |
|
84 return (accountsCache, req)) |
|
85 `Exception.onException` |
|
86 (unGetChan queries q) |
81 SendStats {} -> ( |
87 SendStats {} -> ( |
82 (SIO.hPutStrLn hIn $ show q) >> |
88 (SIO.hPutStrLn hIn $ show q) >> |
83 hFlush hIn >> |
89 hFlush hIn >> |
84 return (accountsCache, req)) |
90 return (accountsCache, req)) |
85 `Exception.onException` |
91 `Exception.onException` |