summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorcyfraeviolae <cyfraeviolae>2024-01-18 22:04:46 -0500
committercyfraeviolae <cyfraeviolae>2024-01-18 22:04:46 -0500
commit766f8132730c904667ed466d8b745e203dc7505e (patch)
treeb785069b1ea18984449cdffb34a4f8ded84c6084 /src
parentf5122be28721b13ea501a014cab54f092358a818 (diff)
lev too
Diffstat (limited to 'src')
-rw-r--r--src/Lib.hs7
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Lib.hs b/src/Lib.hs
index 35db408..064b88b 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -516,14 +516,13 @@ pageTemplate crumbs body = doctypehtml_ $ do
div_ [class_ "home"] $ do
a_ [href_ homeURI, class_ "home-title"] (strong_ "Antiquitysort")
span_ " at "
- a_ [href_ "/"] "cyfraeviolae.org"
+ a_ [class_ "site", href_ "/"] "cyfraeviolae.org"
+ a_ [class_ "source", href_ "/git/spectralrenga"] "[src]"
div_ [class_ "crumbs"] $ sequence_ $
L.intersperse
(span_ [class_ "sep"] (toHtmlRaw (T.pack " &middot; ")))
- (srcCrumb : crumbs)
+ crumbs
body
- where
- srcCrumb = a_ [href_ "/git/antiquitysort"] "source code"
tshow :: Show a => a -> T.Text
tshow = T.pack . show