packages feed

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 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]