add stage information to JSON output in encodePlanAsJson

andreabedini · andreabedini · commit 68c848e71df4 · 2025-06-04T20:04:48.000+08:00
diff --git a/cabal-install/src/Distribution/Client/ProjectPlanOutput.hs b/cabal-install/src/Distribution/Client/ProjectPlanOutput.hs
@@ -161,6 +161,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
`@@ -161,6 +161,7 @@ encodePlanAsJson distDirLayout elaboratedInstallPlan elaboratedSharedConfig =`
`161`	`161`	`then "installed"`
`162`	`162`	`else "configured"`
`163`	`163`	`)`
	`164`	`+ , "stage" J..= jdisplay (elabStage elab)`
`164`	`165`	`, "id" J..= (jdisplay . Graph.nodeKey) elab`
`165`	`166`	`, "pkg-name" J..= (jdisplay . pkgName . packageId) elab`
`166`	`167`	`, "pkg-version" J..= (jdisplay . pkgVersion . packageId) elab`