Make use of outputFormat field in the query spo-stake-distribution command

Author: newhoggy

cardano-cli/src/Cardano/CLI/EraBased/Query/Run.hs

@@ -1799,6 +1799,7 @@ runQuerySPOStakeDistribution
         , Cmd.target
         }
     , Cmd.spoHashSources = spoHashSources'
+    , Cmd.outputFormat
     , Cmd.mOutFile
     } = conwayEraOnwardsConstraints eon $ do
     let spoFromSource = firstExceptT QueryCmdSPOKeyError . readSPOCredential
@@ -1845,15 +1846,26 @@ runQuerySPOStakeDistribution
           )
           (Map.keys addressesAndRewards)
 
-    let toWrite =
+    let json =
           [ ( spo
             , coin
             , Map.lookup spo spoToDelegatee
             )
           | (spo, coin) <- Map.assocs spoStakeDistribution
           ]
 
-    writeOutput mOutFile toWrite
+        output =
+          outputFormat
+            & ( id
+                  . Vary.on (\FormatJson -> Json.encodeJson)
+                  . Vary.on (\FormatYaml -> Json.encodeYaml)
+                  $ Vary.exhaustiveCase
+              )
+            $ json
+
+    firstExceptT QueryCmdWriteFileError
+      . newExceptT
+      $ writeLazyByteStringOutput mOutFile output
 
 runQueryCommitteeMembersState
   :: Cmd.QueryCommitteeMembersStateCmdArgs era