yogsototh/hakyll
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix code style

Browse source
This commit is contained in:
Simonas Kazlauskas 2013-02-23 13:38:34 +02:00
parent 45c618b413
commit 6b680c9887
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Hakyll/Web/Template/List.hs
View file

@ -61,10 +61,12 @@ applyJoinTemplateList delimiter tpl context items = do
-- @year-month-day-title.extension@ naming scheme -- as is the convention in
-- Hakyll.
chronological :: MonadMetadata m => [Item a] -> m [Item a]
chronological = sortByM $ getItemUTC defaultTimeLocale . itemIdentifier
where sortByM :: (Monad m, Ord k) => (a -> m k) -> [a] -> m [a]
sortByM f xs = liftM (map fst . sortBy (comparing snd)) $
mapM (\x -> liftM (x,) (f x)) xs
chronological =
sortByM $ getItemUTC defaultTimeLocale . itemIdentifier
where
sortByM :: (Monad m, Ord k) => (a -> m k) -> [a] -> m [a]
sortByM f xs = liftM (map fst . sortBy (comparing snd)) $
mapM (\x -> liftM (x,) (f x)) xs
--------------------------------------------------------------------------------
-- | The reverse of 'chronological'