diff options
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 |