From 09956498fcc9af1bb6a2c314626d24d1a080083f Mon Sep 17 00:00:00 2001
From: Fendor <power.walross@gmail.com>
Date: Thu, 27 Oct 2022 09:49:37 +0200
Subject: [PATCH] WIP

---
 cabal-install/src/Distribution/Client/CmdStatus.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/cabal-install/src/Distribution/Client/CmdStatus.hs b/cabal-install/src/Distribution/Client/CmdStatus.hs
index e53b8bb8c08..fda5a352fa4 100644
--- a/cabal-install/src/Distribution/Client/CmdStatus.hs
+++ b/cabal-install/src/Distribution/Client/CmdStatus.hs
@@ -59,6 +59,7 @@ import Distribution.Types.UnitId
 import Distribution.Verbosity
          ( normal )
 import Distribution.Version
+import Debug.Trace
 
 -------------------------------------------------------------------------------
 -- Command
@@ -186,6 +187,7 @@ statusAction flags@NixStyleFlags { extraFlags = statusFlags, ..} cliTargetString
     then pure Nothing
     else do
       let targetStrings = statusTargets statusFlags
+      traceShowM targetStrings
       mtargetSelectors <- mapM (readTargetSelector (localPackages baseCtx) Nothing) targetStrings
       let (unresolvable, targetSelectors) = partitionEithers
                     $ map (\(mts, str) -> case mts of
@@ -193,6 +195,7 @@ statusAction flags@NixStyleFlags { extraFlags = statusFlags, ..} cliTargetString
                         Right ts -> Right (ts, str)
                     )
                     $ zip mtargetSelectors targetStrings
+      traceShowM mtargetSelectors
       -- Interpret the targets on the command line as build targets
       -- (as opposed to say repl or haddock targets).
       -- TODO: don't throw on targets that are invalid.