From 75cf4c130cc21afd4d569ce0291c2656de162908 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Fri, 17 May 2019 23:43:14 +0200
Subject: Encrypted channels negotiated with DH

---
 src/Identity.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'src/Identity.hs')

diff --git a/src/Identity.hs b/src/Identity.hs
index 07356d8..c1561b6 100644
--- a/src/Identity.hs
+++ b/src/Identity.hs
@@ -15,15 +15,17 @@ data IdentityData = Identity
     , idPrev :: Maybe (Stored Identity)
     , idOwner :: Maybe (Stored Identity)
     , idKeyIdentity :: Stored PublicKey
+    , idKeyMessage :: Stored PublicKey
     }
     deriving (Show)
 
-emptyIdentity :: Stored PublicKey -> IdentityData
-emptyIdentity key = Identity
+emptyIdentity :: Stored PublicKey -> Stored PublicKey -> IdentityData
+emptyIdentity key kmsg = Identity
     { idName = Nothing
     , idPrev = Nothing
     , idOwner = Nothing
     , idKeyIdentity = key
+    , idKeyMessage = kmsg
     }
 
 instance Storable IdentityData where
@@ -32,9 +34,11 @@ instance Storable IdentityData where
         storeMbRef "prev" $ idPrev idt
         storeMbRef "owner" $ idOwner idt
         storeRef "key-id" $ idKeyIdentity idt
+        storeRef "key-msg" $ idKeyMessage idt
 
     load' = loadRec $ Identity
         <$> loadMbText "name"
         <*> loadMbRef "prev"
         <*> loadMbRef "owner"
         <*> loadRef "key-id"
+        <*> loadRef "key-msg"
-- 
cgit v1.2.3