diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-09 18:13:51 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-09 18:13:51 +0100 |
| commit | 4cb6f9241435fae7a23a7f9fbbdab99e65285eff (patch) | |
| tree | 462f951e02579518958e15accb95be5d6d11abba /src/Hakyll/Core/Compiler/Internal.hs | |
| parent | 2834fd94945ad20bf19c39957cddfdf858c0ba22 (diff) | |
| download | hakyll-4cb6f9241435fae7a23a7f9fbbdab99e65285eff.tar.gz | |
Rewrite template application
Diffstat (limited to 'src/Hakyll/Core/Compiler/Internal.hs')
| -rw-r--r-- | src/Hakyll/Core/Compiler/Internal.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Hakyll/Core/Compiler/Internal.hs b/src/Hakyll/Core/Compiler/Internal.hs index acdfe80..2a3342f 100644 --- a/src/Hakyll/Core/Compiler/Internal.hs +++ b/src/Hakyll/Core/Compiler/Internal.hs @@ -38,6 +38,7 @@ import Hakyll.Core.Logger import Hakyll.Core.ResourceProvider import Hakyll.Core.Routes import Hakyll.Core.Store +import Hakyll.Core.Util.Arrow -------------------------------------------------------------------------------- @@ -139,6 +140,11 @@ instance ArrowChoice Compiler where -------------------------------------------------------------------------------- +instance ArrowMap Compiler where + mapA (Compiler d j) = Compiler d $ mapM j + + +-------------------------------------------------------------------------------- -- | Run a compiler, yielding the resulting target runCompilerJob :: Compiler () a -- ^ Compiler to run -> Identifier () -- ^ Target identifier |