From 730eebe9894e73b7e86a6e5a7546ab5b2484c65d Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Fri, 25 Feb 2011 14:17:30 +0100
Subject: The dependency analyzer now knows a little more

---
 src/Hakyll/Core/Compiler.hs          |  2 +-
 src/Hakyll/Core/Compiler/Internal.hs | 28 +++++++++++++++++++++++-----
 src/Hakyll/Core/Run.hs               |  2 +-
 3 files changed, 25 insertions(+), 7 deletions(-)

(limited to 'src/Hakyll')

diff --git a/src/Hakyll/Core/Compiler.hs b/src/Hakyll/Core/Compiler.hs
index e4922dd..908cb55 100644
--- a/src/Hakyll/Core/Compiler.hs
+++ b/src/Hakyll/Core/Compiler.hs
@@ -225,7 +225,7 @@ requireA identifier = (id &&& require_ identifier >>>)
 requireAll_ :: (Binary a, Typeable a, Writable a)
             => Pattern
             -> Compiler b [a]
-requireAll_ pattern = fromDependencies getDeps >>> fromJob requireAll_'
+requireAll_ pattern = fromDependencies (const getDeps) >>> fromJob requireAll_'
   where
     getDeps = matches pattern . map unResource . resourceList
     requireAll_' = const $ CompilerM $ do
diff --git a/src/Hakyll/Core/Compiler/Internal.hs b/src/Hakyll/Core/Compiler/Internal.hs
index 30a391f..d37c7ef 100644
--- a/src/Hakyll/Core/Compiler/Internal.hs
+++ b/src/Hakyll/Core/Compiler/Internal.hs
@@ -32,6 +32,15 @@ import Hakyll.Core.Logger
 --
 type Dependencies = Set Identifier
 
+-- | Environment in which the dependency analyzer runs
+--
+data DependencyEnvironment = DependencyEnvironment
+    { -- | Target identifier
+      dependencyIdentifier       :: Identifier
+    , -- | Resource provider
+      dependencyResourceProvider :: ResourceProvider
+    }
+
 -- | Environment in which a compiler runs
 --
 data CompilerEnvironment = CompilerEnvironment
@@ -58,7 +67,7 @@ newtype CompilerM a = CompilerM
 -- | The compiler arrow
 --
 data Compiler a b = Compiler
-    { compilerDependencies :: Reader ResourceProvider Dependencies
+    { compilerDependencies :: Reader DependencyEnvironment Dependencies
     , compilerJob          :: a -> CompilerM b
     }
 
@@ -109,19 +118,28 @@ runCompilerJob compiler identifier provider route store modified logger =
             }
 
 runCompilerDependencies :: Compiler () a
+                        -> Identifier
                         -> ResourceProvider
                         -> Dependencies
-runCompilerDependencies compiler = runReader (compilerDependencies compiler)
+runCompilerDependencies compiler identifier provider =
+    runReader (compilerDependencies compiler) env
+  where
+    env = DependencyEnvironment
+            { dependencyIdentifier       = identifier
+            , dependencyResourceProvider = provider
+            }
 
 fromJob :: (a -> CompilerM b)
         -> Compiler a b
 fromJob = Compiler (return S.empty)
 
-fromDependencies :: (ResourceProvider -> [Identifier])
+fromDependencies :: (Identifier -> ResourceProvider -> [Identifier])
                  -> Compiler b b
-fromDependencies deps = Compiler (S.fromList . deps <$> ask) return
+fromDependencies collectDeps = flip Compiler return $ do
+    DependencyEnvironment identifier provider <- ask
+    return $ S.fromList $ collectDeps identifier provider
 
 -- | Wait until another compiler has finished before running this compiler
 --
 fromDependency :: Identifier -> Compiler a a
-fromDependency = fromDependencies . const . return
+fromDependency = fromDependencies . const . const . return
diff --git a/src/Hakyll/Core/Run.hs b/src/Hakyll/Core/Run.hs
index 42db80a..09864be 100644
--- a/src/Hakyll/Core/Run.hs
+++ b/src/Hakyll/Core/Run.hs
@@ -118,7 +118,7 @@ addNewCompilers oldCompilers newCompilers = Runtime $ do
 
         -- Get all dependencies for the compilers
         dependencies = flip map compilers $ \(id', compiler) ->
-            let deps = runCompilerDependencies compiler provider
+            let deps = runCompilerDependencies compiler id' provider
             in (id', deps)
 
         -- Create a compiler map (Id -> Compiler)
-- 
cgit v1.2.3