haskell/examples/lib/Examples/Serialization/HighLevel/Write.hs

{-# LANGUAGE OverloadedStrings     #-}
-- Note that DuplicateRecordFields is usually needed, as the generated
-- code relys on it to resolve collisions in capnproto struct field
-- names:
{-# LANGUAGE DuplicateRecordFields #-}
module Examples.Serialization.HighLevel.Write (main) where
import Capnp.Gen.Addressbook.New

-- Note that Capnp.New re-exports `def`, as a convienence
import Capnp.New (def, putParsed)

import qualified Data.Vector as V

main :: IO ()
main = putParsed AddressBook
    { people = V.fromList
        [ Person
            { id = 123
            , name = "Alice"
            , email = "[email protected]"
            , phones = V.fromList
                [ def
                    { number = "555-1212"
                    , type_ =  Person'PhoneNumber'Type'mobile
                    }
                ]
            , employment = Person'employment' $ Person'employment'school "MIT"
            }
        , Person
            { id = 456
            , name = "Bob"
            , email = "[email protected]"
            , phones = V.fromList
                [ def
                    { number = "555-4567"
                    , type_ = Person'PhoneNumber'Type'home
                    }
                , def
                    { number = "555-7654"
                    , type_ = Person'PhoneNumber'Type'work
                    }
                ]
            , employment = Person'employment' Person'employment'selfEmployed
            }
        ]
    }