diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-02-10 22:15:34 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-02-10 22:15:34 +0100 |
| commit | 8c575ae52115f09d5b6e53ed409d934f5168de59 (patch) | |
| tree | f364cdc8a7667decc1474dfd5eda3cd56f217edf /src/Hakyll/Core/Provider | |
| parent | 46168382f170b4559ce266b8257b7b7988589ed1 (diff) | |
| download | hakyll-8c575ae52115f09d5b6e53ed409d934f5168de59.tar.gz | |
Fix apparent remaining provider rewrite issues
Diffstat (limited to 'src/Hakyll/Core/Provider')
| -rw-r--r-- | src/Hakyll/Core/Provider/Internal.hs | 7 |
1 files changed, 4 insertions, 3 deletions
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) -------------------------------------------------------------------------------- |