voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip, wtf

This commit is contained in:
Dmitry Zuikov 2024-04-22 11:38:40 +03:00
parent f8249b4000
commit a5a50defc7
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hbs2-git/hbs2-git-dashboard/GitDashBoard.hs
View File

@ -221,6 +221,9 @@ runDashboardWeb wo = do
get "/repo/:lww/refs" do get "/repo/:lww/refs" do
lwws' <- captureParam @String "lww" <&> fromStringMay @(LWWRefKey HBS2Basic) lwws' <- captureParam @String "lww" <&> fromStringMay @(LWWRefKey HBS2Basic)
setHeader "HX-Push-Url" [qc|/repo/{show $ pretty lwws'}|]
flip runContT pure do flip runContT pure do
lww <- lwws' & orFall (status status404) lww <- lwws' & orFall (status status404)
refs <- lift $ gitShowRefs lww refs <- lift $ gitShowRefs lww