Commit af1d3b1d authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Pass a verbosity flag to ghc-pkg

parent ffbd8a6a
......@@ -89,6 +89,7 @@ import Distribution.System
( OS(..), buildOS )
import Distribution.Text
( display )
import Distribution.Verbosity ( normal, deafening )
import System.FilePath ((</>), (<.>), isAbsolute)
import System.Directory (removeFile, getCurrentDirectory,
......@@ -160,7 +161,13 @@ register pkg_descr lbi regFlags
else [instConf]
in "update" : conf
let allFlags = config_flags ++ register_flags
let verbosity_flags = if verbosity >= deafening
then ["-v2"]
else if verbosity >= normal
then []
else ["-v0"]
let allFlags = config_flags ++ register_flags ++ verbosity_flags
let Just pkgTool = lookupProgram ghcPkgProgram (withPrograms lbi)
case () of
......
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