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