Pure.hs

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE FunctionalDependencies #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE UndecidableInstances #-}
{-# OPTIONS_GHC -Wno-unused-imports #-}
{-# OPTIONS_GHC -Wno-dodgy-exports #-}
{-# OPTIONS_GHC -Wno-unused-matches #-}
{-# OPTIONS_GHC -Wno-orphans #-}
module Capnp.Gen.Capnp.Persistent.Pure(Persistent(..)
                                      ,Persistent'server_(..)
                                      ,export_Persistent
                                      ,Persistent'SaveParams(..)
                                      ,Persistent'SaveResults(..)
                                      ,RealmGateway(..)
                                      ,RealmGateway'server_(..)
                                      ,export_RealmGateway
                                      ,RealmGateway'import'params(..)
                                      ,RealmGateway'export'params(..)) 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.Xb8630836983feed7
import qualified Prelude as Std_
import qualified Data.Word as Std_
import qualified Data.Int as Std_
import Prelude ((<$>), (<*>), (>>=))
newtype Persistent sturdyRef owner
    = Persistent Message.Client
    deriving(Std_.Show
            ,Std_.Eq
            ,Generics.Generic)
class ((MonadIO.MonadIO m)
      ,(Server.Server m cap)) => (Persistent'server_ m cap sturdyRef owner) | cap -> sturdyRef, cap -> owner where
    {-# MINIMAL persistent'save #-}
    persistent'save :: cap -> (Server.MethodHandler m (Persistent'SaveParams sturdyRef owner) (Persistent'SaveResults sturdyRef owner))
    persistent'save _ = Server.methodUnimplemented
export_Persistent :: ((STM.MonadSTM m)
                     ,(Persistent'server_ Std_.IO cap sturdyRef owner)) => Supervisors.Supervisor -> cap -> (m (Persistent sturdyRef owner))
export_Persistent sup_ server_ = (STM.liftSTM (Persistent <$> (Rpc.export sup_ Server.ServerOps{handleCast = (Server.unwrap server_)
                                                                                               ,handleStop = (Server.shutdown server_)
                                                                                               ,handleCall = (\interfaceId_ methodId_ -> case interfaceId_ of
                                                                                                   14468694717054801553 ->
                                                                                                       case methodId_ of
                                                                                                           0 ->
                                                                                                               (Server.toUntypedHandler (persistent'save server_))
                                                                                                           _ ->
                                                                                                               Server.methodUnimplemented
                                                                                                   _ ->
                                                                                                       Server.methodUnimplemented)})))
instance (Rpc.IsClient (Persistent sturdyRef owner)) where
    fromClient  = Persistent
    toClient (Persistent client) = client
instance (Classes.FromPtr msg (Persistent sturdyRef owner)) where
    fromPtr  = RpcHelpers.isClientFromPtr
instance (Classes.ToPtr s (Persistent sturdyRef owner)) where
    toPtr  = RpcHelpers.isClientToPtr
instance (Classes.Decerialize (Persistent sturdyRef owner)) where
    type Cerial msg (Persistent sturdyRef owner) = (Capnp.Gen.ById.Xb8630836983feed7.Persistent (Classes.Cerial msg sturdyRef) (Classes.Cerial msg owner) msg)
    decerialize (Capnp.Gen.ById.Xb8630836983feed7.Persistent'newtype_ maybeCap) = case maybeCap of
        (Std_.Nothing) ->
            (Std_.pure (Persistent Message.nullClient))
        (Std_.Just cap) ->
            (Persistent <$> (Untyped.getClient cap))
instance (Classes.Cerialize s (Persistent sturdyRef owner)) where
    cerialize msg (Persistent client) = (Capnp.Gen.ById.Xb8630836983feed7.Persistent'newtype_ <$> (Std_.Just <$> (Untyped.appendCap msg client)))
instance (Server.Server Std_.IO (Persistent sturdyRef owner))
instance (Persistent'server_ Std_.IO (Persistent sturdyRef owner) sturdyRef owner) where
    persistent'save (Persistent client) = (Rpc.clientMethodHandler 14468694717054801553 0 client)
data Persistent'SaveParams sturdyRef owner
    = Persistent'SaveParams 
        {sealFor :: owner}
    deriving(Std_.Show
            ,Std_.Eq
            ,Generics.Generic)
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))) => (Default.Default (Persistent'SaveParams sturdyRef owner)) where
    def  = GenHelpersPure.defaultStruct
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))) => (Classes.FromStruct Message.ConstMsg (Persistent'SaveParams sturdyRef owner)) where
    fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))) => (Classes.Decerialize (Persistent'SaveParams sturdyRef owner)) where
    type Cerial msg (Persistent'SaveParams sturdyRef owner) = (Capnp.Gen.ById.Xb8630836983feed7.Persistent'SaveParams (Classes.Cerial msg sturdyRef) (Classes.Cerial msg owner) msg)
    decerialize raw = (Persistent'SaveParams <$> ((Capnp.Gen.ById.Xb8630836983feed7.get_Persistent'SaveParams'sealFor raw) >>= Classes.decerialize))
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))
         ,(Classes.Cerialize s sturdyRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))
         ,(Classes.Cerialize s owner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Marshal s (Persistent'SaveParams sturdyRef owner)) where
    marshalInto raw_ value_ = case value_ of
        Persistent'SaveParams{..} ->
            (do
                ((Classes.cerialize (Untyped.message raw_) sealFor) >>= (Capnp.Gen.ById.Xb8630836983feed7.set_Persistent'SaveParams'sealFor raw_))
                (Std_.pure ())
                )
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))
         ,(Classes.Cerialize s sturdyRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))
         ,(Classes.Cerialize s owner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (Persistent'SaveParams sturdyRef owner))
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))
         ,(Classes.Cerialize s sturdyRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))
         ,(Classes.Cerialize s owner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (Persistent'SaveParams sturdyRef owner))) where
    cerialize  = GenHelpersPure.cerializeCompositeVec
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))
         ,(Classes.Cerialize s sturdyRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))
         ,(Classes.Cerialize s owner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (Persistent'SaveParams sturdyRef owner)))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))
         ,(Classes.Cerialize s sturdyRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))
         ,(Classes.Cerialize s owner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Persistent'SaveParams sturdyRef owner))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))
         ,(Classes.Cerialize s sturdyRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))
         ,(Classes.Cerialize s owner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Persistent'SaveParams sturdyRef owner)))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))
         ,(Classes.Cerialize s sturdyRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))
         ,(Classes.Cerialize s owner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Persistent'SaveParams sturdyRef owner))))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))
         ,(Classes.Cerialize s sturdyRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))
         ,(Classes.Cerialize s owner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Persistent'SaveParams sturdyRef owner)))))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))
         ,(Classes.Cerialize s sturdyRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))
         ,(Classes.Cerialize s owner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Persistent'SaveParams sturdyRef owner))))))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
data Persistent'SaveResults sturdyRef owner
    = Persistent'SaveResults 
        {sturdyRef :: sturdyRef}
    deriving(Std_.Show
            ,Std_.Eq
            ,Generics.Generic)
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))) => (Default.Default (Persistent'SaveResults sturdyRef owner)) where
    def  = GenHelpersPure.defaultStruct
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))) => (Classes.FromStruct Message.ConstMsg (Persistent'SaveResults sturdyRef owner)) where
    fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))) => (Classes.Decerialize (Persistent'SaveResults sturdyRef owner)) where
    type Cerial msg (Persistent'SaveResults sturdyRef owner) = (Capnp.Gen.ById.Xb8630836983feed7.Persistent'SaveResults (Classes.Cerial msg sturdyRef) (Classes.Cerial msg owner) msg)
    decerialize raw = (Persistent'SaveResults <$> ((Capnp.Gen.ById.Xb8630836983feed7.get_Persistent'SaveResults'sturdyRef raw) >>= Classes.decerialize))
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))
         ,(Classes.Cerialize s sturdyRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))
         ,(Classes.Cerialize s owner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Marshal s (Persistent'SaveResults sturdyRef owner)) where
    marshalInto raw_ value_ = case value_ of
        Persistent'SaveResults{..} ->
            (do
                ((Classes.cerialize (Untyped.message raw_) sturdyRef) >>= (Capnp.Gen.ById.Xb8630836983feed7.set_Persistent'SaveResults'sturdyRef raw_))
                (Std_.pure ())
                )
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))
         ,(Classes.Cerialize s sturdyRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))
         ,(Classes.Cerialize s owner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (Persistent'SaveResults sturdyRef owner))
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))
         ,(Classes.Cerialize s sturdyRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))
         ,(Classes.Cerialize s owner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (Persistent'SaveResults sturdyRef owner))) where
    cerialize  = GenHelpersPure.cerializeCompositeVec
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))
         ,(Classes.Cerialize s sturdyRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))
         ,(Classes.Cerialize s owner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (Persistent'SaveResults sturdyRef owner)))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))
         ,(Classes.Cerialize s sturdyRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))
         ,(Classes.Cerialize s owner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Persistent'SaveResults sturdyRef owner))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))
         ,(Classes.Cerialize s sturdyRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))
         ,(Classes.Cerialize s owner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Persistent'SaveResults sturdyRef owner)))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))
         ,(Classes.Cerialize s sturdyRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))
         ,(Classes.Cerialize s owner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Persistent'SaveResults sturdyRef owner))))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))
         ,(Classes.Cerialize s sturdyRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))
         ,(Classes.Cerialize s owner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Persistent'SaveResults sturdyRef owner)))))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize sturdyRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))
         ,(Classes.Decerialize owner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))
         ,(Classes.Cerialize s sturdyRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))
         ,(Classes.Cerialize s owner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Persistent'SaveResults sturdyRef owner))))))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
newtype RealmGateway internalRef externalRef internalOwner externalOwner
    = RealmGateway Message.Client
    deriving(Std_.Show
            ,Std_.Eq
            ,Generics.Generic)
class ((MonadIO.MonadIO m)
      ,(Server.Server m cap)) => (RealmGateway'server_ m cap internalRef externalRef internalOwner externalOwner) | cap -> internalRef, cap -> externalRef, cap -> internalOwner, cap -> externalOwner where
    {-# MINIMAL realmGateway'import_,realmGateway'export #-}
    realmGateway'import_ :: cap -> (Server.MethodHandler m (RealmGateway'import'params internalRef externalRef internalOwner externalOwner) (Persistent'SaveResults internalRef internalOwner))
    realmGateway'import_ _ = Server.methodUnimplemented
    realmGateway'export :: cap -> (Server.MethodHandler m (RealmGateway'export'params internalRef externalRef internalOwner externalOwner) (Persistent'SaveResults externalRef externalOwner))
    realmGateway'export _ = Server.methodUnimplemented
