diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-08-12 15:40:35 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-08-12 15:40:35 +0200 |
| commit | 2ce438155717e4aefecb869a397bc9f7df624add (patch) | |
| tree | ea0803895b574bd88d2c5c633ed5056ecc91c32d /src/Main.hs | |
| parent | 75f243e6c5f1663157f934c706f069778507c165 (diff) | |
Use mloadKey in interactiveIdentityUpdate
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 4 |
1 files 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 |