src url

1 files changed, 3 insertions, 4 deletions

diff --git a/app/Web.hs b/app/Web.hs
index 8dad484..10abefa 100644
--- a/app/Web.hs
+++ b/app/Web.hs
@@ -224,10 +224,9 @@ pageTemplate crumbs body = doctypehtml_ $ do
             div_ [class_ "home"] $ do
               a_ [href_ (homeURI Nothing), class_ "home-title"] (strong_ "Sumcheck")
               span_ " at "
-              a_ [href_ "/"] "cyfraeviolae.org"
+              a_ [class_ "site", href_ "/"] "cyfraeviolae.org"
+              a_ [class_ "source", href_ "/git/sumcheck"] "[src]"
             div_ [class_ "crumbs"] $ sequence_ $ L.intersperse
                 (span_ [class_ "sep"] (toHtmlRaw (T.pack " · ")))
-                (srcCrumb : crumbs)
+                crumbs
         body
-  where
-    srcCrumb =  a_ [href_ "/git/sumcheck"] "source code"