From 766f8132730c904667ed466d8b745e203dc7505e Mon Sep 17 00:00:00 2001
From: cyfraeviolae <cyfraeviolae>
Date: Thu, 18 Jan 2024 22:04:46 -0500
Subject: lev too

---
 src/Lib.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3