git.iko.soy/hakyll
on master help sign in
sequenceA was reversing the list
commit9badd09c910d4053470e52b1f44e9bb8d958da34 authorJasper Van der Jeugt <m@jaspervdj.be> dateSat 10 Dec 2011, 16:13 (15 years ago) parent8a40170
3 files changed+19−2
compare with master
unifiedsplit
src/Hakyll/Core/Util/Arrow.hs+2−2 tests/Hakyll/Core/Util/Arrow/Tests.hs+14 tests/TestSuite.hs+3
src/Hakyll/Core/Util/Arrow.hs+2−2
@@ -16,9 +16,9 @@ constA = arr . const
1616sequenceA :: Arrow a
1717 => [a b c]
1818 -> a b [c]
19−sequenceA = foldl reduce $ constA []
19+sequenceA = foldr reduce $ constA []
2020 where
21− reduce la xa = xa &&& la >>^ arr (uncurry (:))
21+ reduce xa la = xa &&& la >>^ arr (uncurry (:))
2222
2323unitA :: Arrow a
2424 => a b ()
tests/Hakyll/Core/Util/Arrow/Tests.hsnew file+14
@@ -0,0 +1,14 @@
1+module Hakyll.Core.Util.Arrow.Tests
2+ ( tests
3+ ) where
4+
5+import Test.Framework (Test)
6+import Test.HUnit ((@=?))
7+
8+import Hakyll.Core.Util.Arrow
9+import TestSuite.Util
10+
11+tests :: [Test]
12+tests = fromAssertions "sequenceA"
13+ [ [8, 20, 1] @=? sequenceA [(+ 4), (* 5), signum] (4 :: Int)
14+ ]
tests/TestSuite.hs+3
@@ -8,6 +8,7 @@ import qualified Hakyll.Core.Routes.Tests
88import qualified Hakyll.Core.Rules.Tests
99import qualified Hakyll.Core.Store.Tests
1010import qualified Hakyll.Core.UnixFilter.Tests
11+import qualified Hakyll.Core.Util.Arrow.Tests
1112import qualified Hakyll.Web.Page.Tests
1213import qualified Hakyll.Web.Page.Metadata.Tests
1314import qualified Hakyll.Web.Template.Tests
@@ -29,6 +30,8 @@ main = defaultMain
2930 Hakyll.Core.Store.Tests.tests
3031 , testGroup "Hakyll.Core.UnixFilter.Tests"
3132 Hakyll.Core.UnixFilter.Tests.tests
33+ , testGroup "Hakyll.Core.Util.Arrow.Tests"
34+ Hakyll.Core.Util.Arrow.Tests.tests
3235 , testGroup "Hakyll.Web.Page.Tests"
3336 Hakyll.Web.Page.Tests.tests
3437 , testGroup "Hakyll.Web.Page.Metadata.Tests"