788a37c · hakyll · git.iko.soy

git.iko.soy/hakyll

Use ascending list for serializing where possible.

commit788a37cd3ea28e890c3f6f4ffca087e580dafcbd authorJasper Van der Jeugt <jaspervdj@gmail.com> dateSun 24 Jan 2010, 11:55 (17 years ago) parent4295de0

2 files changed+4−4

compare with master

unifiedsplit

src/Text/Hakyll/Page.hs+2−2 src/Text/Hakyll/Tags.hs+2−2

src/Text/Hakyll/Page.hs+2−2

@@ -149,5 +149,5 @@ instance Renderable Page where

149149

150150-- Make pages serializable.

151151instance Binary Page where

152− put (Page context) = put $ M.toList context

153− get = liftM (Page . M.fromList) get

152+ put (Page context) = put $ M.toAscList context

153+ get = liftM (Page . M.fromAscList) get

src/Text/Hakyll/Tags.hs+2−2

@@ -45,9 +45,9 @@ readTagMap :: String -- ^ Unique identifier for the tagmap.

4545 -> Hakyll (M.Map String [FilePath])

4646readTagMap identifier paths = do

4747 isCacheMoreRecent' <- isCacheMoreRecent fileName paths

48− if isCacheMoreRecent' then M.fromList <$> getFromCache fileName

48+ if isCacheMoreRecent' then M.fromAscList <$> getFromCache fileName

4949 else do tagMap <- readTagMap'

50− storeInCache (M.toList tagMap) fileName

50+ storeInCache (M.toAscList tagMap) fileName

5151 return tagMap

5252 where

5353 fileName = "_tagmap" </> identifier