diff options
Diffstat (limited to 'src/Hakyll/Core/Util')
-rw-r--r-- | src/Hakyll/Core/Util/Arrow.hs | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/src/Hakyll/Core/Util/Arrow.hs b/src/Hakyll/Core/Util/Arrow.hs index dfcb7da..1896e11 100644 --- a/src/Hakyll/Core/Util/Arrow.hs +++ b/src/Hakyll/Core/Util/Arrow.hs @@ -4,14 +4,9 @@ module Hakyll.Core.Util.Arrow ( constA , sequenceA , unitA - , mapA ) where -import Prelude hiding (id) -import Control.Category (id) -import Control.Arrow ( Arrow, ArrowChoice, (&&&), arr, (>>^), (|||) - , (>>>), (***) - ) +import Control.Arrow (Arrow, (&&&), arr, (>>^)) constA :: Arrow a => c @@ -28,11 +23,3 @@ sequenceA = foldl reduce $ constA [] unitA :: Arrow a => a b () unitA = constA () - -mapA :: ArrowChoice a - => a b c - -> a [b] [c] -mapA f = arr listEither >>> id ||| (f *** mapA f >>> arr (uncurry (:))) - where - listEither [] = Left [] - listEither (x : xs) = Right (x, xs) |