@@ -8,7 +8,7 @@ module Hakyll.Core.Provider.MetadataCache
9--------------------------------------------------------------------------------
9--------------------------------------------------------------------------------
10import qualified Data.Map as M
10import qualified Data.Map as M
11−
11+import Control.Monad (unless)
13--------------------------------------------------------------------------------
13--------------------------------------------------------------------------------
14import Hakyll.Core.Identifier
14import Hakyll.Core.Identifier
@@ -49,12 +49,8 @@ resourceInvalidateMetadataCache p r = do
49--------------------------------------------------------------------------------
49--------------------------------------------------------------------------------
50load :: Provider -> Identifier -> IO ()
50load :: Provider -> Identifier -> IO ()
51load p r = do
51load p r = do
52− mmd <- Store.get store mdk :: IO (Store.Result Metadata)
52+ mmof <- Store.isMember store mdk
53− case mmd of
53+ unless mmof $ do
55− Store.Found _ -> return ()
58 (md, body) <- loadMetadata p r
54 (md, body) <- loadMetadata p r
59 Store.set store mdk md
55 Store.set store mdk md
60 Store.set store bk body
56 Store.set store bk body