voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip, ASAP fix needed

This commit is contained in:
Dmitry Zuikov 2024-08-24 09:02:32 +03:00
parent 64fd087140
commit 8d8b536977
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-cli/lib/HBS2/CLI/Run/Internal/GroupKey.hs
View File

@ -54,7 +54,7 @@ decryptBlock :: (MonadUnliftIO m, Serialise t)
-> SmallEncryptedBlock t -> SmallEncryptedBlock t
-> m t -> m t
decryptBlock sto seb = do decryptBlock sto seb = do
let find gk = runKeymanClient (extractGroupKeySecret gk) let find gk = runKeymanClientRO (findMatchedGroupKeySecret sto gk)
-- FIXME: improve-error-diagnostics -- FIXME: improve-error-diagnostics
runExceptT (Symm.decryptBlock sto find seb) runExceptT (Symm.decryptBlock sto find seb)

1
hbs2-sync/src/HBS2/Sync/State.hs
View File

@ -284,6 +284,7 @@ getStateFromRefChan rchan = do
let krs = HM.fromList [ (pk,e) | e@(KeyringEntry pk _ _) <- krl ] let krs = HM.fromList [ (pk,e) | e@(KeyringEntry pk _ _) <- krl ]
-- FIXME: asap-insert-findMatchedGroupKey
let findKey gk = do let findKey gk = do
r <- S.toList_ do r <- S.toList_ do
forM_ (HM.toList $ recipients gk) $ \(pk,box) -> runMaybeT do forM_ (HM.toList $ recipients gk) $ \(pk,box) -> runMaybeT do