diff options
Diffstat (limited to 'src/Hakyll/Core')
| -rw-r--r-- | src/Hakyll/Core/Provider/MetadataCache.hs | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/src/Hakyll/Core/Provider/MetadataCache.hs b/src/Hakyll/Core/Provider/MetadataCache.hs index 03652e7..b813303 100644 --- a/src/Hakyll/Core/Provider/MetadataCache.hs +++ b/src/Hakyll/Core/Provider/MetadataCache.hs @@ -7,6 +7,10 @@ module Hakyll.Core.Provider.MetadataCache -------------------------------------------------------------------------------- +import qualified Data.Map as M + + +-------------------------------------------------------------------------------- import Hakyll.Core.Identifier import Hakyll.Core.Metadata import Hakyll.Core.Provider.Internal @@ -16,11 +20,13 @@ import qualified Hakyll.Core.Store as Store -------------------------------------------------------------------------------- resourceMetadata :: Provider -> Identifier -> IO Metadata -resourceMetadata p r = do - load p r - Store.Found md <- Store.get (providerStore p) - [name, toFilePath r, "metadata"] - return md +resourceMetadata p r + | not (resourceExists p r) = return M.empty + | otherwise = do + load p r + Store.Found md <- Store.get (providerStore p) + [name, toFilePath r, "metadata"] + return md -------------------------------------------------------------------------------- |