diff options
Diffstat (limited to 'site.hs')
| -rw-r--r-- | site.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |
