fixup links again

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