diff options
Diffstat (limited to 'src/Hakyll/Core/Store.hs')
-rw-r--r-- | src/Hakyll/Core/Store.hs | 20 |
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" |