Remove awkward and unnecessary CLI flag

Author: fendor

cabal-install/src/Distribution/Client/CmdShowBuildInfo.hs

@@ -8,7 +8,7 @@ module Distribution.Client.CmdShowBuildInfo (
   ) where
 
 import Distribution.Client.Compat.Prelude
-         (catMaybes, fromMaybe )
+         ( catMaybes )
 import Distribution.Client.ProjectOrchestration
 import Distribution.Client.CmdErrorMessages
 import Distribution.Client.TargetProblem
@@ -23,11 +23,7 @@ import Distribution.Simple.Command
 import Distribution.Verbosity
          (Verbosity, silent )
 import Distribution.Simple.Utils
-         (wrapText, die' )
-import Distribution.Types.UnitId
-         ( mkUnitId )
-import Distribution.Pretty
-         ( prettyShow )
+         (wrapText )
 
 import qualified Data.Map as Map
 import qualified Distribution.Simple.Setup as Cabal
@@ -36,12 +32,11 @@ import Distribution.Client.ProjectPlanning.Types
 import Distribution.Client.NixStyleOptions
          ( NixStyleFlags (..), nixStyleOptions, defaultNixStyleFlags )
 import Distribution.Client.DistDirLayout
-        (distProjectRootDirectory )
+        ( distProjectRootDirectory )
 
 import Distribution.Simple.ShowBuildInfo
 import Distribution.Utils.Json
 
-import Control.Monad (forM_, unless)
 import Data.Either
 import qualified Data.Text as T
 import qualified Data.Text.IO as T
@@ -66,31 +61,25 @@ showBuildInfoCommand = CommandUI {
       [ option [] ["buildinfo-json-output"]
               "Write the result to the given file instead of stdout"
               buildInfoOutputFile (\pf flags -> flags { buildInfoOutputFile = pf })
-              (reqArg' "FILE" Just (maybe [] pure)),
-        option [] ["unit-ids-json"]
-              "Show build-info only for selected unit-id's."
-              buildInfoUnitIds (\pf flags -> flags { buildInfoUnitIds = pf })
-              (reqArg' "UNIT-ID" (Just . words) (fromMaybe []))
+              (reqArg' "FILE" Just (maybe [] pure))
       ],
   commandDefaultFlags = defaultNixStyleFlags defaultShowBuildInfoFlags
   }
 
 data ShowBuildInfoFlags = ShowBuildInfoFlags
     { buildInfoOutputFile :: Maybe FilePath
-    , buildInfoUnitIds :: Maybe [String]
     }
 
 defaultShowBuildInfoFlags :: ShowBuildInfoFlags
 defaultShowBuildInfoFlags = ShowBuildInfoFlags
     { buildInfoOutputFile = Nothing
-    , buildInfoUnitIds = Nothing
     }
 
 -- | The @show-build-info@ exports information about a package and the compiler
 -- configuration used to build it as JSON, that can be used by other tooling.
 -- See "Distribution.Simple.ShowBuildInfo" for more information.
 showBuildInfoAction :: NixStyleFlags ShowBuildInfoFlags -> [String] -> GlobalFlags -> IO ()
-showBuildInfoAction flags@NixStyleFlags { extraFlags = (ShowBuildInfoFlags fileOutput unitIdStrs), ..}
+showBuildInfoAction flags@NixStyleFlags { extraFlags = (ShowBuildInfoFlags fileOutput), ..}
   targetStrings globalFlags = do
   baseCtx <- establishProjectBaseContext verbosity cliConfig OtherCommand