From 0ff2ebebc1b669a64ebacf2b7e05dd7c4ba0a40f Mon Sep 17 00:00:00 2001 From: "Edward Z. Yang" Date: Wed, 4 May 2016 22:30:54 -0700 Subject: [PATCH] Make internal/self-exect setup methods more chatty. Signed-off-by: Edward Z. Yang --- cabal-install/Distribution/Client/SetupWrapper.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/cabal-install/Distribution/Client/SetupWrapper.hs b/cabal-install/Distribution/Client/SetupWrapper.hs index 9071cba525b..fc77b603445 100644 --- a/cabal-install/Distribution/Client/SetupWrapper.hs +++ b/cabal-install/Distribution/Client/SetupWrapper.hs @@ -301,8 +301,8 @@ type SetupMethod = Verbosity internalSetupMethod :: SetupMethod internalSetupMethod verbosity options _ bt mkargs = do let args = mkargs cabalVersion - debug verbosity $ "Using internal setup method with build-type " ++ show bt - ++ " and args:\n " ++ show args + info verbosity $ "Using internal setup method with build-type " ++ show bt + ++ " and args:\n " ++ show args inDir (useWorkingDir options) $ buildTypeAction bt args @@ -323,7 +323,7 @@ selfExecSetupMethod verbosity options _pkg bt mkargs = do let args = ["act-as-setup", "--build-type=" ++ display bt, "--"] ++ mkargs cabalVersion - debug verbosity $ "Using self-exec internal setup method with build-type " + info verbosity $ "Using self-exec internal setup method with build-type " ++ show bt ++ " and args:\n " ++ show args path <- getExecutablePath info verbosity $ unwords (path : args)