WIP

Author: fendor

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,13 +187,15 @@ 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
                         Left _ -> Left str
                         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.