protobuf-native-1.0.0.0: tests/Person.hs

{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses #-}
module Person where

import Data.Protobuf
import Data.ByteString (ByteString)

data NameT = Name { firstname :: Maybe ByteString, lastname :: Maybe ByteString }
  deriving (Show, Eq)
protobuf "tests/person.pb.o" ''NameT

data PersonT = Person { name :: NameT, id :: Int, email :: Maybe ByteString }
  deriving (Show, Eq)
protobuf "tests/person.pb.o" ''PersonT