@@ -5,6 +5,7 @@ module Stackage.InstallInfo
55 ) where
66
77import Control.Monad (forM_, unless)
8+import Data.List (foldl')
89import qualified Data.Map as Map
910import qualified Data.Set as Set
1011import Data.Version (showVersion)
@@ -23,7 +24,7 @@ dropExcluded :: SelectSettings
2324 -> Map PackageName (VersionRange, Maintainer)
2425 -> Map PackageName (VersionRange, Maintainer)
2526dropExcluded bs m0 =
26− Set.foldl' (flip Map.delete) m0 (excludedPackages bs)
27+ foldl' (flip Map.delete) m0 (Set.toList $ excludedPackages bs)
2728
2829getInstallInfo :: SelectSettings -> IO InstallInfo
2930getInstallInfo settings = do