diff options
Diffstat (limited to 'src/Hakyll/Web/Util')
-rw-r--r-- | src/Hakyll/Web/Util/Url.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Hakyll/Web/Util/Url.hs b/src/Hakyll/Web/Util/Url.hs index 54a361e..8a02ef3 100644 --- a/src/Hakyll/Web/Util/Url.hs +++ b/src/Hakyll/Web/Util/Url.hs @@ -18,7 +18,8 @@ import System.FilePath (splitPath, takeDirectory, joinPath) -- > "/foo/bar.html" -- toUrl :: FilePath -> String -toUrl = ('/' :) +toUrl ('/' : xs) = '/' : xs +toUrl url = '/' : url -- | Get the relative url to the site root, for a given (absolute) url -- |