Haskell:
Làm việc với YAML

cabal install yaml

{-# LANGUAGE OverloadedStrings #-}
import Data.YAML
import Data.ByteString (ByteString)

-- Xác định cấu trúc dữ liệu
data Person = Person
    { name :: String
    , age  :: Int
    } deriving (Show)

-- Một thể hiện Person mẫu
examplePerson :: Person
examplePerson = Person "Chris" 30

-- Mã hóa (Haskell sang YAML)
yamlEncode :: Person -> ByteString
yamlEncode = encode

-- Giải mã (YAML sang Haskell)
yamlDecode :: ByteString -> Either String Person
yamlDecode = decodeThrow

main :: IO ()
main = do
    -- Mã hóa sang YAML và in kết quả
    putStrLn "YAML được mã hóa:"
    print $ yamlEncode examplePerson
  
    -- Dữ liệu YAML mẫu
    let exampleYAML = "name: Alex\nage: 25\n"
  
    -- Giải mã từ YAML và in kết quả
    putStrLn "Haskell được giải mã:"
    print $ yamlDecode exampleYAML

YAML được mã hóa:
"age: 30\nname: Chris\n"
Haskell được giải mã:
Right (Person {name = "Alex", age = 25})