@@ -535,12 +535,7 @@ noMatch = do
535 d <- suchThat char (/= c)
535 d <- suchThat char (/= c)
536 return (c,d)
536 return (c,d)
537t_takeWhile p = L.takeWhile p `eqP` (unpackS . T.takeWhile p)
537t_takeWhile p = L.takeWhile p `eqP` (unpackS . T.takeWhile p)
539− = T.null $ T.takeWhile (==c) (T.replicate n (T.singleton c))
540tl_takeWhile p = L.takeWhile p `eqP` (unpackS . TL.takeWhile p)
538tl_takeWhile p = L.takeWhile p `eqP` (unpackS . TL.takeWhile p)
541−tl_takeWhile_null n c
543− TL.takeWhile (==c) (TL.replicate n (TL.singleton c))
544t_takeWhileEnd p = (L.reverse . L.takeWhile p . L.reverse) `eqP`
539t_takeWhileEnd p = (L.reverse . L.takeWhile p . L.reverse) `eqP`
545 (unpackS . T.takeWhileEnd p)
540 (unpackS . T.takeWhileEnd p)
546t_takeWhileEnd_null t = forAll noMatch $ \(c,d) -> T.null $
541t_takeWhileEnd_null t = forAll noMatch $ \(c,d) -> T.null $
@@ -1176,9 +1171,7 @@ tests =
1176 testProperty "s_takeWhile_s" s_takeWhile_s,
1171 testProperty "s_takeWhile_s" s_takeWhile_s,
1177 testProperty "sf_takeWhile" sf_takeWhile,
1172 testProperty "sf_takeWhile" sf_takeWhile,
1178 testProperty "t_takeWhile" t_takeWhile,
1173 testProperty "t_takeWhile" t_takeWhile,
1179− testProperty "t_takeWhile_null" t_takeWhile_null,
1180 testProperty "tl_takeWhile" tl_takeWhile,
1174 testProperty "tl_takeWhile" tl_takeWhile,
1181− testProperty "tl_takeWhile_null" tl_takeWhile_null,
1182 testProperty "t_takeWhileEnd" t_takeWhileEnd,
1175 testProperty "t_takeWhileEnd" t_takeWhileEnd,
1183 testProperty "t_takeWhileEnd_null" t_takeWhileEnd_null,
1176 testProperty "t_takeWhileEnd_null" t_takeWhileEnd_null,
1184 testProperty "tl_takeWhileEnd" tl_takeWhileEnd,
1177 testProperty "tl_takeWhileEnd" tl_takeWhileEnd,