new srcHEADmaster

1 files changed, 3 insertions, 3 deletions

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 " · "))) (srcCrumb:crumbs)
+                intersperse (span_ [class_ "sep"] (toHtmlRaw (T.pack " · "))) crumbs
         body
     where
-        srcCrumb = a_ [href_ "/git/spectralrenga"] "source code"
         titleDomain = case domainName of
                         Nothing -> ""
                         Just (DomainName domainNameStr) -> " - " <> domainNameStr