diff options
Diffstat (limited to 'src/Attach.hs')
| -rw-r--r-- | src/Attach.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/Attach.hs b/src/Attach.hs index 298ed29..f3a98b3 100644 --- a/src/Attach.hs +++ b/src/Attach.hs @@ -224,11 +224,7 @@ finalizeAttach st identity skeys = do pkeys <- mapM (copyStored st) [ idKeyIdentity owner, idKeyMessage owner ] mapM_ storeKey $ catMaybes [ keyFromData sec pub | sec <- skeys, pub <- pkeys ] - mshared <- mergeSharedStates (lsShared $ fromStored slocal) - shared <- wrappedStore st $ (fromStored mshared) - { ssPrev = lsShared $ fromStored slocal - , ssIdentity = idDataF owner - } + shared <- makeSharedStateUpdate st (idDataF owner) (lsShared $ fromStored slocal) wrappedStore st (fromStored slocal) { lsIdentity = idData identity , lsShared = [ shared ] |