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-24 13:49:30 +03:00
parent c936b3d044
commit 2a16055c90
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -984,6 +984,7 @@ repoPage tab lww params = rootPage do
div_ [ class_ "attr" ] do div_ [ class_ "attr" ] do
div_ [ class_ "attrname"] $ do div_ [ class_ "attrname"] $ do
case ref of case ref of
-- WTF
PinnedRefBlob s n hash -> do PinnedRefBlob s n hash -> do
a_ [ href_ "#" a_ [ href_ "#"
, hxGet_ (toURL (RepoSomeBlob lww s hash)) , hxGet_ (toURL (RepoSomeBlob lww s hash))