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/Attach.hs | |
| parent | fef17af2437a8584d0435c94d85b9619b5264219 (diff) | |
Use MonadStorage for makeSharedStateUpdate
Changelog: API: `State.makeSharedStateUpdate` uses `MonadStorage`
Diffstat (limited to 'src/Erebos/Attach.hs')
| -rw-r--r-- | src/Erebos/Attach.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Erebos/Attach.hs b/src/Erebos/Attach.hs index fad6197..b7c642f 100644 --- a/src/Erebos/Attach.hs +++ b/src/Erebos/Attach.hs @@ -59,7 +59,7 @@ instance PairingResult AttachIdentity where liftIO $ mapM_ storeKey $ catMaybes [ keyFromData sec pub | sec <- keys, pub <- pkeys ] identity' <- mergeIdentity $ updateIdentity [ lsIdentity $ fromStored slocal ] identity - shared <- makeSharedStateUpdate st (Just owner) (lsShared $ fromStored slocal) + shared <- makeSharedStateUpdate (Just owner) (lsShared $ fromStored slocal) mstore (fromStored slocal) { lsIdentity = idExtData identity' , lsShared = [ shared ] |