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 227febf2..4614fa34 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 @@ -258,6 +258,7 @@ repoTree lww root tree back' = do a_ [ href_ "#" , hxGet_ (link <> backPart) , hxTarget_ "#repo-tab-data" + , hxPushUrl_ "true" ] (toHtml $ show $ pretty h) _ -> mempty @@ -316,9 +317,12 @@ repoPage it@RepoListItem{..} = rootPage do , hxTarget_ "#repo-tab-data" ] "manifest" + repoMenuItem [ + ] "commits" + repoMenuItem [ hxGet_ (path ["repo", repo, "refs"]) , hxTarget_ "#repo-tab-data" - ] "browse" + ] "tree" section_ [id_ "repo-data"] do h1_ (toHtml $ rlRepoName)