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

wip

This commit is contained in:
Dmitry Zuikov 2024-04-21 09:00:32 +03:00
parent 129641a5f5
commit d31c913028
1 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hbs2-git/hbs2-git-dashboard/src/HBS2/Git/Web/Html/Root.hs
View File

@ -205,6 +205,10 @@ repoRefs lww refs = do
let r_ = Text.pack $ show $ pretty r let r_ = Text.pack $ show $ pretty r
let co = show $ pretty h let co = show $ pretty h
let uri = path [ "repo", show $ pretty lww, "tree", co, co ] let uri = path [ "repo", show $ pretty lww, "tree", co, co ]
let showRef = Text.isPrefixOf "refs" r_
when showRef do
tr_ do tr_ do
td_ do td_ do
@ -215,7 +219,8 @@ repoRefs lww refs = do
| otherwise -> mempty | otherwise -> mempty
td_ (toHtml r_) td_ (toHtml r_)
td_ [class_ "mono"] $ a_ [ href_ "#" td_ [class_ "mono"] $ do
a_ [ href_ "#"
, hxGet_ uri , hxGet_ uri
, hxTarget_ "#repo-tab-data" , hxTarget_ "#repo-tab-data"
] (toHtml $ show $ pretty h) ] (toHtml $ show $ pretty h)