lev too

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 " · ")))
-            (srcCrumb : crumbs)
+            crumbs
       body
-  where
-    srcCrumb = a_ [href_ "/git/antiquitysort"] "source code"
 
 tshow :: Show a => a -> T.Text
 tshow = T.pack . show