diff --git a/hbs2-git/hbs2-git-dashboard/src/HBS2/Git/Web/Html/Root.hs b/hbs2-git/hbs2-git-dashboard/src/HBS2/Git/Web/Html/Root.hs index c799d86f..214f3ea9 100644 --- a/hbs2-git/hbs2-git-dashboard/src/HBS2/Git/Web/Html/Root.hs +++ b/hbs2-git/hbs2-git-dashboard/src/HBS2/Git/Web/Html/Root.hs @@ -984,6 +984,7 @@ repoPage tab lww params = rootPage do div_ [ class_ "attr" ] do div_ [ class_ "attrname"] $ do case ref of + -- WTF PinnedRefBlob s n hash -> do a_ [ href_ "#" , hxGet_ (toURL (RepoSomeBlob lww s hash))