hakyll 3.2.4.2 → 3.2.5.0

raw patch · 2 files changed

+18/−2 lines, 2 files

Files

• hakyll.cabal +1/−1
• src/Hakyll/Web/Tags.hs +17/−1

@@ -1,5 +1,5 @@ Name:    hakyll-Version: 3.2.4.2+Version: 3.2.5.0  Synopsis: A static website compiler library Description:

@@ -35,13 +35,17 @@     , renderTagList     , renderTagsField     , renderCategoryField+    , sortTagsBy+    , caseInsensitiveTags     ) where  import Prelude hiding (id) import Control.Category (id) import Control.Applicative ((<$>))+import Data.Char (toLower)+import Data.Ord (comparing) import qualified Data.Map as M-import Data.List (intersperse, intercalate)+import Data.List (intersperse, intercalate, sortBy) import Control.Arrow (arr, (&&&), (>>>), (***), (<<^), returnA) import Data.Maybe (catMaybes, fromMaybe) import Data.Monoid (mconcat)@@ -206,3 +210,15 @@                     -> (String -> Identifier a)    -- ^ Create a category link                     -> Compiler (Page a) (Page a)  -- ^ Resulting compiler renderCategoryField = renderTagsFieldWith getCategory++-- | Sort tags using supplied function. First element of the tuple passed to+-- the comparing function is the actual tag name.+--+sortTagsBy :: ((String, [Page a]) -> (String, [Page a]) -> Ordering)+           -> Compiler (Tags a) (Tags a)+sortTagsBy f = arr $ Tags . sortBy f . tagsMap++-- | Sample sorting function that compares tags case insensitively.+--+caseInsensitiveTags :: (String, [Page a]) -> (String, [Page a]) -> Ordering+caseInsensitiveTags = comparing $ map toLower . fst