hakyll 3.0.1.2 → 3.0.1.3

raw patch · 3 files changed

+5/−3 lines, 3 files

Files

hakyll.cabal +1/−1
src/Hakyll/Web/RelativizeUrls.hs +1/−1
src/Hakyll/Web/Util/Url.hs +3/−1

hakyll.cabal view

@@ -1,5 +1,5 @@ Name:               hakyll-Version:            3.0.1.2+Version:            3.0.1.3  Synopsis:           A simple static site generator library. Description:        A simple static site generator library, mainly aimed at

src/Hakyll/Web/RelativizeUrls.hs view

@@ -31,7 +31,7 @@ import Hakyll.Web.Page import Hakyll.Web.Util.Url --- | Compiler form of 'compressCss' which automatically picks the right root+-- | Compiler form of 'relativizeUrls' which automatically picks the right root -- path -- relativizeUrlsCompiler :: Compiler (Page String) (Page String)

src/Hakyll/Web/Util/Url.hs view

@@ -24,8 +24,10 @@ -- | Get the relative url to the site root, for a given (absolute) url -- toSiteRoot :: String -> String-toSiteRoot = emptyException . joinPath . map parent . splitPath . takeDirectory+toSiteRoot = emptyException . joinPath . map parent+           . splitPath . takeDirectory . dropLeadingSlash   where     parent = const ".."     emptyException [] = "."     emptyException x  = x+    dropLeadingSlash = dropWhile (== '/')