export_RealmGateway :: ((STM.MonadSTM m)
                       ,(RealmGateway'server_ Std_.IO cap internalRef externalRef internalOwner externalOwner)) => Supervisors.Supervisor -> cap -> (m (RealmGateway internalRef externalRef internalOwner externalOwner))
export_RealmGateway sup_ server_ = (STM.liftSTM (RealmGateway <$> (Rpc.export sup_ Server.ServerOps{handleCast = (Server.unwrap server_)
                                                                                                   ,handleStop = (Server.shutdown server_)
                                                                                                   ,handleCall = (\interfaceId_ methodId_ -> case interfaceId_ of
                                                                                                       9583422979879616212 ->
                                                                                                           case methodId_ of
                                                                                                               0 ->
                                                                                                                   (Server.toUntypedHandler (realmGateway'import_ server_))
                                                                                                               1 ->
                                                                                                                   (Server.toUntypedHandler (realmGateway'export server_))
                                                                                                               _ ->
                                                                                                                   Server.methodUnimplemented
                                                                                                       _ ->
                                                                                                           Server.methodUnimplemented)})))
instance (Rpc.IsClient (RealmGateway internalRef externalRef internalOwner externalOwner)) where
    fromClient  = RealmGateway
    toClient (RealmGateway client) = client
instance (Classes.FromPtr msg (RealmGateway internalRef externalRef internalOwner externalOwner)) where
    fromPtr  = RpcHelpers.isClientFromPtr
instance (Classes.ToPtr s (RealmGateway internalRef externalRef internalOwner externalOwner)) where
    toPtr  = RpcHelpers.isClientToPtr
instance (Classes.Decerialize (RealmGateway internalRef externalRef internalOwner externalOwner)) where
    type Cerial msg (RealmGateway internalRef externalRef internalOwner externalOwner) = (Capnp.Gen.ById.Xb8630836983feed7.RealmGateway (Classes.Cerial msg internalRef) (Classes.Cerial msg externalRef) (Classes.Cerial msg internalOwner) (Classes.Cerial msg externalOwner) msg)
    decerialize (Capnp.Gen.ById.Xb8630836983feed7.RealmGateway'newtype_ maybeCap) = case maybeCap of
        (Std_.Nothing) ->
            (Std_.pure (RealmGateway Message.nullClient))
        (Std_.Just cap) ->
            (RealmGateway <$> (Untyped.getClient cap))
instance (Classes.Cerialize s (RealmGateway internalRef externalRef internalOwner externalOwner)) where
    cerialize msg (RealmGateway client) = (Capnp.Gen.ById.Xb8630836983feed7.RealmGateway'newtype_ <$> (Std_.Just <$> (Untyped.appendCap msg client)))
instance (Server.Server Std_.IO (RealmGateway internalRef externalRef internalOwner externalOwner))
instance (RealmGateway'server_ Std_.IO (RealmGateway internalRef externalRef internalOwner externalOwner) internalRef externalRef internalOwner externalOwner) where
    realmGateway'import_ (RealmGateway client) = (Rpc.clientMethodHandler 9583422979879616212 0 client)
    realmGateway'export (RealmGateway client) = (Rpc.clientMethodHandler 9583422979879616212 1 client)
data RealmGateway'import'params internalRef externalRef internalOwner externalOwner
    = RealmGateway'import'params 
        {cap :: (Persistent externalRef externalOwner)
        ,params :: (Persistent'SaveParams internalRef internalOwner)}
    deriving(Std_.Show
            ,Std_.Eq
            ,Generics.Generic)
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))) => (Default.Default (RealmGateway'import'params internalRef externalRef internalOwner externalOwner)) where
    def  = GenHelpersPure.defaultStruct
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))) => (Classes.FromStruct Message.ConstMsg (RealmGateway'import'params internalRef externalRef internalOwner externalOwner)) where
    fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))) => (Classes.Decerialize (RealmGateway'import'params internalRef externalRef internalOwner externalOwner)) where
    type Cerial msg (RealmGateway'import'params internalRef externalRef internalOwner externalOwner) = (Capnp.Gen.ById.Xb8630836983feed7.RealmGateway'import'params (Classes.Cerial msg internalRef) (Classes.Cerial msg externalRef) (Classes.Cerial msg internalOwner) (Classes.Cerial msg externalOwner) msg)
    decerialize raw = (RealmGateway'import'params <$> ((Capnp.Gen.ById.Xb8630836983feed7.get_RealmGateway'import'params'cap raw) >>= Classes.decerialize)
                                                  <*> ((Capnp.Gen.ById.Xb8630836983feed7.get_RealmGateway'import'params'params raw) >>= Classes.decerialize))
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))
         ,(Classes.Cerialize s internalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))
         ,(Classes.Cerialize s externalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))
         ,(Classes.Cerialize s internalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))
         ,(Classes.Cerialize s externalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Marshal s (RealmGateway'import'params internalRef externalRef internalOwner externalOwner)) where
    marshalInto raw_ value_ = case value_ of
        RealmGateway'import'params{..} ->
            (do
                ((Classes.cerialize (Untyped.message raw_) cap) >>= (Capnp.Gen.ById.Xb8630836983feed7.set_RealmGateway'import'params'cap raw_))
                ((Classes.cerialize (Untyped.message raw_) params) >>= (Capnp.Gen.ById.Xb8630836983feed7.set_RealmGateway'import'params'params raw_))
                (Std_.pure ())
                )
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))
         ,(Classes.Cerialize s internalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))
         ,(Classes.Cerialize s externalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))
         ,(Classes.Cerialize s internalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))
         ,(Classes.Cerialize s externalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (RealmGateway'import'params internalRef externalRef internalOwner externalOwner))
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))
         ,(Classes.Cerialize s internalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))
         ,(Classes.Cerialize s externalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))
         ,(Classes.Cerialize s internalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))
         ,(Classes.Cerialize s externalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (RealmGateway'import'params internalRef externalRef internalOwner externalOwner))) where
    cerialize  = GenHelpersPure.cerializeCompositeVec
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))
         ,(Classes.Cerialize s internalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))
         ,(Classes.Cerialize s externalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))
         ,(Classes.Cerialize s internalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))
         ,(Classes.Cerialize s externalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (RealmGateway'import'params internalRef externalRef internalOwner externalOwner)))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))
         ,(Classes.Cerialize s internalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))
         ,(Classes.Cerialize s externalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))
         ,(Classes.Cerialize s internalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))
         ,(Classes.Cerialize s externalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (RealmGateway'import'params internalRef externalRef internalOwner externalOwner))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))
         ,(Classes.Cerialize s internalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))
         ,(Classes.Cerialize s externalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))
         ,(Classes.Cerialize s internalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))
         ,(Classes.Cerialize s externalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (RealmGateway'import'params internalRef externalRef internalOwner externalOwner)))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))
         ,(Classes.Cerialize s internalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))
         ,(Classes.Cerialize s externalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))
         ,(Classes.Cerialize s internalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))
         ,(Classes.Cerialize s externalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (RealmGateway'import'params internalRef externalRef internalOwner externalOwner))))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))
         ,(Classes.Cerialize s internalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))
         ,(Classes.Cerialize s externalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))
         ,(Classes.Cerialize s internalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))
         ,(Classes.Cerialize s externalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (RealmGateway'import'params internalRef externalRef internalOwner externalOwner)))))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))
         ,(Classes.Cerialize s internalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))
         ,(Classes.Cerialize s externalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))
         ,(Classes.Cerialize s internalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))
         ,(Classes.Cerialize s externalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (RealmGateway'import'params internalRef externalRef internalOwner externalOwner))))))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
