From a5a50defc7d2fba46452d337800575853c729331 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Mon, 22 Apr 2024 11:38:40 +0300 Subject: [PATCH] wip, wtf --- hbs2-git/hbs2-git-dashboard/GitDashBoard.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/hbs2-git/hbs2-git-dashboard/GitDashBoard.hs b/hbs2-git/hbs2-git-dashboard/GitDashBoard.hs index f563035c..83484be7 100644 --- a/hbs2-git/hbs2-git-dashboard/GitDashBoard.hs +++ b/hbs2-git/hbs2-git-dashboard/GitDashBoard.hs @@ -221,6 +221,9 @@ runDashboardWeb wo = do get "/repo/:lww/refs" do lwws' <- captureParam @String "lww" <&> fromStringMay @(LWWRefKey HBS2Basic) + + setHeader "HX-Push-Url" [qc|/repo/{show $ pretty lwws'}|] + flip runContT pure do lww <- lwws' & orFall (status status404) refs <- lift $ gitShowRefs lww