{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE FunctionalDependencies #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE UndecidableInstances #-} {-# OPTIONS_GHC -Wno-unused-imports #-} {-# OPTIONS_GHC -Wno-dodgy-exports #-} {-# OPTIONS_GHC -Wno-unused-matches #-} {-# OPTIONS_GHC -Wno-orphans #-} {-# OPTIONS_GHC -Wno-unticked-promoted-constructors #-} {-# OPTIONS_GHC -Wno-name-shadowing #-} module Capnp.Gen.Generics.Pure(Maybe(..) ,Either(..) ,Pair(..) ,Nested(..) ,Nested'SomeStruct(..) ,Nested'SomeInterface(..) ,Nested'SomeInterface'server_(..) ,export_Nested'SomeInterface ,Nested'SomeInterface'method'params(..) ,Nested'SomeInterface'method'results(..) ,Specialized(..) ,HasGroup(..) ,HasGroup'theGroup(..)) 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.Xb6421fb8e478d144 import qualified Prelude as Std_ import qualified Data.Word as Std_ import qualified Data.Int as Std_ import Prelude ((<$>), (<*>), (>>=)) data Maybe t = Maybe'nothing | Maybe'just t | Maybe'unknown' Std_.Word16 deriving(Std_.Show ,Std_.Eq ,Generics.Generic) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Default.Default (Maybe t)) where def = GenHelpersPure.defaultStruct instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Classes.FromStruct Message.Const (Maybe t)) where fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Classes.Decerialize (Maybe t)) where type Cerial msg (Maybe t) = (Capnp.Gen.ById.Xb6421fb8e478d144.Maybe (Classes.Cerial msg t) msg) decerialize raw = (do raw <- (Capnp.Gen.ById.Xb6421fb8e478d144.get_Maybe' raw) case raw of (Capnp.Gen.ById.Xb6421fb8e478d144.Maybe'nothing) -> (Std_.pure Maybe'nothing) (Capnp.Gen.ById.Xb6421fb8e478d144.Maybe'just raw) -> (Maybe'just <$> (Classes.decerialize raw)) (Capnp.Gen.ById.Xb6421fb8e478d144.Maybe'unknown' tag) -> (Std_.pure (Maybe'unknown' tag)) ) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Marshal s (Maybe t)) where marshalInto raw_ value_ = case value_ of (Maybe'nothing) -> (Capnp.Gen.ById.Xb6421fb8e478d144.set_Maybe'nothing raw_) (Maybe'just arg_) -> ((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.Xb6421fb8e478d144.set_Maybe'just raw_)) (Maybe'unknown' tag) -> (Capnp.Gen.ById.Xb6421fb8e478d144.set_Maybe'unknown' raw_ tag) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (Maybe t)) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (Maybe t))) where cerialize = GenHelpersPure.cerializeCompositeVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (Maybe t)))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Maybe t))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Maybe t)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Maybe t))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Maybe t)))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Maybe t))))))))) where cerialize = GenHelpersPure.cerializeBasicVec data Either a b = Either'left a | Either'right b | Either'unknown' Std_.Word16 deriving(Std_.Show ,Std_.Eq ,Generics.Generic) instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b))) => (Default.Default (Either a b)) where def = GenHelpersPure.defaultStruct instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b))) => (Classes.FromStruct Message.Const (Either a b)) where fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize) instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b))) => (Classes.Decerialize (Either a b)) where type Cerial msg (Either a b) = (Capnp.Gen.ById.Xb6421fb8e478d144.Either (Classes.Cerial msg a) (Classes.Cerial msg b) msg) decerialize raw = (do raw <- (Capnp.Gen.ById.Xb6421fb8e478d144.get_Either' raw) case raw of (Capnp.Gen.ById.Xb6421fb8e478d144.Either'left raw) -> (Either'left <$> (Classes.decerialize raw)) (Capnp.Gen.ById.Xb6421fb8e478d144.Either'right raw) -> (Either'right <$> (Classes.decerialize raw)) (Capnp.Gen.ById.Xb6421fb8e478d144.Either'unknown' tag) -> (Std_.pure (Either'unknown' tag)) ) instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b)) ,(Classes.Cerialize s a) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) a)) ,(Classes.Cerialize s b) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) b))) => (Classes.Marshal s (Either a b)) where marshalInto raw_ value_ = case value_ of (Either'left arg_) -> ((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.Xb6421fb8e478d144.set_Either'left raw_)) (Either'right arg_) -> ((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.Xb6421fb8e478d144.set_Either'right raw_)) (Either'unknown' tag) -> (Capnp.Gen.ById.Xb6421fb8e478d144.set_Either'unknown' raw_ tag) instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b)) ,(Classes.Cerialize s a) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) a)) ,(Classes.Cerialize s b) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) b))) => (Classes.Cerialize s (Either a b)) instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b)) ,(Classes.Cerialize s a) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) a)) ,(Classes.Cerialize s b) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) b))) => (Classes.Cerialize s (V.Vector (Either a b))) where cerialize = GenHelpersPure.cerializeCompositeVec instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b)) ,(Classes.Cerialize s a) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) a)) ,(Classes.Cerialize s b) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) b))) => (Classes.Cerialize s (V.Vector (V.Vector (Either a b)))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b)) ,(Classes.Cerialize s a) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) a)) ,(Classes.Cerialize s b) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) b))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Either a b))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b)) ,(Classes.Cerialize s a) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) a)) ,(Classes.Cerialize s b) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) b))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Either a b)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b)) ,(Classes.Cerialize s a) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) a)) ,(Classes.Cerialize s b) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) b))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Either a b))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b)) ,(Classes.Cerialize s a) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) a)) ,(Classes.Cerialize s b) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) b))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Either a b)))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b)) ,(Classes.Cerialize s a) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) a)) ,(Classes.Cerialize s b) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) b))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Either a b))))))))) where cerialize = GenHelpersPure.cerializeBasicVec data Pair a b = Pair {fst :: a,snd :: b} deriving(Std_.Show ,Std_.Eq ,Generics.Generic) instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b))) => (Default.Default (Pair a b)) where def = GenHelpersPure.defaultStruct instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b))) => (Classes.FromStruct Message.Const (Pair a b)) where fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize) instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b))) => (Classes.Decerialize (Pair a b)) where type Cerial msg (Pair a b) = (Capnp.Gen.ById.Xb6421fb8e478d144.Pair (Classes.Cerial msg a) (Classes.Cerial msg b) msg) decerialize raw = (Pair <$> ((Capnp.Gen.ById.Xb6421fb8e478d144.get_Pair'fst raw) >>= Classes.decerialize) <*> ((Capnp.Gen.ById.Xb6421fb8e478d144.get_Pair'snd raw) >>= Classes.decerialize)) instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b)) ,(Classes.Cerialize s a) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) a)) ,(Classes.Cerialize s b) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) b))) => (Classes.Marshal s (Pair a b)) where marshalInto raw_ value_ = case value_ of Pair{..} -> (do ((Classes.cerialize (Untyped.message raw_) fst) >>= (Capnp.Gen.ById.Xb6421fb8e478d144.set_Pair'fst raw_)) ((Classes.cerialize (Untyped.message raw_) snd) >>= (Capnp.Gen.ById.Xb6421fb8e478d144.set_Pair'snd raw_)) (Std_.pure ()) ) instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b)) ,(Classes.Cerialize s a) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) a)) ,(Classes.Cerialize s b) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) b))) => (Classes.Cerialize s (Pair a b)) instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b)) ,(Classes.Cerialize s a) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) a)) ,(Classes.Cerialize s b) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) b))) => (Classes.Cerialize s (V.Vector (Pair a b))) where cerialize = GenHelpersPure.cerializeCompositeVec instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b)) ,(Classes.Cerialize s a) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) a)) ,(Classes.Cerialize s b) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) b))) => (Classes.Cerialize s (V.Vector (V.Vector (Pair a b)))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b)) ,(Classes.Cerialize s a) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) a)) ,(Classes.Cerialize s b) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) b))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Pair a b))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b)) ,(Classes.Cerialize s a) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) a)) ,(Classes.Cerialize s b) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) b))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Pair a b)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b)) ,(Classes.Cerialize s a) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) a)) ,(Classes.Cerialize s b) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) b))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Pair a b))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b)) ,(Classes.Cerialize s a) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) a)) ,(Classes.Cerialize s b) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) b))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Pair a b)))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize a) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const a)) ,(Classes.Decerialize b) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const b)) ,(Classes.Cerialize s a) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) a)) ,(Classes.Cerialize s b) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) b))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Pair a b))))))))) where cerialize = GenHelpersPure.cerializeBasicVec data Nested t = Nested {} deriving(Std_.Show ,Std_.Eq ,Generics.Generic) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Default.Default (Nested t)) where def = GenHelpersPure.defaultStruct instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Classes.FromStruct Message.Const (Nested t)) where fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Classes.Decerialize (Nested t)) where type Cerial msg (Nested t) = (Capnp.Gen.ById.Xb6421fb8e478d144.Nested (Classes.Cerial msg t) msg) decerialize raw = (Std_.pure Nested) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Marshal s (Nested t)) where marshalInto raw_ value_ = case value_ of (Nested) -> (do (Std_.pure ()) ) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (Nested t)) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (Nested t))) where cerialize = GenHelpersPure.cerializeCompositeVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (Nested t)))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Nested t))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Nested t)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Nested t))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Nested t)))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Nested t))))))))) where cerialize = GenHelpersPure.cerializeBasicVec data Nested'SomeStruct t = Nested'SomeStruct {value :: t} deriving(Std_.Show ,Std_.Eq ,Generics.Generic) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Default.Default (Nested'SomeStruct t)) where def = GenHelpersPure.defaultStruct instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Classes.FromStruct Message.Const (Nested'SomeStruct t)) where fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Classes.Decerialize (Nested'SomeStruct t)) where type Cerial msg (Nested'SomeStruct t) = (Capnp.Gen.ById.Xb6421fb8e478d144.Nested'SomeStruct (Classes.Cerial msg t) msg) decerialize raw = (Nested'SomeStruct <$> ((Capnp.Gen.ById.Xb6421fb8e478d144.get_Nested'SomeStruct'value raw) >>= Classes.decerialize)) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Marshal s (Nested'SomeStruct t)) where marshalInto raw_ value_ = case value_ of Nested'SomeStruct{..} -> (do ((Classes.cerialize (Untyped.message raw_) value) >>= (Capnp.Gen.ById.Xb6421fb8e478d144.set_Nested'SomeStruct'value raw_)) (Std_.pure ()) ) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (Nested'SomeStruct t)) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (Nested'SomeStruct t))) where cerialize = GenHelpersPure.cerializeCompositeVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (Nested'SomeStruct t)))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Nested'SomeStruct t))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Nested'SomeStruct t)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Nested'SomeStruct t))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Nested'SomeStruct t)))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Nested'SomeStruct t))))))))) where cerialize = GenHelpersPure.cerializeBasicVec newtype Nested'SomeInterface t = Nested'SomeInterface Message.Client deriving(Std_.Show ,Std_.Eq ,Generics.Generic) class ((MonadIO.MonadIO m) ,(Server.Server m cap)) => (Nested'SomeInterface'server_ m cap t) | cap -> t where {-# MINIMAL nested'SomeInterface'method #-} nested'SomeInterface'method :: cap -> (Server.MethodHandler m (Nested'SomeInterface'method'params t) (Nested'SomeInterface'method'results t)) nested'SomeInterface'method _ = Server.methodUnimplemented export_Nested'SomeInterface :: ((STM.MonadSTM m) ,(Nested'SomeInterface'server_ Std_.IO cap t)) => Supervisors.Supervisor -> cap -> (m (Nested'SomeInterface t)) export_Nested'SomeInterface sup_ server_ = (STM.liftSTM (Nested'SomeInterface <$> (Rpc.export sup_ Server.ServerOps{handleCast = (Server.unwrap server_) ,handleStop = (Server.shutdown server_) ,handleCall = (\interfaceId_ methodId_ -> case interfaceId_ of 17400383877992806407 -> case methodId_ of 0 -> (Server.toUntypedHandler (nested'SomeInterface'method server_)) _ -> Server.methodUnimplemented _ -> Server.methodUnimplemented)}))) instance (Rpc.IsClient (Nested'SomeInterface t)) where fromClient = Nested'SomeInterface toClient (Nested'SomeInterface client) = client instance (Classes.FromPtr msg (Nested'SomeInterface t)) where fromPtr = RpcHelpers.isClientFromPtr instance (Classes.ToPtr s (Nested'SomeInterface t)) where toPtr = RpcHelpers.isClientToPtr instance (Classes.Decerialize (Nested'SomeInterface t)) where type Cerial msg (Nested'SomeInterface t) = (Capnp.Gen.ById.Xb6421fb8e478d144.Nested'SomeInterface (Classes.Cerial msg t) msg) decerialize (Capnp.Gen.ById.Xb6421fb8e478d144.Nested'SomeInterface'newtype_ maybeCap) = case maybeCap of (Std_.Nothing) -> (Std_.pure (Nested'SomeInterface Message.nullClient)) (Std_.Just cap) -> (Nested'SomeInterface <$> (Untyped.getClient cap)) instance (Classes.Cerialize s (Nested'SomeInterface t)) where cerialize msg (Nested'SomeInterface client) = (Capnp.Gen.ById.Xb6421fb8e478d144.Nested'SomeInterface'newtype_ <$> (Std_.Just <$> (Untyped.appendCap msg client))) instance (Server.Server Std_.IO (Nested'SomeInterface t)) instance (Nested'SomeInterface'server_ Std_.IO (Nested'SomeInterface t) t) where nested'SomeInterface'method (Nested'SomeInterface client) = (Rpc.clientMethodHandler 17400383877992806407 0 client) data Nested'SomeInterface'method'params t = Nested'SomeInterface'method'params {arg :: t} deriving(Std_.Show ,Std_.Eq ,Generics.Generic) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Default.Default (Nested'SomeInterface'method'params t)) where def = GenHelpersPure.defaultStruct instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Classes.FromStruct Message.Const (Nested'SomeInterface'method'params t)) where fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Classes.Decerialize (Nested'SomeInterface'method'params t)) where type Cerial msg (Nested'SomeInterface'method'params t) = (Capnp.Gen.ById.Xb6421fb8e478d144.Nested'SomeInterface'method'params (Classes.Cerial msg t) msg) decerialize raw = (Nested'SomeInterface'method'params <$> ((Capnp.Gen.ById.Xb6421fb8e478d144.get_Nested'SomeInterface'method'params'arg raw) >>= Classes.decerialize)) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Marshal s (Nested'SomeInterface'method'params t)) where marshalInto raw_ value_ = case value_ of Nested'SomeInterface'method'params{..} -> (do ((Classes.cerialize (Untyped.message raw_) arg) >>= (Capnp.Gen.ById.Xb6421fb8e478d144.set_Nested'SomeInterface'method'params'arg raw_)) (Std_.pure ()) ) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (Nested'SomeInterface'method'params t)) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (Nested'SomeInterface'method'params t))) where cerialize = GenHelpersPure.cerializeCompositeVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (Nested'SomeInterface'method'params t)))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Nested'SomeInterface'method'params t))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Nested'SomeInterface'method'params t)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Nested'SomeInterface'method'params t))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Nested'SomeInterface'method'params t)))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Nested'SomeInterface'method'params t))))))))) where cerialize = GenHelpersPure.cerializeBasicVec data Nested'SomeInterface'method'results t = Nested'SomeInterface'method'results {result :: t} deriving(Std_.Show ,Std_.Eq ,Generics.Generic) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Default.Default (Nested'SomeInterface'method'results t)) where def = GenHelpersPure.defaultStruct instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Classes.FromStruct Message.Const (Nested'SomeInterface'method'results t)) where fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Classes.Decerialize (Nested'SomeInterface'method'results t)) where type Cerial msg (Nested'SomeInterface'method'results t) = (Capnp.Gen.ById.Xb6421fb8e478d144.Nested'SomeInterface'method'results (Classes.Cerial msg t) msg) decerialize raw = (Nested'SomeInterface'method'results <$> ((Capnp.Gen.ById.Xb6421fb8e478d144.get_Nested'SomeInterface'method'results'result raw) >>= Classes.decerialize)) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Marshal s (Nested'SomeInterface'method'results t)) where marshalInto raw_ value_ = case value_ of Nested'SomeInterface'method'results{..} -> (do ((Classes.cerialize (Untyped.message raw_) result) >>= (Capnp.Gen.ById.Xb6421fb8e478d144.set_Nested'SomeInterface'method'results'result raw_)) (Std_.pure ()) ) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (Nested'SomeInterface'method'results t)) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (Nested'SomeInterface'method'results t))) where cerialize = GenHelpersPure.cerializeCompositeVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (Nested'SomeInterface'method'results t)))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Nested'SomeInterface'method'results t))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Nested'SomeInterface'method'results t)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Nested'SomeInterface'method'results t))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Nested'SomeInterface'method'results t)))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Nested'SomeInterface'method'results t))))))))) where cerialize = GenHelpersPure.cerializeBasicVec data Specialized t = Specialized {either :: (Either T.Text t) ,nestedStruct :: (Nested'SomeStruct BS.ByteString)} deriving(Std_.Show ,Std_.Eq ,Generics.Generic) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Default.Default (Specialized t)) where def = GenHelpersPure.defaultStruct instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Classes.FromStruct Message.Const (Specialized t)) where fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Classes.Decerialize (Specialized t)) where type Cerial msg (Specialized t) = (Capnp.Gen.ById.Xb6421fb8e478d144.Specialized (Classes.Cerial msg t) msg) decerialize raw = (Specialized <$> ((Capnp.Gen.ById.Xb6421fb8e478d144.get_Specialized'either raw) >>= Classes.decerialize) <*> ((Capnp.Gen.ById.Xb6421fb8e478d144.get_Specialized'nestedStruct raw) >>= Classes.decerialize)) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Marshal s (Specialized t)) where marshalInto raw_ value_ = case value_ of Specialized{..} -> (do ((Classes.cerialize (Untyped.message raw_) either) >>= (Capnp.Gen.ById.Xb6421fb8e478d144.set_Specialized'either raw_)) ((Classes.cerialize (Untyped.message raw_) nestedStruct) >>= (Capnp.Gen.ById.Xb6421fb8e478d144.set_Specialized'nestedStruct raw_)) (Std_.pure ()) ) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (Specialized t)) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (Specialized t))) where cerialize = GenHelpersPure.cerializeCompositeVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (Specialized t)))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Specialized t))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Specialized t)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Specialized t))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Specialized t)))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Specialized t))))))))) where cerialize = GenHelpersPure.cerializeBasicVec data HasGroup t = HasGroup {theGroup :: (HasGroup'theGroup t)} deriving(Std_.Show ,Std_.Eq ,Generics.Generic) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Default.Default (HasGroup t)) where def = GenHelpersPure.defaultStruct instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Classes.FromStruct Message.Const (HasGroup t)) where fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Classes.Decerialize (HasGroup t)) where type Cerial msg (HasGroup t) = (Capnp.Gen.ById.Xb6421fb8e478d144.HasGroup (Classes.Cerial msg t) msg) decerialize raw = (HasGroup <$> ((Capnp.Gen.ById.Xb6421fb8e478d144.get_HasGroup'theGroup raw) >>= Classes.decerialize)) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Marshal s (HasGroup t)) where marshalInto raw_ value_ = case value_ of HasGroup{..} -> (do (do raw_ <- (Capnp.Gen.ById.Xb6421fb8e478d144.get_HasGroup'theGroup raw_) (Classes.marshalInto raw_ theGroup) ) (Std_.pure ()) ) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (HasGroup t)) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (HasGroup t))) where cerialize = GenHelpersPure.cerializeCompositeVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (HasGroup t)))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (HasGroup t))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (HasGroup t)))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HasGroup t))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HasGroup t)))))))) where cerialize = GenHelpersPure.cerializeBasicVec instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (HasGroup t))))))))) where cerialize = GenHelpersPure.cerializeBasicVec data HasGroup'theGroup t = HasGroup'theGroup' {value :: t} deriving(Std_.Show ,Std_.Eq ,Generics.Generic) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Default.Default (HasGroup'theGroup t)) where def = GenHelpersPure.defaultStruct instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Classes.FromStruct Message.Const (HasGroup'theGroup t)) where fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t))) => (Classes.Decerialize (HasGroup'theGroup t)) where type Cerial msg (HasGroup'theGroup t) = (Capnp.Gen.ById.Xb6421fb8e478d144.HasGroup'theGroup (Classes.Cerial msg t) msg) decerialize raw = (HasGroup'theGroup' <$> ((Capnp.Gen.ById.Xb6421fb8e478d144.get_HasGroup'theGroup'value raw) >>= Classes.decerialize)) instance ((Classes.Decerialize t) ,(Classes.FromPtr Message.Const (Classes.Cerial Message.Const t)) ,(Classes.Cerialize s t) ,(Classes.ToPtr s (Classes.Cerial (Message.Mut s) t))) => (Classes.Marshal s (HasGroup'theGroup t)) where marshalInto raw_ value_ = case value_ of HasGroup'theGroup'{..} -> (do ((Classes.cerialize (Untyped.message raw_) value) >>= (Capnp.Gen.ById.Xb6421fb8e478d144.set_HasGroup'theGroup'value raw_)) (Std_.pure ()) )