diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-24 11:55:40 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-24 11:55:40 +0100 |
| commit | 788a37cd3ea28e890c3f6f4ffca087e580dafcbd (patch) | |
| tree | 965b092d4555a972e3d6ac92de8b69cea18754d3 /src/Text/Hakyll/Tags.hs | |
| parent | 4295de01bc524b5dccb17dfe2e50f2121feeea07 (diff) | |
| download | hakyll-788a37cd3ea28e890c3f6f4ffca087e580dafcbd.tar.gz | |
Use ascending list for serializing where possible.
Diffstat (limited to 'src/Text/Hakyll/Tags.hs')
| -rw-r--r-- | src/Text/Hakyll/Tags.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |