diff options
author | Alexey Kreshchuk <akrsch@gmail.com> | 2013-10-16 01:39:04 +0400 |
---|---|---|
committer | Alexey Kreshchuk <akrsch@gmail.com> | 2013-10-16 01:39:04 +0400 |
commit | 712ffa39b5857fdc5cdae1db38a177267a430b11 (patch) | |
tree | b4b5f7c46f769dc176932894bbafe0878da99e3a /src/Hakyll/Core/Runtime.hs | |
parent | a6ae4eb99dd5f9957adc3b5fe4011e69b9681e4c (diff) | |
download | hakyll-712ffa39b5857fdc5cdae1db38a177267a430b11.tar.gz |
Track metadata dependencies
I had to prepend some Rules to global Rules set. This might be possible
to replaced by a correct Store.set call.
I also had to prepend some Compile rules.
Diffstat (limited to 'src/Hakyll/Core/Runtime.hs')
-rw-r--r-- | src/Hakyll/Core/Runtime.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Hakyll/Core/Runtime.hs b/src/Hakyll/Core/Runtime.hs index 824d11b..4ef30df 100644 --- a/src/Hakyll/Core/Runtime.hs +++ b/src/Hakyll/Core/Runtime.hs @@ -35,6 +35,7 @@ import qualified Hakyll.Core.Logger as Logger import Hakyll.Core.Provider import Hakyll.Core.Routes import Hakyll.Core.Rules.Internal +import Hakyll.Core.Rules.Default import Hakyll.Core.Store (Store) import qualified Hakyll.Core.Store as Store import Hakyll.Core.Util.File @@ -53,7 +54,7 @@ run config verbosity rules = do provider <- newProvider store (shouldIgnoreFile config) $ providerDirectory config Logger.message logger "Running rules..." - ruleSet <- runRules rules provider + ruleSet <- runRules (internalRules >> rules) provider -- Get old facts mOldFacts <- Store.get store factsKey @@ -186,7 +187,7 @@ chase trail id' config <- runtimeConfiguration <$> ask Logger.debug logger $ "Processing " ++ show id' - let compiler = todo M.! id' + let compiler = addMetadataDependencies >> todo M.! id' read' = CompilerRead { compilerConfig = config , compilerUnderlying = id' |