diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2022-05-17 22:06:01 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2022-05-17 22:06:01 +0200 |
| commit | b8e55c64a68763b0953945476cc75206f5354023 (patch) | |
| tree | 741f7e66faace0be22ecaa6346f2ca79c045893b /src/Attach.hs | |
| parent | b9e50633254a8c45159a6088309969872b8aae50 (diff) | |
Mergeable class with separate component type
Diffstat (limited to 'src/Attach.hs')
| -rw-r--r-- | src/Attach.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Attach.hs b/src/Attach.hs index 90c9900..c27b383 100644 --- a/src/Attach.hs +++ b/src/Attach.hs @@ -58,7 +58,7 @@ instance PairingResult AttachIdentity where pkeys <- mapM (copyStored st) [ idKeyIdentity owner, idKeyMessage owner ] mapM_ storeKey $ catMaybes [ keyFromData sec pub | sec <- keys, pub <- pkeys ] - shared <- makeSharedStateUpdate st (idDataF owner) (lsShared $ fromStored slocal) + shared <- makeSharedStateUpdate st (Just owner) (lsShared $ fromStored slocal) wrappedStore st (fromStored slocal) { lsIdentity = idData identity , lsShared = [ shared ] |