From d569ae515606d45b931201cc464fd49b111cb3c9 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Mon, 17 Jan 2011 10:03:26 +0100
Subject: Add utility mapA function

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

(limited to 'src/Hakyll/Core')

diff --git a/src/Hakyll/Core/Util/Arrow.hs b/src/Hakyll/Core/Util/Arrow.hs
index 1896e11..d97ba22 100644
--- a/src/Hakyll/Core/Util/Arrow.hs
+++ b/src/Hakyll/Core/Util/Arrow.hs
@@ -4,6 +4,7 @@ module Hakyll.Core.Util.Arrow
     ( constA
     , sequenceA
     , unitA
+    , mapA
     ) where
 
 import Control.Arrow (Arrow, (&&&), arr, (>>^))
@@ -23,3 +24,8 @@ sequenceA = foldl reduce $ constA []
 unitA :: Arrow a
       => a b ()
 unitA = constA ()
+
+mapA :: Arrow a
+     => (b -> c)
+     -> a [b] [c]
+mapA = arr . map
-- 
cgit v1.2.3