git.iko.soy/hakyll
on 030a5fe help sign in
hakyll/src/Hakyll/Core/Provider/MetadataCache.hs
69 lines 2.4 kB history raw
1--------------------------------------------------------------------------------
2module Hakyll.Core.Provider.MetadataCache
3 ( resourceMetadata
4 , resourceBody
5 , resourceInvalidateMetadataCache
6 ) where
9--------------------------------------------------------------------------------
10import qualified Data.Map as M
13--------------------------------------------------------------------------------
14import Hakyll.Core.Identifier
15import Hakyll.Core.Metadata
16import Hakyll.Core.Provider.Internal
17import Hakyll.Core.Provider.Metadata
18import qualified Hakyll.Core.Store as Store
21--------------------------------------------------------------------------------
22resourceMetadata :: Provider -> Identifier -> IO Metadata
23resourceMetadata p r
24 | not (resourceExists p r) = return M.empty
25 | otherwise = do
26 -- TODO keep time in md cache
27 load p r
28 Store.Found md <- Store.get (providerStore p)
29 [name, toFilePath r, "metadata"]
30 return md
33--------------------------------------------------------------------------------
34resourceBody :: Provider -> Identifier -> IO String
35resourceBody p r = do
36 load p r
37 Store.Found bd <- Store.get (providerStore p)
38 [name, toFilePath r, "body"]
39 maybe (resourceString p r) return bd
42--------------------------------------------------------------------------------
43resourceInvalidateMetadataCache :: Provider -> Identifier -> IO ()
44resourceInvalidateMetadataCache p r = do
45 Store.delete (providerStore p) [name, toFilePath r, "metadata"]
46 Store.delete (providerStore p) [name, toFilePath r, "body"]
49--------------------------------------------------------------------------------
50load :: Provider -> Identifier -> IO ()
51load 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
58 (md, body) <- loadMetadata p r
59 Store.set store mdk md
60 Store.set store bk body
61 where
62 store = providerStore p
63 mdk = [name, toFilePath r, "metadata"]
64 bk = [name, toFilePath r, "body"]
67--------------------------------------------------------------------------------
68name :: String
69name = "Hakyll.Core.Resource.Provider.MetadataCache"