{-# 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(Int -> Persistent sturdyRef owner -> ShowS
[Persistent sturdyRef owner] -> ShowS
Persistent sturdyRef owner -> String
(Int -> Persistent sturdyRef owner -> ShowS)
-> (Persistent sturdyRef owner -> String)
-> ([Persistent sturdyRef owner] -> ShowS)
-> Show (Persistent sturdyRef owner)
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
forall sturdyRef owner. Int -> Persistent sturdyRef owner -> ShowS
forall sturdyRef owner. [Persistent sturdyRef owner] -> ShowS
forall sturdyRef owner. Persistent sturdyRef owner -> String
showList :: [Persistent sturdyRef owner] -> ShowS
$cshowList :: forall sturdyRef owner. [Persistent sturdyRef owner] -> ShowS
show :: Persistent sturdyRef owner -> String
$cshow :: forall sturdyRef owner. Persistent sturdyRef owner -> String
showsPrec :: Int -> Persistent sturdyRef owner -> ShowS
$cshowsPrec :: forall sturdyRef owner. Int -> Persistent sturdyRef owner -> ShowS
Std_.Show
            ,Persistent sturdyRef owner -> Persistent sturdyRef owner -> Bool
(Persistent sturdyRef owner -> Persistent sturdyRef owner -> Bool)
-> (Persistent sturdyRef owner
    -> Persistent sturdyRef owner -> Bool)
-> Eq (Persistent sturdyRef owner)
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
forall sturdyRef owner.
Persistent sturdyRef owner -> Persistent sturdyRef owner -> Bool
/= :: Persistent sturdyRef owner -> Persistent sturdyRef owner -> Bool
$c/= :: forall sturdyRef owner.
Persistent sturdyRef owner -> Persistent sturdyRef owner -> Bool
== :: Persistent sturdyRef owner -> Persistent sturdyRef owner -> Bool
$c== :: forall sturdyRef owner.
Persistent sturdyRef owner -> Persistent sturdyRef owner -> Bool
Std_.Eq
            ,(forall x.
 Persistent sturdyRef owner -> Rep (Persistent sturdyRef owner) x)
-> (forall x.
    Rep (Persistent sturdyRef owner) x -> Persistent sturdyRef owner)
-> Generic (Persistent sturdyRef owner)
forall x.
Rep (Persistent sturdyRef owner) x -> Persistent sturdyRef owner
forall x.
Persistent sturdyRef owner -> Rep (Persistent sturdyRef owner) x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
forall sturdyRef owner x.
Rep (Persistent sturdyRef owner) x -> Persistent sturdyRef owner
forall sturdyRef owner x.
Persistent sturdyRef owner -> Rep (Persistent sturdyRef owner) x
$cto :: forall sturdyRef owner x.
Rep (Persistent sturdyRef owner) x -> Persistent sturdyRef owner
$cfrom :: forall sturdyRef owner x.
Persistent sturdyRef owner -> Rep (Persistent sturdyRef owner) x
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 cap
_ = MethodHandler
  m
  (Persistent'SaveParams sturdyRef owner)
  (Persistent'SaveResults sturdyRef owner)
forall (m :: * -> *) p r. MonadIO m => MethodHandler m p r
Server.methodUnimplemented
export_Persistent :: ((STM.MonadSTM m)
                     ,(Persistent'server_ Std_.IO cap sturdyRef owner)) => Supervisors.Supervisor -> cap -> (m (Persistent sturdyRef owner))
export_Persistent :: Supervisor -> cap -> m (Persistent sturdyRef owner)
export_Persistent Supervisor
sup_ cap
server_ = (STM (Persistent sturdyRef owner) -> m (Persistent sturdyRef owner)
forall (m :: * -> *) a. MonadSTM m => STM a -> m a
STM.liftSTM (Client -> Persistent sturdyRef owner
forall sturdyRef owner. Client -> Persistent sturdyRef owner
Persistent (Client -> Persistent sturdyRef owner)
-> STM Client -> STM (Persistent sturdyRef owner)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Supervisor -> ServerOps IO -> STM Client
forall (m :: * -> *).
MonadSTM m =>
Supervisor -> ServerOps IO -> m Client
Rpc.export Supervisor
sup_ ServerOps :: forall (m :: * -> *).
(Word64
 -> Word16
 -> MethodHandler m (Maybe (Ptr ConstMsg)) (Maybe (Ptr ConstMsg)))
-> m () -> (forall a. Typeable a => Maybe a) -> ServerOps m
Server.ServerOps{handleCast :: forall a. Typeable a => Maybe a
handleCast = (cap -> Maybe a
forall (m :: * -> *) a b. (Server m a, Typeable b) => a -> Maybe b
Server.unwrap cap
server_)
                                                                                               ,handleStop :: IO ()
handleStop = (cap -> IO ()
forall (m :: * -> *) a. Server m a => a -> m ()
Server.shutdown cap
server_)
                                                                                               ,handleCall :: Word64
-> Word16
-> MethodHandler IO (Maybe (Ptr ConstMsg)) (Maybe (Ptr ConstMsg))
handleCall = (\Word64
interfaceId_ Word16
methodId_ -> case Word64
interfaceId_ of
                                                                                                   Word64
14468694717054801553 ->
                                                                                                       case Word16
methodId_ of
                                                                                                           Word16
0 ->
                                                                                                               (MethodHandler
  IO
  (Persistent'SaveParams sturdyRef owner)
  (Persistent'SaveResults sturdyRef owner)
-> MethodHandler IO (Maybe (Ptr ConstMsg)) (Maybe (Ptr ConstMsg))
forall (m :: * -> *) p r.
MethodHandler m p r
-> MethodHandler m (Maybe (Ptr ConstMsg)) (Maybe (Ptr ConstMsg))
Server.toUntypedHandler (cap
-> MethodHandler
     IO
     (Persistent'SaveParams sturdyRef owner)
     (Persistent'SaveResults sturdyRef owner)
forall (m :: * -> *) cap sturdyRef owner.
Persistent'server_ m cap sturdyRef owner =>
cap
-> MethodHandler
     m
     (Persistent'SaveParams sturdyRef owner)
     (Persistent'SaveResults sturdyRef owner)
persistent'save cap
server_))
                                                                                                           Word16
_ ->
                                                                                                               MethodHandler IO (Maybe (Ptr ConstMsg)) (Maybe (Ptr ConstMsg))
forall (m :: * -> *) p r. MonadIO m => MethodHandler m p r
Server.methodUnimplemented
                                                                                                   Word64
_ ->
                                                                                                       MethodHandler IO (Maybe (Ptr ConstMsg)) (Maybe (Ptr ConstMsg))
forall (m :: * -> *) p r. MonadIO m => MethodHandler m p r
Server.methodUnimplemented)})))
instance (Rpc.IsClient (Persistent sturdyRef owner)) where
    fromClient :: Client -> Persistent sturdyRef owner
fromClient  = Client -> Persistent sturdyRef owner
forall sturdyRef owner. Client -> Persistent sturdyRef owner
Persistent
    toClient :: Persistent sturdyRef owner -> Client
toClient (Persistent Client
client) = Client
client
instance (Classes.FromPtr msg (Persistent sturdyRef owner)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (Persistent sturdyRef owner)
fromPtr  = msg -> Maybe (Ptr msg) -> m (Persistent sturdyRef owner)
forall a (m :: * -> *) msg.
(IsClient a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
RpcHelpers.isClientFromPtr
instance (Classes.ToPtr s (Persistent sturdyRef owner)) where
    toPtr :: MutMsg s
-> Persistent sturdyRef owner -> m (Maybe (Ptr (MutMsg s)))
toPtr  = MutMsg s
-> Persistent sturdyRef owner -> m (Maybe (Ptr (MutMsg s)))
forall a (m :: * -> *) s.
(IsClient a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
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 :: Cerial ConstMsg (Persistent sturdyRef owner)
-> m (Persistent sturdyRef owner)
decerialize (Capnp.Gen.ById.Xb8630836983feed7.Persistent'newtype_ maybeCap) = case Maybe (Cap ConstMsg)
maybeCap of
        (Maybe (Cap ConstMsg)
Std_.Nothing) ->
            (Persistent sturdyRef owner -> m (Persistent sturdyRef owner)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Client -> Persistent sturdyRef owner
forall sturdyRef owner. Client -> Persistent sturdyRef owner
Persistent Client
Message.nullClient))
        (Std_.Just Cap ConstMsg
cap) ->
            (Client -> Persistent sturdyRef owner
forall sturdyRef owner. Client -> Persistent sturdyRef owner
Persistent (Client -> Persistent sturdyRef owner)
-> m Client -> m (Persistent sturdyRef owner)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Cap ConstMsg -> m Client
forall (m :: * -> *) msg. ReadCtx m msg => Cap msg -> m Client
Untyped.getClient Cap ConstMsg
cap))
instance (Classes.Cerialize s (Persistent sturdyRef owner)) where
    cerialize :: MutMsg s
-> Persistent sturdyRef owner
-> m (Cerial (MutMsg s) (Persistent sturdyRef owner))
cerialize MutMsg s
msg (Persistent Client
client) = (Maybe (Cap (MutMsg s))
-> Persistent
     (Cerial (MutMsg s) sturdyRef) (Cerial (MutMsg s) owner) (MutMsg s)
forall sturdyRef owner msg.
Maybe (Cap msg) -> Persistent sturdyRef owner msg
Capnp.Gen.ById.Xb8630836983feed7.Persistent'newtype_ (Maybe (Cap (MutMsg s))
 -> Persistent
      (Cerial (MutMsg s) sturdyRef) (Cerial (MutMsg s) owner) (MutMsg s))
-> m (Maybe (Cap (MutMsg s)))
-> m (Persistent
        (Cerial (MutMsg s) sturdyRef) (Cerial (MutMsg s) owner) (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Cap (MutMsg s) -> Maybe (Cap (MutMsg s))
forall a. a -> Maybe a
Std_.Just (Cap (MutMsg s) -> Maybe (Cap (MutMsg s)))
-> m (Cap (MutMsg s)) -> m (Maybe (Cap (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Client -> m (Cap (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Client -> m (Cap (MutMsg s))
Untyped.appendCap MutMsg s
msg Client
client)))
instance (Server.Server Std_.IO (Persistent sturdyRef owner))
instance (Persistent'server_ Std_.IO (Persistent sturdyRef owner) sturdyRef owner) where
    persistent'save :: Persistent sturdyRef owner
-> MethodHandler
     IO
     (Persistent'SaveParams sturdyRef owner)
     (Persistent'SaveResults sturdyRef owner)
persistent'save (Persistent Client
client) = (Word64
-> Word16
-> Client
-> MethodHandler
     IO
     (Persistent'SaveParams sturdyRef owner)
     (Persistent'SaveResults sturdyRef owner)
forall p r. Word64 -> Word16 -> Client -> MethodHandler IO p r
Rpc.clientMethodHandler Word64
14468694717054801553 Word16
0 Client
client)
data Persistent'SaveParams sturdyRef owner
    = Persistent'SaveParams 
        {Persistent'SaveParams sturdyRef owner -> owner
sealFor :: owner}
    deriving(Int -> Persistent'SaveParams sturdyRef owner -> ShowS
[Persistent'SaveParams sturdyRef owner] -> ShowS
Persistent'SaveParams sturdyRef owner -> String
(Int -> Persistent'SaveParams sturdyRef owner -> ShowS)
-> (Persistent'SaveParams sturdyRef owner -> String)
-> ([Persistent'SaveParams sturdyRef owner] -> ShowS)
-> Show (Persistent'SaveParams sturdyRef owner)
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
forall sturdyRef owner.
Show owner =>
Int -> Persistent'SaveParams sturdyRef owner -> ShowS
forall sturdyRef owner.
Show owner =>
[Persistent'SaveParams sturdyRef owner] -> ShowS
forall sturdyRef owner.
Show owner =>
Persistent'SaveParams sturdyRef owner -> String
showList :: [Persistent'SaveParams sturdyRef owner] -> ShowS
$cshowList :: forall sturdyRef owner.
Show owner =>
[Persistent'SaveParams sturdyRef owner] -> ShowS
show :: Persistent'SaveParams sturdyRef owner -> String
$cshow :: forall sturdyRef owner.
Show owner =>
Persistent'SaveParams sturdyRef owner -> String
showsPrec :: Int -> Persistent'SaveParams sturdyRef owner -> ShowS
$cshowsPrec :: forall sturdyRef owner.
Show owner =>
Int -> Persistent'SaveParams sturdyRef owner -> ShowS
Std_.Show
            ,Persistent'SaveParams sturdyRef owner
-> Persistent'SaveParams sturdyRef owner -> Bool
(Persistent'SaveParams sturdyRef owner
 -> Persistent'SaveParams sturdyRef owner -> Bool)
-> (Persistent'SaveParams sturdyRef owner
    -> Persistent'SaveParams sturdyRef owner -> Bool)
-> Eq (Persistent'SaveParams sturdyRef owner)
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
forall sturdyRef owner.
Eq owner =>
Persistent'SaveParams sturdyRef owner
-> Persistent'SaveParams sturdyRef owner -> Bool
/= :: Persistent'SaveParams sturdyRef owner
-> Persistent'SaveParams sturdyRef owner -> Bool
$c/= :: forall sturdyRef owner.
Eq owner =>
Persistent'SaveParams sturdyRef owner
-> Persistent'SaveParams sturdyRef owner -> Bool
== :: Persistent'SaveParams sturdyRef owner
-> Persistent'SaveParams sturdyRef owner -> Bool
$c== :: forall sturdyRef owner.
Eq owner =>
Persistent'SaveParams sturdyRef owner
-> Persistent'SaveParams sturdyRef owner -> Bool
Std_.Eq
            ,(forall x.
 Persistent'SaveParams sturdyRef owner
 -> Rep (Persistent'SaveParams sturdyRef owner) x)
-> (forall x.
    Rep (Persistent'SaveParams sturdyRef owner) x
    -> Persistent'SaveParams sturdyRef owner)
-> Generic (Persistent'SaveParams sturdyRef owner)
forall x.
Rep (Persistent'SaveParams sturdyRef owner) x
-> Persistent'SaveParams sturdyRef owner
forall x.
Persistent'SaveParams sturdyRef owner
-> Rep (Persistent'SaveParams sturdyRef owner) x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
forall sturdyRef owner x.
Rep (Persistent'SaveParams sturdyRef owner) x
-> Persistent'SaveParams sturdyRef owner
forall sturdyRef owner x.
Persistent'SaveParams sturdyRef owner
-> Rep (Persistent'SaveParams sturdyRef owner) x
$cto :: forall sturdyRef owner x.
Rep (Persistent'SaveParams sturdyRef owner) x
-> Persistent'SaveParams sturdyRef owner
$cfrom :: forall sturdyRef owner x.
Persistent'SaveParams sturdyRef owner
-> Rep (Persistent'SaveParams sturdyRef owner) x
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 :: Persistent'SaveParams sturdyRef owner
def  = Persistent'SaveParams sturdyRef owner
forall a.
(Decerialize a, FromStruct ConstMsg (Cerial ConstMsg a)) =>
a
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 ConstMsg -> m (Persistent'SaveParams sturdyRef owner)
fromStruct Struct ConstMsg
struct = ((Struct ConstMsg
-> m (Persistent'SaveParams
        (Cerial ConstMsg sturdyRef) (Cerial ConstMsg owner) ConstMsg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct ConstMsg
struct) m (Persistent'SaveParams
     (Cerial ConstMsg sturdyRef) (Cerial ConstMsg owner) ConstMsg)
-> (Persistent'SaveParams
      (Cerial ConstMsg sturdyRef) (Cerial ConstMsg owner) ConstMsg
    -> m (Persistent'SaveParams sturdyRef owner))
-> m (Persistent'SaveParams sturdyRef owner)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Persistent'SaveParams
  (Cerial ConstMsg sturdyRef) (Cerial ConstMsg owner) ConstMsg
-> m (Persistent'SaveParams sturdyRef owner)
forall a (m :: * -> *).
(Decerialize a, ReadCtx m ConstMsg) =>
Cerial ConstMsg a -> m a
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 :: Cerial ConstMsg (Persistent'SaveParams sturdyRef owner)
-> m (Persistent'SaveParams sturdyRef owner)
decerialize Cerial ConstMsg (Persistent'SaveParams sturdyRef owner)
raw = (owner -> Persistent'SaveParams sturdyRef owner
forall sturdyRef owner.
owner -> Persistent'SaveParams sturdyRef owner
Persistent'SaveParams (owner -> Persistent'SaveParams sturdyRef owner)
-> m owner -> m (Persistent'SaveParams sturdyRef owner)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((Persistent'SaveParams
  (Cerial ConstMsg sturdyRef) (Cerial ConstMsg owner) ConstMsg
-> m (Cerial ConstMsg owner)
forall (m :: * -> *) msg owner sturdyRef.
(ReadCtx m msg, FromPtr msg owner) =>
Persistent'SaveParams sturdyRef owner msg -> m owner
Capnp.Gen.ById.Xb8630836983feed7.get_Persistent'SaveParams'sealFor Cerial ConstMsg (Persistent'SaveParams sturdyRef owner)
Persistent'SaveParams
  (Cerial ConstMsg sturdyRef) (Cerial ConstMsg owner) ConstMsg
raw) m (Cerial ConstMsg owner)
-> (Cerial ConstMsg owner -> m owner) -> m owner
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Cerial ConstMsg owner -> m owner
forall a (m :: * -> *).
(Decerialize a, ReadCtx m ConstMsg) =>
Cerial ConstMsg a -> m a
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 :: Cerial (MutMsg s) (Persistent'SaveParams sturdyRef owner)
-> Persistent'SaveParams sturdyRef owner -> m ()
marshalInto Cerial (MutMsg s) (Persistent'SaveParams sturdyRef owner)
raw_ Persistent'SaveParams sturdyRef owner
value_ = case Persistent'SaveParams sturdyRef owner
value_ of
        Persistent'SaveParams{owner
sealFor :: owner
$sel:sealFor:Persistent'SaveParams :: forall sturdyRef owner.
Persistent'SaveParams sturdyRef owner -> owner
..} ->
            (do
                ((MutMsg s -> owner -> m (Cerial (MutMsg s) owner)
forall s a (m :: * -> *).
(Cerialize s a, RWCtx m s) =>
MutMsg s -> a -> m (Cerial (MutMsg s) a)
Classes.cerialize (Persistent'SaveParams
  (Cerial (MutMsg s) sturdyRef) (Cerial (MutMsg s) owner) (MutMsg s)
-> InMessage
     (Persistent'SaveParams
        (Cerial (MutMsg s) sturdyRef) (Cerial (MutMsg s) owner) (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Cerial (MutMsg s) (Persistent'SaveParams sturdyRef owner)
Persistent'SaveParams
  (Cerial (MutMsg s) sturdyRef) (Cerial (MutMsg s) owner) (MutMsg s)
raw_) owner
sealFor) m (Cerial (MutMsg s) owner)
-> (Cerial (MutMsg s) owner -> m ()) -> m ()
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Persistent'SaveParams
  (Cerial (MutMsg s) sturdyRef) (Cerial (MutMsg s) owner) (MutMsg s)
-> Cerial (MutMsg s) owner -> m ()
forall (m :: * -> *) s owner sturdyRef.
(RWCtx m s, ToPtr s owner) =>
Persistent'SaveParams sturdyRef owner (MutMsg s) -> owner -> m ()
Capnp.Gen.ById.Xb8630836983feed7.set_Persistent'SaveParams'sealFor Cerial (MutMsg s) (Persistent'SaveParams sturdyRef owner)
Persistent'SaveParams
  (Cerial (MutMsg s) sturdyRef) (Cerial (MutMsg s) owner) (MutMsg s)
raw_))
                (() -> m ()
forall (f :: * -> *) a. Applicative f => a -> f a
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 :: MutMsg s
-> Vector (Persistent'SaveParams sturdyRef owner)
-> m (Cerial
        (MutMsg s) (Vector (Persistent'SaveParams sturdyRef owner)))
cerialize  = MutMsg s
-> Vector (Persistent'SaveParams sturdyRef owner)
-> m (Cerial
        (MutMsg s) (Vector (Persistent'SaveParams sturdyRef owner)))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Marshal s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector (Vector (Persistent'SaveParams sturdyRef owner))
-> m (Cerial
        (MutMsg s)
        (Vector (Vector (Persistent'SaveParams sturdyRef owner))))
cerialize  = MutMsg s
-> Vector (Vector (Persistent'SaveParams sturdyRef owner))
-> m (Cerial
        (MutMsg s)
        (Vector (Vector (Persistent'SaveParams sturdyRef owner))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector (Vector (Vector (Persistent'SaveParams sturdyRef owner)))
-> m (Cerial
        (MutMsg s)
        (Vector (Vector (Vector (Persistent'SaveParams sturdyRef owner)))))
cerialize  = MutMsg s
-> Vector (Vector (Vector (Persistent'SaveParams sturdyRef owner)))
-> m (Cerial
        (MutMsg s)
        (Vector (Vector (Vector (Persistent'SaveParams sturdyRef owner)))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector (Vector (Vector (Persistent'SaveParams sturdyRef owner))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector (Vector (Persistent'SaveParams sturdyRef owner))))))
cerialize  = MutMsg s
-> Vector
     (Vector (Vector (Vector (Persistent'SaveParams sturdyRef owner))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector (Vector (Persistent'SaveParams sturdyRef owner))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector
        (Vector (Vector (Vector (Persistent'SaveParams sturdyRef owner)))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector (Vector (Persistent'SaveParams sturdyRef owner)))))))
cerialize  = MutMsg s
-> Vector
     (Vector
        (Vector (Vector (Vector (Persistent'SaveParams sturdyRef owner)))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector (Vector (Persistent'SaveParams sturdyRef owner)))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector (Vector (Persistent'SaveParams sturdyRef owner))))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector (Vector (Persistent'SaveParams sturdyRef owner))))))))
cerialize  = MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector (Vector (Persistent'SaveParams sturdyRef owner))))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector (Vector (Persistent'SaveParams sturdyRef owner))))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector
                 (Vector (Vector (Persistent'SaveParams sturdyRef owner)))))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (Vector (Vector (Persistent'SaveParams sturdyRef owner)))))))))
cerialize  = MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector
                 (Vector (Vector (Persistent'SaveParams sturdyRef owner)))))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (Vector (Vector (Persistent'SaveParams sturdyRef owner)))))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
GenHelpersPure.cerializeBasicVec
data Persistent'SaveResults sturdyRef owner
    = Persistent'SaveResults 
        {Persistent'SaveResults sturdyRef owner -> sturdyRef
sturdyRef :: sturdyRef}
    deriving(Int -> Persistent'SaveResults sturdyRef owner -> ShowS
[Persistent'SaveResults sturdyRef owner] -> ShowS
Persistent'SaveResults sturdyRef owner -> String
(Int -> Persistent'SaveResults sturdyRef owner -> ShowS)
-> (Persistent'SaveResults sturdyRef owner -> String)
-> ([Persistent'SaveResults sturdyRef owner] -> ShowS)
-> Show (Persistent'SaveResults sturdyRef owner)
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
forall sturdyRef owner.
Show sturdyRef =>
Int -> Persistent'SaveResults sturdyRef owner -> ShowS
forall sturdyRef owner.
Show sturdyRef =>
[Persistent'SaveResults sturdyRef owner] -> ShowS
forall sturdyRef owner.
Show sturdyRef =>
Persistent'SaveResults sturdyRef owner -> String
showList :: [Persistent'SaveResults sturdyRef owner] -> ShowS
$cshowList :: forall sturdyRef owner.
Show sturdyRef =>
[Persistent'SaveResults sturdyRef owner] -> ShowS
show :: Persistent'SaveResults sturdyRef owner -> String
$cshow :: forall sturdyRef owner.
Show sturdyRef =>
Persistent'SaveResults sturdyRef owner -> String
showsPrec :: Int -> Persistent'SaveResults sturdyRef owner -> ShowS
$cshowsPrec :: forall sturdyRef owner.
Show sturdyRef =>
Int -> Persistent'SaveResults sturdyRef owner -> ShowS
Std_.Show
            ,Persistent'SaveResults sturdyRef owner
-> Persistent'SaveResults sturdyRef owner -> Bool
(Persistent'SaveResults sturdyRef owner
 -> Persistent'SaveResults sturdyRef owner -> Bool)
-> (Persistent'SaveResults sturdyRef owner
    -> Persistent'SaveResults sturdyRef owner -> Bool)
-> Eq (Persistent'SaveResults sturdyRef owner)
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
forall sturdyRef owner.
Eq sturdyRef =>
Persistent'SaveResults sturdyRef owner
-> Persistent'SaveResults sturdyRef owner -> Bool
/= :: Persistent'SaveResults sturdyRef owner
-> Persistent'SaveResults sturdyRef owner -> Bool
$c/= :: forall sturdyRef owner.
Eq sturdyRef =>
Persistent'SaveResults sturdyRef owner
-> Persistent'SaveResults sturdyRef owner -> Bool
== :: Persistent'SaveResults sturdyRef owner
-> Persistent'SaveResults sturdyRef owner -> Bool
$c== :: forall sturdyRef owner.
Eq sturdyRef =>
Persistent'SaveResults sturdyRef owner
-> Persistent'SaveResults sturdyRef owner -> Bool
Std_.Eq
            ,(forall x.
 Persistent'SaveResults sturdyRef owner
 -> Rep (Persistent'SaveResults sturdyRef owner) x)
-> (forall x.
    Rep (Persistent'SaveResults sturdyRef owner) x
    -> Persistent'SaveResults sturdyRef owner)
-> Generic (Persistent'SaveResults sturdyRef owner)
forall x.
Rep (Persistent'SaveResults sturdyRef owner) x
-> Persistent'SaveResults sturdyRef owner
forall x.
Persistent'SaveResults sturdyRef owner
-> Rep (Persistent'SaveResults sturdyRef owner) x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
forall sturdyRef owner x.
Rep (Persistent'SaveResults sturdyRef owner) x
-> Persistent'SaveResults sturdyRef owner
forall sturdyRef owner x.
Persistent'SaveResults sturdyRef owner
-> Rep (Persistent'SaveResults sturdyRef owner) x
$cto :: forall sturdyRef owner x.
Rep (Persistent'SaveResults sturdyRef owner) x
-> Persistent'SaveResults sturdyRef owner
$cfrom :: forall sturdyRef owner x.
Persistent'SaveResults sturdyRef owner
-> Rep (Persistent'SaveResults sturdyRef owner) x
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 :: Persistent'SaveResults sturdyRef owner
def  = Persistent'SaveResults sturdyRef owner
forall a.
(Decerialize a, FromStruct ConstMsg (Cerial ConstMsg a)) =>
a
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 ConstMsg -> m (Persistent'SaveResults sturdyRef owner)
fromStruct Struct ConstMsg
struct = ((Struct ConstMsg
-> m (Persistent'SaveResults
        (Cerial ConstMsg sturdyRef) (Cerial ConstMsg owner) ConstMsg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct ConstMsg
struct) m (Persistent'SaveResults
     (Cerial ConstMsg sturdyRef) (Cerial ConstMsg owner) ConstMsg)
-> (Persistent'SaveResults
      (Cerial ConstMsg sturdyRef) (Cerial ConstMsg owner) ConstMsg
    -> m (Persistent'SaveResults sturdyRef owner))
-> m (Persistent'SaveResults sturdyRef owner)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Persistent'SaveResults
  (Cerial ConstMsg sturdyRef) (Cerial ConstMsg owner) ConstMsg
-> m (Persistent'SaveResults sturdyRef owner)
forall a (m :: * -> *).
(Decerialize a, ReadCtx m ConstMsg) =>
Cerial ConstMsg a -> m a
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 :: Cerial ConstMsg (Persistent'SaveResults sturdyRef owner)
-> m (Persistent'SaveResults sturdyRef owner)
decerialize Cerial ConstMsg (Persistent'SaveResults sturdyRef owner)
raw = (sturdyRef -> Persistent'SaveResults sturdyRef owner
forall sturdyRef owner.
sturdyRef -> Persistent'SaveResults sturdyRef owner
Persistent'SaveResults (sturdyRef -> Persistent'SaveResults sturdyRef owner)
-> m sturdyRef -> m (Persistent'SaveResults sturdyRef owner)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((Persistent'SaveResults
  (Cerial ConstMsg sturdyRef) (Cerial ConstMsg owner) ConstMsg
-> m (Cerial ConstMsg sturdyRef)
forall (m :: * -> *) msg sturdyRef owner.
(ReadCtx m msg, FromPtr msg sturdyRef) =>
Persistent'SaveResults sturdyRef owner msg -> m sturdyRef
Capnp.Gen.ById.Xb8630836983feed7.get_Persistent'SaveResults'sturdyRef Cerial ConstMsg (Persistent'SaveResults sturdyRef owner)
Persistent'SaveResults
  (Cerial ConstMsg sturdyRef) (Cerial ConstMsg owner) ConstMsg
raw) m (Cerial ConstMsg sturdyRef)
-> (Cerial ConstMsg sturdyRef -> m sturdyRef) -> m sturdyRef
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Cerial ConstMsg sturdyRef -> m sturdyRef
forall a (m :: * -> *).
(Decerialize a, ReadCtx m ConstMsg) =>
Cerial ConstMsg a -> m a
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 :: Cerial (MutMsg s) (Persistent'SaveResults sturdyRef owner)
-> Persistent'SaveResults sturdyRef owner -> m ()
marshalInto Cerial (MutMsg s) (Persistent'SaveResults sturdyRef owner)
raw_ Persistent'SaveResults sturdyRef owner
value_ = case Persistent'SaveResults sturdyRef owner
value_ of
        Persistent'SaveResults{sturdyRef
sturdyRef :: sturdyRef
$sel:sturdyRef:Persistent'SaveResults :: forall sturdyRef owner.
Persistent'SaveResults sturdyRef owner -> sturdyRef
..} ->
            (do
                ((MutMsg s -> sturdyRef -> m (Cerial (MutMsg s) sturdyRef)
forall s a (m :: * -> *).
(Cerialize s a, RWCtx m s) =>
MutMsg s -> a -> m (Cerial (MutMsg s) a)
Classes.cerialize (Persistent'SaveResults
  (Cerial (MutMsg s) sturdyRef) (Cerial (MutMsg s) owner) (MutMsg s)
-> InMessage
     (Persistent'SaveResults
        (Cerial (MutMsg s) sturdyRef) (Cerial (MutMsg s) owner) (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Cerial (MutMsg s) (Persistent'SaveResults sturdyRef owner)
Persistent'SaveResults
  (Cerial (MutMsg s) sturdyRef) (Cerial (MutMsg s) owner) (MutMsg s)
raw_) sturdyRef
sturdyRef) m (Cerial (MutMsg s) sturdyRef)
-> (Cerial (MutMsg s) sturdyRef -> m ()) -> m ()
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Persistent'SaveResults
  (Cerial (MutMsg s) sturdyRef) (Cerial (MutMsg s) owner) (MutMsg s)
-> Cerial (MutMsg s) sturdyRef -> m ()
forall (m :: * -> *) s sturdyRef owner.
(RWCtx m s, ToPtr s sturdyRef) =>
Persistent'SaveResults sturdyRef owner (MutMsg s)
-> sturdyRef -> m ()
Capnp.Gen.ById.Xb8630836983feed7.set_Persistent'SaveResults'sturdyRef Cerial (MutMsg s) (Persistent'SaveResults sturdyRef owner)
Persistent'SaveResults
  (Cerial (MutMsg s) sturdyRef) (Cerial (MutMsg s) owner) (MutMsg s)
raw_))
                (() -> m ()
forall (f :: * -> *) a. Applicative f => a -> f a
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 :: MutMsg s
-> Vector (Persistent'SaveResults sturdyRef owner)
-> m (Cerial
        (MutMsg s) (Vector (Persistent'SaveResults sturdyRef owner)))
cerialize  = MutMsg s
-> Vector (Persistent'SaveResults sturdyRef owner)
-> m (Cerial
        (MutMsg s) (Vector (Persistent'SaveResults sturdyRef owner)))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Marshal s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector (Vector (Persistent'SaveResults sturdyRef owner))
-> m (Cerial
        (MutMsg s)
        (Vector (Vector (Persistent'SaveResults sturdyRef owner))))
cerialize  = MutMsg s
-> Vector (Vector (Persistent'SaveResults sturdyRef owner))
-> m (Cerial
        (MutMsg s)
        (Vector (Vector (Persistent'SaveResults sturdyRef owner))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector (Vector (Persistent'SaveResults sturdyRef owner)))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector (Vector (Persistent'SaveResults sturdyRef owner)))))
cerialize  = MutMsg s
-> Vector
     (Vector (Vector (Persistent'SaveResults sturdyRef owner)))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector (Vector (Persistent'SaveResults sturdyRef owner)))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector (Vector (Vector (Persistent'SaveResults sturdyRef owner))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector (Vector (Persistent'SaveResults sturdyRef owner))))))
cerialize  = MutMsg s
-> Vector
     (Vector (Vector (Vector (Persistent'SaveResults sturdyRef owner))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector (Vector (Persistent'SaveResults sturdyRef owner))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector (Vector (Persistent'SaveResults sturdyRef owner)))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector (Vector (Persistent'SaveResults sturdyRef owner)))))))
cerialize  = MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector (Vector (Persistent'SaveResults sturdyRef owner)))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector (Vector (Persistent'SaveResults sturdyRef owner)))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector (Vector (Persistent'SaveResults sturdyRef owner))))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector (Vector (Persistent'SaveResults sturdyRef owner))))))))
cerialize  = MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector (Vector (Persistent'SaveResults sturdyRef owner))))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector (Vector (Persistent'SaveResults sturdyRef owner))))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector
                 (Vector (Vector (Persistent'SaveResults sturdyRef owner)))))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (Vector (Vector (Persistent'SaveResults sturdyRef owner)))))))))
cerialize  = MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector
                 (Vector (Vector (Persistent'SaveResults sturdyRef owner)))))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (Vector (Vector (Persistent'SaveResults sturdyRef owner)))))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
GenHelpersPure.cerializeBasicVec
newtype RealmGateway internalRef externalRef internalOwner externalOwner
    = RealmGateway Message.Client
    deriving(Int
-> RealmGateway internalRef externalRef internalOwner externalOwner
-> ShowS
[RealmGateway internalRef externalRef internalOwner externalOwner]
-> ShowS
RealmGateway internalRef externalRef internalOwner externalOwner
-> String
(Int
 -> RealmGateway internalRef externalRef internalOwner externalOwner
 -> ShowS)
-> (RealmGateway
      internalRef externalRef internalOwner externalOwner
    -> String)
-> ([RealmGateway
       internalRef externalRef internalOwner externalOwner]
    -> ShowS)
-> Show
     (RealmGateway internalRef externalRef internalOwner externalOwner)
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
forall internalRef externalRef internalOwner externalOwner.
Int
-> RealmGateway internalRef externalRef internalOwner externalOwner
-> ShowS
forall internalRef externalRef internalOwner externalOwner.
[RealmGateway internalRef externalRef internalOwner externalOwner]
-> ShowS
forall internalRef externalRef internalOwner externalOwner.
RealmGateway internalRef externalRef internalOwner externalOwner
-> String
showList :: [RealmGateway internalRef externalRef internalOwner externalOwner]
-> ShowS
$cshowList :: forall internalRef externalRef internalOwner externalOwner.
[RealmGateway internalRef externalRef internalOwner externalOwner]
-> ShowS
show :: RealmGateway internalRef externalRef internalOwner externalOwner
-> String
$cshow :: forall internalRef externalRef internalOwner externalOwner.
RealmGateway internalRef externalRef internalOwner externalOwner
-> String
showsPrec :: Int
-> RealmGateway internalRef externalRef internalOwner externalOwner
-> ShowS
$cshowsPrec :: forall internalRef externalRef internalOwner externalOwner.
Int
-> RealmGateway internalRef externalRef internalOwner externalOwner
-> ShowS
Std_.Show
            ,RealmGateway internalRef externalRef internalOwner externalOwner
-> RealmGateway internalRef externalRef internalOwner externalOwner
-> Bool
(RealmGateway internalRef externalRef internalOwner externalOwner
 -> RealmGateway internalRef externalRef internalOwner externalOwner
 -> Bool)
-> (RealmGateway
      internalRef externalRef internalOwner externalOwner
    -> RealmGateway internalRef externalRef internalOwner externalOwner
    -> Bool)
-> Eq
     (RealmGateway internalRef externalRef internalOwner externalOwner)
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
forall internalRef externalRef internalOwner externalOwner.
RealmGateway internalRef externalRef internalOwner externalOwner
-> RealmGateway internalRef externalRef internalOwner externalOwner
-> Bool
/= :: RealmGateway internalRef externalRef internalOwner externalOwner
-> RealmGateway internalRef externalRef internalOwner externalOwner
-> Bool
$c/= :: forall internalRef externalRef internalOwner externalOwner.
RealmGateway internalRef externalRef internalOwner externalOwner
-> RealmGateway internalRef externalRef internalOwner externalOwner
-> Bool
== :: RealmGateway internalRef externalRef internalOwner externalOwner
-> RealmGateway internalRef externalRef internalOwner externalOwner
-> Bool
$c== :: forall internalRef externalRef internalOwner externalOwner.
RealmGateway internalRef externalRef internalOwner externalOwner
-> RealmGateway internalRef externalRef internalOwner externalOwner
-> Bool
Std_.Eq
            ,(forall x.
 RealmGateway internalRef externalRef internalOwner externalOwner
 -> Rep
      (RealmGateway internalRef externalRef internalOwner externalOwner)
      x)
-> (forall x.
    Rep
      (RealmGateway internalRef externalRef internalOwner externalOwner)
      x
    -> RealmGateway
         internalRef externalRef internalOwner externalOwner)
-> Generic
     (RealmGateway internalRef externalRef internalOwner externalOwner)
forall x.
Rep
  (RealmGateway internalRef externalRef internalOwner externalOwner)
  x
-> RealmGateway internalRef externalRef internalOwner externalOwner
forall x.
RealmGateway internalRef externalRef internalOwner externalOwner
-> Rep
     (RealmGateway internalRef externalRef internalOwner externalOwner)
     x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
forall internalRef externalRef internalOwner externalOwner x.
Rep
  (RealmGateway internalRef externalRef internalOwner externalOwner)
  x
-> RealmGateway internalRef externalRef internalOwner externalOwner
forall internalRef externalRef internalOwner externalOwner x.
RealmGateway internalRef externalRef internalOwner externalOwner
-> Rep
     (RealmGateway internalRef externalRef internalOwner externalOwner)
     x
$cto :: forall internalRef externalRef internalOwner externalOwner x.
Rep
  (RealmGateway internalRef externalRef internalOwner externalOwner)
  x
-> RealmGateway internalRef externalRef internalOwner externalOwner
$cfrom :: forall internalRef externalRef internalOwner externalOwner x.
RealmGateway internalRef externalRef internalOwner externalOwner
-> Rep
     (RealmGateway internalRef externalRef internalOwner externalOwner)
     x
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_ cap
_ = MethodHandler
  m
  (RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner)
  (Persistent'SaveResults internalRef internalOwner)
forall (m :: * -> *) p r. MonadIO m => MethodHandler m p r
Server.methodUnimplemented
    realmGateway'export :: cap -> (Server.MethodHandler m (RealmGateway'export'params internalRef externalRef internalOwner externalOwner) (Persistent'SaveResults externalRef externalOwner))
    realmGateway'export cap
_ = MethodHandler
  m
  (RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner)
  (Persistent'SaveResults externalRef externalOwner)
forall (m :: * -> *) p r. MonadIO m => MethodHandler m p r
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 :: Supervisor
-> cap
-> m (RealmGateway
        internalRef externalRef internalOwner externalOwner)
export_RealmGateway Supervisor
sup_ cap
server_ = (STM
  (RealmGateway internalRef externalRef internalOwner externalOwner)
-> m (RealmGateway
        internalRef externalRef internalOwner externalOwner)
forall (m :: * -> *) a. MonadSTM m => STM a -> m a
STM.liftSTM (Client
-> RealmGateway internalRef externalRef internalOwner externalOwner
forall internalRef externalRef internalOwner externalOwner.
Client
-> RealmGateway internalRef externalRef internalOwner externalOwner
RealmGateway (Client
 -> RealmGateway
      internalRef externalRef internalOwner externalOwner)
-> STM Client
-> STM
     (RealmGateway internalRef externalRef internalOwner externalOwner)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Supervisor -> ServerOps IO -> STM Client
forall (m :: * -> *).
MonadSTM m =>
Supervisor -> ServerOps IO -> m Client
Rpc.export Supervisor
sup_ ServerOps :: forall (m :: * -> *).
(Word64
 -> Word16
 -> MethodHandler m (Maybe (Ptr ConstMsg)) (Maybe (Ptr ConstMsg)))
-> m () -> (forall a. Typeable a => Maybe a) -> ServerOps m
Server.ServerOps{handleCast :: forall a. Typeable a => Maybe a
handleCast = (cap -> Maybe a
forall (m :: * -> *) a b. (Server m a, Typeable b) => a -> Maybe b
Server.unwrap cap
server_)
                                                                                                   ,handleStop :: IO ()
handleStop = (cap -> IO ()
forall (m :: * -> *) a. Server m a => a -> m ()
Server.shutdown cap
server_)
                                                                                                   ,handleCall :: Word64
-> Word16
-> MethodHandler IO (Maybe (Ptr ConstMsg)) (Maybe (Ptr ConstMsg))
handleCall = (\Word64
interfaceId_ Word16
methodId_ -> case Word64
interfaceId_ of
                                                                                                       Word64
9583422979879616212 ->
                                                                                                           case Word16
methodId_ of
                                                                                                               Word16
0 ->
                                                                                                                   (MethodHandler
  IO
  (RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner)
  (Persistent'SaveResults internalRef internalOwner)
-> MethodHandler IO (Maybe (Ptr ConstMsg)) (Maybe (Ptr ConstMsg))
forall (m :: * -> *) p r.
MethodHandler m p r
-> MethodHandler m (Maybe (Ptr ConstMsg)) (Maybe (Ptr ConstMsg))
Server.toUntypedHandler (cap
-> MethodHandler
     IO
     (RealmGateway'import'params
        internalRef externalRef internalOwner externalOwner)
     (Persistent'SaveResults internalRef internalOwner)
forall (m :: * -> *) cap internalRef externalRef internalOwner
       externalOwner.
RealmGateway'server_
  m cap internalRef externalRef internalOwner externalOwner =>
cap
-> MethodHandler
     m
     (RealmGateway'import'params
        internalRef externalRef internalOwner externalOwner)
     (Persistent'SaveResults internalRef internalOwner)
realmGateway'import_ cap
server_))
                                                                                                               Word16
1 ->
                                                                                                                   (MethodHandler
  IO
  (RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner)
  (Persistent'SaveResults externalRef externalOwner)
-> MethodHandler IO (Maybe (Ptr ConstMsg)) (Maybe (Ptr ConstMsg))
forall (m :: * -> *) p r.
MethodHandler m p r
-> MethodHandler m (Maybe (Ptr ConstMsg)) (Maybe (Ptr ConstMsg))
Server.toUntypedHandler (cap
-> MethodHandler
     IO
     (RealmGateway'export'params
        internalRef externalRef internalOwner externalOwner)
     (Persistent'SaveResults externalRef externalOwner)
forall (m :: * -> *) cap internalRef externalRef internalOwner
       externalOwner.
RealmGateway'server_
  m cap internalRef externalRef internalOwner externalOwner =>
cap
-> MethodHandler
     m
     (RealmGateway'export'params
        internalRef externalRef internalOwner externalOwner)
     (Persistent'SaveResults externalRef externalOwner)
realmGateway'export cap
server_))
                                                                                                               Word16
_ ->
                                                                                                                   MethodHandler IO (Maybe (Ptr ConstMsg)) (Maybe (Ptr ConstMsg))
forall (m :: * -> *) p r. MonadIO m => MethodHandler m p r
Server.methodUnimplemented
                                                                                                       Word64
_ ->
                                                                                                           MethodHandler IO (Maybe (Ptr ConstMsg)) (Maybe (Ptr ConstMsg))
forall (m :: * -> *) p r. MonadIO m => MethodHandler m p r
Server.methodUnimplemented)})))
instance (Rpc.IsClient (RealmGateway internalRef externalRef internalOwner externalOwner)) where
    fromClient :: Client
-> RealmGateway internalRef externalRef internalOwner externalOwner
fromClient  = Client
-> RealmGateway internalRef externalRef internalOwner externalOwner
forall internalRef externalRef internalOwner externalOwner.
Client
-> RealmGateway internalRef externalRef internalOwner externalOwner
RealmGateway
    toClient :: RealmGateway internalRef externalRef internalOwner externalOwner
-> Client
toClient (RealmGateway Client
client) = Client
client
instance (Classes.FromPtr msg (RealmGateway internalRef externalRef internalOwner externalOwner)) where
    fromPtr :: msg
-> Maybe (Ptr msg)
-> m (RealmGateway
        internalRef externalRef internalOwner externalOwner)
fromPtr  = msg
-> Maybe (Ptr msg)
-> m (RealmGateway
        internalRef externalRef internalOwner externalOwner)
forall a (m :: * -> *) msg.
(IsClient a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
RpcHelpers.isClientFromPtr
instance (Classes.ToPtr s (RealmGateway internalRef externalRef internalOwner externalOwner)) where
    toPtr :: MutMsg s
-> RealmGateway internalRef externalRef internalOwner externalOwner
-> m (Maybe (Ptr (MutMsg s)))
toPtr  = MutMsg s
-> RealmGateway internalRef externalRef internalOwner externalOwner
-> m (Maybe (Ptr (MutMsg s)))
forall a (m :: * -> *) s.
(IsClient a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
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 :: Cerial
  ConstMsg
  (RealmGateway internalRef externalRef internalOwner externalOwner)
-> m (RealmGateway
        internalRef externalRef internalOwner externalOwner)
decerialize (Capnp.Gen.ById.Xb8630836983feed7.RealmGateway'newtype_ maybeCap) = case Maybe (Cap ConstMsg)
maybeCap of
        (Maybe (Cap ConstMsg)
Std_.Nothing) ->
            (RealmGateway internalRef externalRef internalOwner externalOwner
-> m (RealmGateway
        internalRef externalRef internalOwner externalOwner)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Client
-> RealmGateway internalRef externalRef internalOwner externalOwner
forall internalRef externalRef internalOwner externalOwner.
Client
-> RealmGateway internalRef externalRef internalOwner externalOwner
RealmGateway Client
Message.nullClient))
        (Std_.Just Cap ConstMsg
cap) ->
            (Client
-> RealmGateway internalRef externalRef internalOwner externalOwner
forall internalRef externalRef internalOwner externalOwner.
Client
-> RealmGateway internalRef externalRef internalOwner externalOwner
RealmGateway (Client
 -> RealmGateway
      internalRef externalRef internalOwner externalOwner)
-> m Client
-> m (RealmGateway
        internalRef externalRef internalOwner externalOwner)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Cap ConstMsg -> m Client
forall (m :: * -> *) msg. ReadCtx m msg => Cap msg -> m Client
Untyped.getClient Cap ConstMsg
cap))
instance (Classes.Cerialize s (RealmGateway internalRef externalRef internalOwner externalOwner)) where
    cerialize :: MutMsg s
-> RealmGateway internalRef externalRef internalOwner externalOwner
-> m (Cerial
        (MutMsg s)
        (RealmGateway internalRef externalRef internalOwner externalOwner))
cerialize MutMsg s
msg (RealmGateway Client
client) = (Maybe (Cap (MutMsg s))
-> RealmGateway
     (Cerial (MutMsg s) internalRef)
     (Cerial (MutMsg s) externalRef)
     (Cerial (MutMsg s) internalOwner)
     (Cerial (MutMsg s) externalOwner)
     (MutMsg s)
forall internalRef externalRef internalOwner externalOwner msg.
Maybe (Cap msg)
-> RealmGateway
     internalRef externalRef internalOwner externalOwner msg
Capnp.Gen.ById.Xb8630836983feed7.RealmGateway'newtype_ (Maybe (Cap (MutMsg s))
 -> RealmGateway
      (Cerial (MutMsg s) internalRef)
      (Cerial (MutMsg s) externalRef)
      (Cerial (MutMsg s) internalOwner)
      (Cerial (MutMsg s) externalOwner)
      (MutMsg s))
-> m (Maybe (Cap (MutMsg s)))
-> m (RealmGateway
        (Cerial (MutMsg s) internalRef)
        (Cerial (MutMsg s) externalRef)
        (Cerial (MutMsg s) internalOwner)
        (Cerial (MutMsg s) externalOwner)
        (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Cap (MutMsg s) -> Maybe (Cap (MutMsg s))
forall a. a -> Maybe a
Std_.Just (Cap (MutMsg s) -> Maybe (Cap (MutMsg s)))
-> m (Cap (MutMsg s)) -> m (Maybe (Cap (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Client -> m (Cap (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Client -> m (Cap (MutMsg s))
Untyped.appendCap MutMsg s
msg Client
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 internalRef externalRef internalOwner externalOwner
-> MethodHandler
     IO
     (RealmGateway'import'params
        internalRef externalRef internalOwner externalOwner)
     (Persistent'SaveResults internalRef internalOwner)
realmGateway'import_ (RealmGateway Client
client) = (Word64
-> Word16
-> Client
-> MethodHandler
     IO
     (RealmGateway'import'params
        internalRef externalRef internalOwner externalOwner)
     (Persistent'SaveResults internalRef internalOwner)
forall p r. Word64 -> Word16 -> Client -> MethodHandler IO p r
Rpc.clientMethodHandler Word64
9583422979879616212 Word16
0 Client
client)
    realmGateway'export :: RealmGateway internalRef externalRef internalOwner externalOwner
-> MethodHandler
     IO
     (RealmGateway'export'params
        internalRef externalRef internalOwner externalOwner)
     (Persistent'SaveResults externalRef externalOwner)
realmGateway'export (RealmGateway Client
client) = (Word64
-> Word16
-> Client
-> MethodHandler
     IO
     (RealmGateway'export'params
        internalRef externalRef internalOwner externalOwner)
     (Persistent'SaveResults externalRef externalOwner)
forall p r. Word64 -> Word16 -> Client -> MethodHandler IO p r
Rpc.clientMethodHandler Word64
9583422979879616212 Word16
1 Client
client)
data RealmGateway'import'params internalRef externalRef internalOwner externalOwner
    = RealmGateway'import'params 
        {RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
-> Persistent externalRef externalOwner
cap :: (Persistent externalRef externalOwner)
        ,RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
-> Persistent'SaveParams internalRef internalOwner
params :: (Persistent'SaveParams internalRef internalOwner)}
    deriving(Int
-> RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner
-> ShowS
[RealmGateway'import'params
   internalRef externalRef internalOwner externalOwner]
-> ShowS
RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
-> String
(Int
 -> RealmGateway'import'params
      internalRef externalRef internalOwner externalOwner
 -> ShowS)
-> (RealmGateway'import'params
      internalRef externalRef internalOwner externalOwner
    -> String)
-> ([RealmGateway'import'params
       internalRef externalRef internalOwner externalOwner]
    -> ShowS)
-> Show
     (RealmGateway'import'params
        internalRef externalRef internalOwner externalOwner)
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
forall internalRef externalRef internalOwner externalOwner.
Show internalOwner =>
Int
-> RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner
-> ShowS
forall internalRef externalRef internalOwner externalOwner.
Show internalOwner =>
[RealmGateway'import'params
   internalRef externalRef internalOwner externalOwner]
-> ShowS
forall internalRef externalRef internalOwner externalOwner.
Show internalOwner =>
RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
-> String
showList :: [RealmGateway'import'params
   internalRef externalRef internalOwner externalOwner]
-> ShowS
$cshowList :: forall internalRef externalRef internalOwner externalOwner.
Show internalOwner =>
[RealmGateway'import'params
   internalRef externalRef internalOwner externalOwner]
-> ShowS
show :: RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
-> String
$cshow :: forall internalRef externalRef internalOwner externalOwner.
Show internalOwner =>
RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
-> String
showsPrec :: Int
-> RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner
-> ShowS
$cshowsPrec :: forall internalRef externalRef internalOwner externalOwner.
Show internalOwner =>
Int
-> RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner
-> ShowS
Std_.Show
            ,RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
-> RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner
-> Bool
(RealmGateway'import'params
   internalRef externalRef internalOwner externalOwner
 -> RealmGateway'import'params
      internalRef externalRef internalOwner externalOwner
 -> Bool)
-> (RealmGateway'import'params
      internalRef externalRef internalOwner externalOwner
    -> RealmGateway'import'params
         internalRef externalRef internalOwner externalOwner
    -> Bool)
-> Eq
     (RealmGateway'import'params
        internalRef externalRef internalOwner externalOwner)
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
forall internalRef externalRef internalOwner externalOwner.
Eq internalOwner =>
RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
-> RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner
-> Bool
/= :: RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
-> RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner
-> Bool
$c/= :: forall internalRef externalRef internalOwner externalOwner.
Eq internalOwner =>
RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
-> RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner
-> Bool
== :: RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
-> RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner
-> Bool
$c== :: forall internalRef externalRef internalOwner externalOwner.
Eq internalOwner =>
RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
-> RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner
-> Bool
Std_.Eq
            ,(forall x.
 RealmGateway'import'params
   internalRef externalRef internalOwner externalOwner
 -> Rep
      (RealmGateway'import'params
         internalRef externalRef internalOwner externalOwner)
      x)
-> (forall x.
    Rep
      (RealmGateway'import'params
         internalRef externalRef internalOwner externalOwner)
      x
    -> RealmGateway'import'params
         internalRef externalRef internalOwner externalOwner)
-> Generic
     (RealmGateway'import'params
        internalRef externalRef internalOwner externalOwner)
forall x.
Rep
  (RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner)
  x
-> RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner
forall x.
RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
-> Rep
     (RealmGateway'import'params
        internalRef externalRef internalOwner externalOwner)
     x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
forall internalRef externalRef internalOwner externalOwner x.
Rep
  (RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner)
  x
-> RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner
forall internalRef externalRef internalOwner externalOwner x.
RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
-> Rep
     (RealmGateway'import'params
        internalRef externalRef internalOwner externalOwner)
     x
$cto :: forall internalRef externalRef internalOwner externalOwner x.
Rep
  (RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner)
  x
-> RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner
$cfrom :: forall internalRef externalRef internalOwner externalOwner x.
RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
-> Rep
     (RealmGateway'import'params
        internalRef externalRef internalOwner externalOwner)
     x
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 :: RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
def  = RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
forall a.
(Decerialize a, FromStruct ConstMsg (Cerial ConstMsg a)) =>
a
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 ConstMsg
-> m (RealmGateway'import'params
        internalRef externalRef internalOwner externalOwner)
fromStruct Struct ConstMsg
struct = ((Struct ConstMsg
-> m (RealmGateway'import'params
        (Cerial ConstMsg internalRef)
        (Cerial ConstMsg externalRef)
        (Cerial ConstMsg internalOwner)
        (Cerial ConstMsg externalOwner)
        ConstMsg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct ConstMsg
struct) m (RealmGateway'import'params
     (Cerial ConstMsg internalRef)
     (Cerial ConstMsg externalRef)
     (Cerial ConstMsg internalOwner)
     (Cerial ConstMsg externalOwner)
     ConstMsg)
-> (RealmGateway'import'params
      (Cerial ConstMsg internalRef)
      (Cerial ConstMsg externalRef)
      (Cerial ConstMsg internalOwner)
      (Cerial ConstMsg externalOwner)
      ConstMsg
    -> m (RealmGateway'import'params
            internalRef externalRef internalOwner externalOwner))
-> m (RealmGateway'import'params
        internalRef externalRef internalOwner externalOwner)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= RealmGateway'import'params
  (Cerial ConstMsg internalRef)
  (Cerial ConstMsg externalRef)
  (Cerial ConstMsg internalOwner)
  (Cerial ConstMsg externalOwner)
  ConstMsg
-> m (RealmGateway'import'params
        internalRef externalRef internalOwner externalOwner)
forall a (m :: * -> *).
(Decerialize a, ReadCtx m ConstMsg) =>
Cerial ConstMsg a -> m a
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 :: Cerial
  ConstMsg
  (RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner)
-> m (RealmGateway'import'params
        internalRef externalRef internalOwner externalOwner)
decerialize Cerial
  ConstMsg
  (RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner)
raw = (Persistent externalRef externalOwner
-> Persistent'SaveParams internalRef internalOwner
-> RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner
forall internalRef externalRef internalOwner externalOwner.
Persistent externalRef externalOwner
-> Persistent'SaveParams internalRef internalOwner
-> RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner
RealmGateway'import'params (Persistent externalRef externalOwner
 -> Persistent'SaveParams internalRef internalOwner
 -> RealmGateway'import'params
      internalRef externalRef internalOwner externalOwner)
-> m (Persistent externalRef externalOwner)
-> m (Persistent'SaveParams internalRef internalOwner
      -> RealmGateway'import'params
           internalRef externalRef internalOwner externalOwner)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((RealmGateway'import'params
  (Cerial ConstMsg internalRef)
  (Cerial ConstMsg externalRef)
  (Cerial ConstMsg internalOwner)
  (Cerial ConstMsg externalOwner)
  ConstMsg
-> m (Persistent
        (Cerial ConstMsg externalRef)
        (Cerial ConstMsg externalOwner)
        ConstMsg)
forall (m :: * -> *) msg externalRef externalOwner internalRef
       internalOwner.
(ReadCtx m msg,
 FromPtr msg (Persistent externalRef externalOwner msg)) =>
RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner msg
-> m (Persistent externalRef externalOwner msg)
Capnp.Gen.ById.Xb8630836983feed7.get_RealmGateway'import'params'cap Cerial
  ConstMsg
  (RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner)
RealmGateway'import'params
  (Cerial ConstMsg internalRef)
  (Cerial ConstMsg externalRef)
  (Cerial ConstMsg internalOwner)
  (Cerial ConstMsg externalOwner)
  ConstMsg
raw) m (Persistent
     (Cerial ConstMsg externalRef)
     (Cerial ConstMsg externalOwner)
     ConstMsg)
-> (Persistent
      (Cerial ConstMsg externalRef)
      (Cerial ConstMsg externalOwner)
      ConstMsg
    -> m (Persistent externalRef externalOwner))
-> m (Persistent externalRef externalOwner)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Persistent
  (Cerial ConstMsg externalRef)
  (Cerial ConstMsg externalOwner)
  ConstMsg
-> m (Persistent externalRef externalOwner)
forall a (m :: * -> *).
(Decerialize a, ReadCtx m ConstMsg) =>
Cerial ConstMsg a -> m a
Classes.decerialize)
                                                  m (Persistent'SaveParams internalRef internalOwner
   -> RealmGateway'import'params
        internalRef externalRef internalOwner externalOwner)
-> m (Persistent'SaveParams internalRef internalOwner)
-> m (RealmGateway'import'params
        internalRef externalRef internalOwner externalOwner)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> ((RealmGateway'import'params
  (Cerial ConstMsg internalRef)
  (Cerial ConstMsg externalRef)
  (Cerial ConstMsg internalOwner)
  (Cerial ConstMsg externalOwner)
  ConstMsg
-> m (Persistent'SaveParams
        (Cerial ConstMsg internalRef)
        (Cerial ConstMsg internalOwner)
        ConstMsg)
forall (m :: * -> *) msg internalRef internalOwner externalRef
       externalOwner.
(ReadCtx m msg,
 FromPtr
   msg (Persistent'SaveParams internalRef internalOwner msg)) =>
RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner msg
-> m (Persistent'SaveParams internalRef internalOwner msg)
Capnp.Gen.ById.Xb8630836983feed7.get_RealmGateway'import'params'params Cerial
  ConstMsg
  (RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner)
RealmGateway'import'params
  (Cerial ConstMsg internalRef)
  (Cerial ConstMsg externalRef)
  (Cerial ConstMsg internalOwner)
  (Cerial ConstMsg externalOwner)
  ConstMsg
raw) m (Persistent'SaveParams
     (Cerial ConstMsg internalRef)
     (Cerial ConstMsg internalOwner)
     ConstMsg)
-> (Persistent'SaveParams
      (Cerial ConstMsg internalRef)
      (Cerial ConstMsg internalOwner)
      ConstMsg
    -> m (Persistent'SaveParams internalRef internalOwner))
-> m (Persistent'SaveParams internalRef internalOwner)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Persistent'SaveParams
  (Cerial ConstMsg internalRef)
  (Cerial ConstMsg internalOwner)
  ConstMsg
-> m (Persistent'SaveParams internalRef internalOwner)
forall a (m :: * -> *).
(Decerialize a, ReadCtx m ConstMsg) =>
Cerial ConstMsg a -> m a
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 :: Cerial
  (MutMsg s)
  (RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner)
-> RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner
-> m ()
marshalInto Cerial
  (MutMsg s)
  (RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner)
raw_ RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
value_ = case RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
value_ of
        RealmGateway'import'params{Persistent'SaveParams internalRef internalOwner
Persistent externalRef externalOwner
params :: Persistent'SaveParams internalRef internalOwner
cap :: Persistent externalRef externalOwner
$sel:params:RealmGateway'import'params :: forall internalRef externalRef internalOwner externalOwner.
RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
-> Persistent'SaveParams internalRef internalOwner
$sel:cap:RealmGateway'import'params :: forall internalRef externalRef internalOwner externalOwner.
RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner
-> Persistent externalRef externalOwner
..} ->
            (do
                ((MutMsg s
-> Persistent externalRef externalOwner
-> m (Cerial (MutMsg s) (Persistent externalRef externalOwner))
forall s a (m :: * -> *).
(Cerialize s a, RWCtx m s) =>
MutMsg s -> a -> m (Cerial (MutMsg s) a)
Classes.cerialize (RealmGateway'import'params
  (Cerial (MutMsg s) internalRef)
  (Cerial (MutMsg s) externalRef)
  (Cerial (MutMsg s) internalOwner)
  (Cerial (MutMsg s) externalOwner)
  (MutMsg s)
-> InMessage
     (RealmGateway'import'params
        (Cerial (MutMsg s) internalRef)
        (Cerial (MutMsg s) externalRef)
        (Cerial (MutMsg s) internalOwner)
        (Cerial (MutMsg s) externalOwner)
        (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Cerial
  (MutMsg s)
  (RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner)
RealmGateway'import'params
  (Cerial (MutMsg s) internalRef)
  (Cerial (MutMsg s) externalRef)
  (Cerial (MutMsg s) internalOwner)
  (Cerial (MutMsg s) externalOwner)
  (MutMsg s)
raw_) Persistent externalRef externalOwner
cap) m (Persistent
     (Cerial (MutMsg s) externalRef)
     (Cerial (MutMsg s) externalOwner)
     (MutMsg s))
-> (Persistent
      (Cerial (MutMsg s) externalRef)
      (Cerial (MutMsg s) externalOwner)
      (MutMsg s)
    -> m ())
-> m ()
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (RealmGateway'import'params
  (Cerial (MutMsg s) internalRef)
  (Cerial (MutMsg s) externalRef)
  (Cerial (MutMsg s) internalOwner)
  (Cerial (MutMsg s) externalOwner)
  (MutMsg s)
-> Persistent
     (Cerial (MutMsg s) externalRef)
     (Cerial (MutMsg s) externalOwner)
     (MutMsg s)
-> m ()
forall (m :: * -> *) s externalRef externalOwner internalRef
       internalOwner.
(RWCtx m s,
 ToPtr s (Persistent externalRef externalOwner (MutMsg s))) =>
RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner (MutMsg s)
-> Persistent externalRef externalOwner (MutMsg s) -> m ()
Capnp.Gen.ById.Xb8630836983feed7.set_RealmGateway'import'params'cap Cerial
  (MutMsg s)
  (RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner)
RealmGateway'import'params
  (Cerial (MutMsg s) internalRef)
  (Cerial (MutMsg s) externalRef)
  (Cerial (MutMsg s) internalOwner)
  (Cerial (MutMsg s) externalOwner)
  (MutMsg s)
raw_))
                ((MutMsg s
-> Persistent'SaveParams internalRef internalOwner
-> m (Cerial
        (MutMsg s) (Persistent'SaveParams internalRef internalOwner))
forall s a (m :: * -> *).
(Cerialize s a, RWCtx m s) =>
MutMsg s -> a -> m (Cerial (MutMsg s) a)
Classes.cerialize (RealmGateway'import'params
  (Cerial (MutMsg s) internalRef)
  (Cerial (MutMsg s) externalRef)
  (Cerial (MutMsg s) internalOwner)
  (Cerial (MutMsg s) externalOwner)
  (MutMsg s)
-> InMessage
     (RealmGateway'import'params
        (Cerial (MutMsg s) internalRef)
        (Cerial (MutMsg s) externalRef)
        (Cerial (MutMsg s) internalOwner)
        (Cerial (MutMsg s) externalOwner)
        (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Cerial
  (MutMsg s)
  (RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner)
RealmGateway'import'params
  (Cerial (MutMsg s) internalRef)
  (Cerial (MutMsg s) externalRef)
  (Cerial (MutMsg s) internalOwner)
  (Cerial (MutMsg s) externalOwner)
  (MutMsg s)
raw_) Persistent'SaveParams internalRef internalOwner
params) m (Persistent'SaveParams
     (Cerial (MutMsg s) internalRef)
     (Cerial (MutMsg s) internalOwner)
     (MutMsg s))
-> (Persistent'SaveParams
      (Cerial (MutMsg s) internalRef)
      (Cerial (MutMsg s) internalOwner)
      (MutMsg s)
    -> m ())
-> m ()
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (RealmGateway'import'params
  (Cerial (MutMsg s) internalRef)
  (Cerial (MutMsg s) externalRef)
  (Cerial (MutMsg s) internalOwner)
  (Cerial (MutMsg s) externalOwner)
  (MutMsg s)
-> Persistent'SaveParams
     (Cerial (MutMsg s) internalRef)
     (Cerial (MutMsg s) internalOwner)
     (MutMsg s)
-> m ()
forall (m :: * -> *) s internalRef internalOwner externalRef
       externalOwner.
(RWCtx m s,
 ToPtr
   s (Persistent'SaveParams internalRef internalOwner (MutMsg s))) =>
RealmGateway'import'params
  internalRef externalRef internalOwner externalOwner (MutMsg s)
-> Persistent'SaveParams internalRef internalOwner (MutMsg s)
-> m ()
Capnp.Gen.ById.Xb8630836983feed7.set_RealmGateway'import'params'params Cerial
  (MutMsg s)
  (RealmGateway'import'params
     internalRef externalRef internalOwner externalOwner)
RealmGateway'import'params
  (Cerial (MutMsg s) internalRef)
  (Cerial (MutMsg s) externalRef)
  (Cerial (MutMsg s) internalOwner)
  (Cerial (MutMsg s) externalOwner)
  (MutMsg s)
raw_))
                (() -> m ()
forall (f :: * -> *) a. Applicative f => a -> f a
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 :: MutMsg s
-> Vector
     (RealmGateway'import'params
        internalRef externalRef internalOwner externalOwner)
-> m (Cerial
        (MutMsg s)
        (Vector
           (RealmGateway'import'params
              internalRef externalRef internalOwner externalOwner)))
cerialize  = MutMsg s
-> Vector
     (RealmGateway'import'params
        internalRef externalRef internalOwner externalOwner)
-> m (Cerial
        (MutMsg s)
        (Vector
           (RealmGateway'import'params
              internalRef externalRef internalOwner externalOwner)))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Marshal s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector
        (RealmGateway'import'params
           internalRef externalRef internalOwner externalOwner))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (RealmGateway'import'params
                 internalRef externalRef internalOwner externalOwner))))
cerialize  = MutMsg s
-> Vector
     (Vector
        (RealmGateway'import'params
           internalRef externalRef internalOwner externalOwner))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (RealmGateway'import'params
                 internalRef externalRef internalOwner externalOwner))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector
        (Vector
           (RealmGateway'import'params
              internalRef externalRef internalOwner externalOwner)))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (RealmGateway'import'params
                    internalRef externalRef internalOwner externalOwner)))))
cerialize  = MutMsg s
-> Vector
     (Vector
        (Vector
           (RealmGateway'import'params
              internalRef externalRef internalOwner externalOwner)))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (RealmGateway'import'params
                    internalRef externalRef internalOwner externalOwner)))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (RealmGateway'import'params
                 internalRef externalRef internalOwner externalOwner))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (RealmGateway'import'params
                       internalRef externalRef internalOwner externalOwner))))))
cerialize  = MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (RealmGateway'import'params
                 internalRef externalRef internalOwner externalOwner))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (RealmGateway'import'params
                       internalRef externalRef internalOwner externalOwner))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector
                 (RealmGateway'import'params
                    internalRef externalRef internalOwner externalOwner)))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (RealmGateway'import'params
                          internalRef externalRef internalOwner externalOwner)))))))
cerialize  = MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector
                 (RealmGateway'import'params
                    internalRef externalRef internalOwner externalOwner)))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (RealmGateway'import'params
                          internalRef externalRef internalOwner externalOwner)))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector
                 (Vector
                    (RealmGateway'import'params
                       internalRef externalRef internalOwner externalOwner))))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (Vector
                          (RealmGateway'import'params
                             internalRef externalRef internalOwner externalOwner))))))))
cerialize  = MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector
                 (Vector
                    (RealmGateway'import'params
                       internalRef externalRef internalOwner externalOwner))))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (Vector
                          (RealmGateway'import'params
                             internalRef externalRef internalOwner externalOwner))))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (RealmGateway'import'params
                          internalRef externalRef internalOwner externalOwner)))))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (Vector
                          (Vector
                             (RealmGateway'import'params
                                internalRef externalRef internalOwner externalOwner)))))))))
cerialize  = MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (RealmGateway'import'params
                          internalRef externalRef internalOwner externalOwner)))))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (Vector
                          (Vector
                             (RealmGateway'import'params
                                internalRef externalRef internalOwner externalOwner)))))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
GenHelpersPure.cerializeBasicVec
data RealmGateway'export'params internalRef externalRef internalOwner externalOwner
    = RealmGateway'export'params 
        {RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
-> Persistent internalRef internalOwner
cap :: (Persistent internalRef internalOwner)
        ,RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
-> Persistent'SaveParams externalRef externalOwner
params :: (Persistent'SaveParams externalRef externalOwner)}
    deriving(Int
-> RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner
-> ShowS
[RealmGateway'export'params
   internalRef externalRef internalOwner externalOwner]
-> ShowS
RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
-> String
(Int
 -> RealmGateway'export'params
      internalRef externalRef internalOwner externalOwner
 -> ShowS)
-> (RealmGateway'export'params
      internalRef externalRef internalOwner externalOwner
    -> String)
-> ([RealmGateway'export'params
       internalRef externalRef internalOwner externalOwner]
    -> ShowS)
-> Show
     (RealmGateway'export'params
        internalRef externalRef internalOwner externalOwner)
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
forall internalRef externalRef internalOwner externalOwner.
Show externalOwner =>
Int
-> RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner
-> ShowS
forall internalRef externalRef internalOwner externalOwner.
Show externalOwner =>
[RealmGateway'export'params
   internalRef externalRef internalOwner externalOwner]
-> ShowS
forall internalRef externalRef internalOwner externalOwner.
Show externalOwner =>
RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
-> String
showList :: [RealmGateway'export'params
   internalRef externalRef internalOwner externalOwner]
-> ShowS
$cshowList :: forall internalRef externalRef internalOwner externalOwner.
Show externalOwner =>
[RealmGateway'export'params
   internalRef externalRef internalOwner externalOwner]
-> ShowS
show :: RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
-> String
$cshow :: forall internalRef externalRef internalOwner externalOwner.
Show externalOwner =>
RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
-> String
showsPrec :: Int
-> RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner
-> ShowS
$cshowsPrec :: forall internalRef externalRef internalOwner externalOwner.
Show externalOwner =>
Int
-> RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner
-> ShowS
Std_.Show
            ,RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
-> RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner
-> Bool
(RealmGateway'export'params
   internalRef externalRef internalOwner externalOwner
 -> RealmGateway'export'params
      internalRef externalRef internalOwner externalOwner
 -> Bool)
-> (RealmGateway'export'params
      internalRef externalRef internalOwner externalOwner
    -> RealmGateway'export'params
         internalRef externalRef internalOwner externalOwner
    -> Bool)
-> Eq
     (RealmGateway'export'params
        internalRef externalRef internalOwner externalOwner)
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
forall internalRef externalRef internalOwner externalOwner.
Eq externalOwner =>
RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
-> RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner
-> Bool
/= :: RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
-> RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner
-> Bool
$c/= :: forall internalRef externalRef internalOwner externalOwner.
Eq externalOwner =>
RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
-> RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner
-> Bool
== :: RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
-> RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner
-> Bool
$c== :: forall internalRef externalRef internalOwner externalOwner.
Eq externalOwner =>
RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
-> RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner
-> Bool
Std_.Eq
            ,(forall x.
 RealmGateway'export'params
   internalRef externalRef internalOwner externalOwner
 -> Rep
      (RealmGateway'export'params
         internalRef externalRef internalOwner externalOwner)
      x)
-> (forall x.
    Rep
      (RealmGateway'export'params
         internalRef externalRef internalOwner externalOwner)
      x
    -> RealmGateway'export'params
         internalRef externalRef internalOwner externalOwner)
-> Generic
     (RealmGateway'export'params
        internalRef externalRef internalOwner externalOwner)
forall x.
Rep
  (RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner)
  x
-> RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner
forall x.
RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
-> Rep
     (RealmGateway'export'params
        internalRef externalRef internalOwner externalOwner)
     x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
forall internalRef externalRef internalOwner externalOwner x.
Rep
  (RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner)
  x
-> RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner
forall internalRef externalRef internalOwner externalOwner x.
RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
-> Rep
     (RealmGateway'export'params
        internalRef externalRef internalOwner externalOwner)
     x
$cto :: forall internalRef externalRef internalOwner externalOwner x.
Rep
  (RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner)
  x
-> RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner
$cfrom :: forall internalRef externalRef internalOwner externalOwner x.
RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
-> Rep
     (RealmGateway'export'params
        internalRef externalRef internalOwner externalOwner)
     x
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 :: RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
def  = RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
forall a.
(Decerialize a, FromStruct ConstMsg (Cerial ConstMsg a)) =>
a
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 ConstMsg
-> m (RealmGateway'export'params
        internalRef externalRef internalOwner externalOwner)
fromStruct Struct ConstMsg
struct = ((Struct ConstMsg
-> m (RealmGateway'export'params
        (Cerial ConstMsg internalRef)
        (Cerial ConstMsg externalRef)
        (Cerial ConstMsg internalOwner)
        (Cerial ConstMsg externalOwner)
        ConstMsg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct ConstMsg
struct) m (RealmGateway'export'params
     (Cerial ConstMsg internalRef)
     (Cerial ConstMsg externalRef)
     (Cerial ConstMsg internalOwner)
     (Cerial ConstMsg externalOwner)
     ConstMsg)
-> (RealmGateway'export'params
      (Cerial ConstMsg internalRef)
      (Cerial ConstMsg externalRef)
      (Cerial ConstMsg internalOwner)
      (Cerial ConstMsg externalOwner)
      ConstMsg
    -> m (RealmGateway'export'params
            internalRef externalRef internalOwner externalOwner))
-> m (RealmGateway'export'params
        internalRef externalRef internalOwner externalOwner)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= RealmGateway'export'params
  (Cerial ConstMsg internalRef)
  (Cerial ConstMsg externalRef)
  (Cerial ConstMsg internalOwner)
  (Cerial ConstMsg externalOwner)
  ConstMsg
-> m (RealmGateway'export'params
        internalRef externalRef internalOwner externalOwner)
forall a (m :: * -> *).
(Decerialize a, ReadCtx m ConstMsg) =>
Cerial ConstMsg a -> m a
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 :: Cerial
  ConstMsg
  (RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner)
-> m (RealmGateway'export'params
        internalRef externalRef internalOwner externalOwner)
decerialize Cerial
  ConstMsg
  (RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner)
raw = (Persistent internalRef internalOwner
-> Persistent'SaveParams externalRef externalOwner
-> RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner
forall internalRef externalRef internalOwner externalOwner.
Persistent internalRef internalOwner
-> Persistent'SaveParams externalRef externalOwner
-> RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner
RealmGateway'export'params (Persistent internalRef internalOwner
 -> Persistent'SaveParams externalRef externalOwner
 -> RealmGateway'export'params
      internalRef externalRef internalOwner externalOwner)
-> m (Persistent internalRef internalOwner)
-> m (Persistent'SaveParams externalRef externalOwner
      -> RealmGateway'export'params
           internalRef externalRef internalOwner externalOwner)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((RealmGateway'export'params
  (Cerial ConstMsg internalRef)
  (Cerial ConstMsg externalRef)
  (Cerial ConstMsg internalOwner)
  (Cerial ConstMsg externalOwner)
  ConstMsg
-> m (Persistent
        (Cerial ConstMsg internalRef)
        (Cerial ConstMsg internalOwner)
        ConstMsg)
forall (m :: * -> *) msg internalRef internalOwner externalRef
       externalOwner.
(ReadCtx m msg,
 FromPtr msg (Persistent internalRef internalOwner msg)) =>
RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner msg
-> m (Persistent internalRef internalOwner msg)
Capnp.Gen.ById.Xb8630836983feed7.get_RealmGateway'export'params'cap Cerial
  ConstMsg
  (RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner)
RealmGateway'export'params
  (Cerial ConstMsg internalRef)
  (Cerial ConstMsg externalRef)
  (Cerial ConstMsg internalOwner)
  (Cerial ConstMsg externalOwner)
  ConstMsg
raw) m (Persistent
     (Cerial ConstMsg internalRef)
     (Cerial ConstMsg internalOwner)
     ConstMsg)
-> (Persistent
      (Cerial ConstMsg internalRef)
      (Cerial ConstMsg internalOwner)
      ConstMsg
    -> m (Persistent internalRef internalOwner))
-> m (Persistent internalRef internalOwner)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Persistent
  (Cerial ConstMsg internalRef)
  (Cerial ConstMsg internalOwner)
  ConstMsg
-> m (Persistent internalRef internalOwner)
forall a (m :: * -> *).
(Decerialize a, ReadCtx m ConstMsg) =>
Cerial ConstMsg a -> m a
Classes.decerialize)
                                                  m (Persistent'SaveParams externalRef externalOwner
   -> RealmGateway'export'params
        internalRef externalRef internalOwner externalOwner)
-> m (Persistent'SaveParams externalRef externalOwner)
-> m (RealmGateway'export'params
        internalRef externalRef internalOwner externalOwner)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> ((RealmGateway'export'params
  (Cerial ConstMsg internalRef)
  (Cerial ConstMsg externalRef)
  (Cerial ConstMsg internalOwner)
  (Cerial ConstMsg externalOwner)
  ConstMsg
-> m (Persistent'SaveParams
        (Cerial ConstMsg externalRef)
        (Cerial ConstMsg externalOwner)
        ConstMsg)
forall (m :: * -> *) msg externalRef externalOwner internalRef
       internalOwner.
(ReadCtx m msg,
 FromPtr
   msg (Persistent'SaveParams externalRef externalOwner msg)) =>
RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner msg
-> m (Persistent'SaveParams externalRef externalOwner msg)
Capnp.Gen.ById.Xb8630836983feed7.get_RealmGateway'export'params'params Cerial
  ConstMsg
  (RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner)
RealmGateway'export'params
  (Cerial ConstMsg internalRef)
  (Cerial ConstMsg externalRef)
  (Cerial ConstMsg internalOwner)
  (Cerial ConstMsg externalOwner)
  ConstMsg
raw) m (Persistent'SaveParams
     (Cerial ConstMsg externalRef)
     (Cerial ConstMsg externalOwner)
     ConstMsg)
-> (Persistent'SaveParams
      (Cerial ConstMsg externalRef)
      (Cerial ConstMsg externalOwner)
      ConstMsg
    -> m (Persistent'SaveParams externalRef externalOwner))
-> m (Persistent'SaveParams externalRef externalOwner)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Persistent'SaveParams
  (Cerial ConstMsg externalRef)
  (Cerial ConstMsg externalOwner)
  ConstMsg
-> m (Persistent'SaveParams externalRef externalOwner)
forall a (m :: * -> *).
(Decerialize a, ReadCtx m ConstMsg) =>
Cerial ConstMsg a -> m a
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 :: Cerial
  (MutMsg s)
  (RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner)
-> RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner
-> m ()
marshalInto Cerial
  (MutMsg s)
  (RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner)
raw_ RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
value_ = case RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
value_ of
        RealmGateway'export'params{Persistent'SaveParams externalRef externalOwner
Persistent internalRef internalOwner
params :: Persistent'SaveParams externalRef externalOwner
cap :: Persistent internalRef internalOwner
$sel:params:RealmGateway'export'params :: forall internalRef externalRef internalOwner externalOwner.
RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
-> Persistent'SaveParams externalRef externalOwner
$sel:cap:RealmGateway'export'params :: forall internalRef externalRef internalOwner externalOwner.
RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner
-> Persistent internalRef internalOwner
..} ->
            (do
                ((MutMsg s
-> Persistent internalRef internalOwner
-> m (Cerial (MutMsg s) (Persistent internalRef internalOwner))
forall s a (m :: * -> *).
(Cerialize s a, RWCtx m s) =>
MutMsg s -> a -> m (Cerial (MutMsg s) a)
Classes.cerialize (RealmGateway'export'params
  (Cerial (MutMsg s) internalRef)
  (Cerial (MutMsg s) externalRef)
  (Cerial (MutMsg s) internalOwner)
  (Cerial (MutMsg s) externalOwner)
  (MutMsg s)
-> InMessage
     (RealmGateway'export'params
        (Cerial (MutMsg s) internalRef)
        (Cerial (MutMsg s) externalRef)
        (Cerial (MutMsg s) internalOwner)
        (Cerial (MutMsg s) externalOwner)
        (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Cerial
  (MutMsg s)
  (RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner)
RealmGateway'export'params
  (Cerial (MutMsg s) internalRef)
  (Cerial (MutMsg s) externalRef)
  (Cerial (MutMsg s) internalOwner)
  (Cerial (MutMsg s) externalOwner)
  (MutMsg s)
raw_) Persistent internalRef internalOwner
cap) m (Persistent
     (Cerial (MutMsg s) internalRef)
     (Cerial (MutMsg s) internalOwner)
     (MutMsg s))
-> (Persistent
      (Cerial (MutMsg s) internalRef)
      (Cerial (MutMsg s) internalOwner)
      (MutMsg s)
    -> m ())
-> m ()
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (RealmGateway'export'params
  (Cerial (MutMsg s) internalRef)
  (Cerial (MutMsg s) externalRef)
  (Cerial (MutMsg s) internalOwner)
  (Cerial (MutMsg s) externalOwner)
  (MutMsg s)
-> Persistent
     (Cerial (MutMsg s) internalRef)
     (Cerial (MutMsg s) internalOwner)
     (MutMsg s)
-> m ()
forall (m :: * -> *) s internalRef internalOwner externalRef
       externalOwner.
(RWCtx m s,
 ToPtr s (Persistent internalRef internalOwner (MutMsg s))) =>
RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner (MutMsg s)
-> Persistent internalRef internalOwner (MutMsg s) -> m ()
Capnp.Gen.ById.Xb8630836983feed7.set_RealmGateway'export'params'cap Cerial
  (MutMsg s)
  (RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner)
RealmGateway'export'params
  (Cerial (MutMsg s) internalRef)
  (Cerial (MutMsg s) externalRef)
  (Cerial (MutMsg s) internalOwner)
  (Cerial (MutMsg s) externalOwner)
  (MutMsg s)
raw_))
                ((MutMsg s
-> Persistent'SaveParams externalRef externalOwner
-> m (Cerial
        (MutMsg s) (Persistent'SaveParams externalRef externalOwner))
forall s a (m :: * -> *).
(Cerialize s a, RWCtx m s) =>
MutMsg s -> a -> m (Cerial (MutMsg s) a)
Classes.cerialize (RealmGateway'export'params
  (Cerial (MutMsg s) internalRef)
  (Cerial (MutMsg s) externalRef)
  (Cerial (MutMsg s) internalOwner)
  (Cerial (MutMsg s) externalOwner)
  (MutMsg s)
-> InMessage
     (RealmGateway'export'params
        (Cerial (MutMsg s) internalRef)
        (Cerial (MutMsg s) externalRef)
        (Cerial (MutMsg s) internalOwner)
        (Cerial (MutMsg s) externalOwner)
        (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Cerial
  (MutMsg s)
  (RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner)
RealmGateway'export'params
  (Cerial (MutMsg s) internalRef)
  (Cerial (MutMsg s) externalRef)
  (Cerial (MutMsg s) internalOwner)
  (Cerial (MutMsg s) externalOwner)
  (MutMsg s)
raw_) Persistent'SaveParams externalRef externalOwner
params) m (Persistent'SaveParams
     (Cerial (MutMsg s) externalRef)
     (Cerial (MutMsg s) externalOwner)
     (MutMsg s))
-> (Persistent'SaveParams
      (Cerial (MutMsg s) externalRef)
      (Cerial (MutMsg s) externalOwner)
      (MutMsg s)
    -> m ())
-> m ()
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (RealmGateway'export'params
  (Cerial (MutMsg s) internalRef)
  (Cerial (MutMsg s) externalRef)
  (Cerial (MutMsg s) internalOwner)
  (Cerial (MutMsg s) externalOwner)
  (MutMsg s)
-> Persistent'SaveParams
     (Cerial (MutMsg s) externalRef)
     (Cerial (MutMsg s) externalOwner)
     (MutMsg s)
-> m ()
forall (m :: * -> *) s externalRef externalOwner internalRef
       internalOwner.
(RWCtx m s,
 ToPtr
   s (Persistent'SaveParams externalRef externalOwner (MutMsg s))) =>
RealmGateway'export'params
  internalRef externalRef internalOwner externalOwner (MutMsg s)
-> Persistent'SaveParams externalRef externalOwner (MutMsg s)
-> m ()
Capnp.Gen.ById.Xb8630836983feed7.set_RealmGateway'export'params'params Cerial
  (MutMsg s)
  (RealmGateway'export'params
     internalRef externalRef internalOwner externalOwner)
RealmGateway'export'params
  (Cerial (MutMsg s) internalRef)
  (Cerial (MutMsg s) externalRef)
  (Cerial (MutMsg s) internalOwner)
  (Cerial (MutMsg s) externalOwner)
  (MutMsg s)
raw_))
                (() -> m ()
forall (f :: * -> *) a. Applicative f => a -> f a
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 :: MutMsg s
-> Vector
     (RealmGateway'export'params
        internalRef externalRef internalOwner externalOwner)
-> m (Cerial
        (MutMsg s)
        (Vector
           (RealmGateway'export'params
              internalRef externalRef internalOwner externalOwner)))
cerialize  = MutMsg s
-> Vector
     (RealmGateway'export'params
        internalRef externalRef internalOwner externalOwner)
-> m (Cerial
        (MutMsg s)
        (Vector
           (RealmGateway'export'params
              internalRef externalRef internalOwner externalOwner)))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Marshal s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector
        (RealmGateway'export'params
           internalRef externalRef internalOwner externalOwner))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (RealmGateway'export'params
                 internalRef externalRef internalOwner externalOwner))))
cerialize  = MutMsg s
-> Vector
     (Vector
        (RealmGateway'export'params
           internalRef externalRef internalOwner externalOwner))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (RealmGateway'export'params
                 internalRef externalRef internalOwner externalOwner))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector
        (Vector
           (RealmGateway'export'params
              internalRef externalRef internalOwner externalOwner)))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (RealmGateway'export'params
                    internalRef externalRef internalOwner externalOwner)))))
cerialize  = MutMsg s
-> Vector
     (Vector
        (Vector
           (RealmGateway'export'params
              internalRef externalRef internalOwner externalOwner)))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (RealmGateway'export'params
                    internalRef externalRef internalOwner externalOwner)))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (RealmGateway'export'params
                 internalRef externalRef internalOwner externalOwner))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (RealmGateway'export'params
                       internalRef externalRef internalOwner externalOwner))))))
cerialize  = MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (RealmGateway'export'params
                 internalRef externalRef internalOwner externalOwner))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (RealmGateway'export'params
                       internalRef externalRef internalOwner externalOwner))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector
                 (RealmGateway'export'params
                    internalRef externalRef internalOwner externalOwner)))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (RealmGateway'export'params
                          internalRef externalRef internalOwner externalOwner)))))))
cerialize  = MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector
                 (RealmGateway'export'params
                    internalRef externalRef internalOwner externalOwner)))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (RealmGateway'export'params
                          internalRef externalRef internalOwner externalOwner)))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector
                 (Vector
                    (RealmGateway'export'params
                       internalRef externalRef internalOwner externalOwner))))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (Vector
                          (RealmGateway'export'params
                             internalRef externalRef internalOwner externalOwner))))))))
cerialize  = MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector
                 (Vector
                    (RealmGateway'export'params
                       internalRef externalRef internalOwner externalOwner))))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (Vector
                          (RealmGateway'export'params
                             internalRef externalRef internalOwner externalOwner))))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
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 :: MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (RealmGateway'export'params
                          internalRef externalRef internalOwner externalOwner)))))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (Vector
                          (Vector
                             (RealmGateway'export'params
                                internalRef externalRef internalOwner externalOwner)))))))))
cerialize  = MutMsg s
-> Vector
     (Vector
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (RealmGateway'export'params
                          internalRef externalRef internalOwner externalOwner)))))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector
                 (Vector
                    (Vector
                       (Vector
                          (Vector
                             (RealmGateway'export'params
                                internalRef externalRef internalOwner externalOwner)))))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
GenHelpersPure.cerializeBasicVec