如何在haskell中缩进输出json文件

Question

• Can Haskell indent output json files so it is human friendly ?
• This option exists in other programming languages (like Python)
• Listed below is a working example for:
  • reading an input json file
  • manipulating it somehow
  • storing back the results to another json file
• Only trouble is, I can not humanly inspect it, because it is a huge one-liner

{-# LANGUAGE DeriveGeneric #-}

-- ***************
-- *             *
-- * module main *
-- *             *
-- ***************
module Main (main) where

-- *******************
-- *                 *
-- * general imports *
-- *                 *
-- *******************
import System.IO  
import Data.Aeson
import GHC.Generics
import Control.Monad
import System.Environment

-- *****************************
-- *                           *
-- * general qualified imports *
-- *                           *
-- *****************************
import qualified Data.ByteString.Lazy as B

-- ****************************
-- *                          *
-- * read json file to memory *
-- *                          *
-- ****************************
getJSON :: IO B.ByteString
getJSON = B.readFile "input.json"

-- *********************
-- *                   *
-- * data type: Person *
-- *                   *
-- *********************
data Person =
  Person
  {
    idnum  :: Integer,
    height :: Integer,
    weight :: Integer
  }
  deriving (Show, Generic)

-- *********************
-- *                   *
-- * data type: Person *
-- *                   *
-- *********************
instance ToJSON Person
instance FromJSON Person

-- **************************
-- *                        *
-- * data type: AfterPerson *
-- *                        *
-- **************************
data AfterMarathonPerson =
  AfterMarathonPerson
  {
    person     :: Person,
    weightLoss :: Integer
  }
  deriving (Show, Generic)

-- **************************
-- *                        *
-- * data type: AfterPerson *
-- *                        *
-- **************************
instance ToJSON AfterMarathonPerson

-- *******************
-- *                 *
-- * marathon effect *
-- *                 *
-- *******************
marathonEffect :: Person -> AfterMarathonPerson
marathonEffect (Person i h w) = AfterMarathonPerson (Person i h w) (w-23)

-- ********************
-- *                  *
-- * main entry point *
-- *                  *
-- ********************
main = do
  marathon <- (eitherDecode <$> getJSON) :: IO (Either String [Person])
  case marathon of
    Left jsonReadError -> putStrLn jsonReadError
    Right runners -> encodeFile "output.json"
      $ toJSON
      $ map marathonEffect
      $ runners

Answer 1

使用 aeson aeson-pretty包中的encodePretty函数生成漂亮打印的 JSON 的ByteString ，然后使用ByteString.writeFile而不是使用encodeFile将其写入文件。