diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-08-05 20:42:04 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-08-05 20:42:04 +0200 |
| commit | 1cab80953eda5547ee5ef2599a622fc8329e81ea (patch) | |
| tree | 4fe1b8b993bdf7376ce3d1243f6b126d1458d8d6 /src/Erebos/DirectMessage.hs | |
| parent | fef17af2437a8584d0435c94d85b9619b5264219 (diff) | |
Use MonadStorage for makeSharedStateUpdate
Changelog: API: `State.makeSharedStateUpdate` uses `MonadStorage`
Diffstat (limited to 'src/Erebos/DirectMessage.hs')
| -rw-r--r-- | src/Erebos/DirectMessage.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Erebos/DirectMessage.hs b/src/Erebos/DirectMessage.hs index 7807204..f518b57 100644 --- a/src/Erebos/DirectMessage.hs +++ b/src/Erebos/DirectMessage.hs @@ -81,7 +81,6 @@ instance Service DirectMessage where let msg = fromStored smsg powner <- asks $ finalOwner . svcPeerIdentity erb <- svcGetLocal - st <- getStorage let DirectMessageThreads prev _ = lookupSharedValue $ lsShared $ fromStored erb sent = findMsgProperty powner msSent prev received = findMsgProperty powner msReceived prev @@ -90,7 +89,7 @@ instance Service DirectMessage where filterAncestors sent == filterAncestors (smsg : sent) then do when (received' /= received) $ do - next <- wrappedStore st $ MessageState + next <- mstore MessageState { msPrev = prev , msPeer = powner , msReady = [] @@ -99,8 +98,8 @@ instance Service DirectMessage where , msSeen = [] } let threads = DirectMessageThreads [ next ] (dmThreadView [ next ]) - shared <- makeSharedStateUpdate st threads (lsShared $ fromStored erb) - svcSetLocal =<< wrappedStore st (fromStored erb) { lsShared = [ shared ] } + shared <- makeSharedStateUpdate threads (lsShared $ fromStored erb) + svcSetLocal =<< mstore (fromStored erb) { lsShared = [ shared ] } when (powner `sameIdentity` msgFrom msg) $ do replyStoredRef smsg |