wip, ASAP fix needed

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

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

hbs2-sync/src/HBS2/Sync/State.hs

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