fixup links again

1 files changed, 2 insertions, 1 deletions

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