aboutsummaryrefslogtreecommitdiff
path: root/site.hs
diff options
context:
space:
mode:
Diffstat (limited to 'site.hs')
-rw-r--r--site.hs2
1 files changed, 1 insertions, 1 deletions
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