From cd694def6d30323ba8d6a0b929d38f70e629a7a3 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Tue, 27 Aug 2024 07:07:23 +0300
Subject: [PATCH] wip, lost parts

---
 hbs2-core/lib/HBS2/Net/Auth/GroupKeySymm.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/hbs2-core/lib/HBS2/Net/Auth/GroupKeySymm.hs b/hbs2-core/lib/HBS2/Net/Auth/GroupKeySymm.hs
index a3687bca..d25eb1f1 100644
--- a/hbs2-core/lib/HBS2/Net/Auth/GroupKeySymm.hs
+++ b/hbs2-core/lib/HBS2/Net/Auth/GroupKeySymm.hs
@@ -124,6 +124,17 @@ deriving instance
     )
     => Eq (GroupKey 'Symm s)
 
+
+getGroupKeyIdScheme :: GroupKey 'Symm s -> Maybe GroupKeyIdScheme
+getGroupKeyIdScheme = \case
+  GroupKeySymmPlain{} -> Nothing
+  GroupKeySymmFancy{..} -> groupKeyIdScheme
+
+getGroupKeyId :: GroupKey 'Symm s -> Maybe GroupKeyId
+getGroupKeyId = \case
+  GroupKeySymmPlain{} -> Nothing
+  GroupKeySymmFancy{..} -> groupKeyId
+
 getGroupKeyTimestamp :: GroupKey 'Symm s -> Maybe Word64
 getGroupKeyTimestamp = \case
   GroupKeySymmPlain{} -> Nothing