Haskell:
Werken met YAML

cabal install yaml

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

-- Definieer een gegevensstructuur
data Person = Person
    { name :: String
    , age  :: Int
    } deriving (Show)

-- Een voorbeeld van een Person instantie
examplePerson :: Person
examplePerson = Person "Chris" 30

-- Serialisatie (Haskell naar YAML)
yamlEncode :: Person -> ByteString
yamlEncode = encode

-- Deserialisatie (YAML naar Haskell)
yamlDecode :: ByteString -> Either String Person
yamlDecode = decodeThrow

main :: IO ()
main = do
    -- Codeer naar YAML en print het resultaat
    putStrLn "Gecodeerd YAML:"
    print $ yamlEncode examplePerson
  
    -- Voorbeeld YAML data
    let exampleYAML = "name: Alex\nage: 25\n"
  
    -- Decodeer van YAML en print het resultaat
    putStrLn "Gedecodeerd Haskell:"
    print $ yamlDecode exampleYAML

Gecodeerd YAML:
"age: 30\nname: Chris\n"
Gedecodeerd Haskell:
Right (Person {name = "Alex", age = 25})