git.iko.soy/streamly
on master help sign in
Remove splitAt.
commit04907e303e8d82696ee72935d18dcfd5716ada73 authorPranay Sashank <pranaysashank@gmail.com> dateThu 22 Nov 2018, 10:07 (8 years ago) parent5fc469a
3 files changed+3−15
compare with master
unifiedsplit
Changelog.md+1−1 src/Streamly/Prelude.hs+1−7 test/Prop.hs+1−7
Changelog.md+1−1
@@ -2,7 +2,7 @@
22
33* Add benchmarks to measure composed and iterated operations
44* Performance improvements
5−* Add `(!!)`, `insertBy`, `mergeBy`, `merge`, `splitAt`, `the`, `maximumBy`,
5+* Add `(!!)`, `insertBy`, `mergeBy`, `merge`, `the`, `maximumBy`,
66 `minimumBy`, `scanl1`, `scanl1M`, `scanl1'`, `scanl1M'`, `scanl`, `scanlM`,
77 `deleteBy`, `isPrefixOf`, `isSubsequenceOf`, `stripPrefix`,
88 `replicate`, `generateM`, `generate`, `concatMap`, `concatMapM`,
src/Streamly/Prelude.hs+1−7
@@ -211,7 +211,6 @@ module Streamly.Prelude
211211 , drop
212212 , dropWhile
213213 , dropWhileM
214− , splitAt
215214
216215 -- ** Inserting
217216 , intersperseM
@@ -266,7 +265,7 @@ import Prelude
266265 foldl, mapM, mapM_, sequence, all, any, sum, product, elem,
267266 notElem, maximum, minimum, head, last, tail, length, null,
268267 reverse, iterate, init, and, or, lookup, foldr1, (!!),
269− splitAt, scanl, scanl1, replicate, concatMap)
268+ scanl, scanl1, replicate, concatMap)
270269import qualified Prelude
271270import qualified System.IO as IO
272271
@@ -1046,11 +1045,6 @@ dropWhile p m = fromStreamS $ S.dropWhile p $ toStreamS m
10461045dropWhileM :: (IsStream t, Monad m) => (a -> m Bool) -> t m a -> t m a
10471046dropWhileM p m = fromStreamD $ D.dropWhileM p $ toStreamD m
10481047
1049−-- | Split the stream at position 'n'.
1050−{-# INLINE splitAt #-}
1051−splitAt :: (IsStream t, Monad m) => Int -> t m a -> (t m a, t m a)
1052−splitAt n m = (take n m, drop n m)
1053−
10541048------------------------------------------------------------------------------
10551049-- Transformation by Mapping
10561050------------------------------------------------------------------------------
test/Prop.hs+1−7
@@ -334,7 +334,7 @@ functorOps constr desc eq t = do
334334 prop (desc <> " fmap (+1)") $ transformFromList constr eq (fmap (+1)) $ t . fmap (+1)
335335
336336transformOps
337− :: (IsStream t, Semigroup (t IO Int))
337+ :: IsStream t
338338 => ([Int] -> t IO Int)
339339 -> String
340340 -> ([Int] -> [Int] -> Bool)
@@ -372,12 +372,6 @@ transformOps constr desc eq t = do
372372 prop (desc <> " drop 1") $ transform (drop 1) $ t . S.drop 1
373373 prop (desc <> " drop 10") $ transform (drop 10) $ t . S.drop 10
374374
375− prop (desc <> " splitAt maxBound") $
376− transform (\xs -> let (x, y) = splitAt maxBound xs in x++y) $
377− t . (\m -> let (x,y) = S.splitAt maxBound m in x<>y)
378− {-prop (desc <> " splitAt 4") $ transform (splitAt 4) $ t . S.splitAt 4
379− prop (desc <> " splitAt 0") $ transform (splitAt 0) $ t . S.splitAt 0-}
380−
381375 prop (desc <> " dropWhile True") $
382376 transform (dropWhile (const True)) $ t . S.dropWhile (const True)
383377 prop (desc <> " dropWhile False") $