From 67ecff7ad383640bc73d64edc2506c7cc648a134 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Mon, 19 Jun 2017 11:57:23 +0200
Subject: Move src/ to lib/, put Init.hs in src/

---
 lib/Hakyll/Core/Provider.hs | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 lib/Hakyll/Core/Provider.hs

(limited to 'lib/Hakyll/Core/Provider.hs')

diff --git a/lib/Hakyll/Core/Provider.hs b/lib/Hakyll/Core/Provider.hs
new file mode 100644
index 0000000..384f5b1
--- /dev/null
+++ b/lib/Hakyll/Core/Provider.hs
@@ -0,0 +1,43 @@
+--------------------------------------------------------------------------------
+-- | This module provides an wrapper API around the file system which does some
+-- caching.
+module Hakyll.Core.Provider
+    ( -- * Constructing resource providers
+      Internal.Provider
+    , newProvider
+
+      -- * Querying resource properties
+    , Internal.resourceList
+    , Internal.resourceExists
+    , Internal.resourceFilePath
+    , Internal.resourceModified
+    , Internal.resourceModificationTime
+
+      -- * Access to raw resource content
+    , Internal.resourceString
+    , Internal.resourceLBS
+
+      -- * Access to metadata and body content
+    , Internal.resourceMetadata
+    , Internal.resourceBody
+    ) where
+
+
+--------------------------------------------------------------------------------
+import qualified Hakyll.Core.Provider.Internal      as Internal
+import qualified Hakyll.Core.Provider.MetadataCache as Internal
+import           Hakyll.Core.Store                  (Store)
+
+
+--------------------------------------------------------------------------------
+-- | Create a resource provider
+newProvider :: Store                   -- ^ Store to use
+            -> (FilePath -> IO Bool)   -- ^ Should we ignore this file?
+            -> FilePath                -- ^ Search directory
+            -> IO Internal.Provider    -- ^ Resulting provider
+newProvider store ignore directory = do
+    -- Delete metadata cache where necessary
+    p <- Internal.newProvider store ignore directory
+    mapM_ (Internal.resourceInvalidateMetadataCache p) $
+        filter (Internal.resourceModified p) $ Internal.resourceList p
+    return p
-- 
cgit v1.2.3