From d7a8706c3409d7666aa08620e3ae5982797bf0c9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 4 Dec 2021 18:45:02 +0100
Subject: Provide createIdentity function from Identity module

---
 src/Identity.hs | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'src/Identity.hs')

diff --git a/src/Identity.hs b/src/Identity.hs
index 0f3e81b..0e3e318 100644
--- a/src/Identity.hs
+++ b/src/Identity.hs
@@ -5,6 +5,7 @@ module Identity (
     idData, idDataF, idName, idOwner, idUpdates, idKeyIdentity, idKeyMessage,
 
     emptyIdentityData,
+    createIdentity,
     validateIdentity, validateIdentityF,
     loadIdentity, loadUnifiedIdentity,
 
@@ -108,6 +109,22 @@ emptyIdentityData key = IdentityData
     , iddKeyMessage = Nothing
     }
 
+createIdentity :: Storage -> Maybe Text -> Maybe UnifiedIdentity -> IO UnifiedIdentity
+createIdentity st name owner = do
+    (secret, public) <- generateKeys st
+    (_secretMsg, publicMsg) <- generateKeys st
+
+    let signOwner idd
+            | Just o <- owner = do
+                Just ownerSecret <- loadKey (iddKeyIdentity $ fromStored $ signedData $ fromStored $ idData o)
+                signAdd ownerSecret idd
+            | otherwise = return idd
+
+    Just identity <- return . validateIdentity =<< wrappedStore st =<< signOwner =<< sign secret =<<
+        wrappedStore st (emptyIdentityData public)
+        { iddName = name, iddOwner = idData <$> owner, iddKeyMessage = Just publicMsg }
+    return identity
+
 validateIdentity :: Stored (Signed IdentityData) -> Maybe UnifiedIdentity
 validateIdentity = validateIdentityF . I.Identity
 
-- 
cgit v1.2.3