From 5b67f20eab333a0a63eddae93fa114d8f5158c61 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Fri, 31 Dec 2010 12:38:12 +0100 Subject: Prototype of the 'cached' arrow transformer --- src/Hakyll/Core/Compiler/Internal.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/Hakyll/Core/Compiler') diff --git a/src/Hakyll/Core/Compiler/Internal.hs b/src/Hakyll/Core/Compiler/Internal.hs index eee67ef..4209bdc 100644 --- a/src/Hakyll/Core/Compiler/Internal.hs +++ b/src/Hakyll/Core/Compiler/Internal.hs @@ -24,6 +24,7 @@ import Control.Arrow (Arrow, arr, first) import Hakyll.Core.Identifier import Hakyll.Core.CompiledItem import Hakyll.Core.ResourceProvider +import Hakyll.Core.Store -- | A set of dependencies -- @@ -40,6 +41,7 @@ data CompilerEnvironment = CompilerEnvironment , compilerResourceProvider :: ResourceProvider -- ^ Resource provider , compilerDependencyLookup :: DependencyLookup -- ^ Dependency lookup , compilerRoute :: Maybe FilePath -- ^ Site route + , compilerStore :: Store -- ^ Compiler store } -- | The compiler monad @@ -73,8 +75,9 @@ runCompilerJob :: Compiler () a -- ^ Compiler to run -> ResourceProvider -- ^ Resource provider -> DependencyLookup -- ^ Dependency lookup table -> Maybe FilePath -- ^ Route + -> Store -- ^ Store -> IO a -runCompilerJob compiler identifier provider lookup' route = +runCompilerJob compiler identifier provider lookup' route store = runReaderT (unCompilerM $ compilerJob compiler ()) env where env = CompilerEnvironment @@ -82,6 +85,7 @@ runCompilerJob compiler identifier provider lookup' route = , compilerResourceProvider = provider , compilerDependencyLookup = lookup' , compilerRoute = route + , compilerStore = store } runCompilerDependencies :: Compiler () a -- cgit v1.2.3