summaryrefslogtreecommitdiff
path: root/src/Hakyll/Core/Store.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Hakyll/Core/Store.hs')
-rw-r--r--src/Hakyll/Core/Store.hs20
1 files changed, 0 insertions, 20 deletions
diff --git a/src/Hakyll/Core/Store.hs b/src/Hakyll/Core/Store.hs
index 7e57df2..02b9b4e 100644
--- a/src/Hakyll/Core/Store.hs
+++ b/src/Hakyll/Core/Store.hs
@@ -5,7 +5,6 @@ module Hakyll.Core.Store
, makeStore
, storeSet
, storeGet
- , wasModified
) where
import Control.Applicative ((<$>))
@@ -16,7 +15,6 @@ import Data.Binary (Binary, encodeFile, decodeFile)
import Hakyll.Core.Identifier
import Hakyll.Core.Util.File
-import Hakyll.Core.ResourceProvider
-- | Data structure used for the store
--
@@ -53,21 +51,3 @@ storeGet store name identifier = do
else return Nothing
where
path = makePath store name identifier
-
--- | Check if a resource was modified
---
-wasModified :: Store -> ResourceProvider -> Identifier -> IO Bool
-wasModified store provider identifier = do
- -- Get the latest seen digest from the store
- lastDigest <- storeGet store itemName identifier
- -- Calculate the digest for the resource
- newDigest <- resourceDigest provider identifier
- -- Check digests
- if Just newDigest == lastDigest
- -- All is fine, not modified
- then return False
- -- Resource modified; store new digest
- else do storeSet store itemName identifier newDigest
- return True
- where
- itemName = "Hakyll.Core.Store.wasModified"