From d0939102bf26ed81b4e57dc96f44e5330913ab6f Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Fri, 7 Jan 2011 19:17:14 +0100
Subject: Metacompilers now work, todo: cleanup

---
 src/Hakyll/Core/Compiler/Internal.hs | 6 ++++++
 1 file changed, 6 insertions(+)

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

diff --git a/src/Hakyll/Core/Compiler/Internal.hs b/src/Hakyll/Core/Compiler/Internal.hs
index 0642b85..938d81a 100644
--- a/src/Hakyll/Core/Compiler/Internal.hs
+++ b/src/Hakyll/Core/Compiler/Internal.hs
@@ -10,6 +10,7 @@ module Hakyll.Core.Compiler.Internal
     , runCompilerDependencies
     , fromJob
     , fromDependencies
+    , fromDependency
     ) where
 
 import Prelude hiding ((.), id)
@@ -101,3 +102,8 @@ fromJob = Compiler (return S.empty)
 fromDependencies :: (ResourceProvider -> [Identifier])
                  -> Compiler b b
 fromDependencies deps = Compiler (S.fromList . deps <$> ask) return
+
+-- | Wait until another compiler has finished before running this compiler
+--
+fromDependency :: Identifier -> Compiler a a
+fromDependency = fromDependencies . const . return
-- 
cgit v1.2.3