diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-04-06 14:40:36 +0200 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-04-06 14:40:36 +0200 |
commit | 901b672107ef681830f7c9013bba444eb6c90d84 (patch) | |
tree | bdff58a9253387bdb7796fb2ae6f6d8d4a53c3d2 /src/Hakyll/Core/Resource | |
parent | 80596b1f56b7d6f2d4ff64d566ae845b7c7a01f6 (diff) | |
download | hakyll-901b672107ef681830f7c9013bba444eb6c90d84.tar.gz |
Play with dependency analyzer
Diffstat (limited to 'src/Hakyll/Core/Resource')
-rw-r--r-- | src/Hakyll/Core/Resource/Provider.hs | 10 |
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 |