wip

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

@@ -98,16 +98,23 @@ refChanHeadProto :: forall e s m . ( MonadIO m
 
 refChanHeadProto self adapter msg = do
   -- авторизовать пира
+  peer <- thatPeer (Proxy @(RefChanHead e))
 
-  case msg of
+  auth <- find (KnownPeerKey peer) id <&> isJust
-    RefChanHead pkt _ -> do
-      trace $ "RefChanHead" <+> pretty self
-      pure ()
 
-    RefChanGetHead _ -> do
+  guard (auth || self)
-      -- прочитать ссылку
+
-      -- послать хэш головы
+  void $ runMaybeT do
-      pure ()
+
+    case msg of
+      RefChanHead pkt _ -> do
+        trace $ "RefChanHead" <+> pretty self
+        pure ()
+
+      RefChanGetHead _ -> do
+        -- прочитать ссылку
+        -- послать хэш головы
+        pure ()
 
 
 makeSignedBox :: forall e p . (Serialise p, ForRefChans e, Signatures (Encryption e))