From fd0569ea27855b39fe7b0ca7cefb280c1be15e38 Mon Sep 17 00:00:00 2001 From: Oleg Grenrus Date: Mon, 4 Sep 2017 07:55:35 +0300 Subject: [PATCH] Use any/all from Foldable --- Cabal/Distribution/Compat/Prelude.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Cabal/Distribution/Compat/Prelude.hs b/Cabal/Distribution/Compat/Prelude.hs index 0242c438d37..45dbd968634 100644 --- a/Cabal/Distribution/Compat/Prelude.hs +++ b/Cabal/Distribution/Compat/Prelude.hs @@ -64,6 +64,7 @@ module Distribution.Compat.Prelude ( null, length, find, foldl', traverse_, for_, + any, all, -- * Data.Traversable Traversable, traverse, sequenceA, @@ -94,7 +95,7 @@ module Distribution.Compat.Prelude ( -- We also could hide few partial function import Prelude as BasePrelude hiding - ( IO, mapM, mapM_, sequence, null, length, foldr + ( IO, mapM, mapM_, sequence, null, length, foldr, any, all #if MINVER_base_48 , Word -- We hide them, as we import only some members @@ -110,7 +111,7 @@ import Distribution.Compat.Semigroup (Monoid (..)) import Data.Foldable (length, null) #endif -import Data.Foldable (Foldable (foldMap, foldr), find, foldl', for_, traverse_) +import Data.Foldable (Foldable (foldMap, foldr), find, foldl', for_, traverse_, any, all) import Data.Traversable (Traversable (traverse, sequenceA), for) import Control.Applicative (Alternative (..))