equal
deleted
inserted
replaced
64 do |
64 do |
65 writeChan coreChan $ ClientAccountInfo (clUid, snd $ fromJust cacheEntry) |
65 writeChan coreChan $ ClientAccountInfo (clUid, snd $ fromJust cacheEntry) |
66 return accountsCache |
66 return accountsCache |
67 |
67 |
68 ClearCache -> return Map.empty |
68 ClearCache -> return Map.empty |
|
69 SendStats {} -> do |
|
70 hPutStrLn hIn $ show q |
|
71 hFlush hIn |
|
72 return accountsCache |
69 |
73 |
70 return updatedCache |
74 return updatedCache |
71 where |
75 where |
72 maybeException (Just a) = return a |
76 maybeException (Just a) = return a |
73 maybeException Nothing = ioError (userError "Can't read") |
77 maybeException Nothing = ioError (userError "Can't read") |