diff options
Diffstat (limited to 'src/Hakyll/Core/Compiler')
| -rw-r--r-- | src/Hakyll/Core/Compiler/Internal.hs | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/src/Hakyll/Core/Compiler/Internal.hs b/src/Hakyll/Core/Compiler/Internal.hs index 1796565..0642b85 100644 --- a/src/Hakyll/Core/Compiler/Internal.hs +++ b/src/Hakyll/Core/Compiler/Internal.hs @@ -3,7 +3,6 @@ {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Hakyll.Core.Compiler.Internal ( Dependencies - , DependencyLookup , CompilerEnvironment (..) , CompilerM (..) , Compiler (..) @@ -23,7 +22,6 @@ import Control.Category (Category, (.), id) import Control.Arrow (Arrow, arr, first) import Hakyll.Core.Identifier -import Hakyll.Core.CompiledItem import Hakyll.Core.ResourceProvider import Hakyll.Core.Store @@ -31,10 +29,6 @@ import Hakyll.Core.Store -- type Dependencies = Set Identifier --- | A lookup with which we can get dependencies --- -type DependencyLookup = Identifier -> Maybe CompiledItem - -- | Environment in which a compiler runs -- data CompilerEnvironment = CompilerEnvironment @@ -42,8 +36,6 @@ data CompilerEnvironment = CompilerEnvironment compilerIdentifier :: Identifier , -- | Resource provider compilerResourceProvider :: ResourceProvider - , -- | Dependency lookup - compilerDependencyLookup :: DependencyLookup , -- | Site route compilerRoute :: Maybe FilePath , -- | Compiler store @@ -81,18 +73,16 @@ instance Arrow Compiler where runCompilerJob :: Compiler () a -- ^ Compiler to run -> Identifier -- ^ Target identifier -> ResourceProvider -- ^ Resource provider - -> DependencyLookup -- ^ Dependency lookup table -> Maybe FilePath -- ^ Route -> Store -- ^ Store -> Bool -- ^ Was the resource modified? -> IO a -runCompilerJob compiler identifier provider lookup' route store modified = +runCompilerJob compiler identifier provider route store modified = runReaderT (unCompilerM $ compilerJob compiler ()) env where env = CompilerEnvironment { compilerIdentifier = identifier , compilerResourceProvider = provider - , compilerDependencyLookup = lookup' , compilerRoute = route , compilerStore = store , compilerResourceModified = modified |