voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip, lost parts

This commit is contained in:
Dmitry Zuikov 2024-08-27 07:07:23 +03:00
parent de4c83da9d
commit cd694def6d
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
hbs2-core/lib/HBS2/Net/Auth/GroupKeySymm.hs
View File

@ -124,6 +124,17 @@ deriving instance
) )
=> Eq (GroupKey 'Symm s) => 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 :: GroupKey 'Symm s -> Maybe Word64
getGroupKeyTimestamp = \case getGroupKeyTimestamp = \case
GroupKeySymmPlain{} -> Nothing GroupKeySymmPlain{} -> Nothing