From b5adcb69d1cd26e613c5c56c85307050bb8297cf Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Tue, 20 Nov 2012 11:50:22 +0100 Subject: Update more tests --- src/Hakyll/Core/Util/Arrow.hs | 40 ---------------------------------------- 1 file changed, 40 deletions(-) delete mode 100644 src/Hakyll/Core/Util/Arrow.hs (limited to 'src/Hakyll/Core/Util/Arrow.hs') diff --git a/src/Hakyll/Core/Util/Arrow.hs b/src/Hakyll/Core/Util/Arrow.hs deleted file mode 100644 index 96a5e09..0000000 --- a/src/Hakyll/Core/Util/Arrow.hs +++ /dev/null @@ -1,40 +0,0 @@ --------------------------------------------------------------------------------- --- | Various arrow utility functions -module Hakyll.Core.Util.Arrow - ( ArrowMap (..) - , constA - , sequenceA - , unitA - ) where - - --------------------------------------------------------------------------------- -import Control.Arrow (Arrow, ArrowChoice, arr, (&&&), (>>^)) - - --------------------------------------------------------------------------------- --- | Additional arrow typeclass for performance reasons. -class ArrowChoice a => ArrowMap a where - mapA :: a b c -> a [b] [c] - - --------------------------------------------------------------------------------- -instance ArrowMap (->) where - mapA = map - - --------------------------------------------------------------------------------- -constA :: Arrow a => c -> a b c -constA = arr . const - - --------------------------------------------------------------------------------- -sequenceA :: Arrow a => [a b c] -> a b [c] -sequenceA = foldr reduce $ constA [] - where - reduce xa la = xa &&& la >>^ arr (uncurry (:)) - - --------------------------------------------------------------------------------- -unitA :: Arrow a => a b () -unitA = constA () -- cgit v1.2.3