data RealmGateway'export'params internalRef externalRef internalOwner externalOwner
    = RealmGateway'export'params 
        {cap :: (Persistent internalRef internalOwner)
        ,params :: (Persistent'SaveParams externalRef externalOwner)}
    deriving(Std_.Show
            ,Std_.Eq
            ,Generics.Generic)
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))) => (Default.Default (RealmGateway'export'params internalRef externalRef internalOwner externalOwner)) where
    def  = GenHelpersPure.defaultStruct
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))) => (Classes.FromStruct Message.ConstMsg (RealmGateway'export'params internalRef externalRef internalOwner externalOwner)) where
    fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))) => (Classes.Decerialize (RealmGateway'export'params internalRef externalRef internalOwner externalOwner)) where
    type Cerial msg (RealmGateway'export'params internalRef externalRef internalOwner externalOwner) = (Capnp.Gen.ById.Xb8630836983feed7.RealmGateway'export'params (Classes.Cerial msg internalRef) (Classes.Cerial msg externalRef) (Classes.Cerial msg internalOwner) (Classes.Cerial msg externalOwner) msg)
    decerialize raw = (RealmGateway'export'params <$> ((Capnp.Gen.ById.Xb8630836983feed7.get_RealmGateway'export'params'cap raw) >>= Classes.decerialize)
                                                  <*> ((Capnp.Gen.ById.Xb8630836983feed7.get_RealmGateway'export'params'params raw) >>= Classes.decerialize))
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))
         ,(Classes.Cerialize s internalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))
         ,(Classes.Cerialize s externalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))
         ,(Classes.Cerialize s internalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))
         ,(Classes.Cerialize s externalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Marshal s (RealmGateway'export'params internalRef externalRef internalOwner externalOwner)) where
    marshalInto raw_ value_ = case value_ of
        RealmGateway'export'params{..} ->
            (do
                ((Classes.cerialize (Untyped.message raw_) cap) >>= (Capnp.Gen.ById.Xb8630836983feed7.set_RealmGateway'export'params'cap raw_))
                ((Classes.cerialize (Untyped.message raw_) params) >>= (Capnp.Gen.ById.Xb8630836983feed7.set_RealmGateway'export'params'params raw_))
                (Std_.pure ())
                )
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))
         ,(Classes.Cerialize s internalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))
         ,(Classes.Cerialize s externalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))
         ,(Classes.Cerialize s internalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))
         ,(Classes.Cerialize s externalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (RealmGateway'export'params internalRef externalRef internalOwner externalOwner))
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))
         ,(Classes.Cerialize s internalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))
         ,(Classes.Cerialize s externalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))
         ,(Classes.Cerialize s internalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))
         ,(Classes.Cerialize s externalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (RealmGateway'export'params internalRef externalRef internalOwner externalOwner))) where
    cerialize  = GenHelpersPure.cerializeCompositeVec
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))
         ,(Classes.Cerialize s internalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))
         ,(Classes.Cerialize s externalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))
         ,(Classes.Cerialize s internalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))
         ,(Classes.Cerialize s externalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (RealmGateway'export'params internalRef externalRef internalOwner externalOwner)))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))
         ,(Classes.Cerialize s internalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))
         ,(Classes.Cerialize s externalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))
         ,(Classes.Cerialize s internalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))
         ,(Classes.Cerialize s externalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (RealmGateway'export'params internalRef externalRef internalOwner externalOwner))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))
         ,(Classes.Cerialize s internalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))
         ,(Classes.Cerialize s externalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))
         ,(Classes.Cerialize s internalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))
         ,(Classes.Cerialize s externalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (RealmGateway'export'params internalRef externalRef internalOwner externalOwner)))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))
         ,(Classes.Cerialize s internalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))
         ,(Classes.Cerialize s externalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))
         ,(Classes.Cerialize s internalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))
         ,(Classes.Cerialize s externalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (RealmGateway'export'params internalRef externalRef internalOwner externalOwner))))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))
         ,(Classes.Cerialize s internalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))
         ,(Classes.Cerialize s externalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))
         ,(Classes.Cerialize s internalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))
         ,(Classes.Cerialize s externalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (RealmGateway'export'params internalRef externalRef internalOwner externalOwner)))))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec
instance ((Classes.Decerialize internalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))
         ,(Classes.Decerialize externalRef)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))
         ,(Classes.Decerialize internalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))
         ,(Classes.Decerialize externalOwner)
         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))
         ,(Classes.Cerialize s internalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))
         ,(Classes.Cerialize s externalRef)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))
         ,(Classes.Cerialize s internalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))
         ,(Classes.Cerialize s externalOwner)
         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (RealmGateway'export'params internalRef externalRef internalOwner externalOwner))))))))) where
    cerialize  = GenHelpersPure.cerializeBasicVec