Commit 33ea60e8 authored by bjorn@bringert.net's avatar bjorn@bringert.net
Browse files

Verbosity fixes.

parent 652fc8e3
...@@ -116,7 +116,7 @@ fetchPackage :: ConfigFlags -> PkgInfo -> IO String ...@@ -116,7 +116,7 @@ fetchPackage :: ConfigFlags -> PkgInfo -> IO String
fetchPackage cfg pkg fetchPackage cfg pkg
= do fetched <- isFetched cfg pkg = do fetched <- isFetched cfg pkg
if fetched if fetched
then do printf "'%s' is present.\n" (showPackageId (pkgInfoId pkg)) then do printf "'%s' is cached.\n" (showPackageId (pkgInfoId pkg))
return (packageFile cfg pkg) return (packageFile cfg pkg)
else do printf "Downloading '%s'...\n" (showPackageId (pkgInfoId pkg)) else do printf "Downloading '%s'...\n" (showPackageId (pkgInfoId pkg))
downloadPackage cfg pkg downloadPackage cfg pkg
......
...@@ -150,15 +150,9 @@ installUnpackedPkg :: ConfigFlags -> Compiler ...@@ -150,15 +150,9 @@ installUnpackedPkg :: ConfigFlags -> Compiler
-> Maybe FilePath -- ^ Directory to change to before starting the installation. -> Maybe FilePath -- ^ Directory to change to before starting the installation.
-> IO () -> IO ()
installUnpackedPkg cfg comp globalArgs pkgId opts mpath installUnpackedPkg cfg comp globalArgs pkgId opts mpath
= do printf "Building '%s'\n" (showPackageId pkgId) = do setup "configure"
printf " Configuring...\n"
setup "configure"
printf " Building...\n"
setup "build" setup "build"
printf " Installing...\n"
setup "install" setup "install"
printf " Done.\n"
return ()
where where
setup cmd setup cmd
= do let cmdOps = mkPkgOps cfg comp pkgId cmd (globalArgs++opts) = do let cmdOps = mkPkgOps cfg comp pkgId cmd (globalArgs++opts)
......
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