@@ -476,9 +476,9 @@ tl_elemIndex c = (fmap fromIntegral . L.elemIndex c) `eqP` TL.elemIndex c
476476sf_elemIndices p c= (L.elemIndices c . L.filter p) `eqP` (S.elemIndices c . S.filter p)
477477t_elemIndices c = L.elemIndices c`eqP` T.elemIndices c
478478tl_elemIndices c = (fmap fromIntegral . L.elemIndices c) `eqP` TL.elemIndices c
479−sf_count p c = (L.length . L.elemIndices c . L.filter p) `eqP` (S.countChar c . S.filter p)
480−t_count c = (L.length . L.elemIndices c) `eqP` T.countChar c
481−tl_count c = (fromIntegral . L.length . L.elemIndices c) `eqP` TL.countChar c
479+sf_countChar p c = (L.length . L.elemIndices c . L.filter p) `eqP` (S.countChar c . S.filter p)
480+t_countChar c = (L.length . L.elemIndices c) `eqP` T.countChar c
481+tl_countChar c = (fromIntegral . L.length . L.elemIndices c) `eqP` TL.countChar c
482482t_zip s = L.zip s `eqP` T.zip (packS s)
483483tl_zip s = L.zip s `eqP` TL.zip (packS s)
484484sf_zipWith p c s = (L.zipWith c (L.filter p s) . L.filter p) `eqP` (unpackS . S.zipWith c (S.filter p $ packS s) . S.filter p)
@@ -834,9 +834,9 @@ tests = [
834834 testProperty "sf_elemIndices" sf_elemIndices,
835835 testProperty "t_elemIndices" t_elemIndices,
836836 testProperty "tl_elemIndices" tl_elemIndices,
837− testProperty "sf_count" sf_count,
838− testProperty "t_count" t_count,
839− testProperty "tl_count" tl_count
837+ testProperty "sf_countChar" sf_countChar,
838+ testProperty "t_countChar" t_countChar,
839+ testProperty "tl_countChar" tl_countChar
840840 ],
841841
842842 testGroup "zips" [