From 4cb6f9241435fae7a23a7f9fbbdab99e65285eff Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Fri, 9 Nov 2012 18:13:51 +0100 Subject: Rewrite template application --- 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 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 -------------------------------------------------------------------------------- @@ -138,6 +139,11 @@ instance ArrowChoice Compiler where Right r -> Right <$> return r +-------------------------------------------------------------------------------- +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 -- cgit v1.2.3