{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE TypeFamilies #-} {-# 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 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 Zdate) instance (Classes.Cerialize (V.Vector Zdate)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Zdate))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Zdate)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Zdate))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Zdate)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Zdate))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 Zdata) instance (Classes.Cerialize (V.Vector Zdata)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Zdata))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Zdata)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Zdata))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Zdata)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Zdata))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 PlaneBase) instance (Classes.Cerialize (V.Vector PlaneBase)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector PlaneBase))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector PlaneBase)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector PlaneBase))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector PlaneBase)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector PlaneBase))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 B737) instance (Classes.Cerialize (V.Vector B737)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector B737))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector B737)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector B737))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector B737)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector B737))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 A320) instance (Classes.Cerialize (V.Vector A320)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector A320))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector A320)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector A320))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector A320)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector A320))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 F16) instance (Classes.Cerialize (V.Vector F16)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector F16))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector F16)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector F16))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector F16)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector F16))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 Regression) instance (Classes.Cerialize (V.Vector Regression)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Regression))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Regression)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Regression))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Regression)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Regression))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 Aircraft) instance (Classes.Cerialize (V.Vector Aircraft)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Aircraft))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Aircraft)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Aircraft))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Aircraft)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Aircraft))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 Z) instance (Classes.Cerialize (V.Vector Z)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Z))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Z)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Z))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Z)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Z))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 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 Counter) instance (Classes.Cerialize (V.Vector Counter)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Counter))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Counter)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Counter))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Counter)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Counter))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 Bag) instance (Classes.Cerialize (V.Vector Bag)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Bag))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Bag)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Bag))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Bag)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Bag))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 Zserver) instance (Classes.Cerialize (V.Vector Zserver)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Zserver))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Zserver)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Zserver))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Zserver)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Zserver))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 Zjob) instance (Classes.Cerialize (V.Vector Zjob)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Zjob))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Zjob)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Zjob))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Zjob)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Zjob))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 VerEmpty) where marshalInto raw_ value_ = case value_ of (VerEmpty) -> (do (Std_.pure ()) ) instance (Classes.Cerialize VerEmpty) instance (Classes.Cerialize (V.Vector VerEmpty)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector VerEmpty))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector VerEmpty)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector VerEmpty))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector VerEmpty)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector VerEmpty))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 VerOneData) where marshalInto raw_ value_ = case value_ of VerOneData{..} -> (do (Capnp.Gen.ById.X832bcc6686a26d56.set_VerOneData'val raw_ val) (Std_.pure ()) ) instance (Classes.Cerialize VerOneData) instance (Classes.Cerialize (V.Vector VerOneData)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector VerOneData))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector VerOneData)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector VerOneData))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector VerOneData)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector VerOneData))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 VerTwoData) instance (Classes.Cerialize (V.Vector VerTwoData)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector VerTwoData))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector VerTwoData)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector VerTwoData))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector VerTwoData)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector VerTwoData))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 VerOnePtr) instance (Classes.Cerialize (V.Vector VerOnePtr)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector VerOnePtr))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector VerOnePtr)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector VerOnePtr))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector VerOnePtr)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector VerOnePtr))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 VerTwoPtr) instance (Classes.Cerialize (V.Vector VerTwoPtr)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector VerTwoPtr))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector VerTwoPtr)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector VerTwoPtr))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector VerTwoPtr)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector VerTwoPtr))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 VerTwoDataTwoPtr) instance (Classes.Cerialize (V.Vector VerTwoDataTwoPtr)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector VerTwoDataTwoPtr))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector VerTwoDataTwoPtr)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector VerTwoDataTwoPtr))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector VerTwoDataTwoPtr)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector VerTwoDataTwoPtr))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 HoldsVerEmptyList) instance (Classes.Cerialize (V.Vector HoldsVerEmptyList)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector HoldsVerEmptyList))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector HoldsVerEmptyList)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerEmptyList))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerEmptyList)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerEmptyList))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 HoldsVerOneDataList) instance (Classes.Cerialize (V.Vector HoldsVerOneDataList)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector HoldsVerOneDataList))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector HoldsVerOneDataList)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerOneDataList))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerOneDataList)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerOneDataList))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 HoldsVerTwoDataList) instance (Classes.Cerialize (V.Vector HoldsVerTwoDataList)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector HoldsVerTwoDataList))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector HoldsVerTwoDataList)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerTwoDataList))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerTwoDataList)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerTwoDataList))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 HoldsVerOnePtrList) instance (Classes.Cerialize (V.Vector HoldsVerOnePtrList)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector HoldsVerOnePtrList))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector HoldsVerOnePtrList)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerOnePtrList))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerOnePtrList)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerOnePtrList))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 HoldsVerTwoPtrList) instance (Classes.Cerialize (V.Vector HoldsVerTwoPtrList)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector HoldsVerTwoPtrList))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector HoldsVerTwoPtrList)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerTwoPtrList))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerTwoPtrList)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerTwoPtrList))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 HoldsVerTwoTwoList) instance (Classes.Cerialize (V.Vector HoldsVerTwoTwoList)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector HoldsVerTwoTwoList))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector HoldsVerTwoTwoList)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerTwoTwoList))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerTwoTwoList)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerTwoTwoList))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 HoldsVerTwoTwoPlus) instance (Classes.Cerialize (V.Vector HoldsVerTwoTwoPlus)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector HoldsVerTwoTwoPlus))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector HoldsVerTwoTwoPlus)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerTwoTwoPlus))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerTwoTwoPlus)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector HoldsVerTwoTwoPlus))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 VerTwoTwoPlus) instance (Classes.Cerialize (V.Vector VerTwoTwoPlus)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector VerTwoTwoPlus))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector VerTwoTwoPlus)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector VerTwoTwoPlus))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector VerTwoTwoPlus)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector VerTwoTwoPlus))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 HoldsText) instance (Classes.Cerialize (V.Vector HoldsText)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector HoldsText))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector HoldsText)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector HoldsText))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector HoldsText)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector HoldsText))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 WrapEmpty) instance (Classes.Cerialize (V.Vector WrapEmpty)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector WrapEmpty))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector WrapEmpty)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector WrapEmpty))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector WrapEmpty)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector WrapEmpty))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 Wrap2x2) instance (Classes.Cerialize (V.Vector Wrap2x2)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Wrap2x2))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Wrap2x2)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Wrap2x2))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Wrap2x2)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Wrap2x2))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 Wrap2x2plus) instance (Classes.Cerialize (V.Vector Wrap2x2plus)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Wrap2x2plus))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Wrap2x2plus)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Wrap2x2plus))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Wrap2x2plus)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Wrap2x2plus))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 VoidUnion) instance (Classes.Cerialize (V.Vector VoidUnion)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector VoidUnion))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector VoidUnion)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector VoidUnion))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector VoidUnion)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector VoidUnion))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 Nester1Capn) instance (Classes.Cerialize (V.Vector Nester1Capn)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Nester1Capn))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Nester1Capn)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Nester1Capn))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Nester1Capn)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Nester1Capn))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 RWTestCapn) instance (Classes.Cerialize (V.Vector RWTestCapn)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector RWTestCapn))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector RWTestCapn)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector RWTestCapn))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector RWTestCapn)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector RWTestCapn))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 ListStructCapn) instance (Classes.Cerialize (V.Vector ListStructCapn)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector ListStructCapn))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector ListStructCapn)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector ListStructCapn))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector ListStructCapn)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector ListStructCapn))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 :: ((Echo'server_ Std_.IO a) ,(STM.MonadSTM m)) => Supervisors.Supervisor -> a -> (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 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 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 Echo'echo'params) instance (Classes.Cerialize (V.Vector Echo'echo'params)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Echo'echo'params))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Echo'echo'params)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Echo'echo'params))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Echo'echo'params)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Echo'echo'params))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 Echo'echo'results) instance (Classes.Cerialize (V.Vector Echo'echo'results)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Echo'echo'results))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Echo'echo'results)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Echo'echo'results))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Echo'echo'results)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Echo'echo'results))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 Hoth) instance (Classes.Cerialize (V.Vector Hoth)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Hoth))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Hoth)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Hoth))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Hoth)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Hoth))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 EchoBase) instance (Classes.Cerialize (V.Vector EchoBase)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector EchoBase))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector EchoBase)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector EchoBase))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector EchoBase)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector EchoBase))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 EchoBases) instance (Classes.Cerialize (V.Vector EchoBases)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector EchoBases))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector EchoBases)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector EchoBases))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector EchoBases)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector EchoBases))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 StackingRoot) instance (Classes.Cerialize (V.Vector StackingRoot)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector StackingRoot))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector StackingRoot)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector StackingRoot))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector StackingRoot)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector StackingRoot))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 StackingA) instance (Classes.Cerialize (V.Vector StackingA)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector StackingA))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector StackingA)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector StackingA))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector StackingA)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector StackingA))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 StackingB) where marshalInto raw_ value_ = case value_ of StackingB{..} -> (do (Capnp.Gen.ById.X832bcc6686a26d56.set_StackingB'num raw_ num) (Std_.pure ()) ) instance (Classes.Cerialize StackingB) instance (Classes.Cerialize (V.Vector StackingB)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector StackingB))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector StackingB)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector StackingB))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector StackingB)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector StackingB))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 :: ((CallSequence'server_ Std_.IO a) ,(STM.MonadSTM m)) => Supervisors.Supervisor -> a -> (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 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 CallSequence'getNumber'params) where marshalInto raw_ value_ = case value_ of (CallSequence'getNumber'params) -> (do (Std_.pure ()) ) instance (Classes.Cerialize CallSequence'getNumber'params) instance (Classes.Cerialize (V.Vector CallSequence'getNumber'params)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector CallSequence'getNumber'params))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector CallSequence'getNumber'params)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector CallSequence'getNumber'params))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector CallSequence'getNumber'params)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector CallSequence'getNumber'params))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 CallSequence'getNumber'results) instance (Classes.Cerialize (V.Vector CallSequence'getNumber'results)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector CallSequence'getNumber'results))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector CallSequence'getNumber'results)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector CallSequence'getNumber'results))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector CallSequence'getNumber'results)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector CallSequence'getNumber'results))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 :: ((CounterFactory'server_ Std_.IO a) ,(STM.MonadSTM m)) => Supervisors.Supervisor -> a -> (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 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 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 CounterFactory'newCounter'params) instance (Classes.Cerialize (V.Vector CounterFactory'newCounter'params)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector CounterFactory'newCounter'params))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector CounterFactory'newCounter'params)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector CounterFactory'newCounter'params))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector CounterFactory'newCounter'params)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector CounterFactory'newCounter'params))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 CounterFactory'newCounter'results) instance (Classes.Cerialize (V.Vector CounterFactory'newCounter'results)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector CounterFactory'newCounter'results))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector CounterFactory'newCounter'results)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector CounterFactory'newCounter'results))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector CounterFactory'newCounter'results)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector CounterFactory'newCounter'results))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 :: ((CounterAcceptor'server_ Std_.IO a) ,(STM.MonadSTM m)) => Supervisors.Supervisor -> a -> (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 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 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 CounterAcceptor'accept'params) instance (Classes.Cerialize (V.Vector CounterAcceptor'accept'params)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector CounterAcceptor'accept'params))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector CounterAcceptor'accept'params)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector CounterAcceptor'accept'params))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector CounterAcceptor'accept'params)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector CounterAcceptor'accept'params))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 CounterAcceptor'accept'results) where marshalInto raw_ value_ = case value_ of (CounterAcceptor'accept'results) -> (do (Std_.pure ()) ) instance (Classes.Cerialize CounterAcceptor'accept'results) instance (Classes.Cerialize (V.Vector CounterAcceptor'accept'results)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector CounterAcceptor'accept'results))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector CounterAcceptor'accept'results)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector CounterAcceptor'accept'results))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector CounterAcceptor'accept'results)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector CounterAcceptor'accept'results))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 :: ((Top'server_ Std_.IO a) ,(STM.MonadSTM m)) => Supervisors.Supervisor -> a -> (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 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 Top'top'params) where marshalInto raw_ value_ = case value_ of (Top'top'params) -> (do (Std_.pure ()) ) instance (Classes.Cerialize Top'top'params) instance (Classes.Cerialize (V.Vector Top'top'params)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Top'top'params))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Top'top'params)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Top'top'params))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Top'top'params)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Top'top'params))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 Top'top'results) where marshalInto raw_ value_ = case value_ of (Top'top'results) -> (do (Std_.pure ()) ) instance (Classes.Cerialize Top'top'results) instance (Classes.Cerialize (V.Vector Top'top'results)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Top'top'results))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Top'top'results)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Top'top'results))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Top'top'results)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Top'top'results))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 :: ((Left'server_ Std_.IO a) ,(STM.MonadSTM m)) => Supervisors.Supervisor -> a -> (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 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 Left'left'params) where marshalInto raw_ value_ = case value_ of (Left'left'params) -> (do (Std_.pure ()) ) instance (Classes.Cerialize Left'left'params) instance (Classes.Cerialize (V.Vector Left'left'params)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Left'left'params))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Left'left'params)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Left'left'params))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Left'left'params)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Left'left'params))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 Left'left'results) where marshalInto raw_ value_ = case value_ of (Left'left'results) -> (do (Std_.pure ()) ) instance (Classes.Cerialize Left'left'results) instance (Classes.Cerialize (V.Vector Left'left'results)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Left'left'results))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Left'left'results)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Left'left'results))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Left'left'results)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Left'left'results))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 :: ((Right'server_ Std_.IO a) ,(STM.MonadSTM m)) => Supervisors.Supervisor -> a -> (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 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 Right'right'params) where marshalInto raw_ value_ = case value_ of (Right'right'params) -> (do (Std_.pure ()) ) instance (Classes.Cerialize Right'right'params) instance (Classes.Cerialize (V.Vector Right'right'params)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Right'right'params))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Right'right'params)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Right'right'params))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Right'right'params)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Right'right'params))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 Right'right'results) where marshalInto raw_ value_ = case value_ of (Right'right'results) -> (do (Std_.pure ()) ) instance (Classes.Cerialize Right'right'results) instance (Classes.Cerialize (V.Vector Right'right'results)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Right'right'results))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Right'right'results)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Right'right'results))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Right'right'results)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Right'right'results))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 :: ((Bottom'server_ Std_.IO a) ,(STM.MonadSTM m)) => Supervisors.Supervisor -> a -> (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 14712639595305348988 -> case methodId_ of 0 -> (Server.toUntypedHandler (right'right 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 _ -> 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 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 (Right'server_ Std_.IO Bottom) where right'right (Bottom client) = (Rpc.clientMethodHandler 14712639595305348988 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) 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 Bottom'bottom'params) where marshalInto raw_ value_ = case value_ of (Bottom'bottom'params) -> (do (Std_.pure ()) ) instance (Classes.Cerialize Bottom'bottom'params) instance (Classes.Cerialize (V.Vector Bottom'bottom'params)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Bottom'bottom'params))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Bottom'bottom'params)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Bottom'bottom'params))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Bottom'bottom'params)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Bottom'bottom'params))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 Bottom'bottom'results) where marshalInto raw_ value_ = case value_ of (Bottom'bottom'results) -> (do (Std_.pure ()) ) instance (Classes.Cerialize Bottom'bottom'results) instance (Classes.Cerialize (V.Vector Bottom'bottom'results)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Bottom'bottom'results))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Bottom'bottom'results)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Bottom'bottom'results))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Bottom'bottom'results)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Bottom'bottom'results))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 Defaults) instance (Classes.Cerialize (V.Vector Defaults)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector Defaults))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Defaults)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Defaults))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Defaults)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Defaults))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 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 BenchmarkA) instance (Classes.Cerialize (V.Vector BenchmarkA)) where cerialize = GenHelpersPure.cerializeCompositeVec instance (Classes.Cerialize (V.Vector (V.Vector BenchmarkA))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector BenchmarkA)))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector BenchmarkA))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector BenchmarkA)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector BenchmarkA))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance (Classes.Cerialize (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 Capnp.Gen.ById.X832bcc6686a26d56.Airport) where cerialize _ = Std_.pure instance (Classes.Cerialize (V.Vector Capnp.Gen.ById.X832bcc6686a26d56.Airport)) where cerialize = Classes.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector Capnp.Gen.ById.X832bcc6686a26d56.Airport))) where cerialize = Classes.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Capnp.Gen.ById.X832bcc6686a26d56.Airport)))) where cerialize = Classes.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Capnp.Gen.ById.X832bcc6686a26d56.Airport))))) where cerialize = Classes.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Capnp.Gen.ById.X832bcc6686a26d56.Airport)))))) where cerialize = Classes.cerializeBasicVec instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Capnp.Gen.ById.X832bcc6686a26d56.Airport))))))) where cerialize = Classes.cerializeBasicVec