From 3d805c5d8042f5b2d6b86904863bb40b54bd311f Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <miroslav.kratochvil@uni.lu>
Date: Thu, 8 Jun 2023 16:03:31 +0200
Subject: [PATCH] fixup links again

---
 site.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/site.hs b/site.hs
index 31e8ecc..4efe2bd 100644
--- a/site.hs
+++ b/site.hs
@@ -127,7 +127,7 @@ checkTarget fp = do
 
 -- | Prepend the root path to the given link
 rootUrl :: FilePath -> Site FilePath
-rootUrl fp = (</> fp) <$> use urlBase
+rootUrl fp = (</> dropWhile (=='/') fp) <$> use urlBase
 
 -- | Process a single link pointing out from a page.
 processLink :: FilePath -> FilePath -> Site String
@@ -280,6 +280,7 @@ makeHTagLinkMeta tag = do
   pure $
     Y.object [("href", fromString link), ("tags", Y.array $ map fromString tag)]
 
+-- | Make metadata for printing out a link to a page
 makePageLinkMeta :: FilePath -> Site Y.Value
 makePageLinkMeta mount = do
   link <- rootUrl mount