2 files changed, 8 insertions, 10 deletions
diff --git a/src/Hakyll/Core/Provider.hs b/src/Hakyll/Core/Provider.hs
index 4dd8288..00b694d 100644
--- a/src/Hakyll/Core/Provider.hs
+++ b/src/Hakyll/Core/Provider.hs
@@ -23,7 +23,6 @@ module Hakyll.Core.Provider
 
 
 --------------------------------------------------------------------------------
-import           Control.Monad                      (forM_)
 import qualified Hakyll.Core.Provider.Internal      as Internal
 import qualified Hakyll.Core.Provider.MetadataCache as Internal
 import           Hakyll.Core.Store                  (Store)
@@ -37,9 +36,7 @@ newProvider :: Store                 -- ^ Store to use
             -> IO Internal.Provider  -- ^ Resulting provider
 newProvider store ignore directory = do
     -- Delete metadata cache where necessary
-    provider <- Internal.newProvider store ignore directory
-    forM_ (Internal.resourceList provider) $ \identifier ->
-        if Internal.resourceModified provider identifier
-            then Internal.resourceInvalidateMetadataCache provider identifier
-            else return ()
-    return provider
+    p <- Internal.newProvider store ignore directory
+    mapM_ (Internal.resourceInvalidateMetadataCache p) $
+        filter (Internal.resourceModified p) $ Internal.resourceList p
+    return p
diff --git a/src/Hakyll/Core/Provider/Internal.hs b/src/Hakyll/Core/Provider/Internal.hs
index 64b19c8..5c3d07e 100644
--- a/src/Hakyll/Core/Provider/Internal.hs
+++ b/src/Hakyll/Core/Provider/Internal.hs
@@ -172,12 +172,13 @@ resourceLBS p i = BL.readFile $ resourceFilePath p i
 -- | A resource is modified if it or its metadata has changed
 resourceModified :: Provider -> Identifier -> Bool
 resourceModified p r = case (ri, oldRi) of
-    (Nothing, _)      -> True
+    (Nothing, _)      -> False
     (Just _, Nothing) -> True
     (Just n, Just o)  -> resourceInfoModified n > resourceInfoModified o
   where
-    ri    = M.lookup (setVersion Nothing r) (providerFiles p)
-    oldRi = ri >>= resourceInfoMetadata >>= flip M.lookup (providerFiles p)
+    normal = setVersion Nothing r
+    ri     = M.lookup normal (providerFiles p)
+    oldRi  = M.lookup normal (providerOldFiles p)
 
 
 --------------------------------------------------------------------------------