From 9badd09c910d4053470e52b1f44e9bb8d958da34 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Sat, 10 Dec 2011 16:13:22 +0100
Subject: sequenceA was reversing the list

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

(limited to 'src/Hakyll/Core')

diff --git a/src/Hakyll/Core/Util/Arrow.hs b/src/Hakyll/Core/Util/Arrow.hs
index 1896e11..f46d083 100644
--- a/src/Hakyll/Core/Util/Arrow.hs
+++ b/src/Hakyll/Core/Util/Arrow.hs
@@ -16,9 +16,9 @@ constA = arr . const
 sequenceA :: Arrow a
           => [a b c]
           -> a b [c]
-sequenceA = foldl reduce $ constA []
+sequenceA = foldr reduce $ constA []
   where
-    reduce la xa = xa &&& la >>^ arr (uncurry (:))
+    reduce xa la = xa &&& la >>^ arr (uncurry (:))
 
 unitA :: Arrow a
       => a b ()
-- 
cgit v1.2.3