Added tagMap caching.

Because the readTagMap function was currently one of the bottlenexks, this has
caused a speedup of 900% for some test cases, so yay for that.

1 files changed, 6 insertions, 6 deletions

diff --git a/src/Text/Hakyll/Page.hs b/src/Text/Hakyll/Page.hs
index abfd0b8..b9507b6 100644
--- a/src/Text/Hakyll/Page.hs
+++ b/src/Text/Hakyll/Page.hs
@@ -120,7 +120,7 @@ readPageFromFile path = do
 
     -- Read file.
     contents <- liftIO $ readFile path
-    let sections = splitAtDelimiters $ lines $ contents
+    let sections = splitAtDelimiters $ lines contents
         context = concat $ zipWith ($) sectionFunctions sections
         page = fromContext $ M.fromList $
             [ ("url", url)
@@ -135,11 +135,11 @@ readPageFromFile path = do
 --   read it from the file given and store it in the cache.
 readPage :: FilePath -> Hakyll Page
 readPage path = do
-    cacheResult <- getFromCache path
-    case cacheResult of (Just page) -> return page
-                        Nothing     -> do page <- readPageFromFile path
-                                          storeInCache page path
-                                          return page
+    isCacheMoreRecent' <- isCacheMoreRecent path [path]
+    if isCacheMoreRecent' then getFromCache path
+                          else do page <- readPageFromFile path
+                                  storeInCache page path
+                                  return page
 
 -- Make pages renderable.
 instance Renderable Page where