on master help sign in
Future-proof against potential Prelude.foldl'
f2d9ba8Bodigrim
core/src/Streamly/Data/Fold.hs+5−5
@@ -247,11 +247,11 @@ module Streamly.Data.Fold
247where
247where
248
248
249import Prelude
249import Prelude
250− hiding (filter, drop, dropWhile, take, takeWhile, zipWith, foldr,
250+ hiding (Foldable(..), filter, drop, dropWhile, take, takeWhile, zipWith,
251− foldl, map, mapM_, sequence, all, any, sum, product, elem,
251+ map, mapM_, sequence, all, any,
252− notElem, maximum, minimum, head, last, tail, length, null,
252+ notElem, head, last, tail,
253− reverse, iterate, init, and, or, lookup, foldr1, (!!),
253+ reverse, iterate, init, and, or, lookup, (!!),
254− scanl, scanl1, replicate, concatMap, mconcat, foldMap, unzip,
254+ scanl, scanl1, replicate, concatMap, mconcat, unzip,
255 span, splitAt, break, mapM, maybe)
255 span, splitAt, break, mapM, maybe)
256
256
257import Streamly.Internal.Data.Fold
257import Streamly.Internal.Data.Fold
core/src/Streamly/Internal/Data/Array/Generic.hs+1−1
@@ -65,7 +65,7 @@ import qualified Streamly.Internal.Data.Stream.StreamD.Type as D
65import qualified Streamly.Internal.Data.Stream.StreamD.Generate as D
65import qualified Streamly.Internal.Data.Stream.StreamD.Generate as D
66import qualified Text.ParserCombinators.ReadPrec as ReadPrec
66import qualified Text.ParserCombinators.ReadPrec as ReadPrec
67
67
68−import Prelude hiding (foldr, length, read)
68+import Prelude hiding (Foldable(..), read)
69
69
70-------------------------------------------------------------------------------
70-------------------------------------------------------------------------------
71-- Array Data Type
71-- Array Data Type
core/src/Streamly/Internal/Data/Array/Mut/Type.hs+1−1
@@ -267,7 +267,7 @@ import qualified Streamly.Internal.Data.Unboxed as Unboxed
267import qualified Prelude
267import qualified Prelude
268
268
269import Prelude hiding
269import Prelude hiding
270− (length, foldr, read, unlines, splitAt, reverse, truncate)
270+ (Foldable(..), read, unlines, splitAt, reverse, truncate)
271
271
272#include "DocTestDataMutArray.hs"
272#include "DocTestDataMutArray.hs"
273
273
core/src/Streamly/Internal/Data/Array/Type.hs+1−1
@@ -96,7 +96,7 @@ import Streamly.Internal.Data.Unboxed (Unbox, peekWith, sizeOf)
96import Streamly.Internal.Data.Unfold.Type (Unfold(..))
96import Streamly.Internal.Data.Unfold.Type (Unfold(..))
97import Text.Read (readPrec)
97import Text.Read (readPrec)
98
98
99−import Prelude hiding (length, foldr, read, unlines, splitAt)
99+import Prelude hiding (Foldable(..), read, unlines, splitAt)
100
100
101import qualified GHC.Exts as Exts
101import qualified GHC.Exts as Exts
102import qualified Streamly.Internal.Data.Array.Mut.Type as MA
102import qualified Streamly.Internal.Data.Array.Mut.Type as MA
core/src/Streamly/Internal/Data/Fold.hs+4−4
@@ -340,11 +340,11 @@ import qualified Streamly.Internal.Data.Ring.Unboxed as Ring
340import qualified Streamly.Internal.Data.Stream.StreamD.Type as StreamD
340import qualified Streamly.Internal.Data.Stream.StreamD.Type as StreamD
341
341
342import Prelude hiding
342import Prelude hiding
343− ( filter, foldl1, drop, dropWhile, take, takeWhile, zipWith
343+ ( Foldable(..), filter, drop, dropWhile, take, takeWhile, zipWith
344− , foldl, foldr, map, mapM_, sequence, all, any, sum, product, elem
344+ , map, mapM_, sequence, all, any
345− , notElem, maximum, minimum, head, last, tail, length, null
345+ , notElem, head, last, tail
346 , reverse, iterate, init, and, or, lookup, (!!)
346 , reverse, iterate, init, and, or, lookup, (!!)
347− , scanl, scanl1, replicate, concatMap, mconcat, foldMap, unzip
347+ , scanl, scanl1, replicate, concatMap, mconcat, unzip
348 , span, splitAt, break, mapM, zip, maybe)
348 , span, splitAt, break, mapM, zip, maybe)
349import Streamly.Internal.Data.Fold.Type
349import Streamly.Internal.Data.Fold.Type
350import Streamly.Internal.Data.Fold.Tee
350import Streamly.Internal.Data.Fold.Tee
core/src/Streamly/Internal/Data/Fold/Container.hs+1−1
@@ -102,7 +102,7 @@ import qualified Data.IntSet as IntSet
102import qualified Data.Set as Set
102import qualified Data.Set as Set
103import qualified Streamly.Internal.Data.IsMap as IsMap
103import qualified Streamly.Internal.Data.IsMap as IsMap
104
104
105−import Prelude hiding (length)
105+import Prelude hiding (Foldable(..))
106import Streamly.Internal.Data.Fold
106import Streamly.Internal.Data.Fold
107
107
108-- $setup
108-- $setup
core/src/Streamly/Internal/Data/Fold/Type.hs+1−1
@@ -457,7 +457,7 @@ import Streamly.Internal.Data.Refold.Type (Refold(..))
457
457
458import qualified Streamly.Internal.Data.Stream.StreamK.Type as K
458import qualified Streamly.Internal.Data.Stream.StreamK.Type as K
459
459
460−import Prelude hiding (concatMap, filter, foldr, map, take)
460+import Prelude hiding (Foldable(..), concatMap, filter, map, take)
461
461
462#include "DocTestDataFold.hs"
462#include "DocTestDataFold.hs"
463
463
core/src/Streamly/Internal/Data/Refold/Type.hs+1−1
@@ -47,7 +47,7 @@ import Control.Monad ((>=>))
47import Fusion.Plugin.Types (Fuse(..))
47import Fusion.Plugin.Types (Fuse(..))
48import Streamly.Internal.Data.Fold.Step (Step(..), mapMStep)
48import Streamly.Internal.Data.Fold.Step (Step(..), mapMStep)
49
49
50−import Prelude hiding (take, iterate)
50+import Prelude hiding (Foldable(..), take, iterate)
51
51
52-- $setup
52-- $setup
53-- >>> :m
53-- >>> :m
core/src/Streamly/Internal/Data/Stream/Common.hs+1−1
@@ -35,7 +35,7 @@ import Streamly.Internal.Data.Fold.Type (Fold (..))
35import qualified Streamly.Internal.Data.Stream.StreamK.Type as K
35import qualified Streamly.Internal.Data.Stream.StreamK.Type as K
36import qualified Streamly.Internal.Data.Stream.StreamD.Type as D
36import qualified Streamly.Internal.Data.Stream.StreamD.Type as D
37
37
38−import Prelude hiding (foldr, repeat)
38+import Prelude hiding (Foldable(..), repeat)
39
39
40------------------------------------------------------------------------------
40------------------------------------------------------------------------------
41-- Conversions
41-- Conversions
core/src/Streamly/Internal/Data/Stream/StreamD/Eliminate.hs+3−2
@@ -104,8 +104,9 @@ import qualified Streamly.Internal.Data.Stream.StreamD.Nesting as Nesting
104import qualified Streamly.Internal.Data.Stream.StreamD.Transform as StreamD
104import qualified Streamly.Internal.Data.Stream.StreamD.Transform as StreamD
105
105
106import Prelude hiding
106import Prelude hiding
107− ( all, any, elem, foldr, foldr1, head, last, lookup, mapM, mapM_
107+ ( Foldable(..), all, any, head, last, lookup, mapM, mapM_
108− , maximum, minimum, notElem, null, splitAt, tail, (!!))
108+ , notElem, splitAt, tail, (!!))
109+import Data.Foldable (length)
109import Streamly.Internal.Data.Stream.StreamD.Type
110import Streamly.Internal.Data.Stream.StreamD.Type
110
111
111#include "DocTestDataStream.hs"
112#include "DocTestDataStream.hs"
core/src/Streamly/Internal/Data/Stream/StreamK.hs+5−5
@@ -212,11 +212,11 @@ import qualified Streamly.Internal.Data.Stream.StreamD as Stream
212import qualified Prelude
212import qualified Prelude
213
213
214import Prelude
214import Prelude
215− hiding (foldl, foldr, last, map, mapM, mapM_, repeat, sequence,
215+ hiding (Foldable(..), last, map, mapM, mapM_, repeat, sequence,
216− take, filter, all, any, takeWhile, drop, dropWhile, minimum,
216+ take, filter, all, any, takeWhile, drop, dropWhile,
217− maximum, elem, notElem, null, head, tail, init, zipWith, lookup,
217+ notElem, head, tail, init, zipWith, lookup,
218− foldr1, (!!), replicate, reverse, concatMap, iterate, splitAt)
218+ (!!), replicate, reverse, concatMap, iterate, splitAt)
219−
219+import Data.Foldable (sum, length)
220import Streamly.Internal.Data.Stream.StreamK.Type
220import Streamly.Internal.Data.Stream.StreamK.Type
221import Streamly.Internal.Data.Parser.ParserD (ParseError(..))
221import Streamly.Internal.Data.Parser.ParserD (ParseError(..))
222
222