diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-01-03 23:24:22 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-01-03 23:24:22 +0100 |
| commit | e395b0af9a969b8a1d93ad0d9f0554841beb9298 (patch) | |
| tree | e91c16f909105c60dae66734ceac9e7c29b27f58 /src/Hakyll/Core/Run.hs | |
| parent | 2ceb5f59d0728c380ad7b4f319a9282741e715b9 (diff) | |
| download | hakyll-e395b0af9a969b8a1d93ad0d9f0554841beb9298.tar.gz | |
Store result automatically using runCompiler
Diffstat (limited to 'src/Hakyll/Core/Run.hs')
| -rw-r--r-- | src/Hakyll/Core/Run.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/Hakyll/Core/Run.hs b/src/Hakyll/Core/Run.hs index e9ec47e..c5e6489 100644 --- a/src/Hakyll/Core/Run.hs +++ b/src/Hakyll/Core/Run.hs @@ -91,8 +91,8 @@ hakyllWith rules provider store = do let isModified = id' `S.member` modified' -- Run the compiler - compiled <- runCompilerJob comp id' provider (dependencyLookup map') - url store isModified + compiled <- runCompiler comp id' provider (dependencyLookup map') + url store isModified putStrLn $ "Generated target: " ++ show id' case url of @@ -103,9 +103,6 @@ hakyllWith rules provider store = do makeDirectories path write path compiled - -- Store it in the cache - storeResult store id' compiled - putStrLn "" return $ M.insert id' compiled map' |