@@ -8,7 +8,7 @@ module Hakyll.Core.Provider.MetadataCache
88
99--------------------------------------------------------------------------------
1010import qualified Data.Map as M
11−
11+import Control.Monad (unless)
1212
1313--------------------------------------------------------------------------------
1414import Hakyll.Core.Identifier
@@ -49,12 +49,8 @@ resourceInvalidateMetadataCache p r = do
4949--------------------------------------------------------------------------------
5050load :: Provider -> Identifier -> IO ()
5151load p r = do
52− mmd <- Store.get store mdk :: IO (Store.Result Metadata)
53− case mmd of
54− -- Already loaded
55− Store.Found _ -> return ()
56− -- Not yet loaded
57− _ -> do
52+ mmof <- Store.isMember store mdk
53+ unless mmof $ do
5854 (md, body) <- loadMetadata p r
5955 Store.set store mdk md
6056 Store.set store bk body