wip

hbs2-core/lib/HBS2/Net/Proto/RefChan.hs

@@ -98,6 +98,13 @@ refChanHeadProto :: forall e s m . ( MonadIO m
 
 refChanHeadProto self adapter msg = do
   -- авторизовать пира
+  peer <- thatPeer (Proxy @(RefChanHead e))
+
+  auth <- find (KnownPeerKey peer) id <&> isJust
+
+  guard (auth || self)
+
+  void $ runMaybeT do
 
     case msg of
       RefChanHead pkt _ -> do