From 66414042e5a0ec08b9bcfb924c396c68a5bd8cdb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=CB=8Cbod=CA=B2=C9=AA=CB=88=C9=A1r=CA=B2im?= Date: Mon, 22 May 2023 19:01:34 +0100 Subject: [PATCH] Future-proof against potential Prelude.foldl' (#585) --- Data/ByteString.hs | 8 ++++---- Data/ByteString/Char8.hs | 10 +++++----- Data/ByteString/Lazy.hs | 6 +++--- Data/ByteString/Lazy/Char8.hs | 6 +++--- 4 files changed, 15 insertions(+), 15 deletions(-) diff --git a/Data/ByteString.hs b/Data/ByteString.hs index aaf5b5d29..f8f7c5be7 100644 --- a/Data/ByteString.hs +++ b/Data/ByteString.hs @@ -219,11 +219,11 @@ module Data.ByteString ( ) where import qualified Prelude as P -import Prelude hiding (reverse,head,tail,last,init,null - ,length,map,lines,foldl,foldr,unlines +import Prelude hiding (reverse,head,tail,last,init,Foldable(..) + ,map,lines,unlines ,concat,any,take,drop,splitAt,takeWhile - ,dropWhile,span,break,elem,filter,maximum - ,minimum,all,concatMap,foldl1,foldr1 + ,dropWhile,span,break,filter + ,all,concatMap ,scanl,scanl1,scanr,scanr1 ,readFile,writeFile,appendFile,replicate ,getContents,getLine,putStr,putStrLn,interact diff --git a/Data/ByteString/Char8.hs b/Data/ByteString/Char8.hs index 67cac9d22..17e2d143f 100644 --- a/Data/ByteString/Char8.hs +++ b/Data/ByteString/Char8.hs @@ -246,14 +246,14 @@ module Data.ByteString.Char8 ( ) where import qualified Prelude as P -import Prelude hiding (reverse,head,tail,last,init,null - ,length,map,lines,foldl,foldr,unlines +import Prelude hiding (reverse,head,tail,last,init,Foldable(..) + ,map,lines,unlines ,concat,any,take,drop,splitAt,takeWhile - ,dropWhile,span,break,elem,filter,unwords - ,words,maximum,minimum,all,concatMap + ,dropWhile,span,break,filter,unwords + ,words,all,concatMap ,scanl,scanl1,scanr,scanr1 ,appendFile,readFile,writeFile - ,foldl1,foldr1,replicate + ,replicate ,getContents,getLine,putStr,putStrLn,interact ,zip,zipWith,unzip,notElem) diff --git a/Data/ByteString/Lazy.hs b/Data/ByteString/Lazy.hs index f9d0ba83f..ca34f1aa1 100644 --- a/Data/ByteString/Lazy.hs +++ b/Data/ByteString/Lazy.hs @@ -223,9 +223,9 @@ module Data.ByteString.Lazy ( ) where import Prelude hiding - (reverse,head,tail,last,init,null,length,map,lines,foldl,foldr,unlines - ,concat,any,take,drop,splitAt,takeWhile,dropWhile,span,break,elem,filter,maximum - ,minimum,all,concatMap,foldl1,foldr1,scanl, scanl1, scanr, scanr1 + (reverse,head,tail,last,init,Foldable(..),map,lines,unlines + ,concat,any,take,drop,splitAt,takeWhile,dropWhile,span,break,filter + ,all,concatMap,scanl, scanl1, scanr, scanr1 ,repeat, cycle, interact, iterate,readFile,writeFile,appendFile,replicate ,getContents,getLine,putStr,putStrLn ,zip,zipWith,unzip,notElem) diff --git a/Data/ByteString/Lazy/Char8.hs b/Data/ByteString/Lazy/Char8.hs index c21662a44..5147b5460 100644 --- a/Data/ByteString/Lazy/Char8.hs +++ b/Data/ByteString/Lazy/Char8.hs @@ -258,9 +258,9 @@ import Data.Int (Int64) import qualified Data.List as List import Prelude hiding - (reverse,head,tail,last,init,null,length,map,lines,foldl,foldr,unlines - ,concat,any,take,drop,splitAt,takeWhile,dropWhile,span,break,elem,filter - ,unwords,words,maximum,minimum,all,concatMap,scanl,scanl1,scanr,scanr1,foldl1,foldr1 + (reverse,head,tail,last,init,Foldable(..),map,lines,unlines + ,concat,any,take,drop,splitAt,takeWhile,dropWhile,span,break,filter + ,unwords,words,all,concatMap,scanl,scanl1,scanr,scanr1 ,readFile,writeFile,appendFile,replicate,getContents,getLine,putStr,putStrLn ,zip,zipWith,unzip,notElem,repeat,iterate,interact,cycle)