Commit 8c4759de authored by Erik de Castro Lopo's avatar Erik de Castro Lopo
Browse files

Fix deprecation warnings from containers

parent 4220ffb5
......@@ -125,7 +125,7 @@ import Data.Array ((!))
import qualified Data.Array as Array
import qualified Data.Graph as Graph
import Data.List as List ( groupBy, deleteBy, deleteFirstsBy )
import qualified Data.Map as Map
import qualified Data.Map.Strict as Map
import qualified Data.Tree as Tree
-- | The collection of information about packages from one or more 'PackageDB's.
......@@ -271,12 +271,12 @@ insert pkg (PackageIndex pids pnames) =
pids' = Map.insert (installedUnitId pkg) pkg pids
pnames' = insertPackageName pnames
insertPackageName =
Map.insertWith' (\_ -> insertPackageVersion)
Map.insertWith (\_ -> insertPackageVersion)
(packageName pkg)
(Map.singleton (packageVersion pkg) [pkg])
insertPackageVersion =
Map.insertWith' (\_ -> insertPackageInstance)
Map.insertWith (\_ -> insertPackageInstance)
(packageVersion pkg) [pkg]
insertPackageInstance pkgs =
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment