1 files changed, 6 insertions, 0 deletions
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