From e49cd3b4b071c2e0cb3e553fe8272e7cd2843349 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Thu, 30 Dec 2010 21:18:55 +0100
Subject: Cleanup, split up page module

---
 src/Hakyll/Core/Compiler/Internal.hs | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'src/Hakyll/Core/Compiler')

diff --git a/src/Hakyll/Core/Compiler/Internal.hs b/src/Hakyll/Core/Compiler/Internal.hs
index fd37343..eee67ef 100644
--- a/src/Hakyll/Core/Compiler/Internal.hs
+++ b/src/Hakyll/Core/Compiler/Internal.hs
@@ -39,6 +39,7 @@ data CompilerEnvironment = CompilerEnvironment
     { compilerIdentifier       :: Identifier        -- ^ Target identifier
     , compilerResourceProvider :: ResourceProvider  -- ^ Resource provider
     , compilerDependencyLookup :: DependencyLookup  -- ^ Dependency lookup
+    , compilerRoute            :: Maybe FilePath    -- ^ Site route
     }
 
 -- | The compiler monad
@@ -67,18 +68,20 @@ instance Arrow Compiler where
 
 -- | Run a compiler, yielding the resulting target and it's dependencies
 --
-runCompilerJob :: Compiler () a
-               -> Identifier
-               -> ResourceProvider
-               -> DependencyLookup
+runCompilerJob :: Compiler () a     -- ^ Compiler to run
+               -> Identifier        -- ^ Target identifier
+               -> ResourceProvider  -- ^ Resource provider
+               -> DependencyLookup  -- ^ Dependency lookup table
+               -> Maybe FilePath    -- ^ Route
                -> IO a
-runCompilerJob compiler identifier provider lookup' =
+runCompilerJob compiler identifier provider lookup' route =
     runReaderT (unCompilerM $ compilerJob compiler ()) env
   where
     env = CompilerEnvironment
             { compilerIdentifier       = identifier
             , compilerResourceProvider = provider
             , compilerDependencyLookup = lookup'
+            , compilerRoute            = route
             }
 
 runCompilerDependencies :: Compiler () a
-- 
cgit v1.2.3