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

wip

This commit is contained in:
Dmitry Zuikov 2023-07-15 05:20:13 +03:00
parent 3858ec35f7
commit e68ee36429
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
View File

@ -136,6 +136,7 @@ refChanHeadProto self adapter msg = do
case msg of case msg of
RefChanHead chan pkt -> do RefChanHead chan pkt -> do
trace $ "RefChanHead" <+> pretty self <+> pretty (AsBase58 chan) trace $ "RefChanHead" <+> pretty self <+> pretty (AsBase58 chan)
-- FIXME: check-chan-is-listened
lift $ refChanHeadOnHead adapter pkt lift $ refChanHeadOnHead adapter pkt
RefChanGetHead _ -> do RefChanGetHead _ -> do
@ -143,7 +144,6 @@ refChanHeadProto self adapter msg = do
-- послать хэш головы -- послать хэш головы
pure () pure ()
makeSignedBox :: forall e p . (Serialise p, ForRefChans e, Signatures (Encryption e)) makeSignedBox :: forall e p . (Serialise p, ForRefChans e, Signatures (Encryption e))
=> PubKey 'Sign (Encryption e) => PubKey 'Sign (Encryption e)
-> PrivKey 'Sign (Encryption e) -> PrivKey 'Sign (Encryption e)