summaryrefslogtreecommitdiff
path: root/src/Hakyll/Core/Resource
diff options
context:
space:
mode:
authorJasper Van der Jeugt <jaspervdj@gmail.com>2011-04-06 14:40:36 +0200
committerJasper Van der Jeugt <jaspervdj@gmail.com>2011-04-06 14:40:36 +0200
commit901b672107ef681830f7c9013bba444eb6c90d84 (patch)
treebdff58a9253387bdb7796fb2ae6f6d8d4a53c3d2 /src/Hakyll/Core/Resource
parent80596b1f56b7d6f2d4ff64d566ae845b7c7a01f6 (diff)
downloadhakyll-901b672107ef681830f7c9013bba444eb6c90d84.tar.gz
Play with dependency analyzer
Diffstat (limited to 'src/Hakyll/Core/Resource')
-rw-r--r--src/Hakyll/Core/Resource/Provider.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Hakyll/Core/Resource/Provider.hs b/src/Hakyll/Core/Resource/Provider.hs
index 90e93f8..67299a6 100644
--- a/src/Hakyll/Core/Resource/Provider.hs
+++ b/src/Hakyll/Core/Resource/Provider.hs
@@ -56,8 +56,8 @@ resourceDigest provider = digest MD5 <=< resourceLazyByteString provider
-- | Check if a resource was modified
--
-resourceModified :: ResourceProvider -> Resource -> Store -> IO Bool
-resourceModified provider resource store = do
+resourceModified :: ResourceProvider -> Store -> Resource -> IO Bool
+resourceModified provider store resource = do
cache <- readMVar mvar
case M.lookup resource cache of
-- Already in the cache
@@ -65,7 +65,7 @@ resourceModified provider resource store = do
-- Not yet in the cache, check digests (if it exists)
Nothing -> do
m <- if resourceExists provider (unResource resource)
- then digestModified provider resource store
+ then digestModified provider store resource
else return False
modifyMVar_ mvar (return . M.insert resource m)
return m
@@ -74,8 +74,8 @@ resourceModified provider resource store = do
-- | Check if a resource digest was modified
--
-digestModified :: ResourceProvider -> Resource -> Store -> IO Bool
-digestModified provider resource store = do
+digestModified :: ResourceProvider -> Store -> Resource -> IO Bool
+digestModified provider store resource = do
-- Get the latest seen digest from the store
lastDigest <- storeGet store itemName $ unResource resource
-- Calculate the digest for the resource