diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-06-27 16:43:39 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-06-27 16:43:39 +0200 |
| commit | 92d57de84376ca059a0c0fb845d6c6e66707766a (patch) | |
| tree | c638f008e9b151694353a68942f6b5a5fb1c32a8 /src | |
| parent | ac209f7b7664bfa72e3e8eb142d257ac4d119e03 (diff) | |
Fix prev value for first callback from watchDirectMessageThreads
Changelog: Fixed thread diff on first callback from `watchDirectMessageThreads` for given peer.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Erebos/DirectMessage.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Erebos/DirectMessage.hs b/src/Erebos/DirectMessage.hs index 3833d1f..3b298e7 100644 --- a/src/Erebos/DirectMessage.hs +++ b/src/Erebos/DirectMessage.hs @@ -437,7 +437,7 @@ watchDirectMessageThreads h callback = do | p `sameIdentity` p' = let x' = f x in ( ( x, x' ), ( p', x' ) : ps ) | otherwise = (px :) <$> updatePeer ps p' f updatePeer [] p' f = - let x = dmEmptyThread p'; x' = f x + let x = messageThreadFor (dmEmptyThread p') prev; x' = f x in ( ( x, x' ), [ ( p', x' ) ] ) peers <- (\f -> foldM f prevPeers changedPeers) $ \peers peer -> do |