diff --git a/hbs2-git/hbs2-git-dashboard-assets/HBS2/Git/Web/Assets.hs b/hbs2-git/hbs2-git-dashboard-assets/HBS2/Git/Web/Assets.hs
index d1b51804..b2cd4339 100644
--- a/hbs2-git/hbs2-git-dashboard-assets/HBS2/Git/Web/Assets.hs
+++ b/hbs2-git/hbs2-git-dashboard-assets/HBS2/Git/Web/Assets.hs
@@ -35,6 +35,7 @@ data IconType
| IconArrowUturnLeft
| IconLicense
| IconPinned
+ | IconFixme
svgIcon :: Monad m => IconType -> HtmlT m ()
svgIcon = toHtmlRaw . svgIconText
@@ -177,3 +178,24 @@ svgIconText IconPinned = [qc|
|]
+
+
+svgIconText IconFixme = [qc|
+|]
+
+
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 d758a984..bfb3e8d7 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
@@ -952,7 +952,9 @@ repoPage tab lww params = rootPage do
aside_ [class_ "sidebar"] do
div_ [class_ "info-block" ] do
- toHtml (ShortRef lww)
+ let url = toURL (RepoPage (CommitsTab Nothing) lww)
+ let txt = toHtml (ShortRef lww)
+ a_ [href_ url, class_ "secondary"] txt
-- div_ [class_ "info-block" ] do
-- a_ [ href_ "/"] do
@@ -982,7 +984,7 @@ repoPage tab lww params = rootPage do
for_ fixme $ \_ -> do
li_ $ small_ do
a_ [class_ "secondary"] do
- span_ [class_ "inline-icon-wrapper"] $ svgIcon IconLicense
+ span_ [class_ "inline-icon-wrapper"] $ svgIcon IconFixme
"Issues"
when (rlRepoForks > 0) do