• Haskell能缩进输出json文件使其对人类友好吗？
• 此选项存在于其他编程语言（如Python）中
• 下面列出的是的工作示例：
• 阅读输入json文件
• 以某种方式操纵它
• 将结果存储回另一个json文件
• 唯一的问题是，我不能用人性化的方式检查它，因为它是一个巨大的单行线

{-# 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