From 97030fec7b9edbe7276bb0e175f1e3c849d3e476 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sat, 17 Jun 2023 23:57:16 +0200
Subject: actually migrate some contents

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

(limited to 'site.hs')

diff --git a/site.hs b/site.hs
index e012f04..bf18f86 100644
--- a/site.hs
+++ b/site.hs
@@ -134,7 +134,7 @@ rootUrl fp = (</> unAbsolute fp) <$> use urlBase
 -- | Process a single link pointing out from a page.
 processLink :: FilePath -> FilePath -> Site String
 processLink base l =
-  if any (l `hasUriScheme`) ["http", "https", "ftp", "mailto"]
+  if any (l `hasUriScheme`) ["http", "https", "ftp", "mailto"] || take 1 l == "#"
     then pure l
     else if isAbsolute l
            then rootUrl l
-- 
cgit v1.2.3