From 444087304e275ace8a1327a04323a856d94a3032 Mon Sep 17 00:00:00 2001
From: cyfraeviolae <cyfraeviolae>
Date: Thu, 18 Jan 2024 20:43:07 -0500
Subject: new src

---
 dist/dbreset-exe       | Bin 24121176 -> 23894376 bytes
 dist/spectralrenga-exe | Bin 24118232 -> 23890056 bytes
 src/Lib.hs             |   6 +++---
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/dist/dbreset-exe b/dist/dbreset-exe
index 6e9ac98..540b4e7 100755
Binary files a/dist/dbreset-exe and b/dist/dbreset-exe differ
diff --git a/dist/spectralrenga-exe b/dist/spectralrenga-exe
index 68ff979..b86836a 100755
Binary files a/dist/spectralrenga-exe and b/dist/spectralrenga-exe differ
diff --git a/src/Lib.hs b/src/Lib.hs
index d1f6c0e..fb934f3 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -721,12 +721,12 @@ pageTemplate domainName crumbs body = doctypehtml_ $ do
             div_ [class_ "home"] $ do
                 a_ [href_ homeURI, class_ "home-title"] "Spectral Renga"
                 span_ " at "
-                a_ [href_ "/"] "cyfraeviolae.org"
+                a_ [class_ "site", href_ "/"] "cyfraeviolae.org"
+                a_ [class_ "source", href_ "/git/spectralrenga"] "[src]"
             div_ [class_ "crumbs"] $ sequence_ $
-                intersperse (span_ [class_ "sep"] (toHtmlRaw (T.pack " &middot; "))) (srcCrumb:crumbs)
+                intersperse (span_ [class_ "sep"] (toHtmlRaw (T.pack " &middot; "))) crumbs
         body
     where
-        srcCrumb = a_ [href_ "/git/spectralrenga"] "source code"
         titleDomain = case domainName of
                         Nothing -> ""
                         Just (DomainName domainNameStr) -> " - " <> domainNameStr
-- 
cgit v1.2.3