From e8f85e5a9356ead45b5c689a885d2784dac6273e Mon Sep 17 00:00:00 2001 From: amesgen Date: Mon, 25 Apr 2022 21:44:18 +0200 Subject: [PATCH] Fix mention of `foldl'` in Haddocks of `unions`/`unionsWith` --- containers/src/Data/Map/Internal.hs | 4 ++-- containers/src/Data/Map/Strict/Internal.hs | 2 +- containers/src/Data/Set/Internal.hs | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/containers/src/Data/Map/Internal.hs b/containers/src/Data/Map/Internal.hs index 588fc14d6..c3be7bf8f 100644 --- a/containers/src/Data/Map/Internal.hs +++ b/containers/src/Data/Map/Internal.hs @@ -1773,7 +1773,7 @@ maxView t = case maxViewWithKey t of Union. --------------------------------------------------------------------} -- | The union of a list of maps: --- (@'unions' == 'Prelude.foldl' 'union' 'empty'@). +-- (@'unions' == 'Foldable.foldl'' 'union' 'empty'@). -- -- > unions [(fromList [(5, "a"), (3, "b")]), (fromList [(5, "A"), (7, "C")]), (fromList [(5, "A3"), (3, "B3")])] -- > == fromList [(3, "b"), (5, "a"), (7, "C")] @@ -1788,7 +1788,7 @@ unions ts #endif -- | The union of a list of maps, with a combining operation: --- (@'unionsWith' f == 'Prelude.foldl' ('unionWith' f) 'empty'@). +-- (@'unionsWith' f == 'Foldable.foldl'' ('unionWith' f) 'empty'@). -- -- > unionsWith (++) [(fromList [(5, "a"), (3, "b")]), (fromList [(5, "A"), (7, "C")]), (fromList [(5, "A3"), (3, "B3")])] -- > == fromList [(3, "bB3"), (5, "aAA3"), (7, "C")] diff --git a/containers/src/Data/Map/Strict/Internal.hs b/containers/src/Data/Map/Strict/Internal.hs index bf814e762..24711e04a 100644 --- a/containers/src/Data/Map/Strict/Internal.hs +++ b/containers/src/Data/Map/Strict/Internal.hs @@ -953,7 +953,7 @@ updateMaxWithKey f (Bin _ kx x l r) = balanceL kx x l (updateMaxWithKey f r) --------------------------------------------------------------------} -- | The union of a list of maps, with a combining operation: --- (@'unionsWith' f == 'Prelude.foldl' ('unionWith' f) 'empty'@). +-- (@'unionsWith' f == 'Foldable.foldl'' ('unionWith' f) 'empty'@). -- -- > unionsWith (++) [(fromList [(5, "a"), (3, "b")]), (fromList [(5, "A"), (7, "C")]), (fromList [(5, "A3"), (3, "B3")])] -- > == fromList [(3, "bB3"), (5, "aAA3"), (7, "C")] diff --git a/containers/src/Data/Set/Internal.hs b/containers/src/Data/Set/Internal.hs index 55caf01ba..d0e11542f 100644 --- a/containers/src/Data/Set/Internal.hs +++ b/containers/src/Data/Set/Internal.hs @@ -800,7 +800,7 @@ deleteMax Tip = Tip {-------------------------------------------------------------------- Union. --------------------------------------------------------------------} --- | The union of the sets in a Foldable structure : (@'unions' == 'foldl' 'union' 'empty'@). +-- | The union of the sets in a Foldable structure : (@'unions' == 'Foldable.foldl'' 'union' 'empty'@). unions :: (Foldable f, Ord a) => f (Set a) -> Set a unions = Foldable.foldl' union empty #if __GLASGOW_HASKELL__