diff options
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 ] |