Add utility mapA function
commitd569ae515606d45b931201cc464fd49b111cb3c9
authorJasper Van der Jeugt <jaspervdj@gmail.com>
dateMon 17 Jan 2011, 10:03 (16 years ago)
parentb867e6f
src/Hakyll/Core/Util/Arrow.hs+6
@@ -4,6 +4,7 @@ module Hakyll.Core.Util.Arrow
44 ( constA
55 , sequenceA
66 , unitA
7+ , mapA
78 ) where
89
910import Control.Arrow (Arrow, (&&&), arr, (>>^))
@@ -23,3 +24,8 @@ sequenceA = foldl reduce $ constA []
2324unitA :: Arrow a
2425 => a b ()
2526unitA = constA ()
27+
28+mapA :: Arrow a
29+ => (b -> c)
30+ -> a [b] [c]
31+mapA = arr . map