From b2be49cad5adc43d82dc2199199f298f455f51f1 Mon Sep 17 00:00:00 2001 From: Cmdv Date: Wed, 30 Nov 2022 15:29:42 +0000 Subject: [PATCH] add marked output to `cabal list bin` --- cabal-install/src/Distribution/Client/CmdListBin.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/cabal-install/src/Distribution/Client/CmdListBin.hs b/cabal-install/src/Distribution/Client/CmdListBin.hs index cde9c860515..d0d699d9aea 100644 --- a/cabal-install/src/Distribution/Client/CmdListBin.hs +++ b/cabal-install/src/Distribution/Client/CmdListBin.hs @@ -34,12 +34,12 @@ import Distribution.Client.TargetProblem (TargetProblem (..)) import Distribution.Simple.BuildPaths (dllExtension, exeExtension) import Distribution.Simple.Command (CommandUI (..)) import Distribution.Simple.Setup (configVerbosity, fromFlagOrDefault) -import Distribution.Simple.Utils (die', wrapText) +import Distribution.Simple.Utils (die', info, wrapText) import Distribution.System (Platform) import Distribution.Types.ComponentName (showComponentName) import Distribution.Types.UnitId (UnitId) import Distribution.Types.UnqualComponentName (UnqualComponentName) -import Distribution.Verbosity (silent, verboseStderr) +import Distribution.Verbosity (normal, silent, verboseStderr) import System.FilePath ((<.>), ()) import qualified Data.Map as Map @@ -133,7 +133,7 @@ listbinAction flags@NixStyleFlags{..} args globalFlags = do case binfiles of [] -> die' verbosity "No target found" - [exe] -> putStrLn exe + [exe] -> info normal exe _ -> die' verbosity "Multiple targets found" where defaultVerbosity = verboseStderr silent