capnp-0.8.0.0: gen/tests/Capnp/Gen/Aircraft/Pure.hs
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE FunctionalDependencies #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE UndecidableInstances #-}
{-# OPTIONS_GHC -Wno-unused-imports #-}
{-# OPTIONS_GHC -Wno-dodgy-exports #-}
{-# OPTIONS_GHC -Wno-unused-matches #-}
{-# OPTIONS_GHC -Wno-orphans #-}
module Capnp.Gen.Aircraft.Pure(Capnp.Gen.ById.X832bcc6686a26d56.Airport(..)
,constDate
,constList
,Capnp.Gen.ById.X832bcc6686a26d56.constEnum
,Zdate(..)
,Zdata(..)
,PlaneBase(..)
,B737(..)
,A320(..)
,F16(..)
,Regression(..)
,Aircraft(..)
,Z(..)
,Z'grp(..)
,Counter(..)
,Bag(..)
,Zserver(..)
,Zjob(..)
,VerEmpty(..)
,VerOneData(..)
,VerTwoData(..)
,VerOnePtr(..)
,VerTwoPtr(..)
,VerTwoDataTwoPtr(..)
,HoldsVerEmptyList(..)
,HoldsVerOneDataList(..)
,HoldsVerTwoDataList(..)
,HoldsVerOnePtrList(..)
,HoldsVerTwoPtrList(..)
,HoldsVerTwoTwoList(..)
,HoldsVerTwoTwoPlus(..)
,VerTwoTwoPlus(..)
,HoldsText(..)
,WrapEmpty(..)
,Wrap2x2(..)
,Wrap2x2plus(..)
,VoidUnion(..)
,Nester1Capn(..)
,RWTestCapn(..)
,ListStructCapn(..)
,Echo(..)
,Echo'server_(..)
,export_Echo
,Echo'echo'params(..)
,Echo'echo'results(..)
,Hoth(..)
,EchoBase(..)
,EchoBases(..)
,StackingRoot(..)
,StackingA(..)
,StackingB(..)
,CallSequence(..)
,CallSequence'server_(..)
,export_CallSequence
,CallSequence'getNumber'params(..)
,CallSequence'getNumber'results(..)
,CounterFactory(..)
,CounterFactory'server_(..)
,export_CounterFactory
,CounterFactory'newCounter'params(..)
,CounterFactory'newCounter'results(..)
,CounterAcceptor(..)
,CounterAcceptor'server_(..)
,export_CounterAcceptor
,CounterAcceptor'accept'params(..)
,CounterAcceptor'accept'results(..)
,Top(..)
,Top'server_(..)
,export_Top
,Top'top'params(..)
,Top'top'results(..)
,Left(..)
,Left'server_(..)
,export_Left
,Left'left'params(..)
,Left'left'results(..)
,Right(..)
,Right'server_(..)
,export_Right
,Right'right'params(..)
,Right'right'results(..)
,Bottom(..)
,Bottom'server_(..)
,export_Bottom
,Bottom'bottom'params(..)
,Bottom'bottom'results(..)
,Defaults(..)
,BenchmarkA(..)) where
import qualified Capnp.GenHelpers.ReExports.Data.Vector as V
import qualified Capnp.GenHelpers.ReExports.Data.Text as T
import qualified Capnp.GenHelpers.ReExports.Data.ByteString as BS
import qualified Capnp.GenHelpers.ReExports.Data.Default as Default
import qualified GHC.Generics as Generics
import qualified Control.Monad.IO.Class as MonadIO
import qualified Capnp.Untyped.Pure as UntypedPure
import qualified Capnp.Untyped as Untyped
import qualified Capnp.Message as Message
import qualified Capnp.Classes as Classes
import qualified Capnp.Basics.Pure as BasicsPure
import qualified Capnp.GenHelpers.Pure as GenHelpersPure
import qualified Capnp.Rpc.Untyped as Rpc
import qualified Capnp.Rpc.Server as Server
import qualified Capnp.GenHelpers.Rpc as RpcHelpers
import qualified Capnp.GenHelpers.ReExports.Control.Concurrent.STM as STM
import qualified Capnp.GenHelpers.ReExports.Control.Monad.STM.Class as STM
import qualified Capnp.GenHelpers.ReExports.Supervisors as Supervisors
import qualified Capnp.Gen.ById.X832bcc6686a26d56
import qualified Prelude as Std_
import qualified Data.Word as Std_
import qualified Data.Int as Std_
import Prelude ((<$>), (<*>), (>>=))
constDate :: Zdate
constDate = (GenHelpersPure.toPurePtrConst Capnp.Gen.ById.X832bcc6686a26d56.constDate)
constList :: (V.Vector Zdate)
constList = (GenHelpersPure.toPurePtrConst Capnp.Gen.ById.X832bcc6686a26d56.constList)
data Zdate
= Zdate
{year :: Std_.Int16
,month :: Std_.Word8
,day :: Std_.Word8}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Zdate)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Zdate)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Zdate)) where
type Cerial msg (Zdate) = (Capnp.Gen.ById.X832bcc6686a26d56.Zdate msg)
decerialize raw = (Zdate <$> (Capnp.Gen.ById.X832bcc6686a26d56.get_Zdate'year raw)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_Zdate'month raw)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_Zdate'day raw))
instance (Classes.Marshal s (Zdate)) where
marshalInto raw_ value_ = case value_ of
Zdate{..} ->
(do
(Capnp.Gen.ById.X832bcc6686a26d56.set_Zdate'year raw_ year)
(Capnp.Gen.ById.X832bcc6686a26d56.set_Zdate'month raw_ month)
(Capnp.Gen.ById.X832bcc6686a26d56.set_Zdate'day raw_ day)
(Std_.pure ())
)
instance (Classes.Cerialize s (Zdate))
instance (Classes.Cerialize s (V.Vector (Zdate))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Zdate)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Zdate))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Zdate)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Zdate))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Zdate)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Zdate))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data Zdata
= Zdata
{data_ :: BS.ByteString}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Zdata)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Zdata)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Zdata)) where
type Cerial msg (Zdata) = (Capnp.Gen.ById.X832bcc6686a26d56.Zdata msg)
decerialize raw = (Zdata <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_Zdata'data_ raw) >>= Classes.decerialize))
instance (Classes.Marshal s (Zdata)) where
marshalInto raw_ value_ = case value_ of
Zdata{..} ->
(do
((Classes.cerialize (Untyped.message raw_) data_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Zdata'data_ raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (Zdata))
instance (Classes.Cerialize s (V.Vector (Zdata))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Zdata)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Zdata))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Zdata)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Zdata))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Zdata)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Zdata))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data PlaneBase
= PlaneBase
{name :: T.Text
,homes :: (V.Vector Capnp.Gen.ById.X832bcc6686a26d56.Airport)
,rating :: Std_.Int64
,canFly :: Std_.Bool
,capacity :: Std_.Int64
,maxSpeed :: Std_.Double}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (PlaneBase)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (PlaneBase)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (PlaneBase)) where
type Cerial msg (PlaneBase) = (Capnp.Gen.ById.X832bcc6686a26d56.PlaneBase msg)
decerialize raw = (PlaneBase <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_PlaneBase'name raw) >>= Classes.decerialize)
<*> ((Capnp.Gen.ById.X832bcc6686a26d56.get_PlaneBase'homes raw) >>= Classes.decerialize)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_PlaneBase'rating raw)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_PlaneBase'canFly raw)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_PlaneBase'capacity raw)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_PlaneBase'maxSpeed raw))
instance (Classes.Marshal s (PlaneBase)) where
marshalInto raw_ value_ = case value_ of
PlaneBase{..} ->
(do
((Classes.cerialize (Untyped.message raw_) name) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_PlaneBase'name raw_))
((Classes.cerialize (Untyped.message raw_) homes) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_PlaneBase'homes raw_))
(Capnp.Gen.ById.X832bcc6686a26d56.set_PlaneBase'rating raw_ rating)
(Capnp.Gen.ById.X832bcc6686a26d56.set_PlaneBase'canFly raw_ canFly)
(Capnp.Gen.ById.X832bcc6686a26d56.set_PlaneBase'capacity raw_ capacity)
(Capnp.Gen.ById.X832bcc6686a26d56.set_PlaneBase'maxSpeed raw_ maxSpeed)
(Std_.pure ())
)
instance (Classes.Cerialize s (PlaneBase))
instance (Classes.Cerialize s (V.Vector (PlaneBase))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (PlaneBase)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (PlaneBase))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (PlaneBase)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (PlaneBase))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (PlaneBase)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (PlaneBase))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data B737
= B737
{base :: PlaneBase}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (B737)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (B737)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (B737)) where
type Cerial msg (B737) = (Capnp.Gen.ById.X832bcc6686a26d56.B737 msg)
decerialize raw = (B737 <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_B737'base raw) >>= Classes.decerialize))
instance (Classes.Marshal s (B737)) where
marshalInto raw_ value_ = case value_ of
B737{..} ->
(do
((Classes.cerialize (Untyped.message raw_) base) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_B737'base raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (B737))
instance (Classes.Cerialize s (V.Vector (B737))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (B737)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (B737))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (B737)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (B737))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (B737)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (B737))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data A320
= A320
{base :: PlaneBase}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (A320)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (A320)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (A320)) where
type Cerial msg (A320) = (Capnp.Gen.ById.X832bcc6686a26d56.A320 msg)
decerialize raw = (A320 <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_A320'base raw) >>= Classes.decerialize))
instance (Classes.Marshal s (A320)) where
marshalInto raw_ value_ = case value_ of
A320{..} ->
(do
((Classes.cerialize (Untyped.message raw_) base) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_A320'base raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (A320))
instance (Classes.Cerialize s (V.Vector (A320))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (A320)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (A320))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (A320)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (A320))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (A320)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (A320))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data F16
= F16
{base :: PlaneBase}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (F16)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (F16)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (F16)) where
type Cerial msg (F16) = (Capnp.Gen.ById.X832bcc6686a26d56.F16 msg)
decerialize raw = (F16 <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_F16'base raw) >>= Classes.decerialize))
instance (Classes.Marshal s (F16)) where
marshalInto raw_ value_ = case value_ of
F16{..} ->
(do
((Classes.cerialize (Untyped.message raw_) base) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_F16'base raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (F16))
instance (Classes.Cerialize s (V.Vector (F16))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (F16)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (F16))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (F16)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (F16))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (F16)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (F16))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data Regression
= Regression
{base :: PlaneBase
,b0 :: Std_.Double
,beta :: (V.Vector Std_.Double)
,planes :: (V.Vector Aircraft)
,ymu :: Std_.Double
,ysd :: Std_.Double}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Regression)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Regression)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Regression)) where
type Cerial msg (Regression) = (Capnp.Gen.ById.X832bcc6686a26d56.Regression msg)
decerialize raw = (Regression <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_Regression'base raw) >>= Classes.decerialize)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_Regression'b0 raw)
<*> ((Capnp.Gen.ById.X832bcc6686a26d56.get_Regression'beta raw) >>= Classes.decerialize)
<*> ((Capnp.Gen.ById.X832bcc6686a26d56.get_Regression'planes raw) >>= Classes.decerialize)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_Regression'ymu raw)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_Regression'ysd raw))
instance (Classes.Marshal s (Regression)) where
marshalInto raw_ value_ = case value_ of
Regression{..} ->
(do
((Classes.cerialize (Untyped.message raw_) base) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Regression'base raw_))
(Capnp.Gen.ById.X832bcc6686a26d56.set_Regression'b0 raw_ b0)
((Classes.cerialize (Untyped.message raw_) beta) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Regression'beta raw_))
((Classes.cerialize (Untyped.message raw_) planes) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Regression'planes raw_))
(Capnp.Gen.ById.X832bcc6686a26d56.set_Regression'ymu raw_ ymu)
(Capnp.Gen.ById.X832bcc6686a26d56.set_Regression'ysd raw_ ysd)
(Std_.pure ())
)
instance (Classes.Cerialize s (Regression))
instance (Classes.Cerialize s (V.Vector (Regression))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Regression)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Regression))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Regression)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Regression))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Regression)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Regression))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data Aircraft
= Aircraft'void
| Aircraft'b737 B737
| Aircraft'a320 A320
| Aircraft'f16 F16
| Aircraft'unknown' Std_.Word16
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Aircraft)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Aircraft)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Aircraft)) where
type Cerial msg (Aircraft) = (Capnp.Gen.ById.X832bcc6686a26d56.Aircraft msg)
decerialize raw = (do
raw <- (Capnp.Gen.ById.X832bcc6686a26d56.get_Aircraft' raw)
case raw of
(Capnp.Gen.ById.X832bcc6686a26d56.Aircraft'void) ->
(Std_.pure Aircraft'void)
(Capnp.Gen.ById.X832bcc6686a26d56.Aircraft'b737 raw) ->
(Aircraft'b737 <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Aircraft'a320 raw) ->
(Aircraft'a320 <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Aircraft'f16 raw) ->
(Aircraft'f16 <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Aircraft'unknown' tag) ->
(Std_.pure (Aircraft'unknown' tag))
)
instance (Classes.Marshal s (Aircraft)) where
marshalInto raw_ value_ = case value_ of
(Aircraft'void) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_Aircraft'void raw_)
(Aircraft'b737 arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Aircraft'b737 raw_))
(Aircraft'a320 arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Aircraft'a320 raw_))
(Aircraft'f16 arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Aircraft'f16 raw_))
(Aircraft'unknown' tag) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_Aircraft'unknown' raw_ tag)
instance (Classes.Cerialize s (Aircraft))
instance (Classes.Cerialize s (V.Vector (Aircraft))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Aircraft)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Aircraft))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Aircraft)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Aircraft))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Aircraft)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Aircraft))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data Z
= Z'void
| Z'zz Z
| Z'f64 Std_.Double
| Z'f32 Std_.Float
| Z'i64 Std_.Int64
| Z'i32 Std_.Int32
| Z'i16 Std_.Int16
| Z'i8 Std_.Int8
| Z'u64 Std_.Word64
| Z'u32 Std_.Word32
| Z'u16 Std_.Word16
| Z'u8 Std_.Word8
| Z'bool Std_.Bool
| Z'text T.Text
| Z'blob BS.ByteString
| Z'f64vec (V.Vector Std_.Double)
| Z'f32vec (V.Vector Std_.Float)
| Z'i64vec (V.Vector Std_.Int64)
| Z'i32vec (V.Vector Std_.Int32)
| Z'i16vec (V.Vector Std_.Int16)
| Z'i8vec (V.Vector Std_.Int8)
| Z'u64vec (V.Vector Std_.Word64)
| Z'u32vec (V.Vector Std_.Word32)
| Z'u16vec (V.Vector Std_.Word16)
| Z'u8vec (V.Vector Std_.Word8)
| Z'zvec (V.Vector Z)
| Z'zvecvec (V.Vector (V.Vector Z))
| Z'zdate Zdate
| Z'zdata Zdata
| Z'aircraftvec (V.Vector Aircraft)
| Z'aircraft Aircraft
| Z'regression Regression
| Z'planebase PlaneBase
| Z'airport Capnp.Gen.ById.X832bcc6686a26d56.Airport
| Z'b737 B737
| Z'a320 A320
| Z'f16 F16
| Z'zdatevec (V.Vector Zdate)
| Z'zdatavec (V.Vector Zdata)
| Z'boolvec (V.Vector Std_.Bool)
| Z'datavec (V.Vector BS.ByteString)
| Z'textvec (V.Vector T.Text)
| Z'grp Z'grp
| Z'echo Echo
| Z'echoBases EchoBases
| Z'unknown' Std_.Word16
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Z)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Z)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Z)) where
type Cerial msg (Z) = (Capnp.Gen.ById.X832bcc6686a26d56.Z msg)
decerialize raw = (do
raw <- (Capnp.Gen.ById.X832bcc6686a26d56.get_Z' raw)
case raw of
(Capnp.Gen.ById.X832bcc6686a26d56.Z'void) ->
(Std_.pure Z'void)
(Capnp.Gen.ById.X832bcc6686a26d56.Z'zz raw) ->
(Z'zz <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'f64 raw) ->
(Std_.pure (Z'f64 raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'f32 raw) ->
(Std_.pure (Z'f32 raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'i64 raw) ->
(Std_.pure (Z'i64 raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'i32 raw) ->
(Std_.pure (Z'i32 raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'i16 raw) ->
(Std_.pure (Z'i16 raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'i8 raw) ->
(Std_.pure (Z'i8 raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'u64 raw) ->
(Std_.pure (Z'u64 raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'u32 raw) ->
(Std_.pure (Z'u32 raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'u16 raw) ->
(Std_.pure (Z'u16 raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'u8 raw) ->
(Std_.pure (Z'u8 raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'bool raw) ->
(Std_.pure (Z'bool raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'text raw) ->
(Z'text <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'blob raw) ->
(Z'blob <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'f64vec raw) ->
(Z'f64vec <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'f32vec raw) ->
(Z'f32vec <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'i64vec raw) ->
(Z'i64vec <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'i32vec raw) ->
(Z'i32vec <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'i16vec raw) ->
(Z'i16vec <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'i8vec raw) ->
(Z'i8vec <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'u64vec raw) ->
(Z'u64vec <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'u32vec raw) ->
(Z'u32vec <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'u16vec raw) ->
(Z'u16vec <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'u8vec raw) ->
(Z'u8vec <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'zvec raw) ->
(Z'zvec <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'zvecvec raw) ->
(Z'zvecvec <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'zdate raw) ->
(Z'zdate <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'zdata raw) ->
(Z'zdata <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'aircraftvec raw) ->
(Z'aircraftvec <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'aircraft raw) ->
(Z'aircraft <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'regression raw) ->
(Z'regression <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'planebase raw) ->
(Z'planebase <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'airport raw) ->
(Std_.pure (Z'airport raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'b737 raw) ->
(Z'b737 <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'a320 raw) ->
(Z'a320 <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'f16 raw) ->
(Z'f16 <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'zdatevec raw) ->
(Z'zdatevec <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'zdatavec raw) ->
(Z'zdatavec <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'boolvec raw) ->
(Z'boolvec <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'datavec raw) ->
(Z'datavec <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'textvec raw) ->
(Z'textvec <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'grp raw) ->
(Z'grp <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'echo raw) ->
(Z'echo <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'echoBases raw) ->
(Z'echoBases <$> (Classes.decerialize raw))
(Capnp.Gen.ById.X832bcc6686a26d56.Z'unknown' tag) ->
(Std_.pure (Z'unknown' tag))
)
instance (Classes.Marshal s (Z)) where
marshalInto raw_ value_ = case value_ of
(Z'void) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_Z'void raw_)
(Z'zz arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'zz raw_))
(Z'f64 arg_) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_Z'f64 raw_ arg_)
(Z'f32 arg_) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_Z'f32 raw_ arg_)
(Z'i64 arg_) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_Z'i64 raw_ arg_)
(Z'i32 arg_) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_Z'i32 raw_ arg_)
(Z'i16 arg_) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_Z'i16 raw_ arg_)
(Z'i8 arg_) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_Z'i8 raw_ arg_)
(Z'u64 arg_) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_Z'u64 raw_ arg_)
(Z'u32 arg_) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_Z'u32 raw_ arg_)
(Z'u16 arg_) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_Z'u16 raw_ arg_)
(Z'u8 arg_) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_Z'u8 raw_ arg_)
(Z'bool arg_) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_Z'bool raw_ arg_)
(Z'text arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'text raw_))
(Z'blob arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'blob raw_))
(Z'f64vec arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'f64vec raw_))
(Z'f32vec arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'f32vec raw_))
(Z'i64vec arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'i64vec raw_))
(Z'i32vec arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'i32vec raw_))
(Z'i16vec arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'i16vec raw_))
(Z'i8vec arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'i8vec raw_))
(Z'u64vec arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'u64vec raw_))
(Z'u32vec arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'u32vec raw_))
(Z'u16vec arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'u16vec raw_))
(Z'u8vec arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'u8vec raw_))
(Z'zvec arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'zvec raw_))
(Z'zvecvec arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'zvecvec raw_))
(Z'zdate arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'zdate raw_))
(Z'zdata arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'zdata raw_))
(Z'aircraftvec arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'aircraftvec raw_))
(Z'aircraft arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'aircraft raw_))
(Z'regression arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'regression raw_))
(Z'planebase arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'planebase raw_))
(Z'airport arg_) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_Z'airport raw_ arg_)
(Z'b737 arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'b737 raw_))
(Z'a320 arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'a320 raw_))
(Z'f16 arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'f16 raw_))
(Z'zdatevec arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'zdatevec raw_))
(Z'zdatavec arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'zdatavec raw_))
(Z'boolvec arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'boolvec raw_))
(Z'datavec arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'datavec raw_))
(Z'textvec arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'textvec raw_))
(Z'grp arg_) ->
(do
raw_ <- (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'grp raw_)
(Classes.marshalInto raw_ arg_)
)
(Z'echo arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'echo raw_))
(Z'echoBases arg_) ->
((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Z'echoBases raw_))
(Z'unknown' tag) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_Z'unknown' raw_ tag)
instance (Classes.Cerialize s (Z))
instance (Classes.Cerialize s (V.Vector (Z))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Z)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Z))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Z)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Z))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Z)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Z))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data Z'grp
= Z'grp'
{first :: Std_.Word64
,second :: Std_.Word64}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Z'grp)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Z'grp)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Z'grp)) where
type Cerial msg (Z'grp) = (Capnp.Gen.ById.X832bcc6686a26d56.Z'grp msg)
decerialize raw = (Z'grp' <$> (Capnp.Gen.ById.X832bcc6686a26d56.get_Z'grp'first raw)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_Z'grp'second raw))
instance (Classes.Marshal s (Z'grp)) where
marshalInto raw_ value_ = case value_ of
Z'grp'{..} ->
(do
(Capnp.Gen.ById.X832bcc6686a26d56.set_Z'grp'first raw_ first)
(Capnp.Gen.ById.X832bcc6686a26d56.set_Z'grp'second raw_ second)
(Std_.pure ())
)
data Counter
= Counter
{size :: Std_.Int64
,words :: T.Text
,wordlist :: (V.Vector T.Text)}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Counter)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Counter)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Counter)) where
type Cerial msg (Counter) = (Capnp.Gen.ById.X832bcc6686a26d56.Counter msg)
decerialize raw = (Counter <$> (Capnp.Gen.ById.X832bcc6686a26d56.get_Counter'size raw)
<*> ((Capnp.Gen.ById.X832bcc6686a26d56.get_Counter'words raw) >>= Classes.decerialize)
<*> ((Capnp.Gen.ById.X832bcc6686a26d56.get_Counter'wordlist raw) >>= Classes.decerialize))
instance (Classes.Marshal s (Counter)) where
marshalInto raw_ value_ = case value_ of
Counter{..} ->
(do
(Capnp.Gen.ById.X832bcc6686a26d56.set_Counter'size raw_ size)
((Classes.cerialize (Untyped.message raw_) words) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Counter'words raw_))
((Classes.cerialize (Untyped.message raw_) wordlist) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Counter'wordlist raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (Counter))
instance (Classes.Cerialize s (V.Vector (Counter))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Counter)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Counter))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Counter)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Counter))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Counter)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Counter))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data Bag
= Bag
{counter :: Counter}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Bag)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Bag)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Bag)) where
type Cerial msg (Bag) = (Capnp.Gen.ById.X832bcc6686a26d56.Bag msg)
decerialize raw = (Bag <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_Bag'counter raw) >>= Classes.decerialize))
instance (Classes.Marshal s (Bag)) where
marshalInto raw_ value_ = case value_ of
Bag{..} ->
(do
((Classes.cerialize (Untyped.message raw_) counter) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Bag'counter raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (Bag))
instance (Classes.Cerialize s (V.Vector (Bag))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Bag)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Bag))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Bag)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Bag))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Bag)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Bag))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data Zserver
= Zserver
{waitingjobs :: (V.Vector Zjob)}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Zserver)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Zserver)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Zserver)) where
type Cerial msg (Zserver) = (Capnp.Gen.ById.X832bcc6686a26d56.Zserver msg)
decerialize raw = (Zserver <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_Zserver'waitingjobs raw) >>= Classes.decerialize))
instance (Classes.Marshal s (Zserver)) where
marshalInto raw_ value_ = case value_ of
Zserver{..} ->
(do
((Classes.cerialize (Untyped.message raw_) waitingjobs) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Zserver'waitingjobs raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (Zserver))
instance (Classes.Cerialize s (V.Vector (Zserver))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Zserver)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Zserver))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Zserver)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Zserver))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Zserver)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Zserver))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data Zjob
= Zjob
{cmd :: T.Text
,args :: (V.Vector T.Text)}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Zjob)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Zjob)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Zjob)) where
type Cerial msg (Zjob) = (Capnp.Gen.ById.X832bcc6686a26d56.Zjob msg)
decerialize raw = (Zjob <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_Zjob'cmd raw) >>= Classes.decerialize)
<*> ((Capnp.Gen.ById.X832bcc6686a26d56.get_Zjob'args raw) >>= Classes.decerialize))
instance (Classes.Marshal s (Zjob)) where
marshalInto raw_ value_ = case value_ of
Zjob{..} ->
(do
((Classes.cerialize (Untyped.message raw_) cmd) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Zjob'cmd raw_))
((Classes.cerialize (Untyped.message raw_) args) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Zjob'args raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (Zjob))
instance (Classes.Cerialize s (V.Vector (Zjob))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Zjob)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Zjob))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Zjob)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Zjob))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Zjob)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Zjob))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data VerEmpty
= VerEmpty
{}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (VerEmpty)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (VerEmpty)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (VerEmpty)) where
type Cerial msg (VerEmpty) = (Capnp.Gen.ById.X832bcc6686a26d56.VerEmpty msg)
decerialize raw = (Std_.pure VerEmpty)
instance (Classes.Marshal s (VerEmpty)) where
marshalInto raw_ value_ = case value_ of
(VerEmpty) ->
(do
(Std_.pure ())
)
instance (Classes.Cerialize s (VerEmpty))
instance (Classes.Cerialize s (V.Vector (VerEmpty))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (VerEmpty)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (VerEmpty))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (VerEmpty)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerEmpty))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerEmpty)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerEmpty))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data VerOneData
= VerOneData
{val :: Std_.Int16}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (VerOneData)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (VerOneData)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (VerOneData)) where
type Cerial msg (VerOneData) = (Capnp.Gen.ById.X832bcc6686a26d56.VerOneData msg)
decerialize raw = (VerOneData <$> (Capnp.Gen.ById.X832bcc6686a26d56.get_VerOneData'val raw))
instance (Classes.Marshal s (VerOneData)) where
marshalInto raw_ value_ = case value_ of
VerOneData{..} ->
(do
(Capnp.Gen.ById.X832bcc6686a26d56.set_VerOneData'val raw_ val)
(Std_.pure ())
)
instance (Classes.Cerialize s (VerOneData))
instance (Classes.Cerialize s (V.Vector (VerOneData))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (VerOneData)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (VerOneData))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (VerOneData)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerOneData))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerOneData)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerOneData))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data VerTwoData
= VerTwoData
{val :: Std_.Int16
,duo :: Std_.Int64}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (VerTwoData)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (VerTwoData)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (VerTwoData)) where
type Cerial msg (VerTwoData) = (Capnp.Gen.ById.X832bcc6686a26d56.VerTwoData msg)
decerialize raw = (VerTwoData <$> (Capnp.Gen.ById.X832bcc6686a26d56.get_VerTwoData'val raw)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_VerTwoData'duo raw))
instance (Classes.Marshal s (VerTwoData)) where
marshalInto raw_ value_ = case value_ of
VerTwoData{..} ->
(do
(Capnp.Gen.ById.X832bcc6686a26d56.set_VerTwoData'val raw_ val)
(Capnp.Gen.ById.X832bcc6686a26d56.set_VerTwoData'duo raw_ duo)
(Std_.pure ())
)
instance (Classes.Cerialize s (VerTwoData))
instance (Classes.Cerialize s (V.Vector (VerTwoData))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (VerTwoData)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (VerTwoData))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (VerTwoData)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerTwoData))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerTwoData)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerTwoData))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data VerOnePtr
= VerOnePtr
{ptr :: VerOneData}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (VerOnePtr)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (VerOnePtr)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (VerOnePtr)) where
type Cerial msg (VerOnePtr) = (Capnp.Gen.ById.X832bcc6686a26d56.VerOnePtr msg)
decerialize raw = (VerOnePtr <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_VerOnePtr'ptr raw) >>= Classes.decerialize))
instance (Classes.Marshal s (VerOnePtr)) where
marshalInto raw_ value_ = case value_ of
VerOnePtr{..} ->
(do
((Classes.cerialize (Untyped.message raw_) ptr) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_VerOnePtr'ptr raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (VerOnePtr))
instance (Classes.Cerialize s (V.Vector (VerOnePtr))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (VerOnePtr)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (VerOnePtr))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (VerOnePtr)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerOnePtr))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerOnePtr)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerOnePtr))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data VerTwoPtr
= VerTwoPtr
{ptr1 :: VerOneData
,ptr2 :: VerOneData}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (VerTwoPtr)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (VerTwoPtr)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (VerTwoPtr)) where
type Cerial msg (VerTwoPtr) = (Capnp.Gen.ById.X832bcc6686a26d56.VerTwoPtr msg)
decerialize raw = (VerTwoPtr <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_VerTwoPtr'ptr1 raw) >>= Classes.decerialize)
<*> ((Capnp.Gen.ById.X832bcc6686a26d56.get_VerTwoPtr'ptr2 raw) >>= Classes.decerialize))
instance (Classes.Marshal s (VerTwoPtr)) where
marshalInto raw_ value_ = case value_ of
VerTwoPtr{..} ->
(do
((Classes.cerialize (Untyped.message raw_) ptr1) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_VerTwoPtr'ptr1 raw_))
((Classes.cerialize (Untyped.message raw_) ptr2) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_VerTwoPtr'ptr2 raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (VerTwoPtr))
instance (Classes.Cerialize s (V.Vector (VerTwoPtr))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (VerTwoPtr)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (VerTwoPtr))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (VerTwoPtr)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerTwoPtr))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerTwoPtr)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerTwoPtr))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data VerTwoDataTwoPtr
= VerTwoDataTwoPtr
{val :: Std_.Int16
,duo :: Std_.Int64
,ptr1 :: VerOneData
,ptr2 :: VerOneData}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (VerTwoDataTwoPtr)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (VerTwoDataTwoPtr)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (VerTwoDataTwoPtr)) where
type Cerial msg (VerTwoDataTwoPtr) = (Capnp.Gen.ById.X832bcc6686a26d56.VerTwoDataTwoPtr msg)
decerialize raw = (VerTwoDataTwoPtr <$> (Capnp.Gen.ById.X832bcc6686a26d56.get_VerTwoDataTwoPtr'val raw)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_VerTwoDataTwoPtr'duo raw)
<*> ((Capnp.Gen.ById.X832bcc6686a26d56.get_VerTwoDataTwoPtr'ptr1 raw) >>= Classes.decerialize)
<*> ((Capnp.Gen.ById.X832bcc6686a26d56.get_VerTwoDataTwoPtr'ptr2 raw) >>= Classes.decerialize))
instance (Classes.Marshal s (VerTwoDataTwoPtr)) where
marshalInto raw_ value_ = case value_ of
VerTwoDataTwoPtr{..} ->
(do
(Capnp.Gen.ById.X832bcc6686a26d56.set_VerTwoDataTwoPtr'val raw_ val)
(Capnp.Gen.ById.X832bcc6686a26d56.set_VerTwoDataTwoPtr'duo raw_ duo)
((Classes.cerialize (Untyped.message raw_) ptr1) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_VerTwoDataTwoPtr'ptr1 raw_))
((Classes.cerialize (Untyped.message raw_) ptr2) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_VerTwoDataTwoPtr'ptr2 raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (VerTwoDataTwoPtr))
instance (Classes.Cerialize s (V.Vector (VerTwoDataTwoPtr))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (VerTwoDataTwoPtr)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (VerTwoDataTwoPtr))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (VerTwoDataTwoPtr)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerTwoDataTwoPtr))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerTwoDataTwoPtr)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerTwoDataTwoPtr))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data HoldsVerEmptyList
= HoldsVerEmptyList
{mylist :: (V.Vector VerEmpty)}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (HoldsVerEmptyList)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (HoldsVerEmptyList)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (HoldsVerEmptyList)) where
type Cerial msg (HoldsVerEmptyList) = (Capnp.Gen.ById.X832bcc6686a26d56.HoldsVerEmptyList msg)
decerialize raw = (HoldsVerEmptyList <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_HoldsVerEmptyList'mylist raw) >>= Classes.decerialize))
instance (Classes.Marshal s (HoldsVerEmptyList)) where
marshalInto raw_ value_ = case value_ of
HoldsVerEmptyList{..} ->
(do
((Classes.cerialize (Untyped.message raw_) mylist) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_HoldsVerEmptyList'mylist raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (HoldsVerEmptyList))
instance (Classes.Cerialize s (V.Vector (HoldsVerEmptyList))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (HoldsVerEmptyList)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (HoldsVerEmptyList))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerEmptyList)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerEmptyList))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerEmptyList)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerEmptyList))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data HoldsVerOneDataList
= HoldsVerOneDataList
{mylist :: (V.Vector VerOneData)}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (HoldsVerOneDataList)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (HoldsVerOneDataList)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (HoldsVerOneDataList)) where
type Cerial msg (HoldsVerOneDataList) = (Capnp.Gen.ById.X832bcc6686a26d56.HoldsVerOneDataList msg)
decerialize raw = (HoldsVerOneDataList <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_HoldsVerOneDataList'mylist raw) >>= Classes.decerialize))
instance (Classes.Marshal s (HoldsVerOneDataList)) where
marshalInto raw_ value_ = case value_ of
HoldsVerOneDataList{..} ->
(do
((Classes.cerialize (Untyped.message raw_) mylist) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_HoldsVerOneDataList'mylist raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (HoldsVerOneDataList))
instance (Classes.Cerialize s (V.Vector (HoldsVerOneDataList))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (HoldsVerOneDataList)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (HoldsVerOneDataList))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerOneDataList)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerOneDataList))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerOneDataList)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerOneDataList))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data HoldsVerTwoDataList
= HoldsVerTwoDataList
{mylist :: (V.Vector VerTwoData)}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (HoldsVerTwoDataList)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (HoldsVerTwoDataList)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (HoldsVerTwoDataList)) where
type Cerial msg (HoldsVerTwoDataList) = (Capnp.Gen.ById.X832bcc6686a26d56.HoldsVerTwoDataList msg)
decerialize raw = (HoldsVerTwoDataList <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_HoldsVerTwoDataList'mylist raw) >>= Classes.decerialize))
instance (Classes.Marshal s (HoldsVerTwoDataList)) where
marshalInto raw_ value_ = case value_ of
HoldsVerTwoDataList{..} ->
(do
((Classes.cerialize (Untyped.message raw_) mylist) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_HoldsVerTwoDataList'mylist raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (HoldsVerTwoDataList))
instance (Classes.Cerialize s (V.Vector (HoldsVerTwoDataList))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (HoldsVerTwoDataList)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (HoldsVerTwoDataList))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerTwoDataList)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerTwoDataList))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerTwoDataList)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerTwoDataList))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data HoldsVerOnePtrList
= HoldsVerOnePtrList
{mylist :: (V.Vector VerOnePtr)}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (HoldsVerOnePtrList)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (HoldsVerOnePtrList)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (HoldsVerOnePtrList)) where
type Cerial msg (HoldsVerOnePtrList) = (Capnp.Gen.ById.X832bcc6686a26d56.HoldsVerOnePtrList msg)
decerialize raw = (HoldsVerOnePtrList <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_HoldsVerOnePtrList'mylist raw) >>= Classes.decerialize))
instance (Classes.Marshal s (HoldsVerOnePtrList)) where
marshalInto raw_ value_ = case value_ of
HoldsVerOnePtrList{..} ->
(do
((Classes.cerialize (Untyped.message raw_) mylist) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_HoldsVerOnePtrList'mylist raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (HoldsVerOnePtrList))
instance (Classes.Cerialize s (V.Vector (HoldsVerOnePtrList))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (HoldsVerOnePtrList)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (HoldsVerOnePtrList))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerOnePtrList)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerOnePtrList))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerOnePtrList)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerOnePtrList))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data HoldsVerTwoPtrList
= HoldsVerTwoPtrList
{mylist :: (V.Vector VerTwoPtr)}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (HoldsVerTwoPtrList)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (HoldsVerTwoPtrList)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (HoldsVerTwoPtrList)) where
type Cerial msg (HoldsVerTwoPtrList) = (Capnp.Gen.ById.X832bcc6686a26d56.HoldsVerTwoPtrList msg)
decerialize raw = (HoldsVerTwoPtrList <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_HoldsVerTwoPtrList'mylist raw) >>= Classes.decerialize))
instance (Classes.Marshal s (HoldsVerTwoPtrList)) where
marshalInto raw_ value_ = case value_ of
HoldsVerTwoPtrList{..} ->
(do
((Classes.cerialize (Untyped.message raw_) mylist) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_HoldsVerTwoPtrList'mylist raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (HoldsVerTwoPtrList))
instance (Classes.Cerialize s (V.Vector (HoldsVerTwoPtrList))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (HoldsVerTwoPtrList)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (HoldsVerTwoPtrList))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerTwoPtrList)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerTwoPtrList))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerTwoPtrList)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerTwoPtrList))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data HoldsVerTwoTwoList
= HoldsVerTwoTwoList
{mylist :: (V.Vector VerTwoDataTwoPtr)}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (HoldsVerTwoTwoList)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (HoldsVerTwoTwoList)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (HoldsVerTwoTwoList)) where
type Cerial msg (HoldsVerTwoTwoList) = (Capnp.Gen.ById.X832bcc6686a26d56.HoldsVerTwoTwoList msg)
decerialize raw = (HoldsVerTwoTwoList <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_HoldsVerTwoTwoList'mylist raw) >>= Classes.decerialize))
instance (Classes.Marshal s (HoldsVerTwoTwoList)) where
marshalInto raw_ value_ = case value_ of
HoldsVerTwoTwoList{..} ->
(do
((Classes.cerialize (Untyped.message raw_) mylist) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_HoldsVerTwoTwoList'mylist raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (HoldsVerTwoTwoList))
instance (Classes.Cerialize s (V.Vector (HoldsVerTwoTwoList))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (HoldsVerTwoTwoList)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (HoldsVerTwoTwoList))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerTwoTwoList)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerTwoTwoList))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerTwoTwoList)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerTwoTwoList))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data HoldsVerTwoTwoPlus
= HoldsVerTwoTwoPlus
{mylist :: (V.Vector VerTwoTwoPlus)}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (HoldsVerTwoTwoPlus)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (HoldsVerTwoTwoPlus)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (HoldsVerTwoTwoPlus)) where
type Cerial msg (HoldsVerTwoTwoPlus) = (Capnp.Gen.ById.X832bcc6686a26d56.HoldsVerTwoTwoPlus msg)
decerialize raw = (HoldsVerTwoTwoPlus <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_HoldsVerTwoTwoPlus'mylist raw) >>= Classes.decerialize))
instance (Classes.Marshal s (HoldsVerTwoTwoPlus)) where
marshalInto raw_ value_ = case value_ of
HoldsVerTwoTwoPlus{..} ->
(do
((Classes.cerialize (Untyped.message raw_) mylist) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_HoldsVerTwoTwoPlus'mylist raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (HoldsVerTwoTwoPlus))
instance (Classes.Cerialize s (V.Vector (HoldsVerTwoTwoPlus))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (HoldsVerTwoTwoPlus)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (HoldsVerTwoTwoPlus))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerTwoTwoPlus)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerTwoTwoPlus))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerTwoTwoPlus)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsVerTwoTwoPlus))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data VerTwoTwoPlus
= VerTwoTwoPlus
{val :: Std_.Int16
,duo :: Std_.Int64
,ptr1 :: VerTwoDataTwoPtr
,ptr2 :: VerTwoDataTwoPtr
,tre :: Std_.Int64
,lst3 :: (V.Vector Std_.Int64)}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (VerTwoTwoPlus)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (VerTwoTwoPlus)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (VerTwoTwoPlus)) where
type Cerial msg (VerTwoTwoPlus) = (Capnp.Gen.ById.X832bcc6686a26d56.VerTwoTwoPlus msg)
decerialize raw = (VerTwoTwoPlus <$> (Capnp.Gen.ById.X832bcc6686a26d56.get_VerTwoTwoPlus'val raw)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_VerTwoTwoPlus'duo raw)
<*> ((Capnp.Gen.ById.X832bcc6686a26d56.get_VerTwoTwoPlus'ptr1 raw) >>= Classes.decerialize)
<*> ((Capnp.Gen.ById.X832bcc6686a26d56.get_VerTwoTwoPlus'ptr2 raw) >>= Classes.decerialize)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_VerTwoTwoPlus'tre raw)
<*> ((Capnp.Gen.ById.X832bcc6686a26d56.get_VerTwoTwoPlus'lst3 raw) >>= Classes.decerialize))
instance (Classes.Marshal s (VerTwoTwoPlus)) where
marshalInto raw_ value_ = case value_ of
VerTwoTwoPlus{..} ->
(do
(Capnp.Gen.ById.X832bcc6686a26d56.set_VerTwoTwoPlus'val raw_ val)
(Capnp.Gen.ById.X832bcc6686a26d56.set_VerTwoTwoPlus'duo raw_ duo)
((Classes.cerialize (Untyped.message raw_) ptr1) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_VerTwoTwoPlus'ptr1 raw_))
((Classes.cerialize (Untyped.message raw_) ptr2) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_VerTwoTwoPlus'ptr2 raw_))
(Capnp.Gen.ById.X832bcc6686a26d56.set_VerTwoTwoPlus'tre raw_ tre)
((Classes.cerialize (Untyped.message raw_) lst3) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_VerTwoTwoPlus'lst3 raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (VerTwoTwoPlus))
instance (Classes.Cerialize s (V.Vector (VerTwoTwoPlus))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (VerTwoTwoPlus)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (VerTwoTwoPlus))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (VerTwoTwoPlus)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerTwoTwoPlus))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerTwoTwoPlus)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VerTwoTwoPlus))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data HoldsText
= HoldsText
{txt :: T.Text
,lst :: (V.Vector T.Text)
,lstlst :: (V.Vector (V.Vector T.Text))}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (HoldsText)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (HoldsText)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (HoldsText)) where
type Cerial msg (HoldsText) = (Capnp.Gen.ById.X832bcc6686a26d56.HoldsText msg)
decerialize raw = (HoldsText <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_HoldsText'txt raw) >>= Classes.decerialize)
<*> ((Capnp.Gen.ById.X832bcc6686a26d56.get_HoldsText'lst raw) >>= Classes.decerialize)
<*> ((Capnp.Gen.ById.X832bcc6686a26d56.get_HoldsText'lstlst raw) >>= Classes.decerialize))
instance (Classes.Marshal s (HoldsText)) where
marshalInto raw_ value_ = case value_ of
HoldsText{..} ->
(do
((Classes.cerialize (Untyped.message raw_) txt) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_HoldsText'txt raw_))
((Classes.cerialize (Untyped.message raw_) lst) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_HoldsText'lst raw_))
((Classes.cerialize (Untyped.message raw_) lstlst) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_HoldsText'lstlst raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (HoldsText))
instance (Classes.Cerialize s (V.Vector (HoldsText))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (HoldsText)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (HoldsText))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (HoldsText)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsText))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsText)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HoldsText))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data WrapEmpty
= WrapEmpty
{mightNotBeReallyEmpty :: VerEmpty}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (WrapEmpty)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (WrapEmpty)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (WrapEmpty)) where
type Cerial msg (WrapEmpty) = (Capnp.Gen.ById.X832bcc6686a26d56.WrapEmpty msg)
decerialize raw = (WrapEmpty <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_WrapEmpty'mightNotBeReallyEmpty raw) >>= Classes.decerialize))
instance (Classes.Marshal s (WrapEmpty)) where
marshalInto raw_ value_ = case value_ of
WrapEmpty{..} ->
(do
((Classes.cerialize (Untyped.message raw_) mightNotBeReallyEmpty) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_WrapEmpty'mightNotBeReallyEmpty raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (WrapEmpty))
instance (Classes.Cerialize s (V.Vector (WrapEmpty))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (WrapEmpty)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (WrapEmpty))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (WrapEmpty)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (WrapEmpty))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (WrapEmpty)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (WrapEmpty))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data Wrap2x2
= Wrap2x2
{mightNotBeReallyEmpty :: VerTwoDataTwoPtr}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Wrap2x2)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Wrap2x2)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Wrap2x2)) where
type Cerial msg (Wrap2x2) = (Capnp.Gen.ById.X832bcc6686a26d56.Wrap2x2 msg)
decerialize raw = (Wrap2x2 <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_Wrap2x2'mightNotBeReallyEmpty raw) >>= Classes.decerialize))
instance (Classes.Marshal s (Wrap2x2)) where
marshalInto raw_ value_ = case value_ of
Wrap2x2{..} ->
(do
((Classes.cerialize (Untyped.message raw_) mightNotBeReallyEmpty) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Wrap2x2'mightNotBeReallyEmpty raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (Wrap2x2))
instance (Classes.Cerialize s (V.Vector (Wrap2x2))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Wrap2x2)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Wrap2x2))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Wrap2x2)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Wrap2x2))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Wrap2x2)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Wrap2x2))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data Wrap2x2plus
= Wrap2x2plus
{mightNotBeReallyEmpty :: VerTwoTwoPlus}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Wrap2x2plus)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Wrap2x2plus)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Wrap2x2plus)) where
type Cerial msg (Wrap2x2plus) = (Capnp.Gen.ById.X832bcc6686a26d56.Wrap2x2plus msg)
decerialize raw = (Wrap2x2plus <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_Wrap2x2plus'mightNotBeReallyEmpty raw) >>= Classes.decerialize))
instance (Classes.Marshal s (Wrap2x2plus)) where
marshalInto raw_ value_ = case value_ of
Wrap2x2plus{..} ->
(do
((Classes.cerialize (Untyped.message raw_) mightNotBeReallyEmpty) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Wrap2x2plus'mightNotBeReallyEmpty raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (Wrap2x2plus))
instance (Classes.Cerialize s (V.Vector (Wrap2x2plus))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Wrap2x2plus)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Wrap2x2plus))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Wrap2x2plus)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Wrap2x2plus))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Wrap2x2plus)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Wrap2x2plus))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data VoidUnion
= VoidUnion'a
| VoidUnion'b
| VoidUnion'unknown' Std_.Word16
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (VoidUnion)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (VoidUnion)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (VoidUnion)) where
type Cerial msg (VoidUnion) = (Capnp.Gen.ById.X832bcc6686a26d56.VoidUnion msg)
decerialize raw = (do
raw <- (Capnp.Gen.ById.X832bcc6686a26d56.get_VoidUnion' raw)
case raw of
(Capnp.Gen.ById.X832bcc6686a26d56.VoidUnion'a) ->
(Std_.pure VoidUnion'a)
(Capnp.Gen.ById.X832bcc6686a26d56.VoidUnion'b) ->
(Std_.pure VoidUnion'b)
(Capnp.Gen.ById.X832bcc6686a26d56.VoidUnion'unknown' tag) ->
(Std_.pure (VoidUnion'unknown' tag))
)
instance (Classes.Marshal s (VoidUnion)) where
marshalInto raw_ value_ = case value_ of
(VoidUnion'a) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_VoidUnion'a raw_)
(VoidUnion'b) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_VoidUnion'b raw_)
(VoidUnion'unknown' tag) ->
(Capnp.Gen.ById.X832bcc6686a26d56.set_VoidUnion'unknown' raw_ tag)
instance (Classes.Cerialize s (VoidUnion))
instance (Classes.Cerialize s (V.Vector (VoidUnion))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (VoidUnion)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (VoidUnion))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (VoidUnion)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VoidUnion))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VoidUnion)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (VoidUnion))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data Nester1Capn
= Nester1Capn
{strs :: (V.Vector T.Text)}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Nester1Capn)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Nester1Capn)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Nester1Capn)) where
type Cerial msg (Nester1Capn) = (Capnp.Gen.ById.X832bcc6686a26d56.Nester1Capn msg)
decerialize raw = (Nester1Capn <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_Nester1Capn'strs raw) >>= Classes.decerialize))
instance (Classes.Marshal s (Nester1Capn)) where
marshalInto raw_ value_ = case value_ of
Nester1Capn{..} ->
(do
((Classes.cerialize (Untyped.message raw_) strs) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Nester1Capn'strs raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (Nester1Capn))
instance (Classes.Cerialize s (V.Vector (Nester1Capn))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Nester1Capn)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Nester1Capn))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Nester1Capn)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Nester1Capn))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Nester1Capn)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Nester1Capn))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data RWTestCapn
= RWTestCapn
{nestMatrix :: (V.Vector (V.Vector Nester1Capn))}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (RWTestCapn)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (RWTestCapn)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (RWTestCapn)) where
type Cerial msg (RWTestCapn) = (Capnp.Gen.ById.X832bcc6686a26d56.RWTestCapn msg)
decerialize raw = (RWTestCapn <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_RWTestCapn'nestMatrix raw) >>= Classes.decerialize))
instance (Classes.Marshal s (RWTestCapn)) where
marshalInto raw_ value_ = case value_ of
RWTestCapn{..} ->
(do
((Classes.cerialize (Untyped.message raw_) nestMatrix) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_RWTestCapn'nestMatrix raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (RWTestCapn))
instance (Classes.Cerialize s (V.Vector (RWTestCapn))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (RWTestCapn)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (RWTestCapn))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (RWTestCapn)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (RWTestCapn))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (RWTestCapn)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (RWTestCapn))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data ListStructCapn
= ListStructCapn
{vec :: (V.Vector Nester1Capn)}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (ListStructCapn)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (ListStructCapn)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (ListStructCapn)) where
type Cerial msg (ListStructCapn) = (Capnp.Gen.ById.X832bcc6686a26d56.ListStructCapn msg)
decerialize raw = (ListStructCapn <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_ListStructCapn'vec raw) >>= Classes.decerialize))
instance (Classes.Marshal s (ListStructCapn)) where
marshalInto raw_ value_ = case value_ of
ListStructCapn{..} ->
(do
((Classes.cerialize (Untyped.message raw_) vec) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_ListStructCapn'vec raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (ListStructCapn))
instance (Classes.Cerialize s (V.Vector (ListStructCapn))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (ListStructCapn)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (ListStructCapn))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (ListStructCapn)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (ListStructCapn))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (ListStructCapn)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (ListStructCapn))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
newtype Echo
= Echo Message.Client
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
class ((MonadIO.MonadIO m)
,(Server.Server m cap)) => (Echo'server_ m cap) where
{-# MINIMAL echo'echo #-}
echo'echo :: cap -> (Server.MethodHandler m Echo'echo'params Echo'echo'results)
echo'echo _ = Server.methodUnimplemented
export_Echo :: ((STM.MonadSTM m)
,(Echo'server_ Std_.IO cap)) => Supervisors.Supervisor -> cap -> (m (Echo))
export_Echo sup_ server_ = (STM.liftSTM (Echo <$> (Rpc.export sup_ Server.ServerOps{handleCast = (Server.unwrap server_)
,handleStop = (Server.shutdown server_)
,handleCall = (\interfaceId_ methodId_ -> case interfaceId_ of
10255578992688506164 ->
case methodId_ of
0 ->
(Server.toUntypedHandler (echo'echo server_))
_ ->
Server.methodUnimplemented
_ ->
Server.methodUnimplemented)})))
instance (Rpc.IsClient (Echo)) where
fromClient = Echo
toClient (Echo client) = client
instance (Classes.FromPtr msg (Echo)) where
fromPtr = RpcHelpers.isClientFromPtr
instance (Classes.ToPtr s (Echo)) where
toPtr = RpcHelpers.isClientToPtr
instance (Classes.Decerialize (Echo)) where
type Cerial msg (Echo) = (Capnp.Gen.ById.X832bcc6686a26d56.Echo msg)
decerialize (Capnp.Gen.ById.X832bcc6686a26d56.Echo'newtype_ maybeCap) = case maybeCap of
(Std_.Nothing) ->
(Std_.pure (Echo Message.nullClient))
(Std_.Just cap) ->
(Echo <$> (Untyped.getClient cap))
instance (Classes.Cerialize s (Echo)) where
cerialize msg (Echo client) = (Capnp.Gen.ById.X832bcc6686a26d56.Echo'newtype_ <$> (Std_.Just <$> (Untyped.appendCap msg client)))
instance (Server.Server Std_.IO (Echo))
instance (Echo'server_ Std_.IO (Echo)) where
echo'echo (Echo client) = (Rpc.clientMethodHandler 10255578992688506164 0 client)
data Echo'echo'params
= Echo'echo'params
{in_ :: T.Text}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Echo'echo'params)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Echo'echo'params)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Echo'echo'params)) where
type Cerial msg (Echo'echo'params) = (Capnp.Gen.ById.X832bcc6686a26d56.Echo'echo'params msg)
decerialize raw = (Echo'echo'params <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_Echo'echo'params'in_ raw) >>= Classes.decerialize))
instance (Classes.Marshal s (Echo'echo'params)) where
marshalInto raw_ value_ = case value_ of
Echo'echo'params{..} ->
(do
((Classes.cerialize (Untyped.message raw_) in_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Echo'echo'params'in_ raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (Echo'echo'params))
instance (Classes.Cerialize s (V.Vector (Echo'echo'params))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Echo'echo'params)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Echo'echo'params))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Echo'echo'params)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Echo'echo'params))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Echo'echo'params)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Echo'echo'params))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data Echo'echo'results
= Echo'echo'results
{out :: T.Text}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Echo'echo'results)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Echo'echo'results)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Echo'echo'results)) where
type Cerial msg (Echo'echo'results) = (Capnp.Gen.ById.X832bcc6686a26d56.Echo'echo'results msg)
decerialize raw = (Echo'echo'results <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_Echo'echo'results'out raw) >>= Classes.decerialize))
instance (Classes.Marshal s (Echo'echo'results)) where
marshalInto raw_ value_ = case value_ of
Echo'echo'results{..} ->
(do
((Classes.cerialize (Untyped.message raw_) out) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Echo'echo'results'out raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (Echo'echo'results))
instance (Classes.Cerialize s (V.Vector (Echo'echo'results))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Echo'echo'results)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Echo'echo'results))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Echo'echo'results)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Echo'echo'results))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Echo'echo'results)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Echo'echo'results))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data Hoth
= Hoth
{base :: EchoBase}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Hoth)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Hoth)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Hoth)) where
type Cerial msg (Hoth) = (Capnp.Gen.ById.X832bcc6686a26d56.Hoth msg)
decerialize raw = (Hoth <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_Hoth'base raw) >>= Classes.decerialize))
instance (Classes.Marshal s (Hoth)) where
marshalInto raw_ value_ = case value_ of
Hoth{..} ->
(do
((Classes.cerialize (Untyped.message raw_) base) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Hoth'base raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (Hoth))
instance (Classes.Cerialize s (V.Vector (Hoth))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Hoth)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Hoth))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Hoth)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Hoth))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Hoth)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Hoth))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data EchoBase
= EchoBase
{echo :: Echo}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (EchoBase)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (EchoBase)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (EchoBase)) where
type Cerial msg (EchoBase) = (Capnp.Gen.ById.X832bcc6686a26d56.EchoBase msg)
decerialize raw = (EchoBase <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_EchoBase'echo raw) >>= Classes.decerialize))
instance (Classes.Marshal s (EchoBase)) where
marshalInto raw_ value_ = case value_ of
EchoBase{..} ->
(do
((Classes.cerialize (Untyped.message raw_) echo) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_EchoBase'echo raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (EchoBase))
instance (Classes.Cerialize s (V.Vector (EchoBase))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (EchoBase)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (EchoBase))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (EchoBase)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (EchoBase))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (EchoBase)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (EchoBase))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data EchoBases
= EchoBases
{bases :: (V.Vector EchoBase)}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (EchoBases)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (EchoBases)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (EchoBases)) where
type Cerial msg (EchoBases) = (Capnp.Gen.ById.X832bcc6686a26d56.EchoBases msg)
decerialize raw = (EchoBases <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_EchoBases'bases raw) >>= Classes.decerialize))
instance (Classes.Marshal s (EchoBases)) where
marshalInto raw_ value_ = case value_ of
EchoBases{..} ->
(do
((Classes.cerialize (Untyped.message raw_) bases) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_EchoBases'bases raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (EchoBases))
instance (Classes.Cerialize s (V.Vector (EchoBases))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (EchoBases)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (EchoBases))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (EchoBases)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (EchoBases))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (EchoBases)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (EchoBases))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data StackingRoot
= StackingRoot
{aWithDefault :: StackingA
,a :: StackingA}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (StackingRoot)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (StackingRoot)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (StackingRoot)) where
type Cerial msg (StackingRoot) = (Capnp.Gen.ById.X832bcc6686a26d56.StackingRoot msg)
decerialize raw = (StackingRoot <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_StackingRoot'aWithDefault raw) >>= Classes.decerialize)
<*> ((Capnp.Gen.ById.X832bcc6686a26d56.get_StackingRoot'a raw) >>= Classes.decerialize))
instance (Classes.Marshal s (StackingRoot)) where
marshalInto raw_ value_ = case value_ of
StackingRoot{..} ->
(do
((Classes.cerialize (Untyped.message raw_) aWithDefault) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_StackingRoot'aWithDefault raw_))
((Classes.cerialize (Untyped.message raw_) a) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_StackingRoot'a raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (StackingRoot))
instance (Classes.Cerialize s (V.Vector (StackingRoot))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (StackingRoot)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (StackingRoot))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (StackingRoot)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (StackingRoot))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (StackingRoot)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (StackingRoot))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data StackingA
= StackingA
{num :: Std_.Int32
,b :: StackingB}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (StackingA)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (StackingA)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (StackingA)) where
type Cerial msg (StackingA) = (Capnp.Gen.ById.X832bcc6686a26d56.StackingA msg)
decerialize raw = (StackingA <$> (Capnp.Gen.ById.X832bcc6686a26d56.get_StackingA'num raw)
<*> ((Capnp.Gen.ById.X832bcc6686a26d56.get_StackingA'b raw) >>= Classes.decerialize))
instance (Classes.Marshal s (StackingA)) where
marshalInto raw_ value_ = case value_ of
StackingA{..} ->
(do
(Capnp.Gen.ById.X832bcc6686a26d56.set_StackingA'num raw_ num)
((Classes.cerialize (Untyped.message raw_) b) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_StackingA'b raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (StackingA))
instance (Classes.Cerialize s (V.Vector (StackingA))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (StackingA)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (StackingA))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (StackingA)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (StackingA))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (StackingA)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (StackingA))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data StackingB
= StackingB
{num :: Std_.Int32}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (StackingB)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (StackingB)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (StackingB)) where
type Cerial msg (StackingB) = (Capnp.Gen.ById.X832bcc6686a26d56.StackingB msg)
decerialize raw = (StackingB <$> (Capnp.Gen.ById.X832bcc6686a26d56.get_StackingB'num raw))
instance (Classes.Marshal s (StackingB)) where
marshalInto raw_ value_ = case value_ of
StackingB{..} ->
(do
(Capnp.Gen.ById.X832bcc6686a26d56.set_StackingB'num raw_ num)
(Std_.pure ())
)
instance (Classes.Cerialize s (StackingB))
instance (Classes.Cerialize s (V.Vector (StackingB))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (StackingB)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (StackingB))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (StackingB)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (StackingB))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (StackingB)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (StackingB))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
newtype CallSequence
= CallSequence Message.Client
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
class ((MonadIO.MonadIO m)
,(Server.Server m cap)) => (CallSequence'server_ m cap) where
{-# MINIMAL callSequence'getNumber #-}
callSequence'getNumber :: cap -> (Server.MethodHandler m CallSequence'getNumber'params CallSequence'getNumber'results)
callSequence'getNumber _ = Server.methodUnimplemented
export_CallSequence :: ((STM.MonadSTM m)
,(CallSequence'server_ Std_.IO cap)) => Supervisors.Supervisor -> cap -> (m (CallSequence))
export_CallSequence sup_ server_ = (STM.liftSTM (CallSequence <$> (Rpc.export sup_ Server.ServerOps{handleCast = (Server.unwrap server_)
,handleStop = (Server.shutdown server_)
,handleCall = (\interfaceId_ methodId_ -> case interfaceId_ of
12371070827563042848 ->
case methodId_ of
0 ->
(Server.toUntypedHandler (callSequence'getNumber server_))
_ ->
Server.methodUnimplemented
_ ->
Server.methodUnimplemented)})))
instance (Rpc.IsClient (CallSequence)) where
fromClient = CallSequence
toClient (CallSequence client) = client
instance (Classes.FromPtr msg (CallSequence)) where
fromPtr = RpcHelpers.isClientFromPtr
instance (Classes.ToPtr s (CallSequence)) where
toPtr = RpcHelpers.isClientToPtr
instance (Classes.Decerialize (CallSequence)) where
type Cerial msg (CallSequence) = (Capnp.Gen.ById.X832bcc6686a26d56.CallSequence msg)
decerialize (Capnp.Gen.ById.X832bcc6686a26d56.CallSequence'newtype_ maybeCap) = case maybeCap of
(Std_.Nothing) ->
(Std_.pure (CallSequence Message.nullClient))
(Std_.Just cap) ->
(CallSequence <$> (Untyped.getClient cap))
instance (Classes.Cerialize s (CallSequence)) where
cerialize msg (CallSequence client) = (Capnp.Gen.ById.X832bcc6686a26d56.CallSequence'newtype_ <$> (Std_.Just <$> (Untyped.appendCap msg client)))
instance (Server.Server Std_.IO (CallSequence))
instance (CallSequence'server_ Std_.IO (CallSequence)) where
callSequence'getNumber (CallSequence client) = (Rpc.clientMethodHandler 12371070827563042848 0 client)
data CallSequence'getNumber'params
= CallSequence'getNumber'params
{}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (CallSequence'getNumber'params)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (CallSequence'getNumber'params)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (CallSequence'getNumber'params)) where
type Cerial msg (CallSequence'getNumber'params) = (Capnp.Gen.ById.X832bcc6686a26d56.CallSequence'getNumber'params msg)
decerialize raw = (Std_.pure CallSequence'getNumber'params)
instance (Classes.Marshal s (CallSequence'getNumber'params)) where
marshalInto raw_ value_ = case value_ of
(CallSequence'getNumber'params) ->
(do
(Std_.pure ())
)
instance (Classes.Cerialize s (CallSequence'getNumber'params))
instance (Classes.Cerialize s (V.Vector (CallSequence'getNumber'params))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (CallSequence'getNumber'params)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (CallSequence'getNumber'params))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (CallSequence'getNumber'params)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (CallSequence'getNumber'params))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (CallSequence'getNumber'params)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (CallSequence'getNumber'params))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data CallSequence'getNumber'results
= CallSequence'getNumber'results
{n :: Std_.Word32}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (CallSequence'getNumber'results)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (CallSequence'getNumber'results)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (CallSequence'getNumber'results)) where
type Cerial msg (CallSequence'getNumber'results) = (Capnp.Gen.ById.X832bcc6686a26d56.CallSequence'getNumber'results msg)
decerialize raw = (CallSequence'getNumber'results <$> (Capnp.Gen.ById.X832bcc6686a26d56.get_CallSequence'getNumber'results'n raw))
instance (Classes.Marshal s (CallSequence'getNumber'results)) where
marshalInto raw_ value_ = case value_ of
CallSequence'getNumber'results{..} ->
(do
(Capnp.Gen.ById.X832bcc6686a26d56.set_CallSequence'getNumber'results'n raw_ n)
(Std_.pure ())
)
instance (Classes.Cerialize s (CallSequence'getNumber'results))
instance (Classes.Cerialize s (V.Vector (CallSequence'getNumber'results))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (CallSequence'getNumber'results)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (CallSequence'getNumber'results))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (CallSequence'getNumber'results)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (CallSequence'getNumber'results))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (CallSequence'getNumber'results)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (CallSequence'getNumber'results))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
newtype CounterFactory
= CounterFactory Message.Client
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
class ((MonadIO.MonadIO m)
,(Server.Server m cap)) => (CounterFactory'server_ m cap) where
{-# MINIMAL counterFactory'newCounter #-}
counterFactory'newCounter :: cap -> (Server.MethodHandler m CounterFactory'newCounter'params CounterFactory'newCounter'results)
counterFactory'newCounter _ = Server.methodUnimplemented
export_CounterFactory :: ((STM.MonadSTM m)
,(CounterFactory'server_ Std_.IO cap)) => Supervisors.Supervisor -> cap -> (m (CounterFactory))
export_CounterFactory sup_ server_ = (STM.liftSTM (CounterFactory <$> (Rpc.export sup_ Server.ServerOps{handleCast = (Server.unwrap server_)
,handleStop = (Server.shutdown server_)
,handleCall = (\interfaceId_ methodId_ -> case interfaceId_ of
15610220054254702620 ->
case methodId_ of
0 ->
(Server.toUntypedHandler (counterFactory'newCounter server_))
_ ->
Server.methodUnimplemented
_ ->
Server.methodUnimplemented)})))
instance (Rpc.IsClient (CounterFactory)) where
fromClient = CounterFactory
toClient (CounterFactory client) = client
instance (Classes.FromPtr msg (CounterFactory)) where
fromPtr = RpcHelpers.isClientFromPtr
instance (Classes.ToPtr s (CounterFactory)) where
toPtr = RpcHelpers.isClientToPtr
instance (Classes.Decerialize (CounterFactory)) where
type Cerial msg (CounterFactory) = (Capnp.Gen.ById.X832bcc6686a26d56.CounterFactory msg)
decerialize (Capnp.Gen.ById.X832bcc6686a26d56.CounterFactory'newtype_ maybeCap) = case maybeCap of
(Std_.Nothing) ->
(Std_.pure (CounterFactory Message.nullClient))
(Std_.Just cap) ->
(CounterFactory <$> (Untyped.getClient cap))
instance (Classes.Cerialize s (CounterFactory)) where
cerialize msg (CounterFactory client) = (Capnp.Gen.ById.X832bcc6686a26d56.CounterFactory'newtype_ <$> (Std_.Just <$> (Untyped.appendCap msg client)))
instance (Server.Server Std_.IO (CounterFactory))
instance (CounterFactory'server_ Std_.IO (CounterFactory)) where
counterFactory'newCounter (CounterFactory client) = (Rpc.clientMethodHandler 15610220054254702620 0 client)
data CounterFactory'newCounter'params
= CounterFactory'newCounter'params
{start :: Std_.Word32}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (CounterFactory'newCounter'params)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (CounterFactory'newCounter'params)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (CounterFactory'newCounter'params)) where
type Cerial msg (CounterFactory'newCounter'params) = (Capnp.Gen.ById.X832bcc6686a26d56.CounterFactory'newCounter'params msg)
decerialize raw = (CounterFactory'newCounter'params <$> (Capnp.Gen.ById.X832bcc6686a26d56.get_CounterFactory'newCounter'params'start raw))
instance (Classes.Marshal s (CounterFactory'newCounter'params)) where
marshalInto raw_ value_ = case value_ of
CounterFactory'newCounter'params{..} ->
(do
(Capnp.Gen.ById.X832bcc6686a26d56.set_CounterFactory'newCounter'params'start raw_ start)
(Std_.pure ())
)
instance (Classes.Cerialize s (CounterFactory'newCounter'params))
instance (Classes.Cerialize s (V.Vector (CounterFactory'newCounter'params))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (CounterFactory'newCounter'params)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (CounterFactory'newCounter'params))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (CounterFactory'newCounter'params)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (CounterFactory'newCounter'params))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (CounterFactory'newCounter'params)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (CounterFactory'newCounter'params))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data CounterFactory'newCounter'results
= CounterFactory'newCounter'results
{counter :: CallSequence}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (CounterFactory'newCounter'results)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (CounterFactory'newCounter'results)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (CounterFactory'newCounter'results)) where
type Cerial msg (CounterFactory'newCounter'results) = (Capnp.Gen.ById.X832bcc6686a26d56.CounterFactory'newCounter'results msg)
decerialize raw = (CounterFactory'newCounter'results <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_CounterFactory'newCounter'results'counter raw) >>= Classes.decerialize))
instance (Classes.Marshal s (CounterFactory'newCounter'results)) where
marshalInto raw_ value_ = case value_ of
CounterFactory'newCounter'results{..} ->
(do
((Classes.cerialize (Untyped.message raw_) counter) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_CounterFactory'newCounter'results'counter raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (CounterFactory'newCounter'results))
instance (Classes.Cerialize s (V.Vector (CounterFactory'newCounter'results))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (CounterFactory'newCounter'results)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (CounterFactory'newCounter'results))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (CounterFactory'newCounter'results)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (CounterFactory'newCounter'results))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (CounterFactory'newCounter'results)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (CounterFactory'newCounter'results))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
newtype CounterAcceptor
= CounterAcceptor Message.Client
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
class ((MonadIO.MonadIO m)
,(Server.Server m cap)) => (CounterAcceptor'server_ m cap) where
{-# MINIMAL counterAcceptor'accept #-}
counterAcceptor'accept :: cap -> (Server.MethodHandler m CounterAcceptor'accept'params CounterAcceptor'accept'results)
counterAcceptor'accept _ = Server.methodUnimplemented
export_CounterAcceptor :: ((STM.MonadSTM m)
,(CounterAcceptor'server_ Std_.IO cap)) => Supervisors.Supervisor -> cap -> (m (CounterAcceptor))
export_CounterAcceptor sup_ server_ = (STM.liftSTM (CounterAcceptor <$> (Rpc.export sup_ Server.ServerOps{handleCast = (Server.unwrap server_)
,handleStop = (Server.shutdown server_)
,handleCall = (\interfaceId_ methodId_ -> case interfaceId_ of
14317498215560924065 ->
case methodId_ of
0 ->
(Server.toUntypedHandler (counterAcceptor'accept server_))
_ ->
Server.methodUnimplemented
_ ->
Server.methodUnimplemented)})))
instance (Rpc.IsClient (CounterAcceptor)) where
fromClient = CounterAcceptor
toClient (CounterAcceptor client) = client
instance (Classes.FromPtr msg (CounterAcceptor)) where
fromPtr = RpcHelpers.isClientFromPtr
instance (Classes.ToPtr s (CounterAcceptor)) where
toPtr = RpcHelpers.isClientToPtr
instance (Classes.Decerialize (CounterAcceptor)) where
type Cerial msg (CounterAcceptor) = (Capnp.Gen.ById.X832bcc6686a26d56.CounterAcceptor msg)
decerialize (Capnp.Gen.ById.X832bcc6686a26d56.CounterAcceptor'newtype_ maybeCap) = case maybeCap of
(Std_.Nothing) ->
(Std_.pure (CounterAcceptor Message.nullClient))
(Std_.Just cap) ->
(CounterAcceptor <$> (Untyped.getClient cap))
instance (Classes.Cerialize s (CounterAcceptor)) where
cerialize msg (CounterAcceptor client) = (Capnp.Gen.ById.X832bcc6686a26d56.CounterAcceptor'newtype_ <$> (Std_.Just <$> (Untyped.appendCap msg client)))
instance (Server.Server Std_.IO (CounterAcceptor))
instance (CounterAcceptor'server_ Std_.IO (CounterAcceptor)) where
counterAcceptor'accept (CounterAcceptor client) = (Rpc.clientMethodHandler 14317498215560924065 0 client)
data CounterAcceptor'accept'params
= CounterAcceptor'accept'params
{counter :: CallSequence}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (CounterAcceptor'accept'params)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (CounterAcceptor'accept'params)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (CounterAcceptor'accept'params)) where
type Cerial msg (CounterAcceptor'accept'params) = (Capnp.Gen.ById.X832bcc6686a26d56.CounterAcceptor'accept'params msg)
decerialize raw = (CounterAcceptor'accept'params <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_CounterAcceptor'accept'params'counter raw) >>= Classes.decerialize))
instance (Classes.Marshal s (CounterAcceptor'accept'params)) where
marshalInto raw_ value_ = case value_ of
CounterAcceptor'accept'params{..} ->
(do
((Classes.cerialize (Untyped.message raw_) counter) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_CounterAcceptor'accept'params'counter raw_))
(Std_.pure ())
)
instance (Classes.Cerialize s (CounterAcceptor'accept'params))
instance (Classes.Cerialize s (V.Vector (CounterAcceptor'accept'params))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (CounterAcceptor'accept'params)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (CounterAcceptor'accept'params))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (CounterAcceptor'accept'params)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (CounterAcceptor'accept'params))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (CounterAcceptor'accept'params)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (CounterAcceptor'accept'params))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data CounterAcceptor'accept'results
= CounterAcceptor'accept'results
{}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (CounterAcceptor'accept'results)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (CounterAcceptor'accept'results)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (CounterAcceptor'accept'results)) where
type Cerial msg (CounterAcceptor'accept'results) = (Capnp.Gen.ById.X832bcc6686a26d56.CounterAcceptor'accept'results msg)
decerialize raw = (Std_.pure CounterAcceptor'accept'results)
instance (Classes.Marshal s (CounterAcceptor'accept'results)) where
marshalInto raw_ value_ = case value_ of
(CounterAcceptor'accept'results) ->
(do
(Std_.pure ())
)
instance (Classes.Cerialize s (CounterAcceptor'accept'results))
instance (Classes.Cerialize s (V.Vector (CounterAcceptor'accept'results))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (CounterAcceptor'accept'results)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (CounterAcceptor'accept'results))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (CounterAcceptor'accept'results)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (CounterAcceptor'accept'results))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (CounterAcceptor'accept'results)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (CounterAcceptor'accept'results))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
newtype Top
= Top Message.Client
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
class ((MonadIO.MonadIO m)
,(Server.Server m cap)) => (Top'server_ m cap) where
{-# MINIMAL top'top #-}
top'top :: cap -> (Server.MethodHandler m Top'top'params Top'top'results)
top'top _ = Server.methodUnimplemented
export_Top :: ((STM.MonadSTM m)
,(Top'server_ Std_.IO cap)) => Supervisors.Supervisor -> cap -> (m (Top))
export_Top sup_ server_ = (STM.liftSTM (Top <$> (Rpc.export sup_ Server.ServerOps{handleCast = (Server.unwrap server_)
,handleStop = (Server.shutdown server_)
,handleCall = (\interfaceId_ methodId_ -> case interfaceId_ of
17861645508359101525 ->
case methodId_ of
0 ->
(Server.toUntypedHandler (top'top server_))
_ ->
Server.methodUnimplemented
_ ->
Server.methodUnimplemented)})))
instance (Rpc.IsClient (Top)) where
fromClient = Top
toClient (Top client) = client
instance (Classes.FromPtr msg (Top)) where
fromPtr = RpcHelpers.isClientFromPtr
instance (Classes.ToPtr s (Top)) where
toPtr = RpcHelpers.isClientToPtr
instance (Classes.Decerialize (Top)) where
type Cerial msg (Top) = (Capnp.Gen.ById.X832bcc6686a26d56.Top msg)
decerialize (Capnp.Gen.ById.X832bcc6686a26d56.Top'newtype_ maybeCap) = case maybeCap of
(Std_.Nothing) ->
(Std_.pure (Top Message.nullClient))
(Std_.Just cap) ->
(Top <$> (Untyped.getClient cap))
instance (Classes.Cerialize s (Top)) where
cerialize msg (Top client) = (Capnp.Gen.ById.X832bcc6686a26d56.Top'newtype_ <$> (Std_.Just <$> (Untyped.appendCap msg client)))
instance (Server.Server Std_.IO (Top))
instance (Top'server_ Std_.IO (Top)) where
top'top (Top client) = (Rpc.clientMethodHandler 17861645508359101525 0 client)
data Top'top'params
= Top'top'params
{}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Top'top'params)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Top'top'params)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Top'top'params)) where
type Cerial msg (Top'top'params) = (Capnp.Gen.ById.X832bcc6686a26d56.Top'top'params msg)
decerialize raw = (Std_.pure Top'top'params)
instance (Classes.Marshal s (Top'top'params)) where
marshalInto raw_ value_ = case value_ of
(Top'top'params) ->
(do
(Std_.pure ())
)
instance (Classes.Cerialize s (Top'top'params))
instance (Classes.Cerialize s (V.Vector (Top'top'params))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Top'top'params)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Top'top'params))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Top'top'params)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Top'top'params))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Top'top'params)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Top'top'params))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data Top'top'results
= Top'top'results
{}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Top'top'results)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Top'top'results)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Top'top'results)) where
type Cerial msg (Top'top'results) = (Capnp.Gen.ById.X832bcc6686a26d56.Top'top'results msg)
decerialize raw = (Std_.pure Top'top'results)
instance (Classes.Marshal s (Top'top'results)) where
marshalInto raw_ value_ = case value_ of
(Top'top'results) ->
(do
(Std_.pure ())
)
instance (Classes.Cerialize s (Top'top'results))
instance (Classes.Cerialize s (V.Vector (Top'top'results))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Top'top'results)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Top'top'results))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Top'top'results)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Top'top'results))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Top'top'results)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Top'top'results))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
newtype Left
= Left Message.Client
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
class ((MonadIO.MonadIO m)
,(Top'server_ m cap)) => (Left'server_ m cap) where
{-# MINIMAL left'left #-}
left'left :: cap -> (Server.MethodHandler m Left'left'params Left'left'results)
left'left _ = Server.methodUnimplemented
export_Left :: ((STM.MonadSTM m)
,(Left'server_ Std_.IO cap)) => Supervisors.Supervisor -> cap -> (m (Left))
export_Left sup_ server_ = (STM.liftSTM (Left <$> (Rpc.export sup_ Server.ServerOps{handleCast = (Server.unwrap server_)
,handleStop = (Server.shutdown server_)
,handleCall = (\interfaceId_ methodId_ -> case interfaceId_ of
17679152961798450446 ->
case methodId_ of
0 ->
(Server.toUntypedHandler (left'left server_))
_ ->
Server.methodUnimplemented
17861645508359101525 ->
case methodId_ of
0 ->
(Server.toUntypedHandler (top'top server_))
_ ->
Server.methodUnimplemented
_ ->
Server.methodUnimplemented)})))
instance (Rpc.IsClient (Left)) where
fromClient = Left
toClient (Left client) = client
instance (Classes.FromPtr msg (Left)) where
fromPtr = RpcHelpers.isClientFromPtr
instance (Classes.ToPtr s (Left)) where
toPtr = RpcHelpers.isClientToPtr
instance (Classes.Decerialize (Left)) where
type Cerial msg (Left) = (Capnp.Gen.ById.X832bcc6686a26d56.Left msg)
decerialize (Capnp.Gen.ById.X832bcc6686a26d56.Left'newtype_ maybeCap) = case maybeCap of
(Std_.Nothing) ->
(Std_.pure (Left Message.nullClient))
(Std_.Just cap) ->
(Left <$> (Untyped.getClient cap))
instance (Classes.Cerialize s (Left)) where
cerialize msg (Left client) = (Capnp.Gen.ById.X832bcc6686a26d56.Left'newtype_ <$> (Std_.Just <$> (Untyped.appendCap msg client)))
instance (Server.Server Std_.IO (Left))
instance (Left'server_ Std_.IO (Left)) where
left'left (Left client) = (Rpc.clientMethodHandler 17679152961798450446 0 client)
instance (Top'server_ Std_.IO (Left)) where
top'top (Left client) = (Rpc.clientMethodHandler 17861645508359101525 0 client)
data Left'left'params
= Left'left'params
{}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Left'left'params)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Left'left'params)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Left'left'params)) where
type Cerial msg (Left'left'params) = (Capnp.Gen.ById.X832bcc6686a26d56.Left'left'params msg)
decerialize raw = (Std_.pure Left'left'params)
instance (Classes.Marshal s (Left'left'params)) where
marshalInto raw_ value_ = case value_ of
(Left'left'params) ->
(do
(Std_.pure ())
)
instance (Classes.Cerialize s (Left'left'params))
instance (Classes.Cerialize s (V.Vector (Left'left'params))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Left'left'params)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Left'left'params))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Left'left'params)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Left'left'params))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Left'left'params)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Left'left'params))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data Left'left'results
= Left'left'results
{}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Left'left'results)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Left'left'results)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Left'left'results)) where
type Cerial msg (Left'left'results) = (Capnp.Gen.ById.X832bcc6686a26d56.Left'left'results msg)
decerialize raw = (Std_.pure Left'left'results)
instance (Classes.Marshal s (Left'left'results)) where
marshalInto raw_ value_ = case value_ of
(Left'left'results) ->
(do
(Std_.pure ())
)
instance (Classes.Cerialize s (Left'left'results))
instance (Classes.Cerialize s (V.Vector (Left'left'results))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Left'left'results)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Left'left'results))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Left'left'results)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Left'left'results))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Left'left'results)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Left'left'results))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
newtype Right
= Right Message.Client
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
class ((MonadIO.MonadIO m)
,(Top'server_ m cap)) => (Right'server_ m cap) where
{-# MINIMAL right'right #-}
right'right :: cap -> (Server.MethodHandler m Right'right'params Right'right'results)
right'right _ = Server.methodUnimplemented
export_Right :: ((STM.MonadSTM m)
,(Right'server_ Std_.IO cap)) => Supervisors.Supervisor -> cap -> (m (Right))
export_Right sup_ server_ = (STM.liftSTM (Right <$> (Rpc.export sup_ Server.ServerOps{handleCast = (Server.unwrap server_)
,handleStop = (Server.shutdown server_)
,handleCall = (\interfaceId_ methodId_ -> case interfaceId_ of
14712639595305348988 ->
case methodId_ of
0 ->
(Server.toUntypedHandler (right'right server_))
_ ->
Server.methodUnimplemented
17861645508359101525 ->
case methodId_ of
0 ->
(Server.toUntypedHandler (top'top server_))
_ ->
Server.methodUnimplemented
_ ->
Server.methodUnimplemented)})))
instance (Rpc.IsClient (Right)) where
fromClient = Right
toClient (Right client) = client
instance (Classes.FromPtr msg (Right)) where
fromPtr = RpcHelpers.isClientFromPtr
instance (Classes.ToPtr s (Right)) where
toPtr = RpcHelpers.isClientToPtr
instance (Classes.Decerialize (Right)) where
type Cerial msg (Right) = (Capnp.Gen.ById.X832bcc6686a26d56.Right msg)
decerialize (Capnp.Gen.ById.X832bcc6686a26d56.Right'newtype_ maybeCap) = case maybeCap of
(Std_.Nothing) ->
(Std_.pure (Right Message.nullClient))
(Std_.Just cap) ->
(Right <$> (Untyped.getClient cap))
instance (Classes.Cerialize s (Right)) where
cerialize msg (Right client) = (Capnp.Gen.ById.X832bcc6686a26d56.Right'newtype_ <$> (Std_.Just <$> (Untyped.appendCap msg client)))
instance (Server.Server Std_.IO (Right))
instance (Right'server_ Std_.IO (Right)) where
right'right (Right client) = (Rpc.clientMethodHandler 14712639595305348988 0 client)
instance (Top'server_ Std_.IO (Right)) where
top'top (Right client) = (Rpc.clientMethodHandler 17861645508359101525 0 client)
data Right'right'params
= Right'right'params
{}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Right'right'params)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Right'right'params)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Right'right'params)) where
type Cerial msg (Right'right'params) = (Capnp.Gen.ById.X832bcc6686a26d56.Right'right'params msg)
decerialize raw = (Std_.pure Right'right'params)
instance (Classes.Marshal s (Right'right'params)) where
marshalInto raw_ value_ = case value_ of
(Right'right'params) ->
(do
(Std_.pure ())
)
instance (Classes.Cerialize s (Right'right'params))
instance (Classes.Cerialize s (V.Vector (Right'right'params))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Right'right'params)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Right'right'params))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Right'right'params)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Right'right'params))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Right'right'params)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Right'right'params))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data Right'right'results
= Right'right'results
{}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Right'right'results)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Right'right'results)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Right'right'results)) where
type Cerial msg (Right'right'results) = (Capnp.Gen.ById.X832bcc6686a26d56.Right'right'results msg)
decerialize raw = (Std_.pure Right'right'results)
instance (Classes.Marshal s (Right'right'results)) where
marshalInto raw_ value_ = case value_ of
(Right'right'results) ->
(do
(Std_.pure ())
)
instance (Classes.Cerialize s (Right'right'results))
instance (Classes.Cerialize s (V.Vector (Right'right'results))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Right'right'results)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Right'right'results))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Right'right'results)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Right'right'results))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Right'right'results)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Right'right'results))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
newtype Bottom
= Bottom Message.Client
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
class ((MonadIO.MonadIO m)
,(Left'server_ m cap)
,(Right'server_ m cap)) => (Bottom'server_ m cap) where
{-# MINIMAL bottom'bottom #-}
bottom'bottom :: cap -> (Server.MethodHandler m Bottom'bottom'params Bottom'bottom'results)
bottom'bottom _ = Server.methodUnimplemented
export_Bottom :: ((STM.MonadSTM m)
,(Bottom'server_ Std_.IO cap)) => Supervisors.Supervisor -> cap -> (m (Bottom))
export_Bottom sup_ server_ = (STM.liftSTM (Bottom <$> (Rpc.export sup_ Server.ServerOps{handleCast = (Server.unwrap server_)
,handleStop = (Server.shutdown server_)
,handleCall = (\interfaceId_ methodId_ -> case interfaceId_ of
18402872613340521775 ->
case methodId_ of
0 ->
(Server.toUntypedHandler (bottom'bottom server_))
_ ->
Server.methodUnimplemented
17679152961798450446 ->
case methodId_ of
0 ->
(Server.toUntypedHandler (left'left server_))
_ ->
Server.methodUnimplemented
17861645508359101525 ->
case methodId_ of
0 ->
(Server.toUntypedHandler (top'top server_))
_ ->
Server.methodUnimplemented
14712639595305348988 ->
case methodId_ of
0 ->
(Server.toUntypedHandler (right'right server_))
_ ->
Server.methodUnimplemented
_ ->
Server.methodUnimplemented)})))
instance (Rpc.IsClient (Bottom)) where
fromClient = Bottom
toClient (Bottom client) = client
instance (Classes.FromPtr msg (Bottom)) where
fromPtr = RpcHelpers.isClientFromPtr
instance (Classes.ToPtr s (Bottom)) where
toPtr = RpcHelpers.isClientToPtr
instance (Classes.Decerialize (Bottom)) where
type Cerial msg (Bottom) = (Capnp.Gen.ById.X832bcc6686a26d56.Bottom msg)
decerialize (Capnp.Gen.ById.X832bcc6686a26d56.Bottom'newtype_ maybeCap) = case maybeCap of
(Std_.Nothing) ->
(Std_.pure (Bottom Message.nullClient))
(Std_.Just cap) ->
(Bottom <$> (Untyped.getClient cap))
instance (Classes.Cerialize s (Bottom)) where
cerialize msg (Bottom client) = (Capnp.Gen.ById.X832bcc6686a26d56.Bottom'newtype_ <$> (Std_.Just <$> (Untyped.appendCap msg client)))
instance (Server.Server Std_.IO (Bottom))
instance (Bottom'server_ Std_.IO (Bottom)) where
bottom'bottom (Bottom client) = (Rpc.clientMethodHandler 18402872613340521775 0 client)
instance (Left'server_ Std_.IO (Bottom)) where
left'left (Bottom client) = (Rpc.clientMethodHandler 17679152961798450446 0 client)
instance (Top'server_ Std_.IO (Bottom)) where
top'top (Bottom client) = (Rpc.clientMethodHandler 17861645508359101525 0 client)
instance (Right'server_ Std_.IO (Bottom)) where
right'right (Bottom client) = (Rpc.clientMethodHandler 14712639595305348988 0 client)
data Bottom'bottom'params
= Bottom'bottom'params
{}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Bottom'bottom'params)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Bottom'bottom'params)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Bottom'bottom'params)) where
type Cerial msg (Bottom'bottom'params) = (Capnp.Gen.ById.X832bcc6686a26d56.Bottom'bottom'params msg)
decerialize raw = (Std_.pure Bottom'bottom'params)
instance (Classes.Marshal s (Bottom'bottom'params)) where
marshalInto raw_ value_ = case value_ of
(Bottom'bottom'params) ->
(do
(Std_.pure ())
)
instance (Classes.Cerialize s (Bottom'bottom'params))
instance (Classes.Cerialize s (V.Vector (Bottom'bottom'params))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Bottom'bottom'params)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Bottom'bottom'params))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Bottom'bottom'params)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Bottom'bottom'params))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Bottom'bottom'params)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Bottom'bottom'params))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data Bottom'bottom'results
= Bottom'bottom'results
{}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Bottom'bottom'results)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Bottom'bottom'results)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Bottom'bottom'results)) where
type Cerial msg (Bottom'bottom'results) = (Capnp.Gen.ById.X832bcc6686a26d56.Bottom'bottom'results msg)
decerialize raw = (Std_.pure Bottom'bottom'results)
instance (Classes.Marshal s (Bottom'bottom'results)) where
marshalInto raw_ value_ = case value_ of
(Bottom'bottom'results) ->
(do
(Std_.pure ())
)
instance (Classes.Cerialize s (Bottom'bottom'results))
instance (Classes.Cerialize s (V.Vector (Bottom'bottom'results))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Bottom'bottom'results)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Bottom'bottom'results))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Bottom'bottom'results)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Bottom'bottom'results))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Bottom'bottom'results)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Bottom'bottom'results))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data Defaults
= Defaults
{text :: T.Text
,data_ :: BS.ByteString
,float :: Std_.Float
,int :: Std_.Int32
,uint :: Std_.Word32}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (Defaults)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (Defaults)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (Defaults)) where
type Cerial msg (Defaults) = (Capnp.Gen.ById.X832bcc6686a26d56.Defaults msg)
decerialize raw = (Defaults <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_Defaults'text raw) >>= Classes.decerialize)
<*> ((Capnp.Gen.ById.X832bcc6686a26d56.get_Defaults'data_ raw) >>= Classes.decerialize)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_Defaults'float raw)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_Defaults'int raw)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_Defaults'uint raw))
instance (Classes.Marshal s (Defaults)) where
marshalInto raw_ value_ = case value_ of
Defaults{..} ->
(do
((Classes.cerialize (Untyped.message raw_) text) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Defaults'text raw_))
((Classes.cerialize (Untyped.message raw_) data_) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_Defaults'data_ raw_))
(Capnp.Gen.ById.X832bcc6686a26d56.set_Defaults'float raw_ float)
(Capnp.Gen.ById.X832bcc6686a26d56.set_Defaults'int raw_ int)
(Capnp.Gen.ById.X832bcc6686a26d56.set_Defaults'uint raw_ uint)
(Std_.pure ())
)
instance (Classes.Cerialize s (Defaults))
instance (Classes.Cerialize s (V.Vector (Defaults))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (Defaults)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Defaults))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Defaults)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Defaults))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Defaults)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Defaults))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
data BenchmarkA
= BenchmarkA
{name :: T.Text
,birthDay :: Std_.Int64
,phone :: T.Text
,siblings :: Std_.Int32
,spouse :: Std_.Bool
,money :: Std_.Double}
deriving(Std_.Show
,Std_.Eq
,Generics.Generic)
instance (Default.Default (BenchmarkA)) where
def = GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (BenchmarkA)) where
fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance (Classes.Decerialize (BenchmarkA)) where
type Cerial msg (BenchmarkA) = (Capnp.Gen.ById.X832bcc6686a26d56.BenchmarkA msg)
decerialize raw = (BenchmarkA <$> ((Capnp.Gen.ById.X832bcc6686a26d56.get_BenchmarkA'name raw) >>= Classes.decerialize)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_BenchmarkA'birthDay raw)
<*> ((Capnp.Gen.ById.X832bcc6686a26d56.get_BenchmarkA'phone raw) >>= Classes.decerialize)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_BenchmarkA'siblings raw)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_BenchmarkA'spouse raw)
<*> (Capnp.Gen.ById.X832bcc6686a26d56.get_BenchmarkA'money raw))
instance (Classes.Marshal s (BenchmarkA)) where
marshalInto raw_ value_ = case value_ of
BenchmarkA{..} ->
(do
((Classes.cerialize (Untyped.message raw_) name) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_BenchmarkA'name raw_))
(Capnp.Gen.ById.X832bcc6686a26d56.set_BenchmarkA'birthDay raw_ birthDay)
((Classes.cerialize (Untyped.message raw_) phone) >>= (Capnp.Gen.ById.X832bcc6686a26d56.set_BenchmarkA'phone raw_))
(Capnp.Gen.ById.X832bcc6686a26d56.set_BenchmarkA'siblings raw_ siblings)
(Capnp.Gen.ById.X832bcc6686a26d56.set_BenchmarkA'spouse raw_ spouse)
(Capnp.Gen.ById.X832bcc6686a26d56.set_BenchmarkA'money raw_ money)
(Std_.pure ())
)
instance (Classes.Cerialize s (BenchmarkA))
instance (Classes.Cerialize s (V.Vector (BenchmarkA))) where
cerialize = GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (BenchmarkA)))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (BenchmarkA))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (BenchmarkA)))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (BenchmarkA))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (BenchmarkA)))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (BenchmarkA))))))))) where
cerialize = GenHelpersPure.cerializeBasicVec
instance (Classes.Decerialize Capnp.Gen.ById.X832bcc6686a26d56.Airport) where
type Cerial msg Capnp.Gen.ById.X832bcc6686a26d56.Airport = Capnp.Gen.ById.X832bcc6686a26d56.Airport
decerialize = Std_.pure
instance (Classes.Cerialize s Capnp.Gen.ById.X832bcc6686a26d56.Airport) where
cerialize _ = Std_.pure
instance (Classes.Cerialize s (V.Vector Capnp.Gen.ById.X832bcc6686a26d56.Airport)) where
cerialize = Classes.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector Capnp.Gen.ById.X832bcc6686a26d56.Airport))) where
cerialize = Classes.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector Capnp.Gen.ById.X832bcc6686a26d56.Airport)))) where
cerialize = Classes.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector Capnp.Gen.ById.X832bcc6686a26d56.Airport))))) where
cerialize = Classes.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Capnp.Gen.ById.X832bcc6686a26d56.Airport)))))) where
cerialize = Classes.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Capnp.Gen.ById.X832bcc6686a26d56.Airport))))))) where
cerialize = Classes.cerializeBasicVec