From 2ce438155717e4aefecb869a397bc9f7df624add Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Wed, 12 Aug 2026 15:40:35 +0200 Subject: Use mloadKey in interactiveIdentityUpdate --- src/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index 547aaca..87c3df7 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -454,12 +454,12 @@ updateSharedIdentity name = updateLocalState_ $ updateSharedState_ $ \case Just . toComposedIdentity <$> interactiveIdentityUpdate name identity Nothing -> throwOtherError "no existing shared identity" -interactiveIdentityUpdate :: (Foldable f, MonadStorage m, MonadIO m, MonadError e m, FromErebosError e) => Text -> Identity f -> m UnifiedIdentity +interactiveIdentityUpdate :: (Foldable f, MonadStorage m, MonadError e m, FromErebosError e) => Text -> Identity f -> m UnifiedIdentity interactiveIdentityUpdate name fidentity = do identity <- mergeIdentity fidentity if | T.null name -> return identity | otherwise -> do - secret <- loadKey $ idKeyIdentity identity + secret <- mloadKey $ idKeyIdentity identity maybe (throwOtherError "created invalid identity") return . validateExtendedIdentity =<< mstore =<< sign secret =<< mstore . ExtendedIdentityData =<< return (emptyIdentityExtension $ idData identity) { idePrev = toList $ idExtDataF identity -- cgit v1.2.3