From 046fd7a6865379c488b1c968e1f36d2033562b4b Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Tue, 26 Mar 2024 07:23:42 +0300
Subject: [PATCH] wip

---
 hbs2-peer/app/Browser/Root.hs | 7 +++++++
 hbs2-peer/app/HttpWorker.hs   | 9 +++++++++
 2 files changed, 16 insertions(+)

diff --git a/hbs2-peer/app/Browser/Root.hs b/hbs2-peer/app/Browser/Root.hs
index 9d5a957c..eb221d63 100644
--- a/hbs2-peer/app/Browser/Root.hs
+++ b/hbs2-peer/app/Browser/Root.hs
@@ -1,6 +1,7 @@
 module Browser.Root
   ( module Lucid
   , browserRootPage
+  , channelPage
   ) where
 
 import HBS2.Prelude.Plated
@@ -116,3 +117,9 @@ browserRootPage syn = rootPage do
             p_ (toHtml s)
 
 
+
+channelPage :: Monad m => RefChanId L4Proto -> HtmlT m ()
+channelPage chan = rootPage $ pure ()
+
+
+
diff --git a/hbs2-peer/app/HttpWorker.hs b/hbs2-peer/app/HttpWorker.hs
index 2f4b56e7..1089cfd3 100644
--- a/hbs2-peer/app/HttpWorker.hs
+++ b/hbs2-peer/app/HttpWorker.hs
@@ -217,6 +217,15 @@ httpWorker (PeerConfig syn) pmeta e = do
         get "/browser" do
           renderTextT (browserRootPage syn) >>= html
 
+        get "/browser/channel/:refchan" $ void $ flip runContT pure do
+
+          chan <- lift (param @String "refchan")
+                   <&> fromStringMay
+                   >>= orElse (status status404)
+
+          lift $ renderTextT (channelPage chan) >>= html
+
+
       put "/" do
         -- FIXME: optional-header-based-authorization
         --   signed nonce + peer key?