From b9456b2d24140bbe3bed2fb9dea0b2c2ec860e97 Mon Sep 17 00:00:00 2001 From: cyfraeviolae Date: Thu, 18 Jan 2024 22:13:02 -0500 Subject: src url --- app/Web.hs | 7 +++---- 1 file 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" -- cgit v1.2.3