feat: add stage information to JSON output in encodePlanAsJson

andreabedini · andreabedini · commit d27ca1d6cc04 · 2025-07-16T12:51:01.000+08:00
diff --git a/cabal-install/src/Distribution/Client/ProjectPlanOutput.hs b/cabal-install/src/Distribution/Client/ProjectPlanOutput.hs
@@ -166,6 +166,7 @@ encodePlanAsJson distDirLayout elaboratedInstallPlan elaboratedSharedConfig =
                   then "installed"
                   else "configured"
               )
+        , "stage" J..= jdisplay (elabStage elab)
         , "id" J..= (jdisplay . Graph.nodeKey) elab
         , "pkg-name" J..= (jdisplay . pkgName . packageId) elab
         , "pkg-version" J..= (jdisplay . pkgVersion . packageId) elab

Original file line number	Diff line number	Diff line change
`@@ -166,6 +166,7 @@ encodePlanAsJson distDirLayout elaboratedInstallPlan elaboratedSharedConfig =`
`166`	`166`	`then "installed"`
`167`	`167`	`else "configured"`
`168`	`168`	`)`
	`169`	`+ , "stage" J..= jdisplay (elabStage elab)`
`169`	`170`	`, "id" J..= (jdisplay . Graph.nodeKey) elab`
`170`	`171`	`, "pkg-name" J..= (jdisplay . pkgName . packageId) elab`
`171`	`172`	`, "pkg-version" J..= (jdisplay . pkgVersion . packageId) elab`