@@ -535,12 +535,7 @@ noMatch = do
535535 d <- suchThat char (/= c)
536536 return (c,d)
537537t_takeWhile p = L.takeWhile p `eqP` (unpackS . T.takeWhile p)
538−t_takeWhile_null n c
539− = T.null $ T.takeWhile (==c) (T.replicate n (T.singleton c))
540538tl_takeWhile p = L.takeWhile p `eqP` (unpackS . TL.takeWhile p)
541−tl_takeWhile_null n c
542− = TL.null $
543− TL.takeWhile (==c) (TL.replicate n (TL.singleton c))
544539t_takeWhileEnd p = (L.reverse . L.takeWhile p . L.reverse) `eqP`
545540 (unpackS . T.takeWhileEnd p)
546541t_takeWhileEnd_null t = forAll noMatch $ \(c,d) -> T.null $
@@ -1176,9 +1171,7 @@ tests =
11761171 testProperty "s_takeWhile_s" s_takeWhile_s,
11771172 testProperty "sf_takeWhile" sf_takeWhile,
11781173 testProperty "t_takeWhile" t_takeWhile,
1179− testProperty "t_takeWhile_null" t_takeWhile_null,
11801174 testProperty "tl_takeWhile" tl_takeWhile,
1181− testProperty "tl_takeWhile_null" tl_takeWhile_null,
11821175 testProperty "t_takeWhileEnd" t_takeWhileEnd,
11831176 testProperty "t_takeWhileEnd_null" t_takeWhileEnd_null,
11841177 testProperty "tl_takeWhileEnd" tl_takeWhileEnd,