Silence linprog output in Pkg.resolve

(except in case of errors)

Author: carlobaldassi

base/pkgmetadata.jl

@@ -5,8 +5,8 @@ module Metadata
 using Base
 using LinProgGLPK
 
-import Main
 import Git
+import GLPK
 import Base.isequal, Base.isless
 
 export parse_requires, Version, VersionSet
@@ -167,7 +167,9 @@ function resolve(reqs::Vector{VersionSet})
         W[r,rem(i-1,n)+1] = -1
         W[r,div(i-1,n)+1] = G[i]
     end
-    w = iround(linprog_simplex(u,W,zeros(Int,length(I)),nothing,nothing,u,nothing)[2])
+    lpopts = GLPK.SimplexParam()
+    lpopts["msg_lev"] = GLPK.MSG_ERR
+    w = iround(linprog_simplex(u,W,zeros(Int,length(I)),nothing,nothing,u,nothing,lpopts)[2])
 
     V = [ p == v.package ? 1 : 0                     for p=pkgs, v=vers ]
     R = [ contains(r,v) ? -1 : 0                     for r=reqs, v=vers ]
@@ -176,7 +178,7 @@ function resolve(reqs::Vector{VersionSet})
           -ones(Int,length(reqs))
           zeros(Int,length(deps)) ]
 
-    x = linprog_simplex(w,[V;R;D],b,nothing,nothing,z,u)[2]
+    x = linprog_simplex(w,[V;R;D],b,nothing,nothing,z,u,lpopts)[2]
     h = (String=>ASCIIString)[]
     for v in vers[x .> 0.5]
         h[v.package] = readchomp("METADATA/$(v.package)/versions/$(v.version)/sha1")