diff options
| author | Mirek Kratochvil <exa.exa@gmail.com> | 2023-06-17 23:57:16 +0200 |
|---|---|---|
| committer | Mirek Kratochvil <exa.exa@gmail.com> | 2023-06-17 23:57:16 +0200 |
| commit | 97030fec7b9edbe7276bb0e175f1e3c849d3e476 (patch) | |
| tree | f616f38aa353919d7a5cab5adab38dec19df8e9e /site.hs | |
| parent | 3db784b04eadbce697265d7440fb52a4ed18a232 (diff) | |
| download | reploy-97030fec7b9edbe7276bb0e175f1e3c849d3e476.tar.gz reploy-97030fec7b9edbe7276bb0e175f1e3c849d3e476.tar.bz2 | |
actually migrate some contents
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 |