@@ -15,89 +15,47 @@ class KleisliTests extends CatsSuite {
1515 implicit def kleisliEq [F [_], A , B ](implicit A : Arbitrary [A ], FB : Eq [F [B ]]): Eq [Kleisli [F , A , B ]] =
1616 Eq .by[Kleisli [F , A , B ], A => F [B ]](_.run)
1717
18- {
19- implicit val kleisliArrow = Kleisli .kleisliArrow[Option ]
20- checkAll(" Kleisli[Option, Int, Int]" , ArrowTests [Kleisli [Option , ? , ? ]].arrow[Int , Int , Int , Int , Int , Int ])
21- checkAll(" Arrow[Kleisli[Option, ?, ?]]" , SerializableTests .serializable(Arrow [Kleisli [Option , ? , ? ]]))
22- }
18+ checkAll(" Kleisli[Option, Int, Int]" , ArrowTests [Kleisli [Option , ? , ? ]].arrow[Int , Int , Int , Int , Int , Int ])
19+ checkAll(" Arrow[Kleisli[Option, ?, ?]]" , SerializableTests .serializable(Arrow [Kleisli [Option , ? , ? ]]))
2320
24- {
25- implicit val kleisliChoice = Kleisli .kleisliChoice[Option ]
26- checkAll(" Kleisli[Option, Int, Int]" , ChoiceTests [Kleisli [Option , ? , ? ]].choice[Int , Int , Int , Int ])
27- checkAll(" Choice[Kleisli[Option, ?, ?]]" , SerializableTests .serializable(Choice [Kleisli [Option , ? , ? ]]))
28- }
21+ checkAll(" Kleisli[Option, Int, Int]" , ChoiceTests [Kleisli [Option , ? , ? ]].choice[Int , Int , Int , Int ])
22+ checkAll(" Choice[Kleisli[Option, ?, ?]]" , SerializableTests .serializable(Choice [Kleisli [Option , ? , ? ]]))
2923
30- {
31- implicit val kleisliMonadReader = Kleisli .kleisliMonadReader[Option , Int ]
32- checkAll(" Kleisli[Option, Int, Int]" , MonadReaderTests [Kleisli [Option , Int , ? ], Int ].monadReader[Int , Int , Int ])
33- checkAll(" MonadReader[Kleisli[Option, ?, ?], Int]" , SerializableTests .serializable(MonadReader [Kleisli [Option , Int , ? ], Int ]))
34- }
24+ checkAll(" Kleisli[Option, Int, Int]" , MonadReaderTests [Kleisli [Option , Int , ? ], Int ].monadReader[Int , Int , Int ])
25+ checkAll(" MonadReader[Kleisli[Option, ?, ?], Int]" , SerializableTests .serializable(MonadReader [Kleisli [Option , Int , ? ], Int ]))
3526
36- {
37- implicit val kleisliSplit = Kleisli .kleisliSplit[Option ]
38- checkAll(" Kleisli[Option, Int, Int]" , SplitTests [Kleisli [Option , ? , ? ]].split[Int , Int , Int , Int , Int , Int ])
39- checkAll(" Split[Kleisli[Option, Int, ?]]" , SerializableTests .serializable(Split [Kleisli [Option , ? , ? ]]))
40- }
27+ checkAll(" Kleisli[Option, Int, Int]" , SplitTests [Kleisli [Option , ? , ? ]].split[Int , Int , Int , Int , Int , Int ])
28+ checkAll(" Split[Kleisli[Option, Int, ?]]" , SerializableTests .serializable(Split [Kleisli [Option , ? , ? ]]))
4129
42- {
43- implicit val kleisliStrong = Kleisli .kleisliStrong[Option ]
44- checkAll(" Kleisli[Option, Int, Int]" , StrongTests [Kleisli [Option , ? , ? ]].strong[Int , Int , Int , Int , Int , Int ])
45- checkAll(" Strong[Kleisli[Option, ?, ?]]" , SerializableTests .serializable(Strong [Kleisli [Option , ? , ? ]]))
46- }
30+ checkAll(" Kleisli[Option, Int, Int]" , StrongTests [Kleisli [Option , ? , ? ]].strong[Int , Int , Int , Int , Int , Int ])
31+ checkAll(" Strong[Kleisli[Option, ?, ?]]" , SerializableTests .serializable(Strong [Kleisli [Option , ? , ? ]]))
4732
48- {
49- implicit val kleisliFlatMap = Kleisli .kleisliFlatMap[Option , Int ]
50- checkAll(" Kleisli[Option, Int, Int]" , FlatMapTests [Kleisli [Option , Int , ? ]].flatMap[Int , Int , Int ])
51- checkAll(" FlatMap[Kleisli[Option, Int, ?]]" , SerializableTests .serializable(FlatMap [Kleisli [Option , Int , ? ]]))
52- }
33+ checkAll(" Kleisli[Option, Int, Int]" , FlatMapTests [Kleisli [Option , Int , ? ]].flatMap[Int , Int , Int ])
34+ checkAll(" FlatMap[Kleisli[Option, Int, ?]]" , SerializableTests .serializable(FlatMap [Kleisli [Option , Int , ? ]]))
5335
54- {
55- implicit val kleisliApplicative = Kleisli .kleisliApplicative[Option , Int ]
56- checkAll(" Kleisli[Option, Int, Int]" , ApplicativeTests [Kleisli [Option , Int , ? ]].applicative[Int , Int , Int ])
57- checkAll(" Applicative[Kleisli[Option, Int, ?]]" , SerializableTests .serializable(Applicative [Kleisli [Option , Int , ? ]]))
58- }
36+ checkAll(" Kleisli[Option, Int, Int]" , ApplicativeTests [Kleisli [Option , Int , ? ]].applicative[Int , Int , Int ])
37+ checkAll(" Applicative[Kleisli[Option, Int, ?]]" , SerializableTests .serializable(Applicative [Kleisli [Option , Int , ? ]]))
5938
60- {
61- implicit val kleisliApply = Kleisli .kleisliApply[Option , Int ]
62- checkAll(" Kleisli[Option, Int, Int]" , ApplyTests [Kleisli [Option , Int , ? ]].apply[Int , Int , Int ])
63- checkAll(" Apply[Kleisli[Option, Int, ?]]" , SerializableTests .serializable(Apply [Kleisli [Option , Int , ? ]]))
64- }
39+ checkAll(" Kleisli[Option, Int, Int]" , ApplyTests [Kleisli [Option , Int , ? ]].apply[Int , Int , Int ])
40+ checkAll(" Apply[Kleisli[Option, Int, ?]]" , SerializableTests .serializable(Apply [Kleisli [Option , Int , ? ]]))
6541
66- {
67- implicit val kleisliFunctor = Kleisli .kleisliFunctor[Option , Int ]
68- checkAll(" Kleisli[Option, Int, Int]" , FunctorTests [Kleisli [Option , Int , ? ]].functor[Int , Int , Int ])
69- checkAll(" Functor[Kleisli[Option, Int, ?]]" , SerializableTests .serializable(Functor [Kleisli [Option , Int , ? ]]))
70- }
42+ checkAll(" Kleisli[Option, Int, Int]" , FunctorTests [Kleisli [Option , Int , ? ]].functor[Int , Int , Int ])
43+ checkAll(" Functor[Kleisli[Option, Int, ?]]" , SerializableTests .serializable(Functor [Kleisli [Option , Int , ? ]]))
7144
72- {
73- implicit val kleisliMonoid = Kleisli .kleisliMonoid[Option , Int , String ]
74- checkAll(" Kleisli[Option, Int, String]" , GroupLaws [Kleisli [Option , Int , String ]].monoid)
75- checkAll(" Monoid[Kleisli[Option, Int, String]]" , SerializableTests .serializable(kleisliMonoid))
76- }
45+ checkAll(" Kleisli[Option, Int, String]" , GroupLaws [Kleisli [Option , Int , String ]].monoid)
46+ checkAll(" Monoid[Kleisli[Option, Int, String]]" , SerializableTests .serializable(Monoid [Kleisli [Option , Int , String ]]))
7747
78- {
79- implicit val kleisliSemigroup = Kleisli .kleisliSemigroup[Option , Int , String ]
80- checkAll(" Kleisli[Option, Int, String]" , GroupLaws [Kleisli [Option , Int , String ]].semigroup)
81- checkAll(" Semigroup[Kleisli[Option, Int, String]]" , SerializableTests .serializable(kleisliSemigroup))
82- }
48+ checkAll(" Kleisli[Option, Int, String]" , GroupLaws [Kleisli [Option , Int , String ]].semigroup)
49+ checkAll(" Semigroup[Kleisli[Option, Int, String]]" , SerializableTests .serializable(Semigroup [Kleisli [Option , Int , String ]]))
8350
84- {
85- implicit val kleisliMonoidK = Kleisli .kleisliMonoidK[Option ]
86- checkAll(" Kleisli[Option, Int, Int]" , MonoidKTests [Lambda [A => Kleisli [Option , A , A ]]].monoidK[Int ])
87- checkAll(" MonoidK[Lambda[A => Kleisli[Option, A, A]]]" , SerializableTests .serializable(kleisliMonoidK))
88- }
51+ checkAll(" Kleisli[Option, Int, Int]" , MonoidKTests [Lambda [A => Kleisli [Option , A , A ]]].monoidK[Int ])
52+ checkAll(" MonoidK[Lambda[A => Kleisli[Option, A, A]]]" , SerializableTests .serializable(MonoidK [Lambda [A => Kleisli [Option , A , A ]]]))
8953
90- {
91- implicit val kleisliSemigroupK = Kleisli .kleisliSemigroupK[Option ]
92- checkAll(" Kleisli[Option, Int, Int]" , SemigroupKTests [Lambda [A => Kleisli [Option , A , A ]]].semigroupK[Int ])
93- checkAll(" SemigroupK[Lambda[A => Kleisli[Option, A, A]]]" , SerializableTests .serializable(kleisliSemigroupK))
94- }
54+ checkAll(" Kleisli[Option, Int, Int]" , SemigroupKTests [Lambda [A => Kleisli [Option , A , A ]]].semigroupK[Int ])
55+ checkAll(" SemigroupK[Lambda[A => Kleisli[Option, A, A]]]" , SerializableTests .serializable(SemigroupK [Lambda [A => Kleisli [Option , A , A ]]]))
9556
96- {
97- implicit val kleisliContravariant = Kleisli .kleisliContravariant[Option , Int ]
98- checkAll(" Kleisli[Option, ?, Int]" , ContravariantTests [Kleisli [Option , ? , Int ]].contravariant[Int , Int , Int ])
99- checkAll(" Contravariant[Kleisli[Option, ?, Int]]" , SerializableTests .serializable(kleisliContravariant))
100- }
57+ checkAll(" Kleisli[Option, ?, Int]" , ContravariantTests [Kleisli [Option , ? , Int ]].contravariant[Int , Int , Int ])
58+ checkAll(" Contravariant[Kleisli[Option, ?, Int]]" , SerializableTests .serializable(Contravariant [Kleisli [Option , ? , Int ]]))
10159
10260 test(" local composes functions" ) {
10361 forAll { (f : Int => Option [String ], g : Int => Int , i : Int ) =>
0 commit comments