Commit 0abc7c70 authored by Simon Marlow's avatar Simon Marlow
Browse files

install: pass the verbose flag to register too

parent 539106d5
......@@ -662,7 +662,8 @@ defaultInstallHook :: PackageDescription -> LocalBuildInfo
defaultInstallHook pkg_descr localbuildinfo _ (InstallFlags uInstFlag verbose) = do
install pkg_descr localbuildinfo (CopyFlags NoCopyDest verbose)
when (hasLibs pkg_descr) $
register pkg_descr localbuildinfo emptyRegisterFlags{ regUser=uInstFlag }
register pkg_descr localbuildinfo
emptyRegisterFlags{ regUser=uInstFlag, regVerbose=verbose }
defaultBuildHook :: PackageDescription -> LocalBuildInfo
-> Maybe UserHooks -> BuildFlags -> IO ()
......
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