70fa0c2 · hakyll · git.iko.soy

git.iko.soy/hakyll

on master help sign in

Add waitFor directive

70fa0c2Jasper Van der Jeugt16 years ago

src/Hakyll/Core/Compiler.hs+7−1

compare with master

unifiedsplit

@@ -7,6 +7,7 @@ module Hakyll.Core.Compiler

7 , getIdentifier

8 , getRoute

9 , getResourceString

10+ , waitFor

10 , require

11 , require

11 , requireAll

12 , requireAll

12 , cached

13 , cached

@@ -82,6 +83,11 @@ getDependency identifier = CompilerM $ do

82 ++ show identifier

83 ++ show identifier

83 ++ " not found in the cache, the cache might be corrupted"

84 ++ " not found in the cache, the cache might be corrupted"

86+-- | Wait until another compiler has finished before running this compiler

87+--

88+waitFor :: Identifier -> Compiler a a

89+waitFor = fromDependencies . const . return

90+

85-- | Require another target. Using this function ensures automatic handling of

91-- | Require another target. Using this function ensures automatic handling of

86-- dependencies

92-- dependencies

87--

93--

@@ -90,7 +96,7 @@ require :: (Binary a, Typeable a, Writable a)

90 -> (b -> a -> c)

96 -> (b -> a -> c)

91 -> Compiler b c

97 -> Compiler b c

92require identifier f =

98require identifier f =

93− fromDependencies (const [identifier]) >>> fromJob require'

99+ waitFor identifier >>> fromJob require'

94 where

100 where

95 require' x = do

101 require' x = do

96 y <- getDependency identifier

102 y <- getDependency identifier