From e68ee364290faad66fbadbf332dc361bfc703f28 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Sat, 15 Jul 2023 05:20:13 +0300 Subject: [PATCH] wip --- hbs2-core/lib/HBS2/Net/Proto/RefChan.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs index e268593c..c2f0b19e 100644 --- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs +++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs @@ -136,6 +136,7 @@ refChanHeadProto self adapter msg = do case msg of RefChanHead chan pkt -> do trace $ "RefChanHead" <+> pretty self <+> pretty (AsBase58 chan) + -- FIXME: check-chan-is-listened lift $ refChanHeadOnHead adapter pkt RefChanGetHead _ -> do @@ -143,7 +144,6 @@ refChanHeadProto self adapter msg = do -- послать хэш головы pure () - makeSignedBox :: forall e p . (Serialise p, ForRefChans e, Signatures (Encryption e)) => PubKey 'Sign (Encryption e) -> PrivKey 'Sign (Encryption e)