Commit 4ba199e0 authored by bjorn@bringert.net's avatar bjorn@bringert.net
Browse files

More verbosity fixes.

parent 33ea60e8
......@@ -135,7 +135,7 @@ installPkg cfg comp globalArgs (pkg,opts)
path = tmpDirPath </> showPackageId p
bracket_ (createDirectoryIfMissing True tmpDirPath)
(removeDirectoryRecursive tmpDirPath)
(do message cfg deafening (printf "Extracting %s..." pkgPath)
(do message cfg verbose (printf "Extracting %s to %s..." pkgPath tmpDirPath)
extractTarGzFile (Just tmpDirPath) pkgPath
let descFilePath = tmpDirPath </> showPackageId p </> pkgName p <.> "cabal"
e <- doesFileExist descFilePath
......@@ -156,6 +156,6 @@ installUnpackedPkg cfg comp globalArgs pkgId opts mpath
where
setup cmd
= do let cmdOps = mkPkgOps cfg comp pkgId cmd (globalArgs++opts)
message cfg deafening $
message cfg verbose $
unwords ["setupWrapper", show (cmd:cmdOps), show mpath]
setupWrapper (cmd:cmdOps) mpath
\ No newline at end of file
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