9badd09 · hakyll · git.iko.soy

src/Hakyll/Core/Util/Arrow.hs+2−2

compare with master

unifiedsplit

@@ -16,9 +16,9 @@ constA = arr . const

16sequenceA :: Arrow a

17 => [a b c]

18 -> a b [c]

19−sequenceA = foldl reduce $ constA []

19+sequenceA = foldr reduce $ constA []

20 where

21− reduce la xa = xa &&& la >>^ arr (uncurry (:))

21+ reduce xa la = xa &&& la >>^ arr (uncurry (:))

22

23unitA :: Arrow a

24 => 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

8import qualified Hakyll.Core.Rules.Tests

9import qualified Hakyll.Core.Store.Tests

10import qualified Hakyll.Core.UnixFilter.Tests

11+import qualified Hakyll.Core.Util.Arrow.Tests

11import qualified Hakyll.Web.Page.Tests

12import qualified Hakyll.Web.Page.Tests

12import qualified Hakyll.Web.Page.Metadata.Tests

13import qualified Hakyll.Web.Page.Metadata.Tests

13import qualified Hakyll.Web.Template.Tests

14import qualified Hakyll.Web.Template.Tests

@@ -29,6 +30,8 @@ main = defaultMain

29 Hakyll.Core.Store.Tests.tests

30 Hakyll.Core.Store.Tests.tests

30 , testGroup "Hakyll.Core.UnixFilter.Tests"

31 , testGroup "Hakyll.Core.UnixFilter.Tests"

31 Hakyll.Core.UnixFilter.Tests.tests

32 Hakyll.Core.UnixFilter.Tests.tests

33+ , testGroup "Hakyll.Core.Util.Arrow.Tests"

34+ Hakyll.Core.Util.Arrow.Tests.tests

32 , testGroup "Hakyll.Web.Page.Tests"

35 , testGroup "Hakyll.Web.Page.Tests"

33 Hakyll.Web.Page.Tests.tests

36 Hakyll.Web.Page.Tests.tests

34 , testGroup "Hakyll.Web.Page.Metadata.Tests"

37 , testGroup "Hakyll.Web.Page.Metadata.Tests"