Commit 4c7cde2b authored by Sergei Trofimovich's avatar Sergei Trofimovich
Browse files

Distribution/Client/IndexUtils.hs: fixed warning on -Wall (unused result)

parent ffa35ce0
......@@ -128,8 +128,8 @@ getAvailablePackages verbosity repos = do
let (pkgs, prefs) = mconcat pkgss
prefs' = Map.fromListWith intersectVersionRanges
[ (name, range) | Dependency name range <- prefs ]
evaluate pkgs
evaluate prefs'
_ <- evaluate pkgs
_ <- evaluate prefs'
return AvailablePackageDb {
packageIndex = pkgs,
packagePreferences = prefs'
......
Markdown is supported
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