From 788a37cd3ea28e890c3f6f4ffca087e580dafcbd Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Sun, 24 Jan 2010 11:55:40 +0100
Subject: Use ascending list for serializing where possible.

---
 src/Text/Hakyll/Tags.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text/Hakyll/Tags.hs')

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
-- 
cgit v1.2.3