Haskell:
使用JSON进行编程
如何操作：
Haskell 并没有像 JavaScript 那样内置对 JSON 的支持，但借助于第三方库比如 Aeson，处理 JSON 就变得简单了。Aeson 提供了用于编码（将 Haskell 值转换为 JSON）和解码（将 JSON 解析成 Haskell 值）的高级和低级函数。
安装 Aeson
首先，通过更新你的 .cabal 文件或直接使用 Stack 或 Cabal 来将 Aeson 添加到你项目的依赖中：
cabal update && cabal install aeson或者，如果你是使用 Stack：
stack install aeson解析 JSON
我们从一个基本示例开始，把 JSON 数据解码成 Haskell 类型。假设我们有以下代表一个人的 JSON：
{
"name": "John Doe",
"age": 30
}首先，定义一个相应的 Haskell 数据类型并使其成为 FromJSON 的一个实例：
{-# LANGUAGE DeriveGeneric #-}
import GHC.Generics (Generic)
import Data.Aeson (FromJSON, decode)
import qualified Data.ByteString.Lazy as B
data Person = Person
{ name :: String
, age :: Int
} deriving (Generic, Show)
instance FromJSON Person
-- 一个从文件解码 JSON 的函数
decodePerson :: FilePath -> IO (Maybe Person)
decodePerson filePath = do
personJson <- B.readFile filePath
return $ decode personJson用法：
假设 person.json 包含上面显示的 JSON 数据，运行：
main :: IO ()
main = do
maybePerson <- decodePerson "person.json"
print maybePerson示例输出：
Just (Person {name = "John Doe", age = 30})将 Haskell 值编码为 JSON
要将一个 Haskell 值转换回 JSON，你需要使你的类型成为 ToJSON 的一个实例，然后使用 encode。
import Data.Aeson (ToJSON, encode)
import GHC.Generics (Generic)
-- 假设前面的 Person 类型
instance ToJSON Person
encodePerson :: Person -> B.ByteString
encodePerson = encode
main :: IO ()
main = do
let person = Person "Jane Doe" 32
putStrLn $ show $ encodePerson person示例输出：
{"name":"Jane Doe","age":32}这些例子展示了使用 Aeson 在 Haskell 中处理 JSON 的基础。请记住，Aeson 提供了更多功能，包括自定义解析规则、处理复杂的嵌套 JSON 等，适合各种需要和场景。