wip

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)