summaryrefslogtreecommitdiff
path: root/src/Text/Hakyll
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Hakyll')
-rw-r--r--src/Text/Hakyll/Page.hs4
-rw-r--r--src/Text/Hakyll/Tags.hs4
2 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Hakyll/Page.hs b/src/Text/Hakyll/Page.hs
index b9507b6..0cf86ee 100644
--- a/src/Text/Hakyll/Page.hs
+++ b/src/Text/Hakyll/Page.hs
@@ -149,5 +149,5 @@ instance Renderable Page where
-- Make pages serializable.
instance Binary Page where
- put (Page context) = put $ M.toList context
- get = liftM (Page . M.fromList) get
+ put (Page context) = put $ M.toAscList context
+ get = liftM (Page . M.fromAscList) get
diff --git a/src/Text/Hakyll/Tags.hs b/src/Text/Hakyll/Tags.hs
index 6a179a5..efd7bed 100644
--- a/src/Text/Hakyll/Tags.hs
+++ b/src/Text/Hakyll/Tags.hs
@@ -45,9 +45,9 @@ readTagMap :: String -- ^ Unique identifier for the tagmap.
-> Hakyll (M.Map String [FilePath])
readTagMap identifier paths = do
isCacheMoreRecent' <- isCacheMoreRecent fileName paths
- if isCacheMoreRecent' then M.fromList <$> getFromCache fileName
+ if isCacheMoreRecent' then M.fromAscList <$> getFromCache fileName
else do tagMap <- readTagMap'
- storeInCache (M.toList tagMap) fileName
+ storeInCache (M.toAscList tagMap) fileName
return tagMap
where
fileName = "_tagmap" </> identifier