hakyll-dir-list 1.0.0.2 → 1.0.0.3
raw patch · 3 files changed
+17/−10 lines, 3 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Hakyll.Web.Template.DirList: Configuration :: (Int -> String) -> (Int -> String) -> (Int -> String) -> (Int -> String) -> Configuration
+ Hakyll.Web.Template.DirList: Configuration :: Int -> String -> Int -> String -> Int -> String -> Int -> String -> Configuration
Files
- CHANGELOG.md +11/−6
- hakyll-dir-list.cabal +1/−1
- src/Hakyll/Web/Template/DirList.hs +5/−3
CHANGELOG.md view
@@ -4,15 +4,20 @@ # Releases -## hakyll-dir-list 0.1.1.0-- bump hakyll to 4.11.0.0+## hakyll-dir-list 1.0.0.3+- use a hyphen in Metadata Configuration to get an empty tag+- use lts-12.7 stack resolver -## hakyll-dir-list 1.0.0.0-- configurable begin and end tags for items and collections+## hakyll-dir-list 1.0.0.2+- use lts-11.0 stack resolver ## hakyll-dir-list 1.0.0.1 - more consistent behaviour of defaultConfiguration, in connection with metadataConfiguration -## hakyll-dir-list 1.0.0.2-- use lts-11.0 stack resolver+## hakyll-dir-list 1.0.0.0+- configurable begin and end tags for items and collections++## hakyll-dir-list 0.1.1.0+- bump hakyll to 4.11.0.0+
hakyll-dir-list.cabal view
@@ -1,5 +1,5 @@ name: hakyll-dir-list-version: 1.0.0.2+version: 1.0.0.3 synopsis: Allow Hakyll to create hierarchical menues from directories.
src/Hakyll/Web/Template/DirList.hs view
@@ -61,7 +61,7 @@ -- or if not given an ','. The list holds the -- tags per level, if level is higher than the -- tags in the list the last tag is used.---+-- Use a hyphen '-' to get an empty string as 'tag'. metadataConfiguration :: Metadata -> Configuration -> Configuration metadataConfiguration md default' = Configuration @@ -77,10 +77,12 @@ Nothing -> df Just s -> g ( splitAll del s ) g :: [String] -> Int -> String- g (x:[]) _ = x- g (x:_) 0 = x+ g (x:[]) _ = t x+ g (x:_) 0 = t x g (_:xs) l = g xs (l - 1) g [] _ = "<???>" -- this should not happen+ t :: String -> String+ t x = if x == "-" then "" else x -- | Sort pages alphabetically. alphabetical :: MonadMetadata m => [Item a] -> m [Item a]