From 0fb19186ddd80ae71d694071ed56d192e5bb942c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 6 May 2019 21:58:39 +0200
Subject: Distinct device and owner identities

---
 src/Identity.hs | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

(limited to 'src/Identity.hs')

diff --git a/src/Identity.hs b/src/Identity.hs
index 65fec8a..07356d8 100644
--- a/src/Identity.hs
+++ b/src/Identity.hs
@@ -1,5 +1,6 @@
 module Identity (
     Identity, IdentityData(..),
+    emptyIdentity,
 ) where
 
 import Data.Text (Text)
@@ -10,19 +11,30 @@ import Storage
 type Identity = Signed IdentityData
 
 data IdentityData = Identity
-    { idName :: Text
+    { idName :: Maybe Text
     , idPrev :: Maybe (Stored Identity)
+    , idOwner :: Maybe (Stored Identity)
     , idKeyIdentity :: Stored PublicKey
     }
     deriving (Show)
 
+emptyIdentity :: Stored PublicKey -> IdentityData
+emptyIdentity key = Identity
+    { idName = Nothing
+    , idPrev = Nothing
+    , idOwner = Nothing
+    , idKeyIdentity = key
+    }
+
 instance Storable IdentityData where
     store' idt = storeRec $ do
-        storeText "name" $ idName idt
+        storeMbText "name" $ idName idt
         storeMbRef "prev" $ idPrev idt
+        storeMbRef "owner" $ idOwner idt
         storeRef "key-id" $ idKeyIdentity idt
 
     load' = loadRec $ Identity
-        <$> loadText "name"
+        <$> loadMbText "name"
         <*> loadMbRef "prev"
+        <*> loadMbRef "owner"
         <*> loadRef "key-id"
-- 
cgit v1.2.3