summaryrefslogtreecommitdiff
path: root/app
diff options
context:
space:
mode:
Diffstat (limited to 'app')
-rw-r--r--app/Web.hs7
1 files changed, 3 insertions, 4 deletions
diff --git a/app/Web.hs b/app/Web.hs
index 8dad484..10abefa 100644
--- a/app/Web.hs
+++ b/app/Web.hs
@@ -224,10 +224,9 @@ pageTemplate crumbs body = doctypehtml_ $ do
div_ [class_ "home"] $ do
a_ [href_ (homeURI Nothing), class_ "home-title"] (strong_ "Sumcheck")
span_ " at "
- a_ [href_ "/"] "cyfraeviolae.org"
+ a_ [class_ "site", href_ "/"] "cyfraeviolae.org"
+ a_ [class_ "source", href_ "/git/sumcheck"] "[src]"
div_ [class_ "crumbs"] $ sequence_ $ L.intersperse
(span_ [class_ "sep"] (toHtmlRaw (T.pack " · ")))
- (srcCrumb : crumbs)
+ crumbs
body
- where
- srcCrumb = a_ [href_ "/git/sumcheck"] "source code"