equal
deleted
inserted
replaced
75 else |
75 else |
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 GetReplayName {} -> do |
|
81 SIO.hPutStrLn hIn $ show q |
|
82 hFlush hIn |
|
83 |
|
84 (clId', clUid', accountInfo) <- SIO.hGetLine hOut >>= (maybeException . maybeRead) |
|
85 |
|
86 writeChan cChan $ ClientAccountInfo clId' clUid' accountInfo |
|
87 |
80 ClearCache -> return (Map.empty, req) |
88 ClearCache -> return (Map.empty, req) |
81 StoreAchievements {} -> ( |
89 StoreAchievements {} -> ( |
82 (SIO.hPutStrLn hIn $ show q) >> |
90 (SIO.hPutStrLn hIn $ show q) >> |
83 hFlush hIn >> |
91 hFlush hIn >> |
84 return (accountsCache, req)) |
92 return (accountsCache, req)) |