diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-09 13:02:28 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-09 13:02:28 +0100 |
| commit | ee320c61668b532cafce7f4fd0a80ba43b3b512a (patch) | |
| tree | cff36ca13a54208f5f4d1fd96b3edea5133b66de /src/Hakyll/Core/Compiler.hs | |
| parent | f56eb538b6e366202f796c84eee46e620f519ff6 (diff) | |
| download | hakyll-ee320c61668b532cafce7f4fd0a80ba43b3b512a.tar.gz | |
Finish tags module
Diffstat (limited to 'src/Hakyll/Core/Compiler.hs')
| -rw-r--r-- | src/Hakyll/Core/Compiler.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Hakyll/Core/Compiler.hs b/src/Hakyll/Core/Compiler.hs index 53daa75..5249478 100644 --- a/src/Hakyll/Core/Compiler.hs +++ b/src/Hakyll/Core/Compiler.hs @@ -17,6 +17,7 @@ module Hakyll.Core.Compiler , requireAllA , cached , unsafeCompiler + , mapCompiler ) where import Prelude hiding ((.), id) @@ -187,3 +188,9 @@ cached name (Compiler d j) = Compiler d $ const $ CompilerM $ do unsafeCompiler :: (a -> IO b) -- ^ Function to lift -> Compiler a b -- ^ Resulting compiler unsafeCompiler f = fromJob $ CompilerM . liftIO . f + +-- | Map over a compiler +-- +mapCompiler :: Compiler a b + -> Compiler [a] [b] +mapCompiler (Compiler d j) = Compiler d $ mapM j |