2012-10-29 14:01:58 +00:00
|
|
|
--------------------------------------------------------------------------------
|
2012-11-08 11:45:26 +00:00
|
|
|
-- | This module provides an wrapper API around the file system which does some
|
|
|
|
-- caching.
|
2011-04-05 20:14:49 +00:00
|
|
|
module Hakyll.Core.Resource.Provider
|
2012-11-08 11:45:26 +00:00
|
|
|
( -- * Constructing resource providers
|
|
|
|
ResourceProvider
|
|
|
|
, newResourceProvider
|
|
|
|
|
|
|
|
-- * Querying resource properties
|
2012-08-07 21:10:18 +00:00
|
|
|
, resourceList
|
2010-12-31 12:28:31 +00:00
|
|
|
, resourceExists
|
2010-12-31 11:38:12 +00:00
|
|
|
, resourceModified
|
2012-11-08 11:45:26 +00:00
|
|
|
, resourceModificationTime
|
2012-10-29 14:01:58 +00:00
|
|
|
|
2012-11-08 11:45:26 +00:00
|
|
|
-- * Access to raw resource content
|
|
|
|
, resourceString
|
|
|
|
, resourceLBS
|
2011-02-11 16:52:19 +00:00
|
|
|
|
2012-11-08 11:45:26 +00:00
|
|
|
-- * Access to metadata and body content
|
|
|
|
, resourceMetadata
|
|
|
|
, resourceBody
|
|
|
|
) where
|
2010-12-31 12:28:31 +00:00
|
|
|
|
2012-10-29 14:01:58 +00:00
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
2012-11-08 11:45:26 +00:00
|
|
|
import Hakyll.Core.Resource
|
|
|
|
import qualified Hakyll.Core.Resource.MetadataCache as Internal
|
|
|
|
import Hakyll.Core.Resource.Modified
|
|
|
|
import Hakyll.Core.Resource.Provider.Internal
|
2010-12-31 11:38:12 +00:00
|
|
|
|
2012-10-29 14:01:58 +00:00
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
2012-11-08 11:45:26 +00:00
|
|
|
-- | Wrapper to ensure metadata cache is invalidated if necessary
|
|
|
|
resourceMetadata :: ResourceProvider -> Resource -> IO Metadata
|
|
|
|
resourceMetadata rp r = do
|
|
|
|
_ <- resourceModified rp r
|
|
|
|
Internal.resourceMetadata rp r
|
2011-04-06 07:30:24 +00:00
|
|
|
|
2012-10-29 14:01:58 +00:00
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
2012-11-08 11:45:26 +00:00
|
|
|
-- | Wrapper to ensure metadata cache is invalidated if necessary
|
|
|
|
resourceBody :: ResourceProvider -> Resource -> IO String
|
|
|
|
resourceBody rp r = do
|
|
|
|
_ <- resourceModified rp r
|
|
|
|
Internal.resourceBody rp r
|