Pretty print the JSON dumps.

Author: philderbeast

package.yaml

@@ -52,6 +52,7 @@ dependencies:
 - base >= 4.16.3.0 && < 5
 - Cabal >= 3.6.3.0
 - aeson >= 2.0.3.0
+- aeson-pretty
 - annotated-wl-pprint
 - ansi-terminal
 - array

src/Stack/ConfigCmd.hs

@@ -48,7 +48,7 @@ import           Stack.Prelude
 import           Data.Coerce (coerce)
 import           Pantry.Internal.AesonExtended
                  (ToJSON(..), FromJSON, (.=), WithJSONWarnings (WithJSONWarnings), object)
-import qualified Data.Aeson as Aeson
+import Data.Aeson.Encode.Pretty (encodePretty)
 import qualified Data.Aeson.Key as Key
 import Data.Aeson.KeyMap (KeyMap)
 import qualified Data.Aeson.KeyMap as KeyMap
@@ -128,18 +128,18 @@ configCmdSetScope (ConfigCmdSetSystemGhc scope _) = scope
 configCmdSetScope (ConfigCmdSetInstallGhc scope _) = scope
 
 encodeDumpProject :: RawYaml -> ConfigDumpFormat -> Project -> ByteString
-encodeDumpProject _ ConfigDumpJson = toStrictBytes . Aeson.encode
+encodeDumpProject _ ConfigDumpJson = toStrictBytes . encodePretty
 encodeDumpProject rawConfig ConfigDumpYaml = \p -> let e = Yaml.encode p in
     Yaml.decodeEither' e & either (const e) (\(d :: KeyMap Yaml.Value) ->
         either (const e) encodeUtf8 (cfgRedress rawConfig d ""))
 
 encodeDumpStackBy :: ToJSON a => (Config -> a) -> ConfigCmdDumpStack -> (Config -> ByteString)
 encodeDumpStackBy f (ConfigCmdDumpStack _ ConfigDumpYaml) = Yaml.encode . f
-encodeDumpStackBy f (ConfigCmdDumpStack _ ConfigDumpJson) = toStrictBytes . Aeson.encode . f
+encodeDumpStackBy f (ConfigCmdDumpStack _ ConfigDumpJson) = toStrictBytes . encodePretty . f
 
 encodeDumpStack :: ConfigDumpFormat -> (DumpStack -> ByteString)
 encodeDumpStack ConfigDumpYaml = Yaml.encode
-encodeDumpStack ConfigDumpJson = toStrictBytes . Aeson.encode
+encodeDumpStack ConfigDumpJson = toStrictBytes . encodePretty
 
 cfgReadProject :: (HasConfig env, HasLogFunc env) => CommandScope -> RIO env (Maybe Project)
 cfgReadProject scope = do

stack.cabal

@@ -229,6 +229,7 @@ library
   build-depends:
       Cabal >=3.6.3.0
     , aeson >=2.0.3.0
+    , aeson-pretty
     , annotated-wl-pprint
     , ansi-terminal
     , array
@@ -353,6 +354,7 @@ executable stack
   build-depends:
       Cabal >=3.6.3.0
     , aeson >=2.0.3.0
+    , aeson-pretty
     , annotated-wl-pprint
     , ansi-terminal
     , array
@@ -476,6 +478,7 @@ executable stack-integration-test
   build-depends:
       Cabal >=3.6.3.0
     , aeson >=2.0.3.0
+    , aeson-pretty
     , annotated-wl-pprint
     , ansi-terminal
     , array
@@ -607,6 +610,7 @@ test-suite stack-test
       Cabal >=3.6.3.0
     , QuickCheck
     , aeson >=2.0.3.0
+    , aeson-pretty
     , annotated-wl-pprint
     , ansi-terminal
     , array