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

pep-02 updated

This commit is contained in:
Dmitry Zuikov 2023-02-11 10:24:35 +03:00
parent d1dd6fae23
commit 1df921400b
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
docs/drafts/pep-02-acb.txt
View File

@ -29,13 +29,14 @@ Curve25519 (?), т.е ключевую пару асимметричного ш
-- PubKey 'Sign e ;;; ключ подписи Ed25519 -- PubKey 'Sign e ;;; ключ подписи Ed25519
data family ACB e schema :: Type data ACBSchema = NaClAsymm
data family ACB e (schema :: ACBSchema) :: Type
data family AccessKey e schema :: Type data family AccessKey e schema :: Type
data ACBSchema = NaClAsymm
data instance ACB e NaClAsymm = data instance ACB e 'NaClAsymm =
ACBNaClAsymm ACBNaClAsymm
{ acbParent :: HashRef -- указатель на предыдущий ACB { acbParent :: HashRef -- указатель на предыдущий ACB
, acbRoot :: PubKey 'Sign e -- корневой владелец , acbRoot :: PubKey 'Sign e -- корневой владелец
@ -63,7 +64,7 @@ data instance ACB e NaClAsymm =
-- EncryptedBox - обертка вокруг ключа ассиметричного шифрования -- EncryptedBox - обертка вокруг ключа ассиметричного шифрования
-- (KeyPAir) -- (KeyPAir)
newtype instance AccessKey e NaClAsymm = newtype instance AccessKey e 'NaClAsymm =
AccessKeyNaClAsymm AccessKeyNaClAsymm
{ permitted :: [(PubKey 'Sign e, EncryptedBox)] { permitted :: [(PubKey 'Sign e, EncryptedBox)]
} }