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