diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2013-05-04 06:14:19 -0700 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2013-05-04 06:14:19 -0700 |
| commit | 3ac3037ec9f93a7bd368e4a135ce65d7590c7f37 (patch) | |
| tree | bfee8395df134a5263e6512a196bb42914f90948 /src/Hakyll/Core/Provider | |
| parent | 4100083709a894225717dbe3068f73057e908dd6 (diff) | |
| parent | f4ee3e7fcb0817098643c6b34cab92466584680a (diff) | |
| download | hakyll-3ac3037ec9f93a7bd368e4a135ce65d7590c7f37.tar.gz | |
Merge pull request #142 from justnoxx/master
Added isMember function.
Diffstat (limited to 'src/Hakyll/Core/Provider')
| -rw-r--r-- | src/Hakyll/Core/Provider/MetadataCache.hs | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/src/Hakyll/Core/Provider/MetadataCache.hs b/src/Hakyll/Core/Provider/MetadataCache.hs index 077bad2..031960c 100644 --- a/src/Hakyll/Core/Provider/MetadataCache.hs +++ b/src/Hakyll/Core/Provider/MetadataCache.hs @@ -8,7 +8,7 @@ module Hakyll.Core.Provider.MetadataCache -------------------------------------------------------------------------------- import qualified Data.Map as M - +import Control.Monad (unless) -------------------------------------------------------------------------------- import Hakyll.Core.Identifier @@ -49,12 +49,8 @@ resourceInvalidateMetadataCache p r = do -------------------------------------------------------------------------------- load :: Provider -> Identifier -> IO () load p r = do - mmd <- Store.get store mdk :: IO (Store.Result Metadata) - case mmd of - -- Already loaded - Store.Found _ -> return () - -- Not yet loaded - _ -> do + mmof <- Store.isMember store mdk + unless mmof $ do (md, body) <- loadMetadata p r Store.set store mdk md Store.set store bk body |