From 1188ebc5de74aa40d2f10040be2d5b290555c9ce Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 3 May 2025 10:38:03 +0200
Subject: Use extended identity data for identity update

---
 src/Erebos/State.hs | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/src/Erebos/State.hs b/src/Erebos/State.hs
index 3012064..5b21ba4 100644
--- a/src/Erebos/State.hs
+++ b/src/Erebos/State.hs
@@ -184,9 +184,8 @@ updateSharedIdentity = updateLocalHead_ $ updateSharedState_ $ \case
     Nothing -> throwError "no existing shared identity"
 
 interactiveIdentityUpdate :: (Foldable f, MonadStorage m, MonadIO m, MonadError String m) => Identity f -> m UnifiedIdentity
-interactiveIdentityUpdate identity = do
-    let public = idKeyIdentity identity
-
+interactiveIdentityUpdate fidentity = do
+    identity <- mergeIdentity fidentity
     name <- liftIO $ do
         T.putStr $ T.concat $ concat
             [ [ T.pack "Name" ]
@@ -198,11 +197,11 @@ interactiveIdentityUpdate identity = do
         hFlush stdout
         T.getLine
 
-    if  | T.null name -> mergeIdentity identity
+    if  | T.null name -> return identity
         | otherwise -> do
-            secret <- loadKey public
-            maybe (throwError "created invalid identity") return . validateIdentity =<<
-                mstore =<< sign secret =<< mstore (emptyIdentityData public)
-                { iddPrev = toList $ idDataF identity
-                , iddName = Just name
+            secret <- loadKey $ idKeyIdentity identity
+            maybe (throwError "created invalid identity") return . validateExtendedIdentity =<<
+                mstore =<< sign secret =<< mstore . ExtendedIdentityData =<< return (emptyIdentityExtension $ idData identity)
+                { idePrev = toList $ idExtDataF identity
+                , ideName = Just name
                 }
-- 
cgit v1.2.3