capnp 0.7.0.0 → 0.8.0.0

raw patch · 55 files changed

+7681/−5231 lines, 55 filesdep +bifunctorsPVP ok

version bump matches the API change (PVP)

Dependencies added: bifunctors

API changes (from Hackage documentation)

Files

• CHANGELOG.md +16/−0
• README.md +0/−2
• capnp.cabal +8/−1
• cmd/capnpc-haskell/IR/Common.hs +101/−16
• cmd/capnpc-haskell/IR/Flat.hs +12/−12
• cmd/capnpc-haskell/IR/Haskell.hs +5/−4
• cmd/capnpc-haskell/IR/Name.hs +13/−4
• cmd/capnpc-haskell/IR/Pure.hs +13/−7
• cmd/capnpc-haskell/IR/Raw.hs +17/−7
• cmd/capnpc-haskell/IR/Stage1.hs +12/−7
• cmd/capnpc-haskell/Trans/CgrToStage1.hs +87/−31
• cmd/capnpc-haskell/Trans/FlatToPure.hs +93/−24
• cmd/capnpc-haskell/Trans/FlatToRaw.hs +46/−14
• cmd/capnpc-haskell/Trans/HaskellToText.hs +13/−1
• cmd/capnpc-haskell/Trans/PureToHaskell.hs +140/−58
• cmd/capnpc-haskell/Trans/RawToHaskell.hs +105/−77
• cmd/capnpc-haskell/Trans/Stage1ToFlat.hs +113/−53
• examples/gen/lib/Capnp/Gen/Calculator.hs +38/−43
• examples/gen/lib/Capnp/Gen/Calculator/Pure.hs +187/−185
• examples/gen/lib/Capnp/Gen/Echo.hs +8/−8
• examples/gen/lib/Capnp/Gen/Echo/Pure.hs +38/−36
• gen/lib/Capnp/Gen/Capnp/Compat/Json.hs +38/−29
• gen/lib/Capnp/Gen/Capnp/Compat/Json/Pure.hs +67/−65
• gen/lib/Capnp/Gen/Capnp/Cxx/Pure.hs +2/−0
• gen/lib/Capnp/Gen/Capnp/Persistent.hs +86/−82
• gen/lib/Capnp/Gen/Capnp/Persistent/Pure.hs +547/−89
• gen/lib/Capnp/Gen/Capnp/Rpc.hs +122/−101
• gen/lib/Capnp/Gen/Capnp/Rpc/Pure.hs +268/−266
• gen/lib/Capnp/Gen/Capnp/RpcTwoparty.hs +4/−14
• gen/lib/Capnp/Gen/Capnp/RpcTwoparty/Pure.hs +87/−85
• gen/lib/Capnp/Gen/Capnp/Schema.hs +232/−186
• gen/lib/Capnp/Gen/Capnp/Schema/Pure.hs +351/−349
• gen/lib/Capnp/Gen/Capnp/Stream.hs +0/−2
• gen/lib/Capnp/Gen/Capnp/Stream/Pure.hs +15/−13
• gen/lib/Internal/Gen/Instances.hs +77/−77
• gen/tests/Capnp/Gen/Aircraft.hs +288/−264
• gen/tests/Capnp/Gen/Aircraft/Pure.hs +2969/−2967
• gen/tests/Capnp/Gen/ById/Xb6421fb8e478d144.hs +10/−0
• gen/tests/Capnp/Gen/ById/Xb6421fb8e478d144/Pure.hs +10/−0
• gen/tests/Capnp/Gen/Generics.hs +521/−0
• gen/tests/Capnp/Gen/Generics/Pure.hs +815/−0
• lib/Capnp.hs +2/−0
• lib/Capnp/Basics/Pure.hs +14/−14
• lib/Capnp/Classes.hs +31/−14
• lib/Capnp/Convert.hs +4/−4
• lib/Capnp/GenHelpers/Pure.hs +1/−1
• lib/Capnp/IO.hs +3/−3
• lib/Capnp/Rpc.hs +9/−1
• lib/Capnp/Rpc/Invoke.hs +1/−1
• lib/Capnp/Rpc/Server.hs +1/−1
• lib/Capnp/Rpc/Untyped.hs +27/−0
• lib/Capnp/Untyped/Pure.hs +4/−4
• scripts/gen-basic-instances.hs +2/−2
• scripts/regen.sh +4/−3
• tests/Module/Capnp/Gen/Capnp/Schema/Pure.hs +4/−4

@@ -1,3 +1,19 @@+# 0.8.0.0++## Serialization++* The code generator now supports type parameters in schema; previously+  the code generator would treat these the same as AnyPointer, but now+  the generated Haskell has corresponding type parameters.+* The `Cerialize` and `Marshal` type classes now take the state token+  `s` as a parameter, which was necessary to support type parameters.++## Misc++* Some of the multi-parameter type classes in Capnp.Classes now have+  functional dependencies between their parameters. This should+  generally improve type inference.+ # 0.7.0.0  ## Serialization

@@ -14,7 +14,6 @@  Serialization support works, with some limitations: -* Generated schema currently ignore type parameters ([#29][issue29]). * We do not support defining custom default values for fields of pointer   type; see ([#28][issue28]). * We currently do not correctly handle decoding lists of structs from@@ -45,7 +44,6 @@  [issue27]: https://github.com/zenhack/haskell-capnp/issues/27 [issue28]: https://github.com/zenhack/haskell-capnp/issues/28-[issue29]: https://github.com/zenhack/haskell-capnp/issues/29  [ci-img]: https://gitlab.com/isd/haskell-capnp/badges/master/build.svg [ci]: https://gitlab.com/isd/haskell-capnp/pipelines

@@ -1,6 +1,6 @@ cabal-version:            2.2 name:                     capnp-version:                  0.7.0.0+version:                  0.8.0.0 category:                 Data, Serialization, Network, Rpc copyright:                2016-2020 haskell-capnp contributors (see CONTRIBUTORS file). author:                   Ian Denhardt@@ -222,6 +222,7 @@     , wl-pprint-text ^>= 1.2     , filepath ^>= 1.4.2     , directory ^>= 1.3.0+    , bifunctors ^>= 5.5.8  -------------------------------------------------------------------------------- @@ -262,6 +263,12 @@       , Capnp.Gen.Aircraft.Pure       , Capnp.Gen.ById.X832bcc6686a26d56       , Capnp.Gen.ById.X832bcc6686a26d56.Pure++      -- generated from tests/data/generics.capnp+      , Capnp.Gen.Generics+      , Capnp.Gen.Generics.Pure+      , Capnp.Gen.ById.Xb6421fb8e478d144+      , Capnp.Gen.ById.Xb6421fb8e478d144.Pure        -- Actual tests:       , Module.Capnp.Gen.Capnp.Schema

@@ -8,6 +8,10 @@ import Data.Word  import qualified Capnp.Untyped.Pure as U+import           Data.Bifunctor     (Bifunctor (..))+import qualified Data.Map.Strict    as M+import qualified Data.Vector        as V+import qualified IR.Name            as Name  newtype TypeId = TypeId Word64     deriving(Show, Read, Eq, Ord)@@ -43,31 +47,97 @@     PrimWord PrimBool                   -> 1  -- Capnproto types. The 'r' type parameter is the type of references to other nodes,--- which may be different in different stages of the pipeline.+-- which may be different in different stages of the pipeline. Likewise, the 'b'+-- parameter is the "Brand." -data Type r-    = CompositeType (CompositeType r)+bothMap :: (Bifunctor p, Functor f) => (a -> b) -> p (f a) a -> p (f b) b+bothMap f = bimap (fmap f) f++newtype ListBrand r = ListBrand [PtrType (ListBrand r) r]+    deriving(Show, Read, Eq)++instance Functor ListBrand where+    fmap f (ListBrand ps) = ListBrand (fmap (bothMap f) ps)++newtype MapBrand r = MapBrand (M.Map Word64 (BrandScope r))+    deriving(Show, Eq)++instance Functor MapBrand where+    fmap f (MapBrand m) = MapBrand $ fmap (fmap f) m++newtype BrandScope r = Bind (V.Vector (Binding r))+    deriving(Show, Eq)++instance Functor BrandScope where+    fmap f (Bind bs) = Bind $ fmap (fmap f) bs++data Binding r = Unbound | BoundType (PtrType (MapBrand r) r)+    deriving(Show, Eq)++instance Functor Binding where+    fmap _ Unbound        = Unbound+    fmap f (BoundType ty) = BoundType $ bothMap f ty++data TypeParamRef r = TypeParamRef+    { paramScope :: r+    , paramIndex :: !Int+    , paramName  :: Name.UnQ+    }+    deriving(Show, Read, Eq, Functor)++data Type b r+    = CompositeType (CompositeType b r)     | VoidType     | WordType (WordType r)-    | PtrType (PtrType r)+    | PtrType (PtrType b r)     deriving(Show, Read, Eq, Functor) -newtype CompositeType r-    = StructType r+instance Bifunctor Type where+    second = fmap+    first f = \case+        CompositeType x -> CompositeType (first f x)+        VoidType        -> VoidType+        WordType x      -> WordType x+        PtrType x       -> PtrType (first f x)++data CompositeType b r+    = StructType r b     deriving(Show, Read, Eq, Functor) +instance Bifunctor CompositeType where+    second = fmap+    first f (StructType r b) = StructType r (f b)++data InterfaceType b r+    = InterfaceType r b+    deriving(Show, Read, Eq, Functor)++instance Bifunctor InterfaceType where+    second = fmap+    first f (InterfaceType r b) = InterfaceType r (f b)+ data WordType r     = EnumType r     | PrimWord PrimWord     deriving(Show, Read, Eq, Functor) -data PtrType r-    = ListOf (Type r)+data PtrType b r+    = ListOf (Type b r)     | PrimPtr PrimPtr-    | PtrComposite (CompositeType r)-    | PtrInterface r+    | PtrComposite (CompositeType b r)+    | PtrInterface (InterfaceType b r)+    | PtrParam (TypeParamRef r)     deriving(Show, Read, Eq, Functor) +instance Bifunctor PtrType where+    second = fmap+    first f = \case+        ListOf x       -> ListOf (first f x)+        PrimPtr x      -> PrimPtr x+        PtrComposite x -> PtrComposite (first f x)+        PtrInterface x -> PtrInterface (first f x)+        PtrParam p     -> PtrParam p+ data PrimWord     = PrimInt IntType     | PrimFloat32@@ -89,18 +159,26 @@     deriving(Show, Read, Eq)  -- | The type and location of a field.-data FieldLocType r+data FieldLocType b r     -- | The field is in the struct's data section.     = DataField DataLoc (WordType r)     -- | The field is in the struct's pointer section (the argument is the     -- index).-    | PtrField !Word16 (PtrType r)+    | PtrField !Word16 (PtrType b r)     -- | The field is a group or union; it's "location" is the whole struct.-    | HereField (CompositeType r)+    | HereField (CompositeType b r)     -- | The field is of type void (and thus is zero-size).     | VoidField     deriving(Show, Read, Eq, Functor) +instance Bifunctor FieldLocType where+    second = fmap+    first f = \case+        DataField l t  -> DataField l t+        PtrField idx t -> PtrField idx (first f t)+        HereField t    -> HereField (first f t)+        VoidField      -> VoidField+ -- | The location of a field within a struct's data section. data DataLoc = DataLoc     { dataIdx :: !Int@@ -114,14 +192,21 @@     }     deriving(Show, Read, Eq) -data Value r+data Value b r     = VoidValue     | WordValue (WordType r) !Word64-    | PtrValue (PtrType r) (Maybe U.Ptr)+    | PtrValue (PtrType b r) (Maybe U.Ptr)     deriving(Show, Eq, Functor) +instance Bifunctor Value where+    second = fmap+    first f = \case+        VoidValue     -> VoidValue+        WordValue t v -> WordValue t v+        PtrValue t v  -> PtrValue (first f t) v+ -- | Extract the type from a 'FildLocType'.-fieldType :: FieldLocType r -> Type r+fieldType :: FieldLocType r b -> Type r b fieldType (DataField _ ty) = WordType ty fieldType (PtrField _ ty)  = PtrType ty fieldType (HereField ty)   = CompositeType ty

@@ -15,6 +15,8 @@ import qualified IR.Common as Common import qualified IR.Name   as Name +type Brand = Common.ListBrand Node+ data CodeGenReq = CodeGenReq     { allNodes :: [Node]     , reqFiles :: [File]@@ -29,9 +31,10 @@     deriving(Show, Eq)  data Node = Node-    { name   :: Name.CapnpQ-    , nodeId :: !Word64-    , union_ :: Node'+    { name       :: Name.CapnpQ+    , nodeId     :: !Word64+    , union_     :: Node'+    , typeParams :: [Common.TypeParamRef Node]     }     deriving(Show, Eq) @@ -47,14 +50,11 @@         -- ^ The struct's anonymous union, if any.         }     | Interface-        { methods   :: [Method]-        , supers    :: [Node]-        -- ^ Immediate superclasses-        , ancestors :: [Node]-        -- ^ All ancestors, including 'supers'.+        { methods :: [Method]+        , supers  :: [Common.InterfaceType Brand Node]         }     | Constant-        { value :: Common.Value Node+        { value :: Common.Value Brand Node         }     | Other     deriving(Show, Eq)@@ -62,8 +62,8 @@  data Method = Method     { name       :: Name.UnQ-    , paramType  :: Name.CapnpQ-    , resultType :: Name.CapnpQ+    , paramType  :: Common.CompositeType Brand Node+    , resultType :: Common.CompositeType Brand Node     }     deriving(Show, Eq) @@ -76,7 +76,7 @@  data Field = Field     { fieldName    :: Name.CapnpQ-    , fieldLocType :: Common.FieldLocType Node+    , fieldLocType :: Common.FieldLocType Brand Node     }     deriving(Show, Eq) 

@@ -90,10 +90,11 @@         , defs :: [InstanceDef]         }     | DcClass-        { ctx    :: [Type]-        , name   :: Name.LocalQ-        , params :: [Name.UnQ]-        , decls  :: [ClassDecl]+        { ctx     :: [Type]+        , name    :: Name.LocalQ+        , params  :: [Name.UnQ]+        , funDeps :: [(T.Text, T.Text)]+        , decls   :: [ClassDecl]         }     deriving(Show, Read, Eq) 

@@ -115,7 +115,16 @@ -- | Lower-case the first letter of a name, making it legal as the name of a -- variable (as opposed to a type or data constructor). valueName :: LocalQ -> UnQ-valueName name =-    case T.unpack (renderLocalQ name) of-        []     -> ""-        (c:cs) -> UnQ $ T.pack $ toLower c : cs+valueName = lowerFstName++typeVarName :: UnQ -> T.Text+typeVarName (UnQ txt) = lowerFst txt++-- | Lower-case the first letter of a name+lowerFstName :: LocalQ -> UnQ+lowerFstName name = UnQ $ lowerFst $ renderLocalQ name++lowerFst :: T.Text -> T.Text+lowerFst txt = case T.unpack txt of+    []     -> ""+    (c:cs) -> T.pack $ toLower c : cs

@@ -6,6 +6,8 @@ import qualified IR.Common as C import qualified IR.Name   as Name +type Brand = C.ListBrand Name.CapnpQ+ data File = File     { fileId        :: !Word64     , fileName      :: FilePath@@ -25,6 +27,7 @@  data Data = Data     { typeName   :: Name.LocalQ+    , typeParams :: [Name.UnQ]     , firstClass :: !Bool     -- ^ Whether this is a "first class" type, i.e. it is a type in the     -- capnproto sense, rather than an auxiliary type defined for a group@@ -47,34 +50,37 @@  data Constant = Constant     { name  :: Name.LocalQ-    , value :: C.Value Name.CapnpQ+    , value :: C.Value Brand Name.CapnpQ     }  data Interface = IFace     { name        :: Name.CapnpQ+    , typeParams  :: [C.TypeParamRef Name.CapnpQ]     , interfaceId :: !Word64     , methods     :: [Method]-    , supers      :: [Interface]-    , ancestors   :: [Interface]+    , supers      :: [(Interface, Brand)]+    -- ^ Immediate superclasses+    , ancestors   :: [(Interface, Brand)]+    -- ^ All ancestors, including 'supers'.     }  -- TODO(cleanup): this same type exists in IR.Flat; it doesn't make sense for -- IR.Common, but we should factor this out. data Method = Method     { name       :: Name.UnQ-    , paramType  :: Name.CapnpQ-    , resultType :: Name.CapnpQ+    , paramType  :: C.CompositeType Brand Name.CapnpQ+    , resultType :: C.CompositeType Brand Name.CapnpQ     }  data Field = Field     { name  :: Name.UnQ     -- ^ The name of the field. -    , type_ :: C.Type Name.CapnpQ+    , type_ :: C.Type Brand Name.CapnpQ     -- ^ The type of the field.     }  data Variant = Variant     { name :: Name.LocalQ-    , arg  :: Maybe (C.Type Name.CapnpQ)+    , arg  :: Maybe (C.Type Brand Name.CapnpQ)     }

@@ -12,6 +12,8 @@ import qualified IR.Common as Common import qualified IR.Name   as Name +type Brand = Common.ListBrand Name.CapnpQ+ data File = File     { fileId   :: !Word64     , fileName :: FilePath@@ -23,20 +25,23 @@     -- | Define a newtype wrapper around a struct. This also defines     -- some instances of type classes that exist for all such wrappers.     = StructWrapper-        { typeCtor :: Name.LocalQ+        { typeCtor   :: Name.LocalQ+        , typeParams :: [Name.UnQ]         }     -- | Define instances of several type classes which should only     -- exist for "real" structs, i.e. not groups.     | StructInstances         { typeCtor      :: Name.LocalQ         -- ^ The type constructor for the type to generate instances for.+        , typeParams    :: [Name.UnQ]          -- Needed for some instances:         , dataWordCount :: !Word16         , pointerCount  :: !Word16         }     | InterfaceWrapper-        { typeCtor :: Name.LocalQ+        { typeCtor   :: Name.LocalQ+        , typeParams :: [Name.UnQ]         }     | UnionVariant         { parentTypeCtor :: Name.LocalQ@@ -44,6 +49,7 @@         -- we can derive the type constructor for the union proper from this,         -- and it is useful to have for other things (like unknown' variants).         , tagOffset      :: !Word32+        , typeParams     :: [Name.UnQ]         , unionDataCtors :: [Variant]         }     | Enum@@ -53,12 +59,14 @@     | Getter -- get_* function         { fieldName     :: Name.LocalQ         , containerType :: Name.LocalQ-        , fieldLocType  :: Common.FieldLocType Name.CapnpQ+        , typeParams    :: [Name.UnQ]+        , fieldLocType  :: Common.FieldLocType Brand Name.CapnpQ         }     | Setter -- set_* function         { fieldName     :: Name.LocalQ         , containerType :: Name.LocalQ-        , fieldLocType  :: Common.FieldLocType Name.CapnpQ+        , typeParams    :: [Name.UnQ]+        , fieldLocType  :: Common.FieldLocType Brand Name.CapnpQ          , tag           :: Maybe TagSetter         -- ^ Info for setting the tag, if this is a union.@@ -66,18 +74,20 @@     | HasFn -- has_* function         { fieldName     :: Name.LocalQ         , containerType :: Name.LocalQ+        , typeParams    :: [Name.UnQ]         , ptrIndex      :: !Word16         }     | NewFn -- new_* function         { fieldName     :: Name.LocalQ         , containerType :: Name.LocalQ-        , fieldLocType  :: Common.FieldLocType Name.CapnpQ+        , typeParams    :: [Name.UnQ]+        , fieldLocType  :: Common.FieldLocType Brand Name.CapnpQ          , newFnType     :: NewFnType         }     | Constant         { name  :: Name.LocalQ-        , value :: Common.Value Name.CapnpQ+        , value :: Common.Value Brand Name.CapnpQ         }     deriving(Show, Eq) @@ -107,6 +117,6 @@ data Variant = Variant     { name     :: Name.LocalQ     , tagValue :: !Word16-    , locType  :: Common.FieldLocType Name.CapnpQ+    , locType  :: Common.FieldLocType Brand Name.CapnpQ     }     deriving(Show, Eq)

@@ -18,13 +18,17 @@     , Struct(..)     , Field(..)     , CodeGenReq(..)+    , Brand     ) where  import Data.Word -import qualified IR.Common as Common-import qualified IR.Name   as Name+import qualified Data.Vector as V+import qualified IR.Common   as Common+import qualified IR.Name     as Name +type Brand = Common.MapBrand Node+ data CodeGenReq = CodeGenReq     { reqFiles :: [ReqFile]     , allFiles :: [File]@@ -51,6 +55,7 @@     { nodeNested :: [(Name.UnQ, Node)]     , nodeParent :: Maybe Node     , nodeId     :: !Word64+    , nodeParams :: V.Vector Name.UnQ     }     deriving(Show, Eq) @@ -58,20 +63,20 @@     = NodeEnum [Name.UnQ]     | NodeStruct Struct     | NodeInterface Interface-    | NodeConstant (Common.Value Node)+    | NodeConstant (Common.Value Brand Node)     | NodeOther     deriving(Show, Eq)  data Interface = Interface     { methods :: [Method]-    , supers  :: [Node]+    , supers  :: [Common.InterfaceType Brand Node]     }     deriving(Show, Eq)  data Method = Method     { name       :: Name.UnQ-    , paramType  :: Node-    , resultType :: Node+    , paramType  :: Common.CompositeType Brand Node+    , resultType :: Common.CompositeType Brand Node     }     deriving(Show, Eq) @@ -87,6 +92,6 @@ data Field = Field     { name    :: Name.UnQ     , tag     :: Maybe Word16-    , locType :: Common.FieldLocType Node+    , locType :: Common.FieldLocType Brand Node     }     deriving(Show, Eq)

@@ -8,6 +8,7 @@ import Data.Word  import Data.Function        ((&))+import Data.Maybe           (mapMaybe) import Data.ReinterpretCast (doubleToWord, floatToWord) import Data.Text.Encoding   (encodeUtf8) @@ -31,7 +32,7 @@   where     outMap = M.map translate inMap -    translate Schema.Node{scopeId, id, nestedNodes, union'} = Stage1.Node+    translate Schema.Node{scopeId, id, nestedNodes, union', parameters} = Stage1.Node         { nodeCommon = Stage1.NodeCommon             { nodeId = id             , nodeNested =@@ -44,6 +45,10 @@                     Nothing                 else                     Just (outMap M.! id)+            , nodeParams = V.fromList+                [ Name.UnQ name+                | Schema.Node'Parameter{name} <- V.toList parameters+                ]             }         , nodeUnion = case union' of             Schema.Node'enum Schema.Node'enum'{enumerants} ->@@ -65,7 +70,10 @@             Schema.Node'interface Schema.Node'interface'{ methods, superclasses } ->                 Stage1.NodeInterface Stage1.Interface                     { methods = map (methodToMethod outMap) (V.toList methods)-                    , supers = [ outMap M.! id | Schema.Superclass{id} <- V.toList superclasses ]+                    , supers =+                        [ C.InterfaceType (outMap M.! id) (brandToBrand outMap brand)+                        | Schema.Superclass{id, brand} <- V.toList superclasses+                        ]                     }             Schema.Node'const Schema.Node'const'{ type_, value } -> Stage1.NodeConstant $                 let mismatch = error "ERROR: Constant's type and value do not agree"@@ -130,16 +138,21 @@                     Schema.Value'struct v ->                         case type_ of                             -- TODO: brand-                            Schema.Type'struct Schema.Type'struct'{ typeId } -> C.PtrValue-                                (C.PtrComposite (C.StructType (outMap M.! typeId)))+                            Schema.Type'struct Schema.Type'struct'{ typeId, brand } -> C.PtrValue+                                (C.PtrComposite $ C.StructType+                                    (outMap M.! typeId)+                                    (brandToBrand outMap brand)+                                )                                 v                             _ ->                                 mismatch                      Schema.Value'interface ->                         case type_ of-                            Schema.Type'interface Schema.Type'interface'{ typeId } ->-                                C.PtrValue (C.PtrInterface (outMap M.! typeId)) Nothing+                            Schema.Type'interface Schema.Type'interface'{ typeId, brand } ->+                                C.PtrValue+                                    (C.PtrInterface (C.InterfaceType (outMap M.! typeId) (brandToBrand outMap brand)))+                                    Nothing                             _ ->                                 mismatch @@ -152,13 +165,40 @@                 Stage1.NodeOther         } +brandToBrand :: NodeMap Stage1.Node -> Schema.Brand -> Stage1.Brand+brandToBrand nodeMap Schema.Brand{scopes} =+    C.MapBrand $ M.fromList $ mapMaybe scopeToScope (V.toList scopes)+  where+    scopeToScope Schema.Brand'Scope{scopeId, union'} = case union' of+        Schema.Brand'Scope'unknown' _ -> Nothing+        Schema.Brand'Scope'inherit -> Nothing+        Schema.Brand'Scope'bind bindings -> Just+            ( scopeId+            , C.Bind $ bindings+                & V.map (\case+                    Schema.Brand'Binding'type_ typ -> case typeToType nodeMap typ of+                        C.PtrType t ->+                            C.BoundType t+                        C.CompositeType t ->+                            C.BoundType (C.PtrComposite t)+                        _ -> error+                            "Invalid schema: a type parameter was set to a non-pointer type." +                    Schema.Brand'Binding'unbound -> C.Unbound+                    Schema.Brand'Binding'unknown' _ -> C.Unbound+                )+            )+ methodToMethod :: NodeMap Stage1.Node -> Schema.Method -> Stage1.Method-methodToMethod nodeMap Schema.Method{ name, paramStructType, resultStructType } =+methodToMethod nodeMap Schema.Method+    { name+    , paramStructType, paramBrand+    , resultStructType, resultBrand+    } =     Stage1.Method         { name = Name.UnQ name-        , paramType = nodeMap M.! paramStructType-        , resultType = nodeMap M.! resultStructType+        , paramType = structTypeToType nodeMap paramStructType paramBrand+        , resultType = structTypeToType nodeMap resultStructType resultBrand         }  enumerantToName :: Schema.Enumerant -> Name.UnQ@@ -176,7 +216,7 @@         , locType = getFieldLocType nodeMap union'         } -getFieldLocType :: NodeMap Stage1.Node -> Schema.Field' -> C.FieldLocType Stage1.Node+getFieldLocType :: NodeMap Stage1.Node -> Schema.Field' -> C.FieldLocType Stage1.Brand Stage1.Node getFieldLocType nodeMap = \case     Schema.Field'slot Schema.Field'slot'{type_, defaultValue, offset} ->         case typeToType nodeMap type_ of@@ -196,7 +236,9 @@             C.CompositeType ty ->                 C.PtrField (fromIntegral offset) (C.PtrComposite ty)     Schema.Field'group Schema.Field'group'{typeId} ->-        C.HereField $ C.StructType $ nodeMap M.! typeId+        C.HereField $ C.StructType+            (nodeMap M.! typeId)+            (C.MapBrand M.empty) -- groups are always monomorphic     Schema.Field'unknown' _ ->         -- Don't know how to interpret this; we'll have to leave the argument         -- opaque.@@ -266,7 +308,15 @@         | Schema.Node{union'=Schema.Node'file, id=fileId, nestedNodes} <- V.toList nodes         ] -typeToType :: NodeMap Stage1.Node -> Schema.Type -> C.Type Stage1.Node+structTypeToType+    :: NodeMap Stage1.Node+    -> Word64+    -> Schema.Brand+    -> C.CompositeType Stage1.Brand Stage1.Node+structTypeToType nodeMap typeId brand =+    C.StructType (nodeMap M.! typeId) (brandToBrand nodeMap brand)++typeToType :: NodeMap Stage1.Node -> Schema.Type -> C.Type Stage1.Brand Stage1.Node typeToType nodeMap = \case     Schema.Type'void       -> C.VoidType     Schema.Type'bool       -> C.WordType $ C.PrimWord C.PrimBool@@ -284,24 +334,30 @@     Schema.Type'data_      -> C.PtrType $ C.PrimPtr C.PrimData     Schema.Type'list Schema.Type'list'{elementType} ->         C.PtrType $ C.ListOf (typeToType nodeMap elementType)-    -- TODO: use 'brand' to generate type parameters.-    Schema.Type'enum Schema.Type'enum'{typeId} ->+    -- nb. enum has a brand field, but it's not actually use for anything.+    Schema.Type'enum Schema.Type'enum'{typeId, brand = _ } ->         C.WordType $ C.EnumType $ nodeMap M.! typeId-    Schema.Type'struct Schema.Type'struct'{typeId} ->-        C.CompositeType $ C.StructType $ nodeMap M.! typeId-    Schema.Type'interface Schema.Type'interface'{typeId} ->-        C.PtrType $ C.PtrInterface $ nodeMap M.! typeId-    Schema.Type'anyPointer anyPtr -> C.PtrType $ C.PrimPtr $ C.PrimAnyPtr $-        case anyPtr of-            Schema.Type'anyPointer'unconstrained Schema.Type'anyPointer'unconstrained'anyKind ->-                C.Ptr-            Schema.Type'anyPointer'unconstrained Schema.Type'anyPointer'unconstrained'struct ->-                C.Struct-            Schema.Type'anyPointer'unconstrained Schema.Type'anyPointer'unconstrained'list ->-                C.List-            Schema.Type'anyPointer'unconstrained Schema.Type'anyPointer'unconstrained'capability ->-                C.Cap-            _ ->-                -- Something we don't know about; assume it could be anything.-                C.Ptr+    -- TODO: use 'brand' to generate type parameters.+    Schema.Type'struct Schema.Type'struct'{typeId, brand} ->+        C.CompositeType $ structTypeToType nodeMap typeId brand+    Schema.Type'interface Schema.Type'interface'{typeId, brand} ->+        C.PtrType $ C.PtrInterface (C.InterfaceType (nodeMap M.! typeId) (brandToBrand nodeMap brand))+    Schema.Type'anyPointer p ->+        case p of+            Schema.Type'anyPointer'parameter Schema.Type'anyPointer'parameter'{scopeId, parameterIndex} ->+                let paramScope = nodeMap M.! scopeId in+                C.PtrType $ C.PtrParam C.TypeParamRef+                    { paramScope+                    , paramIndex = fromIntegral parameterIndex+                    , paramName = Stage1.nodeParams (Stage1.nodeCommon paramScope) V.! fromIntegral parameterIndex+                    }+            Schema.Type'anyPointer'unconstrained unconstrained  ->+                C.PtrType $ C.PrimPtr $ C.PrimAnyPtr $ case unconstrained of+                    Schema.Type'anyPointer'unconstrained'anyKind    -> C.Ptr+                    Schema.Type'anyPointer'unconstrained'struct     -> C.Struct+                    Schema.Type'anyPointer'unconstrained'list       -> C.List+                    Schema.Type'anyPointer'unconstrained'capability -> C.Cap+                    Schema.Type'anyPointer'unconstrained'unknown' _ -> C.Ptr+                    -- ^ Something we don't know about; assume it could be anything.+            _ -> C.VoidType -- TODO: implicitMethodParameter     _ -> C.VoidType -- TODO: constrained anyPointers

@@ -1,29 +1,40 @@ {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE NamedFieldPuns        #-} {-# LANGUAGE OverloadedStrings     #-}-{-# LANGUAGE RecordWildCards       #-} module Trans.FlatToPure (cgrToFiles) where  import Data.Word  import qualified Data.Map.Strict as M+import qualified Data.Set        as S  import qualified IR.Common as C import qualified IR.Flat   as Flat import qualified IR.Name   as Name import qualified IR.Pure   as Pure +import Control.Monad.State (State, evalState, get, put)+ type IFaceMap = M.Map Word64 Pure.Interface +-- | Because of pervasive use of DuplicateRecordFields, we can't easily+-- just use the auto-generated `name` accessor function... so we define+-- this wrapper.+nodeName :: Flat.Node -> Name.CapnpQ+nodeName Flat.Node{name} = name+ cgrToFiles :: Flat.CodeGenReq -> [Pure.File] cgrToFiles Flat.CodeGenReq{allNodes, reqFiles} =     map oneFile reqFiles   where     allInterfaces = concatMap (convertInterface ifaceMap) allNodes-    ifaceMap = M.fromList-        [ (interfaceId, iface)-        | iface@Pure.IFace{interfaceId} <- allInterfaces-        ]+    ifaceMap =+        M.map+            (\iface -> iface { Pure.ancestors = collectAncestors iface })+            $ M.fromList+                [ (interfaceId, iface)+                | iface@Pure.IFace{interfaceId} <- allInterfaces+                ]     oneFile Flat.File{nodes, fileId, fileName} =         Pure.File             { fileId@@ -38,28 +49,64 @@     ifaceMap     Flat.Node         { name+        , typeParams         , nodeId-        , union_ = Flat.Interface{ methods, supers, ancestors }+        , union_ = Flat.Interface{ methods, supers }         }     =-    [ Pure.IFace-        { name-        , interfaceId = nodeId-        , methods = [ Pure.Method{..} | Flat.Method{..} <- methods ]-        , supers = [ ifaceMap M.! nodeId | Flat.Node{nodeId} <- supers ]-        , ancestors = [ ifaceMap M.! nodeId | Flat.Node{nodeId} <- ancestors ]-        }-    ]+    let result =+            Pure.IFace+                { name+                , typeParams = [ param { C.paramScope = name } | param <- typeParams ]+                , interfaceId = nodeId+                , methods =+                    [ Pure.Method+                        { name+                        , paramType = C.bothMap nodeName paramType+                        , resultType = C.bothMap nodeName resultType+                        }+                    | Flat.Method{name, paramType, resultType} <- methods ]+                , supers =+                    map+                        (\(C.InterfaceType Flat.Node{nodeId} brand) ->+                            ( ifaceMap M.! nodeId+                            , fmap nodeName brand+                            )+                        )+                        supers+                , ancestors = collectAncestors result -- See Note [Ancestors]+                }+    in+    [result] convertInterface _ _ = [] +-- | Collect the of the ancestors of an interface, not including itself. Avoids using+-- the 'ancestors' field, as this is used to compute that field in the first place.+-- See Note [Ancestors]+collectAncestors :: Pure.Interface -> [(Pure.Interface, Pure.Brand)]+collectAncestors Pure.IFace{supers} =+    concat $ evalState (traverse go supers) S.empty+  where+    go :: (Pure.Interface, Pure.Brand) -> State (S.Set Word64) [(Pure.Interface, Pure.Brand)]+    go (iface@Pure.IFace{interfaceId, supers}, brand) = do+        seen <- get+        if interfaceId `S.member` seen then+            pure []+            else (do+                put (S.insert interfaceId seen)+                xs <- concat <$> traverse go supers+                pure $ (iface, brand) : xs+            )+ nodeToReExports :: Flat.Node -> [Name.LocalQ] nodeToReExports Flat.Node{name=Name.CapnpQ{local}, union_=Flat.Enum _} = [ local ] nodeToReExports _ = [] -unionToDecl :: Bool -> Name.LocalQ -> Name.LocalQ -> [Flat.Variant] -> Pure.Decl-unionToDecl firstClass cerialName local variants =+unionToDecl :: Bool -> Name.LocalQ -> Name.LocalQ -> [Name.UnQ] -> [Flat.Variant] -> Pure.Decl+unionToDecl firstClass cerialName local typeParams variants =     Pure.DataDecl Pure.Data         { typeName = local+        , typeParams         , cerialName         , def = Pure.Sum             [ Pure.Variant@@ -82,7 +129,9 @@         }  nodeToDecls :: IFaceMap -> Flat.Node -> [Pure.Decl]-nodeToDecls ifaceMap Flat.Node{name=name@Name.CapnpQ{local}, nodeId, union_} = case union_ of+nodeToDecls ifaceMap Flat.Node{name=name@Name.CapnpQ{local}, nodeId, union_, typeParams} =+  let typeParams' = map C.paramName typeParams in+  case union_ of     Flat.Enum _ ->         -- Don't need to do anything here, since we're just re-exporting the         -- stuff from the raw module.@@ -92,11 +141,12 @@     Flat.Struct{ isGroup, fields=[], union=Just Flat.Union{variants}} ->         -- It's just one big union; skip the outer struct wrapper and make it         -- a top-level sum type.-        [ unionToDecl (not isGroup) local local variants ]+        [ unionToDecl (not isGroup) local local typeParams' variants ]     -- Flat.Struct{ isGroup=True, union=Nothing } -> [] -- See Note [Collapsing Groups]     Flat.Struct{ isGroup, fields, union } ->         Pure.DataDecl Pure.Data             { typeName = local+            , typeParams = typeParams'             , cerialName = local             , def = Pure.Product $                 map fieldToField fields@@ -106,7 +156,13 @@                     Just _ ->                         [ Pure.Field                             { name = "union'"-                            , type_ = C.CompositeType $ C.StructType $ Name.mkSub name ""+                            , type_ = C.CompositeType $ C.StructType+                                (Name.mkSub name "")+                                (C.ListBrand $+                                    map+                                        (C.PtrParam . fmap nodeName)+                                        typeParams+                                )                             }                         ]             , firstClass = not isGroup@@ -115,13 +171,13 @@             Just Flat.Union{variants} ->                 -- Also make a type that's just the union, but give it the                 -- same cerialName:-                [ unionToDecl False local (Name.mkSub local "") variants ]+                [ unionToDecl False local (Name.mkSub local "") typeParams' variants ]             Nothing ->                 []     Flat.Constant { value } ->         [ Pure.ConstDecl Pure.Constant             { name = local-            , value = fmap (\Flat.Node{name} -> name) value+            , value = C.bothMap nodeName value             }         ]     Flat.Other -> []@@ -129,9 +185,7 @@ fieldToField :: Flat.Field -> Pure.Field fieldToField Flat.Field{fieldName, fieldLocType} = Pure.Field     { name = Name.getUnQ fieldName-    , type_ = fmap-        (\Flat.Node{name} -> name)-        (C.fieldType fieldLocType)+    , type_ = C.bothMap nodeName (C.fieldType fieldLocType)     }  -- Note [Collapsing Groups]@@ -156,3 +210,18 @@ -- Note that we actually depend on (1) to avoid name collisions, since -- otherwise both the data constructor for the anonymous union and the -- data constructor for the group will be the same.+++-- Note [Ancestors]+-- ================+--+-- When constructing a Pure.Interface, we need to fill in both the immediate+-- superclasses and the full transitive list of ancestors. Strictly speaking+-- the latter is redundant and can be computed from the former -- which is+-- what we do, but we store it so that the PureToHaskell phase doesn't need to+-- worry about it.+--+-- The way we compute this is a bit subtle, in that it involves tying the knot;+-- The 'collectAncestors' function expects the interface as an argument, and+-- computes the correct value of ancestors field without reading it. We then+-- use this function when creating the interface value in the first place.

@@ -20,7 +20,9 @@         }  nodeToDecls :: Flat.Node -> [Raw.Decl]-nodeToDecls Flat.Node{name=Name.CapnpQ{fileId, local}, union_} = case union_ of+nodeToDecls Flat.Node{name=Name.CapnpQ{fileId, local}, union_, typeParams} =+  let typeParams' = map C.paramName typeParams in+  case union_ of     Flat.Enum variants ->         [ Raw.Enum             { typeCtor = local@@ -29,30 +31,32 @@         ]     Flat.Struct{fields, isGroup, dataWordCount, pointerCount, union} ->         concat-            [ [ Raw.StructWrapper { typeCtor = local } ]+            [ [ Raw.StructWrapper { typeCtor = local, typeParams = typeParams' } ]             , if isGroup                 then                     []                 else                     [ Raw.StructInstances                         { typeCtor = local+                        , typeParams = typeParams'                         , dataWordCount                         , pointerCount                         }                     ]-            , concatMap (fieldToDecls local) fields+            , concatMap (fieldToDecls local typeParams') fields             , case union of                 Nothing -> []                 Just Flat.Union{variants, tagOffset} ->                     let local' = Name.mkSub local "" in                     [ Raw.UnionVariant                         { parentTypeCtor = local+                        , typeParams = typeParams'                         , tagOffset                         , unionDataCtors =                             [ Raw.Variant                                 { name = local                                 , tagValue-                                , locType = fmap (\Flat.Node{name} -> name) fieldLocType+                                , locType = C.bothMap (\Flat.Node{name} -> name) fieldLocType                                 }                             | Flat.Variant                                 { field = Flat.Field@@ -65,17 +69,32 @@                         }                     , Raw.Getter                         { fieldName = local'+                        , typeParams = typeParams'                         , containerType = local                         , fieldLocType = C.HereField $ C.StructType Name.CapnpQ                             { fileId                             , local = local'                             }+                            (C.ListBrand+                                [ C.PtrParam C.TypeParamRef+                                    { paramName+                                    , paramIndex+                                    , paramScope = scopeName+                                    }+                                | C.TypeParamRef+                                    { paramName+                                    , paramIndex+                                    , paramScope=Flat.Node{name=scopeName}+                                    } <- typeParams+                                ]+                            )                         }                     ] ++                     [ Raw.Setter                         { fieldName+                        , typeParams = typeParams'                         , containerType = local-                        , fieldLocType = fmap (\Flat.Node{name} -> name) fieldLocType+                        , fieldLocType = C.bothMap (\Flat.Node{name} -> name) fieldLocType                         , tag = Just Raw.TagSetter                             { tagOffset                             , tagValue@@ -96,6 +115,7 @@                     -- uint16 field in the same spot:                     [ Raw.Setter                         { fieldName = Name.mkSub local "unknown'"+                        , typeParams = typeParams'                         , containerType = local                         , fieldLocType = C.DataField                             (Raw.tagOffsetToDataLoc tagOffset)@@ -107,22 +127,28 @@     Flat.Interface{} ->         [ Raw.InterfaceWrapper             { typeCtor = local+            , typeParams = typeParams'             }         ]     Flat.Constant{ value } ->         [ Raw.Constant             { name = local-            , value = fmap (\Flat.Node{name} -> name) value+            , value = C.bothMap (\Flat.Node{name} -> name) value             }         ]     Flat.Other -> [] -fieldToDecls :: Name.LocalQ -> Flat.Field -> [Raw.Decl]-fieldToDecls containerType Flat.Field{fieldName=Name.CapnpQ{local=fieldName}, fieldLocType} =+fieldToDecls :: Name.LocalQ -> [Name.UnQ] -> Flat.Field -> [Raw.Decl]+fieldToDecls+    containerType+    typeParams+    Flat.Field{fieldName=Name.CapnpQ{local=fieldName}, fieldLocType}+    =     [ Raw.Getter         { fieldName+        , typeParams         , containerType-        , fieldLocType = fmap (\Flat.Node{name} -> name) fieldLocType+        , fieldLocType = C.bothMap (\Flat.Node{name} -> name) fieldLocType         }     ]     ++@@ -132,7 +158,8 @@             [ Raw.Setter                 { fieldName                 , containerType-                , fieldLocType = fmap (\Flat.Node{name} -> name) fieldLocType+                , typeParams+                , fieldLocType = C.bothMap (\Flat.Node{name} -> name) fieldLocType                 , tag = Nothing                 }             ]@@ -141,6 +168,7 @@         C.PtrField ptrIndex _ ->             [ Raw.HasFn                 { fieldName+                , typeParams                 , containerType                 , ptrIndex                 }@@ -152,32 +180,36 @@         C.PtrField _ (C.ListOf _) ->             [ Raw.NewFn                 { fieldName+                , typeParams                 , containerType-                , fieldLocType = fmap (\Flat.Node{name} -> name) fieldLocType+                , fieldLocType = C.bothMap (\Flat.Node{name} -> name) fieldLocType                 , newFnType = Raw.NewList                 }             ]         C.PtrField _ (C.PrimPtr C.PrimText) ->             [ Raw.NewFn                 { fieldName+                , typeParams                 , containerType-                , fieldLocType = fmap (\Flat.Node{name} -> name) fieldLocType+                , fieldLocType = C.bothMap (\Flat.Node{name} -> name) fieldLocType                 , newFnType = Raw.NewText                 }             ]         C.PtrField _ (C.PrimPtr C.PrimData) ->             [ Raw.NewFn                 { fieldName+                , typeParams                 , containerType-                , fieldLocType = fmap (\Flat.Node{name} -> name) fieldLocType+                , fieldLocType = C.bothMap (\Flat.Node{name} -> name) fieldLocType                 , newFnType = Raw.NewData                 }             ]         C.PtrField _ (C.PtrComposite _) ->             [ Raw.NewFn                 { fieldName+                , typeParams                 , containerType-                , fieldLocType = fmap (\Flat.Node{name} -> name) fieldLocType+                , fieldLocType = C.bothMap (\Flat.Node{name} -> name) fieldLocType                 , newFnType = Raw.NewStruct                 }             ]

@@ -7,6 +7,7 @@ import Data.String                  (fromString) import Text.PrettyPrint.Leijen.Text (hcat, vcat) +import qualified Data.Text                    as T import qualified Data.Text.Lazy               as LT import qualified Text.PrettyPrint.Leijen.Text as PP @@ -86,15 +87,26 @@         , format (TCtx ctx typ)         , whereBlock defs         ]-    format DcClass{ctx, name, params, decls} = hcat+    format DcClass{ctx, name, params, funDeps, decls} = hcat         [ "class "         , format $             TCtx ctx $                 TApp                     (TLName name)                     [TLName (Name.unQToLocal p) | p <- params]+        , formatFunDeps funDeps         , whereBlock decls         ]++formatFunDeps :: [(T.Text, T.Text)] -> PP.Doc+formatFunDeps [] = ""+formatFunDeps deps = mconcat+    [ " | "+    , mconcat $ intersperse ", "+        [ PP.textStrict a <> " -> " <> PP.textStrict b+        | (a, b) <- deps+        ]+    ]  whereBlock :: Format a => [a] -> PP.Doc whereBlock [] = ""

@@ -57,7 +57,7 @@ -- -- For example, this is True for Enums, basic integers, etc. but -- False for structs, interfaces, etc.-cerialEq :: C.Type r -> Bool+cerialEq :: C.Type b r -> Bool cerialEq C.VoidType          = True cerialEq (C.WordType _)      = True cerialEq (C.CompositeType _) = False@@ -89,9 +89,11 @@             , "DuplicateRecordFields"             , "FlexibleContexts"             , "FlexibleInstances"+            , "FunctionalDependencies"             , "RecordWildCards"             , "MultiParamTypeClasses"             , "TypeFamilies"+            , "UndecidableInstances"             ]         , modExports = Just $             [ExportGCtors (gName (rawModule fileId) name) | name <- reExportEnums]@@ -130,10 +132,10 @@         [ iType "Cerial" [tuName "msg", TGName rawName] (TGName rawName)         , iValue "decerialize" [] (eStd_ "pure")         ]-    : instance_ [] ["Classes"] "Cerialize" [TGName rawName]+    : instance_ [] ["Classes"] "Cerialize" [tuName "s", TGName rawName]         [ iValue "cerialize" [PVar "_"] (eStd_ "pure")         ]-    : [ instance_ [] ["Classes"] "Cerialize" [t]+    : [ instance_ [] ["Classes"] "Cerialize" [tuName "s", t]         [ iValue "cerialize" [] (egName ["Classes"] "cerializeBasicVec")         ]       | t <- take 6 $ drop 1 $ iterate@@ -170,6 +172,7 @@ dataToDataDecl :: Word64 -> P.Data -> [Decl] dataToDataDecl thisMod P.Data         { typeName+        , typeParams         , cerialName         , firstClass         , def@@ -177,7 +180,7 @@     let unknownCtor = Name.mkSub cerialName "unknown'" in     [ DcData Data         { dataName = Name.localToUnQ typeName-        , typeArgs = []+        , typeArgs = map (TVar . Name.typeVarName) typeParams         , derives =             ["Std_.Show", "Std_.Eq", "Generics.Generic"]         , dataNewtype = False@@ -207,12 +210,48 @@         }     ] +typeParamsDecerializeCtx :: [Name.UnQ] -> [Type]+typeParamsDecerializeCtx typeParams =+    let+        vars = typeParamVars typeParams+        constMsg = tgName ["Message"] "ConstMsg"+        cerial msg v = TApp (tgName ["Classes"] "Cerial") [msg, v]+    in+    concat+        [ [ TApp (tgName ["Classes"] "Decerialize") [v]+          , TApp+            (tgName ["Classes"] "FromPtr")+            [ constMsg+            , cerial constMsg v+            ]+          ]+        | v <- vars+        ]++typeParamsCerializeCtx :: [Name.UnQ] -> [Type]+typeParamsCerializeCtx typeParams =+    typeParamsDecerializeCtx typeParams ++ concat+        [ [ TApp (tgName ["Classes"] "Cerialize") [tuName "s", v]+          , TApp (tgName ["Classes"] "ToPtr")+               [ tuName "s"+               , TApp (tgName ["Classes"] "Cerial")+                   [ TApp (tgName ["Message"] "MutMsg") [tuName "s"]+                   , v+                   ]+               ]+           ]+        | v <- typeParamVars typeParams+        ]+ dataToSimpleInstances :: Word64 -> P.Data -> [Decl]-dataToSimpleInstances _thisMod P.Data{ typeName } =-    [ instance_ [] ["Default"] "Default" [TLName typeName]+dataToSimpleInstances _thisMod P.Data{ typeName, typeParams } =+    let typ = typeWithParams typeName typeParams+        ctx = typeParamsDecerializeCtx typeParams+    in+    [ instance_ ctx ["Default"] "Default" [typ]         [ iValue "def" [] (egName ["GenHelpersPure"] "defaultStruct")         ]-    , instance_ [] ["Classes"] "FromStruct" [tgName ["Message"] "ConstMsg", TLName typeName]+    , instance_ ctx ["Classes"] "FromStruct" [tgName ["Message"] "ConstMsg", typ]         [ iValue "fromStruct" [PVar "struct"] $ EBind             (EApp (egName ["Classes"] "fromStruct") [euName "struct"])             (egName ["Classes"] "decerialize")@@ -222,13 +261,21 @@ dataToDecerialize :: Word64 -> P.Data -> [Decl] dataToDecerialize thisMod P.Data         { typeName+        , typeParams         , cerialName         , firstClass         , def         } =-    [ instance_ [] ["Classes"] "Decerialize" [TLName typeName]-        [ iType "Cerial" [tuName "msg", TLName typeName] $-            TApp (tgName (rawModule thisMod) cerialName) [tuName "msg"]+    let typ = typeWithParams typeName typeParams+        ctx = typeParamsDecerializeCtx typeParams+    in+    [ instance_ ctx ["Classes"] "Decerialize" [typ]+        [ iType "Cerial" [tuName "msg", typ] $+            TApp (tgName (rawModule thisMod) cerialName) $+                [ TApp (tgName ["Classes"] "Cerial") [tuName "msg", v]+                | v <- typeParamVars typeParams+                ]+                ++ [tuName "msg"]         , iValue "decerialize" [PVar "raw"] $             case def of                 P.Sum variants ->@@ -305,11 +352,13 @@ dataToMarshal :: Word64 -> P.Data -> [Decl] dataToMarshal thisMod P.Data         { typeName+        , typeParams         , cerialName         , firstClass         , def         } =-    [ instance_ [] ["Classes"] "Marshal" [TLName typeName]+    let typ = typeWithParams typeName typeParams in+    [ instance_ (typeParamsCerializeCtx typeParams) ["Classes"] "Marshal" [TVar "s", typ]         [ iValue "marshalInto" [PVar "raw_", PVar "value_"] $             case def of                 P.Sum variants ->@@ -375,22 +424,25 @@         ]  firstClassInstances :: Word64 -> P.Data -> [Decl]-firstClassInstances _thisMod P.Data{ typeName } =-    [ instance_ [] ["Classes"] "Cerialize" [TLName typeName] []-    , instance_ [] ["Classes"] "Cerialize" [TApp (tgName ["V"] "Vector") [TLName typeName]]+firstClassInstances _thisMod P.Data{ typeName, typeParams } =+    let typ = typeWithParams typeName typeParams+        ctx = typeParamsCerializeCtx typeParams+    in+    [ instance_ ctx ["Classes"] "Cerialize" [tuName "s", typ] []+    , instance_ ctx ["Classes"] "Cerialize" [tuName "s", TApp (tgName ["V"] "Vector") [typ]]         [ iValue "cerialize" [] (egName ["GenHelpersPure"] "cerializeCompositeVec")         ]     ] ++-    -- Generate instances of Cerialize (Vector (Vector ... t)) up to some reasonable+    -- Generate instances of Cerialize s (Vector (Vector ... t)) up to some reasonable     -- nesting level. I(zenhack) can't figure out how to get a general case-    -- Cerialize (Vector a) => Cerialize (Vector (Vector a)) to type check, so this+    -- Cerialize s (Vector a) => Cerialize s (Vector (Vector a)) to type check, so this     -- will have to do for now.-    [ instance_ [] ["Classes"] "Cerialize" [t]+    [ instance_ ctx ["Classes"] "Cerialize" [tuName "s", t]         [ iValue "cerialize" [] (egName ["GenHelpersPure"] "cerializeBasicVec")         ]     | t <- take 6 $ drop 2 $ iterate             (\t -> TApp (tgName ["V"] "Vector") [t])-            (TLName typeName)+            typ     ]  ifaceToDecls :: Word64 -> P.Interface -> [Decl]@@ -404,7 +456,7 @@  -- | Declare the newtype wrapper for clients of this interface. ifaceClientDecl :: Word64 -> P.Interface -> Decl-ifaceClientDecl _thisMod P.IFace{ name=Name.CapnpQ{local=name} } =+ifaceClientDecl _thisMod P.IFace{ name=Name.CapnpQ{local=name}, typeParams } =     DcData Data         { dataName = Name.localToUnQ name         , dataNewtype = True@@ -414,7 +466,7 @@                 , dvArgs = APos [tgName ["Message"] "Client"]                 }             ]-        , typeArgs = []+        , typeArgs = map (TVar . Name.typeVarName . C.paramName) typeParams         , derives =             [ "Std_.Show"             , "Std_.Eq"@@ -424,14 +476,17 @@  -- | define the *'server_ class for the interface. ifaceClassDecl :: Word64 -> P.Interface -> Decl-ifaceClassDecl thisMod P.IFace { name=Name.CapnpQ{local=name}, methods, supers } =+ifaceClassDecl thisMod P.IFace { name=Name.CapnpQ{local=name}, methods, supers, typeParams } =+    let typeParamNames = map (Name.typeVarName . C.paramName) typeParams in     DcClass         { ctx =             let superConstraints =                     -- Add class constraints for superclasses:                     [ let superClass = pureTName thisMod fileId (Name.mkSub local "server_")-                      in TApp superClass [tuName "m", tuName "cap"]-                    | P.IFace{name=Name.CapnpQ{local, fileId}} <- supers+                      in TApp superClass $+                            [tuName "m", tuName "cap"]+                            ++ map (typeToType thisMod . C.PtrType) types+                    | (P.IFace{name=Name.CapnpQ{local, fileId}}, C.ListBrand types) <- supers                     ]             in             TApp (tgName ["MonadIO"] "MonadIO") [tuName "m"]@@ -442,7 +497,8 @@                 [] -> [ TApp (tgName ["Server"] "Server") [tuName "m", tuName "cap"] ]                 _ -> superConstraints         , name = Name.mkSub name "server_"-        , params = ["m", "cap"]+        , params = map Name.UnQ $ ["m", "cap"] ++ typeParamNames+        , funDeps = [ ("cap", v) | v <- typeParamNames ]         , decls =             let mkName = mkMethodName name in             CdMinimal [ mkName name | P.Method{name} <- methods ]@@ -454,8 +510,8 @@                             , TApp                                 (tgName ["Server"] "MethodHandler")                                 [ tuName "m"-                                , typeToType thisMod $ C.CompositeType $ C.StructType paramType-                                , typeToType thisMod $ C.CompositeType $ C.StructType resultType+                                , typeToType thisMod $ C.CompositeType paramType+                                , typeToType thisMod $ C.CompositeType resultType                                 ]                             ]                         )@@ -477,16 +533,19 @@  -- | Define the export_Foo function for the interface. ifaceExportFn :: Word64 -> P.Interface -> Decl-ifaceExportFn thisMod iface@P.IFace { name=Name.CapnpQ{ local }, ancestors } =+ifaceExportFn thisMod iface@P.IFace { name=Name.CapnpQ{ local }, typeParams, ancestors } =+    let typeParamVars = map (TVar . Name.typeVarName . C.paramName) typeParams in     DcValue         { typ = TCtx-            [ TApp (TLName (Name.mkSub local "server_")) [tStd_ "IO", tuName "a"]-            , TApp (tgName ["STM"] "MonadSTM") [tuName "m"]+            [ TApp (tgName ["STM"] "MonadSTM") [tuName "m"]+            , TApp+                (TLName (Name.mkSub local "server_"))+                $ [tStd_ "IO", tuName "cap"] ++ typeParamVars             ]             (TFn                 [ tgName ["Supervisors"] "Supervisor"-                , tuName "a"-                , TApp (tuName "m") [TLName local]+                , tuName "cap"+                , TApp (tuName "m") [TApp (TLName local) typeParamVars]                 ]             )         , def = DfValue@@ -532,7 +591,7 @@                                         , interfaceId                                         , methods                                         }-                                    <- iface:ancestors+                                    <- iface : map fst ancestors                                     ]                                     ++                                     [ ( PVar "_"@@ -548,20 +607,28 @@  -- | Declare instances for clients for this interface. ifaceInstances :: Word64 -> P.Interface -> [Decl]-ifaceInstances thisMod iface@P.IFace{ name=Name.CapnpQ{local=name} } =-    [ instance_ [] ["Rpc"] "IsClient" [TLName name]+ifaceInstances thisMod iface@P.IFace{ name=Name.CapnpQ{local=name}, typeParams } =+    let typ = typeWithParams name (map C.paramName typeParams) in+    [ instance_ [] ["Rpc"] "IsClient" [typ]         [ iValue "fromClient" [] (ELName name)         , iValue "toClient" [PLCtor name [PVar "client"]] (euName "client")         ]-    , instance_ [] ["Classes"] "FromPtr" [tuName "msg", TLName name]+    , instance_ [] ["Classes"] "FromPtr" [tuName "msg", typ]         [ iValue "fromPtr" [] (egName ["RpcHelpers"] "isClientFromPtr")         ]-    , instance_ [] ["Classes"] "ToPtr" [tuName "s", TLName name]+    , instance_ [] ["Classes"] "ToPtr" [tuName "s", typ]         [ iValue "toPtr" [] (egName ["RpcHelpers"] "isClientToPtr")         ]-    , instance_ [] ["Classes"] "Decerialize" [TLName name]-        [ iType "Cerial" [tuName "msg", TLName name] $-            TApp (tgName (rawModule thisMod) name) [tuName "msg"]+    , instance_ [] ["Classes"] "Decerialize" [typ]+        [ iType "Cerial" [tuName "msg", typ] $+            TApp (tgName (rawModule thisMod) name) $+                [ TApp (tgName ["Classes"] "Cerial")+                    [ tuName "msg"+                    , TVar (Name.typeVarName (C.paramName t))+                    ]+                | t <- typeParams+                ]+                ++ [tuName "msg"]         , iValue "decerialize"             [ pgName (rawModule thisMod) (Name.mkSub name "newtype_") [PVar "maybeCap"]             ]@@ -580,7 +647,7 @@                 ]             )         ]-    , instance_ [] ["Classes"] "Cerialize" [TLName name]+    , instance_ [] ["Classes"] "Cerialize" [tuName "s", typ]         [ iValue "cerialize" [PVar "msg", PLCtor name [PVar "client"]] $             EFApp                 (egName (rawModule thisMod) (Name.mkSub name "newtype_"))@@ -606,24 +673,25 @@ -- | Instance declarations for this interface's client for its *'server_ class -- and those of its ancestors. ifaceServerInstances :: Word64 -> P.Interface -> [Decl]-ifaceServerInstances thisMod iface@P.IFace{ name=Name.CapnpQ{local=name}, ancestors } =+ifaceServerInstances thisMod iface@P.IFace{ name=Name.CapnpQ{local=name}, typeParams, ancestors } =     DcInstance         { ctx = []-        , typ = TApp (tgName ["Server"] "Server") [tStd_ "IO", TLName name]+        , typ = TApp (tgName ["Server"] "Server") [tStd_ "IO", typ]         , defs = []         }-    : map go (iface:ancestors)+    : map go ((iface, C.ListBrand (map C.PtrParam typeParams)):ancestors)   where-    go P.IFace { name=Name.CapnpQ{local, fileId}, interfaceId, methods } =+    typ = typeWithParams name (map C.paramName typeParams)+    go (P.IFace { name=Name.CapnpQ{local, fileId}, interfaceId, methods }, C.ListBrand types) =         let className = Name.mkSub local "server_"             classType = pureTName thisMod fileId className+            classArgs = map (typeToType thisMod . C.PtrType) types         in         -- Can't use 'instance_' here, because we don't know ahead of time what         -- module the class is in.         DcInstance             { ctx = []-            , typ =-                TApp classType [tStd_ "IO", TLName name]+            , typ = TApp classType $ [tStd_ "IO", typ] ++ classArgs             , defs =                 [ let methodName = mkMethodName local mname in                   iValue methodName [PLCtor name [PVar "client"]] $@@ -672,7 +740,7 @@     -- ^ The name of the field to marshal, qualified within the current module.     , from        :: Name.UnQ     -- ^ A variable holding the value to marshal-    , type_       :: C.Type Name.CapnpQ+    , type_       :: C.Type (C.ListBrand Name.CapnpQ) Name.CapnpQ     , inUnion     :: !Bool     -- ^ whether the parent of this field is a union     }@@ -709,7 +777,7 @@ fieldToField :: Word64 -> P.Field -> (Name.UnQ, Type) fieldToField thisMod P.Field{name, type_} = (name, typeToType thisMod type_) -typeToType :: Word64 -> C.Type Name.CapnpQ -> Type+typeToType :: Word64 -> C.Type (C.ListBrand Name.CapnpQ) Name.CapnpQ -> Type typeToType _thisMod C.VoidType =     TUnit typeToType _thisMod (C.WordType (C.PrimWord ty)) =@@ -725,10 +793,10 @@         tgName (rawModule fileId) local     else         tgName (pureModule fileId) local-typeToType thisMod (C.CompositeType (C.StructType n)) =-    nameToType thisMod n-typeToType thisMod (C.PtrType (C.PtrComposite (C.StructType n))) =-    nameToType thisMod n+typeToType thisMod (C.CompositeType (C.StructType n b)) =+    nameToType thisMod n b+typeToType thisMod (C.PtrType (C.PtrComposite (C.StructType n b))) =+    nameToType thisMod n b typeToType thisMod (C.PtrType (C.ListOf ty)) =     TApp (tgName ["V"] "Vector") [typeToType thisMod ty] typeToType _thisMod (C.PtrType (C.PrimPtr C.PrimText)) =@@ -738,13 +806,27 @@ typeToType _thisMod (C.PtrType (C.PrimPtr (C.PrimAnyPtr _))) =     -- TODO: distinguish different pointer types.     TApp (tStd_ "Maybe") [tgName ["UntypedPure"] "Ptr"]-typeToType thisMod (C.PtrType (C.PtrInterface n)) =-    nameToType thisMod n+typeToType thisMod (C.PtrType (C.PtrInterface (C.InterfaceType n b))) =+    nameToType thisMod n b+typeToType _thisMod (C.PtrType (C.PtrParam C.TypeParamRef{paramName})) =+    TVar (Name.typeVarName paramName) -nameToType :: Word64 -> Name.CapnpQ -> Type-nameToType thisMod Name.CapnpQ{local, fileId}-    | thisMod == fileId = TLName local-    | otherwise = tgName (pureModule fileId) local+typeParamVars :: [Name.UnQ] -> [Type]+typeParamVars = map (TVar . Name.typeVarName)++typeWithParams :: Name.LocalQ -> [Name.UnQ] -> Type+typeWithParams f xs =+    TApp (TLName f) $ typeParamVars xs++nameToType :: Word64 -> Name.CapnpQ -> C.ListBrand Name.CapnpQ -> Type+nameToType thisMod Name.CapnpQ{local, fileId} (C.ListBrand args) =+    let head+            | thisMod == fileId = TLName local+            | otherwise = tgName (pureModule fileId) local+    in+    case args of+        [] -> head+        _  -> TApp head (map (typeToType thisMod . C.PtrType) args)  rawModule :: Word64 -> [T.Text] rawModule modId =

@@ -78,14 +78,16 @@     imp parts importAs = ImportAs {parts, importAs}  declToDecls :: Word64 -> Raw.Decl -> [Decl]-declToDecls thisMod Raw.UnionVariant{parentTypeCtor, tagOffset, unionDataCtors} =+declToDecls thisMod Raw.UnionVariant{parentTypeCtor, typeParams, tagOffset, unionDataCtors} =     let unknownCtor = Name.mkSub parentTypeCtor "unknown'"         typeCtor = Name.mkSub parentTypeCtor ""+        containerTypeType = containerTypeToType typeCtor typeParams+        typeParamNames = map (TVar . Name.typeVarName) typeParams     in     [ DcData Data         { dataName = Name.localToUnQ typeCtor         , dataNewtype = False-        , typeArgs = [TVar "msg"]+        , typeArgs = typeParamNames ++ [TVar "msg"]         , dataVariants =             [ DataVariant                 { dvCtorName = Name.localToUnQ dataCtor@@ -106,7 +108,12 @@             ]         , derives = []         }-    , instance_ [] ["Classes"] "FromStruct" [TVar "msg", TApp (TLName typeCtor) [TVar "msg"]]+    , let ctx =+            [ TApp (tgName ["Classes"] "FromPtr") [TVar "msg", v]+            | v <- typeParamNames+            ]+      in+      instance_ ctx ["Classes"] "FromStruct" [TVar "msg", containerTypeType (TVar "msg")]         [ iValue "fromStruct" [PVar "struct"] $ EDo             [ DoBind "tag"                 (EApp@@ -290,18 +297,18 @@                 Name.localToUnQ variantName             , dvArgs = APos []             }-declToDecls _thisMod Raw.InterfaceWrapper{typeCtor} =+declToDecls _thisMod Raw.InterfaceWrapper{typeCtor, typeParams} =     let dataCtor = Name.mkSub typeCtor "newtype_" in-    [ newtypeWrapper typeCtor ["msg"] $ TApp+    [ newtypeWrapper typeCtor (map Name.typeVarName typeParams ++ ["msg"]) $ TApp         (tStd_ "Maybe")         [ TApp             (tgName ["Untyped"] "Cap")             [TVar "msg"]         ]-    , wrapperFromPtr typeCtor dataCtor+    , wrapperFromPtr typeCtor typeParams dataCtor     , instance_ [] ["Classes"] "ToPtr"         [ TVar "s"-        , TApp (TLName typeCtor) [TApp (tgName ["Message"] "MutMsg") [TVar "s"]]+        , containerTypeToType typeCtor typeParams (TApp (tgName ["Message"] "MutMsg") [TVar "s"])         ]         [ iValue "toPtr" [PVar "msg", PLCtor dataCtor [PGCtor (std_ "Nothing") []]]             (EApp (eStd_ "pure") [eStd_ "Nothing"])@@ -318,39 +325,33 @@             )         ]     ]-declToDecls _thisMod Raw.StructWrapper{typeCtor} =-    let dataCtor = Name.mkSub typeCtor "newtype_" in-    [ newtypeWrapper typeCtor ["msg"] $ TApp+declToDecls _thisMod Raw.StructWrapper{typeCtor, typeParams} =+    let dataCtor = Name.mkSub typeCtor "newtype_"+        containerTypeType = containerTypeToType typeCtor typeParams+    in+    [ newtypeWrapper typeCtor (map Name.typeVarName typeParams ++ ["msg"]) $ TApp         (tgName ["Untyped"] "Struct")         [TVar "msg"]      -- There are several type classes that are defined for all structs:-    , instance_ [] ["Untyped"] "TraverseMsg" [TLName typeCtor]-        [ iValue "tMsg" [PVar "f", PLCtor dataCtor [PVar "s"]] $ EFApp-            (ELName dataCtor)-            [EApp (egName ["Untyped"] "tMsg") [ELName "f", ELName "s"]]-        ]-    , instance_ [] ["Classes"] "FromStruct"-        [ TVar "msg", TApp (TLName typeCtor) [TVar "msg"]-        ]+    , instance_ [] ["Classes"] "FromStruct" [TVar "msg", containerTypeType (TVar "msg")]         [ iValue "fromStruct" [PVar "struct"] $ EApp             (eStd_ "pure")             [EApp (ELName dataCtor) [ELName "struct"]]         ]-    , instance_ [] ["Classes"] "ToStruct"-        [TVar "msg", TApp (TLName typeCtor) [TVar "msg"]]+    , instance_ [] ["Classes"] "ToStruct" [TVar "msg", containerTypeType (TVar "msg")]         [ iValue "toStruct" [PLCtor dataCtor [PVar "struct"]]             (ELName "struct")         ]-    , instance_ [] ["Untyped"] "HasMessage" [TApp (TLName typeCtor) [TVar "msg"]]+    , instance_ [] ["Untyped"] "HasMessage" [containerTypeType (TVar "msg")]         [ IdType $ TypeAlias             "InMessage"-            [ TApp (TLName typeCtor) [TVar "msg"] ]+            [ containerTypeType (TVar "msg") ]             (TVar "msg")         , iValue "message" [PLCtor dataCtor [PVar "struct"]]             (EApp (egName ["Untyped"] "message") [ELName "struct"])         ]-    , instance_ [] ["Untyped"] "MessageDefault" [TApp (TLName typeCtor) [TVar "msg"]]+    , instance_ [] ["Untyped"] "MessageDefault" [containerTypeType (TVar "msg")]         [ iValue "messageDefault" [PVar "msg"] $ EApp             (ELName dataCtor)             [ EApp@@ -359,16 +360,15 @@             ]         ]     ]-declToDecls _thisMod Raw.StructInstances{typeCtor, dataWordCount, pointerCount} =+declToDecls _thisMod Raw.StructInstances{typeCtor, typeParams, dataWordCount, pointerCount} =     let listCtor = Name.mkSub typeCtor "List_"         dataCtor = Name.mkSub typeCtor "newtype_"+        containerTypeType = containerTypeToType typeCtor typeParams     in-    [ wrapperFromPtr typeCtor dataCtor+    [ wrapperFromPtr typeCtor typeParams dataCtor     , instance_ [] ["Classes"] "ToPtr"         [ TVar "s"-        , TApp-            (TLName typeCtor)-            [TApp (tgName ["Message"] "MutMsg") [TVar "s"]]+        , containerTypeType $ TApp (tgName ["Message"] "MutMsg") [TVar "s"]         ]         [ iValue             "toPtr"@@ -382,9 +382,7 @@         ]     , instance_ [] ["Classes"] "Allocate"         [ TVar "s"-        , TApp-            (TLName typeCtor)-            [TApp (tgName ["Message"] "MutMsg") [TVar "s"]]+        , containerTypeType $ TApp (tgName ["Message"] "MutMsg") [TVar "s"]         ]         [ iValue "new" [PVar "msg"] $ EFApp             (ELName dataCtor)@@ -398,17 +396,13 @@         ]     , instance_ [] ["Basics"] "ListElem"         [ TVar "msg"-        , TApp-            (TLName typeCtor)-            [TVar "msg"]+        , containerTypeType $ TVar "msg"         ]         [ IdData Data             { dataName = "List"             , typeArgs =                 [ TVar "msg"-                , TApp-                    (TLName typeCtor)-                    [TVar "msg"]+                , containerTypeType (TVar "msg")                 ]             , dataVariants =                 [ DataVariant@@ -453,9 +447,7 @@         ]     , instance_ [] ["Basics"] "MutListElem"         [ TVar "s"-        , TApp-            (TLName typeCtor)-            [ TApp (tgName ["Message"] "MutMsg") [TVar "s"] ]+        , containerTypeType $ TApp (tgName ["Message"] "MutMsg") [TVar "s"]         ]         [ iValue "setIndex"             [ PLCtor dataCtor [PVar "elt"]@@ -481,19 +473,30 @@             ]         ]     ]-declToDecls thisMod Raw.Getter{fieldName, fieldLocType, containerType} =-    let containerDataCtor = Name.mkSub containerType "newtype_" in+declToDecls thisMod Raw.Getter{fieldName, fieldLocType, containerType, typeParams} =+    let containerDataCtor = Name.mkSub containerType "newtype_"+        fieldType = typeToType thisMod (C.fieldType fieldLocType) (TVar "msg")+        isPtrType = case C.fieldType fieldLocType of+            C.PtrType _       -> True+            C.CompositeType _ -> True+            _                 -> False+    in     [ DcValue         { typ = TCtx-            [readCtx "m" "msg"]+            (readCtx "m" "msg"+                : if isPtrType+                    then+                        [ case fieldLocType of+                            C.HereField _ ->+                                TApp (tgName ["Classes"] "FromStruct") [TVar "msg", fieldType]+                            _ ->+                                TApp (tgName ["Classes"] "FromPtr") [TVar "msg", fieldType]+                        ]+                    else []+            )             (TFn-                [ TApp-                    (TLName containerType)-                    [ TVar "msg" ]-                , TApp-                    (TVar "m")-                    [ typeToType thisMod (C.fieldType fieldLocType) (TVar "msg")-                    ]+                [ containerTypeToType containerType typeParams (TVar "msg")+                , TApp (TVar "m") [fieldType]                 ]             )         , def = DfValue@@ -528,7 +531,7 @@             }         }     ]-declToDecls thisMod Raw.Setter{fieldName, fieldLocType, containerType, tag} =+declToDecls thisMod Raw.Setter{fieldName, fieldLocType, containerType, typeParams, tag} =     -- XXX: the way this is organized is a little gross; conceptually we have     -- two kinds of setters:     --@@ -546,28 +549,38 @@             thisMod             (C.fieldType fieldLocType)             tMutMsg+        isPtrType = case C.fieldType fieldLocType of+            C.PtrType _       -> True+            C.CompositeType _ -> True+            _                 -> False+        containerTypeType = containerTypeToType containerType typeParams tMutMsg     in     [ DcValue         { typ = TCtx-            [rwCtx "m" "s"]+            (rwCtx "m" "s"+                : if isPtrType+                    then+                        [ case fieldLocType of+                            C.HereField _ ->+                                TApp (tgName ["Classes"] "FromStruct") [tMutMsg, fieldType]+                            _ ->+                                TApp (tgName ["Classes"] "ToPtr") [TVar "s", fieldType]+                        ]+                    else+                        []+            )             (case fieldLocType of                 C.HereField _ -> TFn-                    [ TApp-                        (TLName containerType)-                        [tMutMsg]+                    [ containerTypeType                     , TApp (TVar "m") [fieldType]                     ]                 C.VoidField -> TFn                     -- We don't need to pass in the redundant () value.-                    [ TApp-                        (TLName containerType)-                        [tMutMsg]+                    [ containerTypeType                     , TApp (TVar "m") [fieldType]                     ]                 _ -> TFn-                    [ TApp-                        (TLName containerType)-                        [tMutMsg]+                    [ containerTypeType                     , fieldType                     , TApp (TVar "m") [TUnit]                     ]@@ -595,13 +608,15 @@             }         }     ]-declToDecls _thisMod Raw.HasFn{fieldName, containerType, ptrIndex} =-    let containerDataCtor = Name.mkSub containerType "newtype_" in+declToDecls _thisMod Raw.HasFn{fieldName, containerType, typeParams, ptrIndex} =+    let containerDataCtor = Name.mkSub containerType "newtype_"+        containerTypeType = containerTypeToType containerType typeParams (TVar "msg")+    in     [ DcValue         { typ = TCtx             [readCtx "m" "msg"]             (TFn-                [ TApp (TLName containerType) [ TVar "msg" ]+                [ containerTypeType                 , TApp (TVar "m") [tStd_ "Bool"]                 ]             )@@ -618,13 +633,14 @@             }         }     ]-declToDecls thisMod Raw.NewFn{fieldName, containerType, fieldLocType, newFnType} =+declToDecls thisMod Raw.NewFn{fieldName, containerType, typeParams, fieldLocType, newFnType} =     -- TODO(cleanup): I(zenhack) am a little unhappy with having several case     -- expressions to distinguish struct vs non-struct; we should refactor.     let fieldType = typeToType             thisMod             (C.fieldType fieldLocType)             tMutMsg+        containerTypeType = containerTypeToType containerType typeParams tMutMsg     in     [ DcValue         { typ = TCtx@@ -634,7 +650,7 @@                     -- length                     Raw.NewStruct -> []                     _             -> [tStd_ "Int"]-                , [TApp (TLName containerType) [tMutMsg]]+                , [containerTypeType]                 , [TApp (TVar "m") [fieldType]]                 ]             )@@ -706,8 +722,12 @@             Capnp.setRoot rootPtr             pure msg +containerTypeToType :: Name.LocalQ -> [Name.UnQ] -> Type -> Type+containerTypeToType name params msgTy =+    TApp (TLName name) $ [ TVar (Name.typeVarName p) | p <- params ] ++ [msgTy] -eSetValue :: C.FieldLocType Name.CapnpQ -> Exp++eSetValue :: C.FieldLocType (C.ListBrand Name.CapnpQ) Name.CapnpQ -> Exp eSetValue = \case     C.DataField dataLoc ty ->         eSetWordField@@ -818,10 +838,10 @@         , derives = []         } -wrapperFromPtr :: Name.LocalQ -> Name.LocalQ -> Decl-wrapperFromPtr typeCtor dataCtor =+wrapperFromPtr :: Name.LocalQ -> [Name.UnQ] -> Name.LocalQ -> Decl+wrapperFromPtr typeCtor typeParams dataCtor =     instance_ [] ["Classes"] "FromPtr"-        [ TVar "msg", TApp (TLName typeCtor) [TVar "msg"] ]+        [ TVar "msg", containerTypeToType typeCtor typeParams (TVar "msg") ]         [ iValue "fromPtr" [PVar "msg", PVar "ptr"] $ EFApp             (ELName dataCtor)             [ EApp@@ -840,7 +860,7 @@             (map Name.renderUnQ $ idToModule fileId)             local -typeToType :: Word64 -> C.Type Name.CapnpQ -> Type -> Type+typeToType :: Word64 -> C.Type (C.ListBrand Name.CapnpQ) Name.CapnpQ -> Type -> Type typeToType thisMod ty msgTy = case ty of     C.VoidType -> TUnit     C.WordType (C.PrimWord ty) -> TPrim ty@@ -854,13 +874,21 @@         appV $ tgName ["Basics"] "Text"     C.PtrType (C.PrimPtr C.PrimData) ->         appV $ tgName ["Basics"] "Data"-    C.PtrType (C.PtrComposite (C.StructType typeId)) ->-        appV $ nameToType thisMod typeId-    C.PtrType (C.PtrInterface typeId) ->-        appV $ nameToType thisMod typeId+    C.PtrType (C.PtrComposite (C.StructType typeId typeParams)) ->+        namedType typeId typeParams+    C.PtrType (C.PtrInterface (C.InterfaceType typeId typeParams)) ->+        namedType typeId typeParams     C.PtrType (C.PrimPtr (C.PrimAnyPtr _)) ->         TApp (tStd_ "Maybe") [appV $ tgName ["Untyped"] "Ptr"]-    C.CompositeType (C.StructType typeId) ->-        appV $ nameToType thisMod typeId+    C.PtrType (C.PtrParam C.TypeParamRef{paramName}) ->+        TVar (Name.typeVarName paramName)+    C.CompositeType (C.StructType typeId typeParams) ->+        namedType typeId typeParams   where     appV t = TApp t [msgTy]+    namedType :: Name.CapnpQ -> C.ListBrand Name.CapnpQ -> Type+    namedType name (C.ListBrand [])     = appV $ nameToType thisMod name+    namedType name (C.ListBrand args) =+        TApp+            (nameToType thisMod name)+            (map (\t -> typeToType thisMod (C.PtrType t) msgTy) args ++ [msgTy])

@@ -1,4 +1,5 @@ {-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE LambdaCase            #-} {-# LANGUAGE NamedFieldPuns        #-} {-# LANGUAGE OverloadedStrings     #-} -- Translate from the 'Stage1' IR to the 'Flat' IR.@@ -8,8 +9,8 @@  import Data.Word -import qualified Data.Map as M-import qualified Data.Set as S+import qualified Data.Map    as M+import qualified Data.Vector as V  import qualified IR.Common as C import qualified IR.Flat   as Flat@@ -36,7 +37,7 @@ fileToNodes nodeMap Stage1.File{fileNodes, fileId} =     concatMap         (\(unQ, node) ->-            nestedToNodes nodeMap fileId (Name.unQToLocal unQ) node+            nestedToNodes nodeMap fileId (Name.unQToLocal unQ) node []         )         fileNodes @@ -48,23 +49,92 @@         , fileId         } +paramsToParams :: NodeMap -> Word64 -> [Name.UnQ] -> [C.TypeParamRef Flat.Node]+paramsToParams nodeMap nodeId names =+    [ C.TypeParamRef+        { paramName = name+        , paramIndex = i+        , paramScope = nodeMap M.! nodeId+        }+    | (i, name) <- zip [0..] names+    ]++applyBrandNode :: C.MapBrand Flat.Node -> Flat.Node -> C.ListBrand Flat.Node+applyBrandNode m Flat.Node{typeParams} = applyBrandParams typeParams m++applyBrandParams :: [C.TypeParamRef Flat.Node] -> C.MapBrand Flat.Node -> C.ListBrand Flat.Node+applyBrandParams params m = C.ListBrand $ map (`applyBrandParam` m) params++applyBrandParam+    :: C.TypeParamRef Flat.Node+    -> C.MapBrand Flat.Node+    -> C.PtrType (C.ListBrand Flat.Node) Flat.Node+applyBrandParam param@C.TypeParamRef{paramIndex, paramScope=Flat.Node{nodeId}} (C.MapBrand m) =+    case M.lookup nodeId m of+        Nothing -> C.PtrParam param+        Just (C.Bind bindings) ->+            let binding = bindings V.! paramIndex in+            case binding of+                C.Unbound      -> C.PtrParam param+                C.BoundType ty -> applyBrandPtrType ty++type ApplyBrandFn f+    = f (C.MapBrand Flat.Node) Flat.Node+    -> f (C.ListBrand Flat.Node) Flat.Node++applyBrandCompositeType :: ApplyBrandFn C.CompositeType+applyBrandCompositeType (C.StructType n b) = C.StructType n (applyBrandNode b n)++applyBrandInterfaceType :: ApplyBrandFn C.InterfaceType+applyBrandInterfaceType (C.InterfaceType n b) = C.InterfaceType n (applyBrandNode b n)++applyBrandValue :: ApplyBrandFn C.Value+applyBrandValue = \case+    C.VoidValue     -> C.VoidValue+    C.WordValue v t -> C.WordValue v t+    C.PtrValue t p  -> C.PtrValue (applyBrandPtrType t) p++applyBrandPtrType :: ApplyBrandFn C.PtrType+applyBrandPtrType = \case+    C.ListOf t       -> C.ListOf $ applyBrandType t+    C.PrimPtr p      -> C.PrimPtr p+    C.PtrInterface t -> C.PtrInterface (applyBrandInterfaceType t)+    C.PtrComposite t -> C.PtrComposite (applyBrandCompositeType t)+    C.PtrParam p     -> C.PtrParam p++applyBrandType :: ApplyBrandFn C.Type+applyBrandType = \case+    C.CompositeType t -> C.CompositeType $ applyBrandCompositeType t+    C.VoidType        -> C.VoidType+    C.WordType t      -> C.WordType t+    C.PtrType t       -> C.PtrType $ applyBrandPtrType t++applyBrandFieldLocType :: ApplyBrandFn C.FieldLocType+applyBrandFieldLocType = \case+    C.DataField l t -> C.DataField l t+    C.PtrField i t  -> C.PtrField i $ applyBrandPtrType t+    C.HereField t   -> C.HereField $ applyBrandCompositeType t+    C.VoidField     -> C.VoidField+ -- | Generate @'Flat.Node'@s from a 'Stage1.Node' and its local name.-nestedToNodes :: NodeMap -> Word64 -> Name.LocalQ -> Stage1.Node -> [Flat.Node]+nestedToNodes :: NodeMap -> Word64 -> Name.LocalQ -> Stage1.Node -> [C.TypeParamRef Flat.Node] -> [Flat.Node] nestedToNodes     nodeMap     thisMod     localName     Stage1.Node-        { nodeCommon = Stage1.NodeCommon{nodeId, nodeNested}+        { nodeCommon = Stage1.NodeCommon{nodeId, nodeNested, nodeParams}         , nodeUnion         }+    typeParams     =     mine ++ kids   where+    myParams = typeParams ++ paramsToParams nodeMap nodeId (V.toList nodeParams)     kidsNS = Name.localQToNS localName     kids = concatMap             (\(unQ, node) ->-                nestedToNodes nodeMap thisMod (Name.mkLocal kidsNS unQ) node+                nestedToNodes nodeMap thisMod (Name.mkLocal kidsNS unQ) node myParams             )             nodeNested     name = Name.CapnpQ@@ -76,13 +146,14 @@             [ Flat.Node                 { name                 , nodeId+                , typeParams = myParams                 , union_ = Flat.Enum enumerants                 }             ]         Stage1.NodeStruct struct ->-            structToNodes nodeMap thisMod nodeId name kidsNS struct+            structToNodes nodeMap thisMod nodeId name kidsNS struct myParams         Stage1.NodeInterface iface ->-            interfaceToNodes nodeMap thisMod nodeId name kidsNS iface+            interfaceToNodes nodeMap thisMod nodeId name kidsNS iface myParams         Stage1.NodeConstant value ->             [ Flat.Node                 { name = Name.CapnpQ@@ -91,10 +162,11 @@                     }                 , nodeId                 , union_ = Flat.Constant-                    { value = fmap+                    { value = applyBrandValue $ C.bothMap                         (\Stage1.Node{nodeCommon=Stage1.NodeCommon{nodeId}} -> nodeMap M.! nodeId)                         value                     }+                , typeParams = myParams                 }             ]         Stage1.NodeOther ->@@ -102,41 +174,39 @@                 { name                 , nodeId                 , union_ = Flat.Other+                , typeParams = myParams                 }             ] -interfaceToNodes :: NodeMap -> Word64 -> Word64 -> Name.CapnpQ -> Name.NS -> Stage1.Interface -> [Flat.Node]-interfaceToNodes nodeMap thisMod nodeId name kidsNS iface@Stage1.Interface{ methods, supers } =+interfaceToNodes :: NodeMap -> Word64 -> Word64 -> Name.CapnpQ -> Name.NS -> Stage1.Interface -> [C.TypeParamRef Flat.Node] -> [Flat.Node]+interfaceToNodes nodeMap thisMod nodeId name kidsNS Stage1.Interface{ methods, supers } typeParams =+    let translateSuper =+            applyBrandInterfaceType+            . C.bothMap (\Stage1.Node{nodeCommon=Stage1.NodeCommon{nodeId}} -> nodeMap M.! nodeId)+        prType = applyBrandCompositeType . C.bothMap+            (\Stage1.Node{nodeCommon=Stage1.NodeCommon{nodeId}} ->+                nodeMap M.! nodeId+            )+    in     Flat.Node         { name         , nodeId         , union_ = Flat.Interface             { methods =-                [ let Flat.Node{name=paramName} = nodeMap M.! paramId-                      Flat.Node{name=resultName} = nodeMap M.! resultId-                  in Flat.Method-                        { name-                        , paramType = paramName-                        , resultType = resultName-                        }-                | Stage1.Method+                [ Flat.Method                     { name-                    , paramType=Stage1.Node{nodeCommon=Stage1.NodeCommon{nodeId=paramId}}-                    , resultType=Stage1.Node{nodeCommon=Stage1.NodeCommon{nodeId=resultId}}+                    , paramType = prType paramType+                    , resultType = prType resultType                     }-                <- methods-                ]-            , supers =-                [ nodeMap M.! nodeId | Stage1.Node{nodeCommon=Stage1.NodeCommon{nodeId}} <- supers ]-            , ancestors =-                [ nodeMap M.! supId-                | supId <- S.toList (collectAncestors iface)+                | Stage1.Method { name, paramType, resultType } <- methods                 ]+            , supers = map translateSuper supers             }+        , typeParams         }-    : concatMap (methodToNodes nodeMap thisMod kidsNS) methods+    : concatMap (\method -> methodToNodes nodeMap thisMod kidsNS method typeParams) methods -structToNodes :: NodeMap -> Word64 -> Word64 -> Name.CapnpQ -> Name.NS -> Stage1.Struct -> [Flat.Node]+structToNodes :: NodeMap -> Word64 -> Word64 -> Name.CapnpQ -> Name.NS -> Stage1.Struct -> [C.TypeParamRef Flat.Node] -> [Flat.Node] structToNodes     nodeMap     thisMod@@ -149,12 +219,13 @@             , dataWordCount             , pointerCount             , tagOffset-            } =+            }+    typeParams =         let             mkField fieldUnQ locType =                 Flat.Field                     { fieldName = Name.mkSub name fieldUnQ-                    , fieldLocType = fmap+                    , fieldLocType = applyBrandFieldLocType $ C.bothMap                         (\Stage1.Node{nodeCommon=Stage1.NodeCommon{nodeId}} -> nodeMap M.! nodeId)                         locType                     }@@ -170,7 +241,7 @@                 | Stage1.Field{name=fieldUnQ, locType, tag=Nothing} <- fields                 ]             fieldNodes =-                concatMap (fieldToNodes nodeMap thisMod kidsNS) fields+                concatMap (fieldToNodes nodeMap thisMod kidsNS typeParams) fields              commonNode =                 Flat.Node@@ -190,46 +261,35 @@                         , dataWordCount                         , pointerCount                         }+                    , typeParams                     }         in         commonNode : fieldNodes -fieldToNodes :: NodeMap -> Word64 -> Name.NS -> Stage1.Field -> [Flat.Node]-fieldToNodes nodeMap thisMod ns Stage1.Field{name, locType} = case locType of+fieldToNodes :: NodeMap -> Word64 -> Name.NS -> [C.TypeParamRef Flat.Node] -> Stage1.Field -> [Flat.Node]+fieldToNodes nodeMap thisMod ns typeParams Stage1.Field{name, locType} = case locType of     C.HereField         (C.StructType             struct@Stage1.Node                 { nodeUnion = Stage1.NodeStruct Stage1.Struct{isGroup=True}                 }-        ) -> nestedToNodes nodeMap thisMod (Name.mkLocal ns name) struct+            _ -- Type parameters will be the same as the enclosing scope.+        ) -> nestedToNodes nodeMap thisMod (Name.mkLocal ns name) struct typeParams     _ ->         [] -methodToNodes :: NodeMap -> Word64 -> Name.NS -> Stage1.Method -> [Flat.Node]-methodToNodes nodeMap thisMod ns Stage1.Method{ name, paramType, resultType } =+methodToNodes :: NodeMap -> Word64 -> Name.NS -> Stage1.Method -> [C.TypeParamRef Flat.Node] -> [Flat.Node]+methodToNodes nodeMap thisMod ns Stage1.Method{ name, paramType, resultType } typeParams =     -- If the parameter and result types are anonymous, we need to generate     -- structs for them.     let maybeAnon ty suffix =             case ty of-                Stage1.Node{nodeCommon=Stage1.NodeCommon{nodeParent=Nothing}} ->+                C.StructType node@Stage1.Node{nodeCommon=Stage1.NodeCommon{nodeParent=Nothing}} _ ->                     let localName = Name.mkLocal ns name                         kidsNS = Name.localQToNS localName                     in-                    nestedToNodes nodeMap thisMod (Name.mkLocal kidsNS suffix) ty+                    nestedToNodes nodeMap thisMod (Name.mkLocal kidsNS suffix) node typeParams                 _ ->                     []     in     maybeAnon paramType "params" ++ maybeAnon resultType "results"----- | Collect the ids of of the ancestors of an interface, not including itself.-collectAncestors :: Stage1.Interface -> S.Set Word64-collectAncestors Stage1.Interface{supers} =-    -- This could be made faster, in that if there are shared ancestors-    -- (diamonds) we'll traverse them twice, but this is more-    -- straightforward, and with typical interface hierarchies it shouldn't-    -- be a huge problem.-    S.unions $-        S.fromList [ nodeId | Stage1.Node{nodeCommon=Stage1.NodeCommon{nodeId}} <- supers ]-        :-        [ collectAncestors iface | Stage1.Node{nodeUnion=Stage1.NodeInterface iface} <- supers ]

@@ -31,8 +31,6 @@     toPtr msg (Calculator'newtype_ (Std_.Just cap)) = (Std_.pure (Std_.Just (Untyped.PtrCap cap))) newtype Calculator'evaluate'params msg     = Calculator'evaluate'params'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Calculator'evaluate'params) where-    tMsg f (Calculator'evaluate'params'newtype_ s) = (Calculator'evaluate'params'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Calculator'evaluate'params msg)) where     fromStruct struct = (Std_.pure (Calculator'evaluate'params'newtype_ struct)) instance (Classes.ToStruct msg (Calculator'evaluate'params msg)) where@@ -61,12 +59,14 @@ instance (Basics.MutListElem s (Calculator'evaluate'params (Message.MutMsg s))) where     setIndex (Calculator'evaluate'params'newtype_ elt) i (Calculator'evaluate'params'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (Calculator'evaluate'params'List_ <$> (Untyped.allocCompositeList msg 0 1 len))-get_Calculator'evaluate'params'expression :: ((Untyped.ReadCtx m msg)) => (Calculator'evaluate'params msg) -> (m (Expression msg))+get_Calculator'evaluate'params'expression :: ((Untyped.ReadCtx m msg)+                                             ,(Classes.FromPtr msg (Expression msg))) => (Calculator'evaluate'params msg) -> (m (Expression msg)) get_Calculator'evaluate'params'expression (Calculator'evaluate'params'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Calculator'evaluate'params'expression :: ((Untyped.RWCtx m s)) => (Calculator'evaluate'params (Message.MutMsg s)) -> (Expression (Message.MutMsg s)) -> (m ())+set_Calculator'evaluate'params'expression :: ((Untyped.RWCtx m s)+                                             ,(Classes.ToPtr s (Expression (Message.MutMsg s)))) => (Calculator'evaluate'params (Message.MutMsg s)) -> (Expression (Message.MutMsg s)) -> (m ()) set_Calculator'evaluate'params'expression (Calculator'evaluate'params'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -81,8 +81,6 @@     ) newtype Calculator'evaluate'results msg     = Calculator'evaluate'results'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Calculator'evaluate'results) where-    tMsg f (Calculator'evaluate'results'newtype_ s) = (Calculator'evaluate'results'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Calculator'evaluate'results msg)) where     fromStruct struct = (Std_.pure (Calculator'evaluate'results'newtype_ struct)) instance (Classes.ToStruct msg (Calculator'evaluate'results msg)) where@@ -111,12 +109,14 @@ instance (Basics.MutListElem s (Calculator'evaluate'results (Message.MutMsg s))) where     setIndex (Calculator'evaluate'results'newtype_ elt) i (Calculator'evaluate'results'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (Calculator'evaluate'results'List_ <$> (Untyped.allocCompositeList msg 0 1 len))-get_Calculator'evaluate'results'value :: ((Untyped.ReadCtx m msg)) => (Calculator'evaluate'results msg) -> (m (Value msg))+get_Calculator'evaluate'results'value :: ((Untyped.ReadCtx m msg)+                                         ,(Classes.FromPtr msg (Value msg))) => (Calculator'evaluate'results msg) -> (m (Value msg)) get_Calculator'evaluate'results'value (Calculator'evaluate'results'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Calculator'evaluate'results'value :: ((Untyped.RWCtx m s)) => (Calculator'evaluate'results (Message.MutMsg s)) -> (Value (Message.MutMsg s)) -> (m ())+set_Calculator'evaluate'results'value :: ((Untyped.RWCtx m s)+                                         ,(Classes.ToPtr s (Value (Message.MutMsg s)))) => (Calculator'evaluate'results (Message.MutMsg s)) -> (Value (Message.MutMsg s)) -> (m ()) set_Calculator'evaluate'results'value (Calculator'evaluate'results'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -125,8 +125,6 @@ has_Calculator'evaluate'results'value (Calculator'evaluate'results'newtype_ struct) = (Std_.isJust <$> (Untyped.getPtr 0 struct)) newtype Calculator'defFunction'params msg     = Calculator'defFunction'params'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Calculator'defFunction'params) where-    tMsg f (Calculator'defFunction'params'newtype_ s) = (Calculator'defFunction'params'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Calculator'defFunction'params msg)) where     fromStruct struct = (Std_.pure (Calculator'defFunction'params'newtype_ struct)) instance (Classes.ToStruct msg (Calculator'defFunction'params msg)) where@@ -159,12 +157,14 @@ get_Calculator'defFunction'params'paramCount (Calculator'defFunction'params'newtype_ struct) = (GenHelpers.getWordField struct 0 0 0) set_Calculator'defFunction'params'paramCount :: ((Untyped.RWCtx m s)) => (Calculator'defFunction'params (Message.MutMsg s)) -> Std_.Int32 -> (m ()) set_Calculator'defFunction'params'paramCount (Calculator'defFunction'params'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word32) 0 0 0)-get_Calculator'defFunction'params'body :: ((Untyped.ReadCtx m msg)) => (Calculator'defFunction'params msg) -> (m (Expression msg))+get_Calculator'defFunction'params'body :: ((Untyped.ReadCtx m msg)+                                          ,(Classes.FromPtr msg (Expression msg))) => (Calculator'defFunction'params msg) -> (m (Expression msg)) get_Calculator'defFunction'params'body (Calculator'defFunction'params'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Calculator'defFunction'params'body :: ((Untyped.RWCtx m s)) => (Calculator'defFunction'params (Message.MutMsg s)) -> (Expression (Message.MutMsg s)) -> (m ())+set_Calculator'defFunction'params'body :: ((Untyped.RWCtx m s)+                                          ,(Classes.ToPtr s (Expression (Message.MutMsg s)))) => (Calculator'defFunction'params (Message.MutMsg s)) -> (Expression (Message.MutMsg s)) -> (m ()) set_Calculator'defFunction'params'body (Calculator'defFunction'params'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -179,8 +179,6 @@     ) newtype Calculator'defFunction'results msg     = Calculator'defFunction'results'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Calculator'defFunction'results) where-    tMsg f (Calculator'defFunction'results'newtype_ s) = (Calculator'defFunction'results'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Calculator'defFunction'results msg)) where     fromStruct struct = (Std_.pure (Calculator'defFunction'results'newtype_ struct)) instance (Classes.ToStruct msg (Calculator'defFunction'results msg)) where@@ -209,12 +207,14 @@ instance (Basics.MutListElem s (Calculator'defFunction'results (Message.MutMsg s))) where     setIndex (Calculator'defFunction'results'newtype_ elt) i (Calculator'defFunction'results'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (Calculator'defFunction'results'List_ <$> (Untyped.allocCompositeList msg 0 1 len))-get_Calculator'defFunction'results'func :: ((Untyped.ReadCtx m msg)) => (Calculator'defFunction'results msg) -> (m (Function msg))+get_Calculator'defFunction'results'func :: ((Untyped.ReadCtx m msg)+                                           ,(Classes.FromPtr msg (Function msg))) => (Calculator'defFunction'results msg) -> (m (Function msg)) get_Calculator'defFunction'results'func (Calculator'defFunction'results'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Calculator'defFunction'results'func :: ((Untyped.RWCtx m s)) => (Calculator'defFunction'results (Message.MutMsg s)) -> (Function (Message.MutMsg s)) -> (m ())+set_Calculator'defFunction'results'func :: ((Untyped.RWCtx m s)+                                           ,(Classes.ToPtr s (Function (Message.MutMsg s)))) => (Calculator'defFunction'results (Message.MutMsg s)) -> (Function (Message.MutMsg s)) -> (m ()) set_Calculator'defFunction'results'func (Calculator'defFunction'results'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -223,8 +223,6 @@ has_Calculator'defFunction'results'func (Calculator'defFunction'results'newtype_ struct) = (Std_.isJust <$> (Untyped.getPtr 0 struct)) newtype Calculator'getOperator'params msg     = Calculator'getOperator'params'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Calculator'getOperator'params) where-    tMsg f (Calculator'getOperator'params'newtype_ s) = (Calculator'getOperator'params'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Calculator'getOperator'params msg)) where     fromStruct struct = (Std_.pure (Calculator'getOperator'params'newtype_ struct)) instance (Classes.ToStruct msg (Calculator'getOperator'params msg)) where@@ -259,8 +257,6 @@ set_Calculator'getOperator'params'op (Calculator'getOperator'params'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word16) 0 0 0) newtype Calculator'getOperator'results msg     = Calculator'getOperator'results'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Calculator'getOperator'results) where-    tMsg f (Calculator'getOperator'results'newtype_ s) = (Calculator'getOperator'results'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Calculator'getOperator'results msg)) where     fromStruct struct = (Std_.pure (Calculator'getOperator'results'newtype_ struct)) instance (Classes.ToStruct msg (Calculator'getOperator'results msg)) where@@ -289,12 +285,14 @@ instance (Basics.MutListElem s (Calculator'getOperator'results (Message.MutMsg s))) where     setIndex (Calculator'getOperator'results'newtype_ elt) i (Calculator'getOperator'results'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (Calculator'getOperator'results'List_ <$> (Untyped.allocCompositeList msg 0 1 len))-get_Calculator'getOperator'results'func :: ((Untyped.ReadCtx m msg)) => (Calculator'getOperator'results msg) -> (m (Function msg))+get_Calculator'getOperator'results'func :: ((Untyped.ReadCtx m msg)+                                           ,(Classes.FromPtr msg (Function msg))) => (Calculator'getOperator'results msg) -> (m (Function msg)) get_Calculator'getOperator'results'func (Calculator'getOperator'results'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Calculator'getOperator'results'func :: ((Untyped.RWCtx m s)) => (Calculator'getOperator'results (Message.MutMsg s)) -> (Function (Message.MutMsg s)) -> (m ())+set_Calculator'getOperator'results'func :: ((Untyped.RWCtx m s)+                                           ,(Classes.ToPtr s (Function (Message.MutMsg s)))) => (Calculator'getOperator'results (Message.MutMsg s)) -> (Function (Message.MutMsg s)) -> (m ()) set_Calculator'getOperator'results'func (Calculator'getOperator'results'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -303,8 +301,6 @@ has_Calculator'getOperator'results'func (Calculator'getOperator'results'newtype_ struct) = (Std_.isJust <$> (Untyped.getPtr 0 struct)) newtype Expression msg     = Expression'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Expression) where-    tMsg f (Expression'newtype_ s) = (Expression'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Expression msg)) where     fromStruct struct = (Std_.pure (Expression'newtype_ struct)) instance (Classes.ToStruct msg (Expression msg)) where@@ -357,14 +353,16 @@             _ ->                 (Std_.pure (Expression'unknown' (Std_.fromIntegral tag)))         )-get_Expression' :: ((Untyped.ReadCtx m msg)) => (Expression msg) -> (m (Expression' msg))+get_Expression' :: ((Untyped.ReadCtx m msg)+                   ,(Classes.FromStruct msg (Expression' msg))) => (Expression msg) -> (m (Expression' msg)) get_Expression' (Expression'newtype_ struct) = (Classes.fromStruct struct) set_Expression'literal :: ((Untyped.RWCtx m s)) => (Expression (Message.MutMsg s)) -> Std_.Double -> (m ()) set_Expression'literal (Expression'newtype_ struct) value = (do     (GenHelpers.setWordField struct (0 :: Std_.Word16) 1 0 0)     (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word64) 0 0 0)     )-set_Expression'previousResult :: ((Untyped.RWCtx m s)) => (Expression (Message.MutMsg s)) -> (Value (Message.MutMsg s)) -> (m ())+set_Expression'previousResult :: ((Untyped.RWCtx m s)+                                 ,(Classes.ToPtr s (Value (Message.MutMsg s)))) => (Expression (Message.MutMsg s)) -> (Value (Message.MutMsg s)) -> (m ()) set_Expression'previousResult (Expression'newtype_ struct) value = (do     (GenHelpers.setWordField struct (1 :: Std_.Word16) 1 0 0)     (do@@ -377,7 +375,8 @@     (GenHelpers.setWordField struct (2 :: Std_.Word16) 1 0 0)     (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word32) 0 0 0)     )-set_Expression'call :: ((Untyped.RWCtx m s)) => (Expression (Message.MutMsg s)) -> (m (Expression'call (Message.MutMsg s)))+set_Expression'call :: ((Untyped.RWCtx m s)+                       ,(Classes.FromStruct (Message.MutMsg s) (Expression'call (Message.MutMsg s)))) => (Expression (Message.MutMsg s)) -> (m (Expression'call (Message.MutMsg s))) set_Expression'call (Expression'newtype_ struct) = (do     (GenHelpers.setWordField struct (3 :: Std_.Word16) 1 0 0)     (Classes.fromStruct struct)@@ -386,8 +385,6 @@ set_Expression'unknown' (Expression'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word16) 1 0 0) newtype Expression'call msg     = Expression'call'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Expression'call) where-    tMsg f (Expression'call'newtype_ s) = (Expression'call'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Expression'call msg)) where     fromStruct struct = (Std_.pure (Expression'call'newtype_ struct)) instance (Classes.ToStruct msg (Expression'call msg)) where@@ -397,24 +394,28 @@     message (Expression'call'newtype_ struct) = (Untyped.message struct) instance (Untyped.MessageDefault (Expression'call msg)) where     messageDefault msg = (Expression'call'newtype_ (Untyped.messageDefault msg))-get_Expression'call'function :: ((Untyped.ReadCtx m msg)) => (Expression'call msg) -> (m (Function msg))+get_Expression'call'function :: ((Untyped.ReadCtx m msg)+                                ,(Classes.FromPtr msg (Function msg))) => (Expression'call msg) -> (m (Function msg)) get_Expression'call'function (Expression'call'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Expression'call'function :: ((Untyped.RWCtx m s)) => (Expression'call (Message.MutMsg s)) -> (Function (Message.MutMsg s)) -> (m ())+set_Expression'call'function :: ((Untyped.RWCtx m s)+                                ,(Classes.ToPtr s (Function (Message.MutMsg s)))) => (Expression'call (Message.MutMsg s)) -> (Function (Message.MutMsg s)) -> (m ()) set_Expression'call'function (Expression'call'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)     ) has_Expression'call'function :: ((Untyped.ReadCtx m msg)) => (Expression'call msg) -> (m Std_.Bool) has_Expression'call'function (Expression'call'newtype_ struct) = (Std_.isJust <$> (Untyped.getPtr 0 struct))-get_Expression'call'params :: ((Untyped.ReadCtx m msg)) => (Expression'call msg) -> (m (Basics.List msg (Expression msg)))+get_Expression'call'params :: ((Untyped.ReadCtx m msg)+                              ,(Classes.FromPtr msg (Basics.List msg (Expression msg)))) => (Expression'call msg) -> (m (Basics.List msg (Expression msg))) get_Expression'call'params (Expression'call'newtype_ struct) = (do     ptr <- (Untyped.getPtr 1 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Expression'call'params :: ((Untyped.RWCtx m s)) => (Expression'call (Message.MutMsg s)) -> (Basics.List (Message.MutMsg s) (Expression (Message.MutMsg s))) -> (m ())+set_Expression'call'params :: ((Untyped.RWCtx m s)+                              ,(Classes.ToPtr s (Basics.List (Message.MutMsg s) (Expression (Message.MutMsg s))))) => (Expression'call (Message.MutMsg s)) -> (Basics.List (Message.MutMsg s) (Expression (Message.MutMsg s))) -> (m ()) set_Expression'call'params (Expression'call'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 1 struct)@@ -436,8 +437,6 @@     toPtr msg (Value'newtype_ (Std_.Just cap)) = (Std_.pure (Std_.Just (Untyped.PtrCap cap))) newtype Value'read'params msg     = Value'read'params'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Value'read'params) where-    tMsg f (Value'read'params'newtype_ s) = (Value'read'params'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Value'read'params msg)) where     fromStruct struct = (Std_.pure (Value'read'params'newtype_ struct)) instance (Classes.ToStruct msg (Value'read'params msg)) where@@ -468,8 +467,6 @@     newList msg len = (Value'read'params'List_ <$> (Untyped.allocCompositeList msg 0 0 len)) newtype Value'read'results msg     = Value'read'results'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Value'read'results) where-    tMsg f (Value'read'results'newtype_ s) = (Value'read'results'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Value'read'results msg)) where     fromStruct struct = (Std_.pure (Value'read'results'newtype_ struct)) instance (Classes.ToStruct msg (Value'read'results msg)) where@@ -511,8 +508,6 @@     toPtr msg (Function'newtype_ (Std_.Just cap)) = (Std_.pure (Std_.Just (Untyped.PtrCap cap))) newtype Function'call'params msg     = Function'call'params'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Function'call'params) where-    tMsg f (Function'call'params'newtype_ s) = (Function'call'params'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Function'call'params msg)) where     fromStruct struct = (Std_.pure (Function'call'params'newtype_ struct)) instance (Classes.ToStruct msg (Function'call'params msg)) where@@ -541,12 +536,14 @@ instance (Basics.MutListElem s (Function'call'params (Message.MutMsg s))) where     setIndex (Function'call'params'newtype_ elt) i (Function'call'params'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (Function'call'params'List_ <$> (Untyped.allocCompositeList msg 0 1 len))-get_Function'call'params'params :: ((Untyped.ReadCtx m msg)) => (Function'call'params msg) -> (m (Basics.List msg Std_.Double))+get_Function'call'params'params :: ((Untyped.ReadCtx m msg)+                                   ,(Classes.FromPtr msg (Basics.List msg Std_.Double))) => (Function'call'params msg) -> (m (Basics.List msg Std_.Double)) get_Function'call'params'params (Function'call'params'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Function'call'params'params :: ((Untyped.RWCtx m s)) => (Function'call'params (Message.MutMsg s)) -> (Basics.List (Message.MutMsg s) Std_.Double) -> (m ())+set_Function'call'params'params :: ((Untyped.RWCtx m s)+                                   ,(Classes.ToPtr s (Basics.List (Message.MutMsg s) Std_.Double))) => (Function'call'params (Message.MutMsg s)) -> (Basics.List (Message.MutMsg s) Std_.Double) -> (m ()) set_Function'call'params'params (Function'call'params'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -561,8 +558,6 @@     ) newtype Function'call'results msg     = Function'call'results'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Function'call'results) where-    tMsg f (Function'call'results'newtype_ s) = (Function'call'results'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Function'call'results msg)) where     fromStruct struct = (Std_.pure (Function'call'results'newtype_ struct)) instance (Classes.ToStruct msg (Function'call'results msg)) where

@@ -2,9 +2,11 @@ {-# 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 #-}@@ -68,8 +70,8 @@     calculator'defFunction _ = Server.methodUnimplemented     calculator'getOperator :: cap -> (Server.MethodHandler m Calculator'getOperator'params Calculator'getOperator'results)     calculator'getOperator _ = Server.methodUnimplemented-export_Calculator :: ((Calculator'server_ Std_.IO a)-                     ,(STM.MonadSTM m)) => Supervisors.Supervisor -> a -> (m Calculator)+export_Calculator :: ((STM.MonadSTM m)+                     ,(Calculator'server_ Std_.IO cap)) => Supervisors.Supervisor -> cap -> (m (Calculator)) export_Calculator sup_ server_ = (STM.liftSTM (Calculator <$> (Rpc.export sup_ Server.ServerOps{handleCast = (Server.unwrap server_)                                                                                                ,handleStop = (Server.shutdown server_)                                                                                                ,handleCall = (\interfaceId_ methodId_ -> case interfaceId_ of@@ -85,24 +87,24 @@                                                                                                                Server.methodUnimplemented                                                                                                    _ ->                                                                                                        Server.methodUnimplemented)})))-instance (Rpc.IsClient Calculator) where+instance (Rpc.IsClient (Calculator)) where     fromClient  = Calculator     toClient (Calculator client) = client-instance (Classes.FromPtr msg Calculator) where+instance (Classes.FromPtr msg (Calculator)) where     fromPtr  = RpcHelpers.isClientFromPtr-instance (Classes.ToPtr s Calculator) where+instance (Classes.ToPtr s (Calculator)) where     toPtr  = RpcHelpers.isClientToPtr-instance (Classes.Decerialize Calculator) where-    type Cerial msg Calculator = (Capnp.Gen.ById.X85150b117366d14b.Calculator msg)+instance (Classes.Decerialize (Calculator)) where+    type Cerial msg (Calculator) = (Capnp.Gen.ById.X85150b117366d14b.Calculator msg)     decerialize (Capnp.Gen.ById.X85150b117366d14b.Calculator'newtype_ maybeCap) = case maybeCap of         (Std_.Nothing) ->             (Std_.pure (Calculator Message.nullClient))         (Std_.Just cap) ->             (Calculator <$> (Untyped.getClient cap))-instance (Classes.Cerialize Calculator) where+instance (Classes.Cerialize s (Calculator)) where     cerialize msg (Calculator client) = (Capnp.Gen.ById.X85150b117366d14b.Calculator'newtype_ <$> (Std_.Just <$> (Untyped.appendCap msg client)))-instance (Server.Server Std_.IO Calculator)-instance (Calculator'server_ Std_.IO Calculator) where+instance (Server.Server Std_.IO (Calculator))+instance (Calculator'server_ Std_.IO (Calculator)) where     calculator'evaluate (Calculator client) = (Rpc.clientMethodHandler 10923537602090224694 0 client)     calculator'defFunction (Calculator client) = (Rpc.clientMethodHandler 10923537602090224694 1 client)     calculator'getOperator (Calculator client) = (Rpc.clientMethodHandler 10923537602090224694 2 client)@@ -112,34 +114,34 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Calculator'evaluate'params) where+instance (Default.Default (Calculator'evaluate'params)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Calculator'evaluate'params) where+instance (Classes.FromStruct Message.ConstMsg (Calculator'evaluate'params)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Calculator'evaluate'params) where-    type Cerial msg Calculator'evaluate'params = (Capnp.Gen.ById.X85150b117366d14b.Calculator'evaluate'params msg)+instance (Classes.Decerialize (Calculator'evaluate'params)) where+    type Cerial msg (Calculator'evaluate'params) = (Capnp.Gen.ById.X85150b117366d14b.Calculator'evaluate'params msg)     decerialize raw = (Calculator'evaluate'params <$> ((Capnp.Gen.ById.X85150b117366d14b.get_Calculator'evaluate'params'expression raw) >>= Classes.decerialize))-instance (Classes.Marshal Calculator'evaluate'params) where+instance (Classes.Marshal s (Calculator'evaluate'params)) where     marshalInto raw_ value_ = case value_ of         Calculator'evaluate'params{..} ->             (do                 ((Classes.cerialize (Untyped.message raw_) expression) >>= (Capnp.Gen.ById.X85150b117366d14b.set_Calculator'evaluate'params'expression raw_))                 (Std_.pure ())                 )-instance (Classes.Cerialize Calculator'evaluate'params)-instance (Classes.Cerialize (V.Vector Calculator'evaluate'params)) where+instance (Classes.Cerialize s (Calculator'evaluate'params))+instance (Classes.Cerialize s (V.Vector (Calculator'evaluate'params))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector Calculator'evaluate'params))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (Calculator'evaluate'params)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Calculator'evaluate'params)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Calculator'evaluate'params))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Calculator'evaluate'params))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'evaluate'params)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Calculator'evaluate'params)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'evaluate'params))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Calculator'evaluate'params))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'evaluate'params)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Calculator'evaluate'params)))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'evaluate'params))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec data Calculator'evaluate'results      = Calculator'evaluate'results @@ -147,34 +149,34 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Calculator'evaluate'results) where+instance (Default.Default (Calculator'evaluate'results)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Calculator'evaluate'results) where+instance (Classes.FromStruct Message.ConstMsg (Calculator'evaluate'results)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Calculator'evaluate'results) where-    type Cerial msg Calculator'evaluate'results = (Capnp.Gen.ById.X85150b117366d14b.Calculator'evaluate'results msg)+instance (Classes.Decerialize (Calculator'evaluate'results)) where+    type Cerial msg (Calculator'evaluate'results) = (Capnp.Gen.ById.X85150b117366d14b.Calculator'evaluate'results msg)     decerialize raw = (Calculator'evaluate'results <$> ((Capnp.Gen.ById.X85150b117366d14b.get_Calculator'evaluate'results'value raw) >>= Classes.decerialize))-instance (Classes.Marshal Calculator'evaluate'results) where+instance (Classes.Marshal s (Calculator'evaluate'results)) where     marshalInto raw_ value_ = case value_ of         Calculator'evaluate'results{..} ->             (do                 ((Classes.cerialize (Untyped.message raw_) value) >>= (Capnp.Gen.ById.X85150b117366d14b.set_Calculator'evaluate'results'value raw_))                 (Std_.pure ())                 )-instance (Classes.Cerialize Calculator'evaluate'results)-instance (Classes.Cerialize (V.Vector Calculator'evaluate'results)) where+instance (Classes.Cerialize s (Calculator'evaluate'results))+instance (Classes.Cerialize s (V.Vector (Calculator'evaluate'results))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector Calculator'evaluate'results))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (Calculator'evaluate'results)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Calculator'evaluate'results)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Calculator'evaluate'results))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Calculator'evaluate'results))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'evaluate'results)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Calculator'evaluate'results)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'evaluate'results))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Calculator'evaluate'results))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'evaluate'results)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Calculator'evaluate'results)))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'evaluate'results))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec data Calculator'defFunction'params      = Calculator'defFunction'params @@ -183,15 +185,15 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Calculator'defFunction'params) where+instance (Default.Default (Calculator'defFunction'params)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Calculator'defFunction'params) where+instance (Classes.FromStruct Message.ConstMsg (Calculator'defFunction'params)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Calculator'defFunction'params) where-    type Cerial msg Calculator'defFunction'params = (Capnp.Gen.ById.X85150b117366d14b.Calculator'defFunction'params msg)+instance (Classes.Decerialize (Calculator'defFunction'params)) where+    type Cerial msg (Calculator'defFunction'params) = (Capnp.Gen.ById.X85150b117366d14b.Calculator'defFunction'params msg)     decerialize raw = (Calculator'defFunction'params <$> (Capnp.Gen.ById.X85150b117366d14b.get_Calculator'defFunction'params'paramCount raw)                                                      <*> ((Capnp.Gen.ById.X85150b117366d14b.get_Calculator'defFunction'params'body raw) >>= Classes.decerialize))-instance (Classes.Marshal Calculator'defFunction'params) where+instance (Classes.Marshal s (Calculator'defFunction'params)) where     marshalInto raw_ value_ = case value_ of         Calculator'defFunction'params{..} ->             (do@@ -199,20 +201,20 @@                 ((Classes.cerialize (Untyped.message raw_) body) >>= (Capnp.Gen.ById.X85150b117366d14b.set_Calculator'defFunction'params'body raw_))                 (Std_.pure ())                 )-instance (Classes.Cerialize Calculator'defFunction'params)-instance (Classes.Cerialize (V.Vector Calculator'defFunction'params)) where+instance (Classes.Cerialize s (Calculator'defFunction'params))+instance (Classes.Cerialize s (V.Vector (Calculator'defFunction'params))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector Calculator'defFunction'params))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (Calculator'defFunction'params)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Calculator'defFunction'params)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Calculator'defFunction'params))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Calculator'defFunction'params))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'defFunction'params)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Calculator'defFunction'params)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'defFunction'params))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Calculator'defFunction'params))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'defFunction'params)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Calculator'defFunction'params)))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'defFunction'params))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec data Calculator'defFunction'results      = Calculator'defFunction'results @@ -220,34 +222,34 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Calculator'defFunction'results) where+instance (Default.Default (Calculator'defFunction'results)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Calculator'defFunction'results) where+instance (Classes.FromStruct Message.ConstMsg (Calculator'defFunction'results)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Calculator'defFunction'results) where-    type Cerial msg Calculator'defFunction'results = (Capnp.Gen.ById.X85150b117366d14b.Calculator'defFunction'results msg)+instance (Classes.Decerialize (Calculator'defFunction'results)) where+    type Cerial msg (Calculator'defFunction'results) = (Capnp.Gen.ById.X85150b117366d14b.Calculator'defFunction'results msg)     decerialize raw = (Calculator'defFunction'results <$> ((Capnp.Gen.ById.X85150b117366d14b.get_Calculator'defFunction'results'func raw) >>= Classes.decerialize))-instance (Classes.Marshal Calculator'defFunction'results) where+instance (Classes.Marshal s (Calculator'defFunction'results)) where     marshalInto raw_ value_ = case value_ of         Calculator'defFunction'results{..} ->             (do                 ((Classes.cerialize (Untyped.message raw_) func) >>= (Capnp.Gen.ById.X85150b117366d14b.set_Calculator'defFunction'results'func raw_))                 (Std_.pure ())                 )-instance (Classes.Cerialize Calculator'defFunction'results)-instance (Classes.Cerialize (V.Vector Calculator'defFunction'results)) where+instance (Classes.Cerialize s (Calculator'defFunction'results))+instance (Classes.Cerialize s (V.Vector (Calculator'defFunction'results))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector Calculator'defFunction'results))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (Calculator'defFunction'results)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Calculator'defFunction'results)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Calculator'defFunction'results))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Calculator'defFunction'results))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'defFunction'results)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Calculator'defFunction'results)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'defFunction'results))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Calculator'defFunction'results))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'defFunction'results)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Calculator'defFunction'results)))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'defFunction'results))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec data Calculator'getOperator'params      = Calculator'getOperator'params @@ -255,34 +257,34 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Calculator'getOperator'params) where+instance (Default.Default (Calculator'getOperator'params)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Calculator'getOperator'params) where+instance (Classes.FromStruct Message.ConstMsg (Calculator'getOperator'params)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Calculator'getOperator'params) where-    type Cerial msg Calculator'getOperator'params = (Capnp.Gen.ById.X85150b117366d14b.Calculator'getOperator'params msg)+instance (Classes.Decerialize (Calculator'getOperator'params)) where+    type Cerial msg (Calculator'getOperator'params) = (Capnp.Gen.ById.X85150b117366d14b.Calculator'getOperator'params msg)     decerialize raw = (Calculator'getOperator'params <$> (Capnp.Gen.ById.X85150b117366d14b.get_Calculator'getOperator'params'op raw))-instance (Classes.Marshal Calculator'getOperator'params) where+instance (Classes.Marshal s (Calculator'getOperator'params)) where     marshalInto raw_ value_ = case value_ of         Calculator'getOperator'params{..} ->             (do                 (Capnp.Gen.ById.X85150b117366d14b.set_Calculator'getOperator'params'op raw_ op)                 (Std_.pure ())                 )-instance (Classes.Cerialize Calculator'getOperator'params)-instance (Classes.Cerialize (V.Vector Calculator'getOperator'params)) where+instance (Classes.Cerialize s (Calculator'getOperator'params))+instance (Classes.Cerialize s (V.Vector (Calculator'getOperator'params))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector Calculator'getOperator'params))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (Calculator'getOperator'params)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Calculator'getOperator'params)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Calculator'getOperator'params))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Calculator'getOperator'params))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'getOperator'params)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Calculator'getOperator'params)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'getOperator'params))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Calculator'getOperator'params))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'getOperator'params)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Calculator'getOperator'params)))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'getOperator'params))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec data Calculator'getOperator'results      = Calculator'getOperator'results @@ -290,34 +292,34 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Calculator'getOperator'results) where+instance (Default.Default (Calculator'getOperator'results)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Calculator'getOperator'results) where+instance (Classes.FromStruct Message.ConstMsg (Calculator'getOperator'results)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Calculator'getOperator'results) where-    type Cerial msg Calculator'getOperator'results = (Capnp.Gen.ById.X85150b117366d14b.Calculator'getOperator'results msg)+instance (Classes.Decerialize (Calculator'getOperator'results)) where+    type Cerial msg (Calculator'getOperator'results) = (Capnp.Gen.ById.X85150b117366d14b.Calculator'getOperator'results msg)     decerialize raw = (Calculator'getOperator'results <$> ((Capnp.Gen.ById.X85150b117366d14b.get_Calculator'getOperator'results'func raw) >>= Classes.decerialize))-instance (Classes.Marshal Calculator'getOperator'results) where+instance (Classes.Marshal s (Calculator'getOperator'results)) where     marshalInto raw_ value_ = case value_ of         Calculator'getOperator'results{..} ->             (do                 ((Classes.cerialize (Untyped.message raw_) func) >>= (Capnp.Gen.ById.X85150b117366d14b.set_Calculator'getOperator'results'func raw_))                 (Std_.pure ())                 )-instance (Classes.Cerialize Calculator'getOperator'results)-instance (Classes.Cerialize (V.Vector Calculator'getOperator'results)) where+instance (Classes.Cerialize s (Calculator'getOperator'results))+instance (Classes.Cerialize s (V.Vector (Calculator'getOperator'results))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector Calculator'getOperator'results))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (Calculator'getOperator'results)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Calculator'getOperator'results)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Calculator'getOperator'results))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Calculator'getOperator'results))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'getOperator'results)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Calculator'getOperator'results)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'getOperator'results))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Calculator'getOperator'results))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'getOperator'results)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Calculator'getOperator'results)))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Calculator'getOperator'results))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec data Expression      = Expression'literal Std_.Double@@ -328,12 +330,12 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Expression) where+instance (Default.Default (Expression)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Expression) where+instance (Classes.FromStruct Message.ConstMsg (Expression)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Expression) where-    type Cerial msg Expression = (Capnp.Gen.ById.X85150b117366d14b.Expression msg)+instance (Classes.Decerialize (Expression)) where+    type Cerial msg (Expression) = (Capnp.Gen.ById.X85150b117366d14b.Expression msg)     decerialize raw = (do         raw <- (Capnp.Gen.ById.X85150b117366d14b.get_Expression' raw)         case raw of@@ -348,7 +350,7 @@             (Capnp.Gen.ById.X85150b117366d14b.Expression'unknown' tag) ->                 (Std_.pure (Expression'unknown' tag))         )-instance (Classes.Marshal Expression) where+instance (Classes.Marshal s (Expression)) where     marshalInto raw_ value_ = case value_ of         (Expression'literal arg_) ->             (Capnp.Gen.ById.X85150b117366d14b.set_Expression'literal raw_ arg_)@@ -363,20 +365,20 @@                 )         (Expression'unknown' tag) ->             (Capnp.Gen.ById.X85150b117366d14b.set_Expression'unknown' raw_ tag)-instance (Classes.Cerialize Expression)-instance (Classes.Cerialize (V.Vector Expression)) where+instance (Classes.Cerialize s (Expression))+instance (Classes.Cerialize s (V.Vector (Expression))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector Expression))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (Expression)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Expression)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Expression))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Expression))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Expression)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Expression)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Expression))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Expression))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Expression)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Expression)))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Expression))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec data Expression'call      = Expression'call' @@ -385,15 +387,15 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Expression'call) where+instance (Default.Default (Expression'call)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Expression'call) where+instance (Classes.FromStruct Message.ConstMsg (Expression'call)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Expression'call) where-    type Cerial msg Expression'call = (Capnp.Gen.ById.X85150b117366d14b.Expression'call msg)+instance (Classes.Decerialize (Expression'call)) where+    type Cerial msg (Expression'call) = (Capnp.Gen.ById.X85150b117366d14b.Expression'call msg)     decerialize raw = (Expression'call' <$> ((Capnp.Gen.ById.X85150b117366d14b.get_Expression'call'function raw) >>= Classes.decerialize)                                         <*> ((Capnp.Gen.ById.X85150b117366d14b.get_Expression'call'params raw) >>= Classes.decerialize))-instance (Classes.Marshal Expression'call) where+instance (Classes.Marshal s (Expression'call)) where     marshalInto raw_ value_ = case value_ of         Expression'call'{..} ->             (do@@ -411,8 +413,8 @@     {-# MINIMAL value'read #-}     value'read :: cap -> (Server.MethodHandler m Value'read'params Value'read'results)     value'read _ = Server.methodUnimplemented-export_Value :: ((Value'server_ Std_.IO a)-                ,(STM.MonadSTM m)) => Supervisors.Supervisor -> a -> (m Value)+export_Value :: ((STM.MonadSTM m)+                ,(Value'server_ Std_.IO cap)) => Supervisors.Supervisor -> cap -> (m (Value)) export_Value sup_ server_ = (STM.liftSTM (Value <$> (Rpc.export sup_ Server.ServerOps{handleCast = (Server.unwrap server_)                                                                                      ,handleStop = (Server.shutdown server_)                                                                                      ,handleCall = (\interfaceId_ methodId_ -> case interfaceId_ of@@ -424,24 +426,24 @@                                                                                                      Server.methodUnimplemented                                                                                          _ ->                                                                                              Server.methodUnimplemented)})))-instance (Rpc.IsClient Value) where+instance (Rpc.IsClient (Value)) where     fromClient  = Value     toClient (Value client) = client-instance (Classes.FromPtr msg Value) where+instance (Classes.FromPtr msg (Value)) where     fromPtr  = RpcHelpers.isClientFromPtr-instance (Classes.ToPtr s Value) where+instance (Classes.ToPtr s (Value)) where     toPtr  = RpcHelpers.isClientToPtr-instance (Classes.Decerialize Value) where-    type Cerial msg Value = (Capnp.Gen.ById.X85150b117366d14b.Value msg)+instance (Classes.Decerialize (Value)) where+    type Cerial msg (Value) = (Capnp.Gen.ById.X85150b117366d14b.Value msg)     decerialize (Capnp.Gen.ById.X85150b117366d14b.Value'newtype_ maybeCap) = case maybeCap of         (Std_.Nothing) ->             (Std_.pure (Value Message.nullClient))         (Std_.Just cap) ->             (Value <$> (Untyped.getClient cap))-instance (Classes.Cerialize Value) where+instance (Classes.Cerialize s (Value)) where     cerialize msg (Value client) = (Capnp.Gen.ById.X85150b117366d14b.Value'newtype_ <$> (Std_.Just <$> (Untyped.appendCap msg client)))-instance (Server.Server Std_.IO Value)-instance (Value'server_ Std_.IO Value) where+instance (Server.Server Std_.IO (Value))+instance (Value'server_ Std_.IO (Value)) where     value'read (Value client) = (Rpc.clientMethodHandler 14116142932258867410 0 client) data Value'read'params      = Value'read'params @@ -449,33 +451,33 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Value'read'params) where+instance (Default.Default (Value'read'params)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Value'read'params) where+instance (Classes.FromStruct Message.ConstMsg (Value'read'params)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Value'read'params) where-    type Cerial msg Value'read'params = (Capnp.Gen.ById.X85150b117366d14b.Value'read'params msg)+instance (Classes.Decerialize (Value'read'params)) where+    type Cerial msg (Value'read'params) = (Capnp.Gen.ById.X85150b117366d14b.Value'read'params msg)     decerialize raw = (Std_.pure Value'read'params)-instance (Classes.Marshal Value'read'params) where+instance (Classes.Marshal s (Value'read'params)) where     marshalInto raw_ value_ = case value_ of         (Value'read'params) ->             (do                 (Std_.pure ())                 )-instance (Classes.Cerialize Value'read'params)-instance (Classes.Cerialize (V.Vector Value'read'params)) where+instance (Classes.Cerialize s (Value'read'params))+instance (Classes.Cerialize s (V.Vector (Value'read'params))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector Value'read'params))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (Value'read'params)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Value'read'params)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Value'read'params))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Value'read'params))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Value'read'params)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Value'read'params)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Value'read'params))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Value'read'params))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Value'read'params)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Value'read'params)))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Value'read'params))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec data Value'read'results      = Value'read'results @@ -483,34 +485,34 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Value'read'results) where+instance (Default.Default (Value'read'results)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Value'read'results) where+instance (Classes.FromStruct Message.ConstMsg (Value'read'results)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Value'read'results) where-    type Cerial msg Value'read'results = (Capnp.Gen.ById.X85150b117366d14b.Value'read'results msg)+instance (Classes.Decerialize (Value'read'results)) where+    type Cerial msg (Value'read'results) = (Capnp.Gen.ById.X85150b117366d14b.Value'read'results msg)     decerialize raw = (Value'read'results <$> (Capnp.Gen.ById.X85150b117366d14b.get_Value'read'results'value raw))-instance (Classes.Marshal Value'read'results) where+instance (Classes.Marshal s (Value'read'results)) where     marshalInto raw_ value_ = case value_ of         Value'read'results{..} ->             (do                 (Capnp.Gen.ById.X85150b117366d14b.set_Value'read'results'value raw_ value)                 (Std_.pure ())                 )-instance (Classes.Cerialize Value'read'results)-instance (Classes.Cerialize (V.Vector Value'read'results)) where+instance (Classes.Cerialize s (Value'read'results))+instance (Classes.Cerialize s (V.Vector (Value'read'results))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector Value'read'results))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (Value'read'results)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Value'read'results)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Value'read'results))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Value'read'results))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Value'read'results)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Value'read'results)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Value'read'results))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Value'read'results))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Value'read'results)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Value'read'results)))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Value'read'results))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec newtype Function      = Function Message.Client@@ -522,8 +524,8 @@     {-# MINIMAL function'call #-}     function'call :: cap -> (Server.MethodHandler m Function'call'params Function'call'results)     function'call _ = Server.methodUnimplemented-export_Function :: ((Function'server_ Std_.IO a)-                   ,(STM.MonadSTM m)) => Supervisors.Supervisor -> a -> (m Function)+export_Function :: ((STM.MonadSTM m)+                   ,(Function'server_ Std_.IO cap)) => Supervisors.Supervisor -> cap -> (m (Function)) export_Function sup_ server_ = (STM.liftSTM (Function <$> (Rpc.export sup_ Server.ServerOps{handleCast = (Server.unwrap server_)                                                                                            ,handleStop = (Server.shutdown server_)                                                                                            ,handleCall = (\interfaceId_ methodId_ -> case interfaceId_ of@@ -535,24 +537,24 @@                                                                                                            Server.methodUnimplemented                                                                                                _ ->                                                                                                    Server.methodUnimplemented)})))-instance (Rpc.IsClient Function) where+instance (Rpc.IsClient (Function)) where     fromClient  = Function     toClient (Function client) = client-instance (Classes.FromPtr msg Function) where+instance (Classes.FromPtr msg (Function)) where     fromPtr  = RpcHelpers.isClientFromPtr-instance (Classes.ToPtr s Function) where+instance (Classes.ToPtr s (Function)) where     toPtr  = RpcHelpers.isClientToPtr-instance (Classes.Decerialize Function) where-    type Cerial msg Function = (Capnp.Gen.ById.X85150b117366d14b.Function msg)+instance (Classes.Decerialize (Function)) where+    type Cerial msg (Function) = (Capnp.Gen.ById.X85150b117366d14b.Function msg)     decerialize (Capnp.Gen.ById.X85150b117366d14b.Function'newtype_ maybeCap) = case maybeCap of         (Std_.Nothing) ->             (Std_.pure (Function Message.nullClient))         (Std_.Just cap) ->             (Function <$> (Untyped.getClient cap))-instance (Classes.Cerialize Function) where+instance (Classes.Cerialize s (Function)) where     cerialize msg (Function client) = (Capnp.Gen.ById.X85150b117366d14b.Function'newtype_ <$> (Std_.Just <$> (Untyped.appendCap msg client)))-instance (Server.Server Std_.IO Function)-instance (Function'server_ Std_.IO Function) where+instance (Server.Server Std_.IO (Function))+instance (Function'server_ Std_.IO (Function)) where     function'call (Function client) = (Rpc.clientMethodHandler 17143016017778443156 0 client) data Function'call'params      = Function'call'params @@ -560,34 +562,34 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Function'call'params) where+instance (Default.Default (Function'call'params)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Function'call'params) where+instance (Classes.FromStruct Message.ConstMsg (Function'call'params)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Function'call'params) where-    type Cerial msg Function'call'params = (Capnp.Gen.ById.X85150b117366d14b.Function'call'params msg)+instance (Classes.Decerialize (Function'call'params)) where+    type Cerial msg (Function'call'params) = (Capnp.Gen.ById.X85150b117366d14b.Function'call'params msg)     decerialize raw = (Function'call'params <$> ((Capnp.Gen.ById.X85150b117366d14b.get_Function'call'params'params raw) >>= Classes.decerialize))-instance (Classes.Marshal Function'call'params) where+instance (Classes.Marshal s (Function'call'params)) where     marshalInto raw_ value_ = case value_ of         Function'call'params{..} ->             (do                 ((Classes.cerialize (Untyped.message raw_) params) >>= (Capnp.Gen.ById.X85150b117366d14b.set_Function'call'params'params raw_))                 (Std_.pure ())                 )-instance (Classes.Cerialize Function'call'params)-instance (Classes.Cerialize (V.Vector Function'call'params)) where+instance (Classes.Cerialize s (Function'call'params))+instance (Classes.Cerialize s (V.Vector (Function'call'params))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector Function'call'params))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (Function'call'params)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Function'call'params)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Function'call'params))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Function'call'params))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Function'call'params)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Function'call'params)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Function'call'params))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Function'call'params))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Function'call'params)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Function'call'params)))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Function'call'params))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec data Function'call'results      = Function'call'results @@ -595,49 +597,49 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Function'call'results) where+instance (Default.Default (Function'call'results)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Function'call'results) where+instance (Classes.FromStruct Message.ConstMsg (Function'call'results)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Function'call'results) where-    type Cerial msg Function'call'results = (Capnp.Gen.ById.X85150b117366d14b.Function'call'results msg)+instance (Classes.Decerialize (Function'call'results)) where+    type Cerial msg (Function'call'results) = (Capnp.Gen.ById.X85150b117366d14b.Function'call'results msg)     decerialize raw = (Function'call'results <$> (Capnp.Gen.ById.X85150b117366d14b.get_Function'call'results'value raw))-instance (Classes.Marshal Function'call'results) where+instance (Classes.Marshal s (Function'call'results)) where     marshalInto raw_ value_ = case value_ of         Function'call'results{..} ->             (do                 (Capnp.Gen.ById.X85150b117366d14b.set_Function'call'results'value raw_ value)                 (Std_.pure ())                 )-instance (Classes.Cerialize Function'call'results)-instance (Classes.Cerialize (V.Vector Function'call'results)) where+instance (Classes.Cerialize s (Function'call'results))+instance (Classes.Cerialize s (V.Vector (Function'call'results))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector Function'call'results))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (Function'call'results)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Function'call'results)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Function'call'results))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Function'call'results))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Function'call'results)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Function'call'results)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Function'call'results))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Function'call'results))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Function'call'results)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Function'call'results)))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Function'call'results))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec instance (Classes.Decerialize Capnp.Gen.ById.X85150b117366d14b.Operator) where     type Cerial msg Capnp.Gen.ById.X85150b117366d14b.Operator = Capnp.Gen.ById.X85150b117366d14b.Operator     decerialize  = Std_.pure-instance (Classes.Cerialize Capnp.Gen.ById.X85150b117366d14b.Operator) where+instance (Classes.Cerialize s Capnp.Gen.ById.X85150b117366d14b.Operator) where     cerialize _ = Std_.pure-instance (Classes.Cerialize (V.Vector Capnp.Gen.ById.X85150b117366d14b.Operator)) where+instance (Classes.Cerialize s (V.Vector Capnp.Gen.ById.X85150b117366d14b.Operator)) where     cerialize  = Classes.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector Capnp.Gen.ById.X85150b117366d14b.Operator))) where+instance (Classes.Cerialize s (V.Vector (V.Vector Capnp.Gen.ById.X85150b117366d14b.Operator))) where     cerialize  = Classes.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Capnp.Gen.ById.X85150b117366d14b.Operator)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector Capnp.Gen.ById.X85150b117366d14b.Operator)))) where     cerialize  = Classes.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Capnp.Gen.ById.X85150b117366d14b.Operator))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector Capnp.Gen.ById.X85150b117366d14b.Operator))))) where     cerialize  = Classes.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Capnp.Gen.ById.X85150b117366d14b.Operator)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Capnp.Gen.ById.X85150b117366d14b.Operator)))))) where     cerialize  = Classes.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Capnp.Gen.ById.X85150b117366d14b.Operator))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Capnp.Gen.ById.X85150b117366d14b.Operator))))))) where     cerialize  = Classes.cerializeBasicVec

@@ -31,8 +31,6 @@     toPtr msg (Echo'newtype_ (Std_.Just cap)) = (Std_.pure (Std_.Just (Untyped.PtrCap cap))) newtype Echo'echo'params msg     = Echo'echo'params'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Echo'echo'params) where-    tMsg f (Echo'echo'params'newtype_ s) = (Echo'echo'params'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Echo'echo'params msg)) where     fromStruct struct = (Std_.pure (Echo'echo'params'newtype_ struct)) instance (Classes.ToStruct msg (Echo'echo'params msg)) where@@ -61,12 +59,14 @@ instance (Basics.MutListElem s (Echo'echo'params (Message.MutMsg s))) where     setIndex (Echo'echo'params'newtype_ elt) i (Echo'echo'params'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (Echo'echo'params'List_ <$> (Untyped.allocCompositeList msg 0 1 len))-get_Echo'echo'params'query :: ((Untyped.ReadCtx m msg)) => (Echo'echo'params msg) -> (m (Basics.Text msg))+get_Echo'echo'params'query :: ((Untyped.ReadCtx m msg)+                              ,(Classes.FromPtr msg (Basics.Text msg))) => (Echo'echo'params msg) -> (m (Basics.Text msg)) get_Echo'echo'params'query (Echo'echo'params'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Echo'echo'params'query :: ((Untyped.RWCtx m s)) => (Echo'echo'params (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ())+set_Echo'echo'params'query :: ((Untyped.RWCtx m s)+                              ,(Classes.ToPtr s (Basics.Text (Message.MutMsg s)))) => (Echo'echo'params (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ()) set_Echo'echo'params'query (Echo'echo'params'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -81,8 +81,6 @@     ) newtype Echo'echo'results msg     = Echo'echo'results'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Echo'echo'results) where-    tMsg f (Echo'echo'results'newtype_ s) = (Echo'echo'results'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Echo'echo'results msg)) where     fromStruct struct = (Std_.pure (Echo'echo'results'newtype_ struct)) instance (Classes.ToStruct msg (Echo'echo'results msg)) where@@ -111,12 +109,14 @@ instance (Basics.MutListElem s (Echo'echo'results (Message.MutMsg s))) where     setIndex (Echo'echo'results'newtype_ elt) i (Echo'echo'results'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (Echo'echo'results'List_ <$> (Untyped.allocCompositeList msg 0 1 len))-get_Echo'echo'results'reply :: ((Untyped.ReadCtx m msg)) => (Echo'echo'results msg) -> (m (Basics.Text msg))+get_Echo'echo'results'reply :: ((Untyped.ReadCtx m msg)+                               ,(Classes.FromPtr msg (Basics.Text msg))) => (Echo'echo'results msg) -> (m (Basics.Text msg)) get_Echo'echo'results'reply (Echo'echo'results'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Echo'echo'results'reply :: ((Untyped.RWCtx m s)) => (Echo'echo'results (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ())+set_Echo'echo'results'reply :: ((Untyped.RWCtx m s)+                               ,(Classes.ToPtr s (Basics.Text (Message.MutMsg s)))) => (Echo'echo'results (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ()) set_Echo'echo'results'reply (Echo'echo'results'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)

@@ -2,9 +2,11 @@ {-# 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 #-}@@ -47,8 +49,8 @@     {-# MINIMAL echo'echo #-}     echo'echo :: cap -> (Server.MethodHandler m Echo'echo'params Echo'echo'results)     echo'echo _ = Server.methodUnimplemented-export_Echo :: ((Echo'server_ Std_.IO a)-               ,(STM.MonadSTM m)) => Supervisors.Supervisor -> a -> (m Echo)+export_Echo :: ((STM.MonadSTM m)+               ,(Echo'server_ Std_.IO cap)) => Supervisors.Supervisor -> cap -> (m (Echo)) export_Echo sup_ server_ = (STM.liftSTM (Echo <$> (Rpc.export sup_ Server.ServerOps{handleCast = (Server.unwrap server_)                                                                                    ,handleStop = (Server.shutdown server_)                                                                                    ,handleCall = (\interfaceId_ methodId_ -> case interfaceId_ of@@ -60,24 +62,24 @@                                                                                                    Server.methodUnimplemented                                                                                        _ ->                                                                                            Server.methodUnimplemented)})))-instance (Rpc.IsClient Echo) where+instance (Rpc.IsClient (Echo)) where     fromClient  = Echo     toClient (Echo client) = client-instance (Classes.FromPtr msg Echo) where+instance (Classes.FromPtr msg (Echo)) where     fromPtr  = RpcHelpers.isClientFromPtr-instance (Classes.ToPtr s Echo) where+instance (Classes.ToPtr s (Echo)) where     toPtr  = RpcHelpers.isClientToPtr-instance (Classes.Decerialize Echo) where-    type Cerial msg Echo = (Capnp.Gen.ById.Xd0a87f36fa0182f5.Echo msg)+instance (Classes.Decerialize (Echo)) where+    type Cerial msg (Echo) = (Capnp.Gen.ById.Xd0a87f36fa0182f5.Echo msg)     decerialize (Capnp.Gen.ById.Xd0a87f36fa0182f5.Echo'newtype_ maybeCap) = case maybeCap of         (Std_.Nothing) ->             (Std_.pure (Echo Message.nullClient))         (Std_.Just cap) ->             (Echo <$> (Untyped.getClient cap))-instance (Classes.Cerialize Echo) where+instance (Classes.Cerialize s (Echo)) where     cerialize msg (Echo client) = (Capnp.Gen.ById.Xd0a87f36fa0182f5.Echo'newtype_ <$> (Std_.Just <$> (Untyped.appendCap msg client)))-instance (Server.Server Std_.IO Echo)-instance (Echo'server_ Std_.IO Echo) where+instance (Server.Server Std_.IO (Echo))+instance (Echo'server_ Std_.IO (Echo)) where     echo'echo (Echo client) = (Rpc.clientMethodHandler 16940812395455687611 0 client) data Echo'echo'params      = Echo'echo'params @@ -85,34 +87,34 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Echo'echo'params) where+instance (Default.Default (Echo'echo'params)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Echo'echo'params) where+instance (Classes.FromStruct Message.ConstMsg (Echo'echo'params)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Echo'echo'params) where-    type Cerial msg Echo'echo'params = (Capnp.Gen.ById.Xd0a87f36fa0182f5.Echo'echo'params msg)+instance (Classes.Decerialize (Echo'echo'params)) where+    type Cerial msg (Echo'echo'params) = (Capnp.Gen.ById.Xd0a87f36fa0182f5.Echo'echo'params msg)     decerialize raw = (Echo'echo'params <$> ((Capnp.Gen.ById.Xd0a87f36fa0182f5.get_Echo'echo'params'query raw) >>= Classes.decerialize))-instance (Classes.Marshal Echo'echo'params) where+instance (Classes.Marshal s (Echo'echo'params)) where     marshalInto raw_ value_ = case value_ of         Echo'echo'params{..} ->             (do                 ((Classes.cerialize (Untyped.message raw_) query) >>= (Capnp.Gen.ById.Xd0a87f36fa0182f5.set_Echo'echo'params'query raw_))                 (Std_.pure ())                 )-instance (Classes.Cerialize Echo'echo'params)-instance (Classes.Cerialize (V.Vector Echo'echo'params)) where+instance (Classes.Cerialize s (Echo'echo'params))+instance (Classes.Cerialize s (V.Vector (Echo'echo'params))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector Echo'echo'params))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (Echo'echo'params)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Echo'echo'params)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Echo'echo'params))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Echo'echo'params))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Echo'echo'params)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Echo'echo'params)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Echo'echo'params))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Echo'echo'params))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Echo'echo'params)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Echo'echo'params)))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Echo'echo'params))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec data Echo'echo'results      = Echo'echo'results @@ -120,32 +122,32 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Echo'echo'results) where+instance (Default.Default (Echo'echo'results)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Echo'echo'results) where+instance (Classes.FromStruct Message.ConstMsg (Echo'echo'results)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Echo'echo'results) where-    type Cerial msg Echo'echo'results = (Capnp.Gen.ById.Xd0a87f36fa0182f5.Echo'echo'results msg)+instance (Classes.Decerialize (Echo'echo'results)) where+    type Cerial msg (Echo'echo'results) = (Capnp.Gen.ById.Xd0a87f36fa0182f5.Echo'echo'results msg)     decerialize raw = (Echo'echo'results <$> ((Capnp.Gen.ById.Xd0a87f36fa0182f5.get_Echo'echo'results'reply raw) >>= Classes.decerialize))-instance (Classes.Marshal Echo'echo'results) where+instance (Classes.Marshal s (Echo'echo'results)) where     marshalInto raw_ value_ = case value_ of         Echo'echo'results{..} ->             (do                 ((Classes.cerialize (Untyped.message raw_) reply) >>= (Capnp.Gen.ById.Xd0a87f36fa0182f5.set_Echo'echo'results'reply raw_))                 (Std_.pure ())                 )-instance (Classes.Cerialize Echo'echo'results)-instance (Classes.Cerialize (V.Vector Echo'echo'results)) where+instance (Classes.Cerialize s (Echo'echo'results))+instance (Classes.Cerialize s (V.Vector (Echo'echo'results))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector Echo'echo'results))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (Echo'echo'results)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Echo'echo'results)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Echo'echo'results))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Echo'echo'results))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Echo'echo'results)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Echo'echo'results)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Echo'echo'results))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Echo'echo'results))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Echo'echo'results)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Echo'echo'results)))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Echo'echo'results))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec

@@ -24,8 +24,6 @@ import Prelude ((<$>), (<*>), (>>=)) newtype Value msg     = Value'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Value) where-    tMsg f (Value'newtype_ s) = (Value'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Value msg)) where     fromStruct struct = (Std_.pure (Value'newtype_ struct)) instance (Classes.ToStruct msg (Value msg)) where@@ -96,7 +94,8 @@             _ ->                 (Std_.pure (Value'unknown' (Std_.fromIntegral tag)))         )-get_Value' :: ((Untyped.ReadCtx m msg)) => (Value msg) -> (m (Value' msg))+get_Value' :: ((Untyped.ReadCtx m msg)+              ,(Classes.FromStruct msg (Value' msg))) => (Value msg) -> (m (Value' msg)) get_Value' (Value'newtype_ struct) = (Classes.fromStruct struct) set_Value'null :: ((Untyped.RWCtx m s)) => (Value (Message.MutMsg s)) -> (m ()) set_Value'null (Value'newtype_ struct) = (do@@ -113,7 +112,8 @@     (GenHelpers.setWordField struct (2 :: Std_.Word16) 0 0 0)     (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word64) 1 0 0)     )-set_Value'string :: ((Untyped.RWCtx m s)) => (Value (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ())+set_Value'string :: ((Untyped.RWCtx m s)+                    ,(Classes.ToPtr s (Basics.Text (Message.MutMsg s)))) => (Value (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ()) set_Value'string (Value'newtype_ struct) value = (do     (GenHelpers.setWordField struct (3 :: Std_.Word16) 0 0 0)     (do@@ -121,7 +121,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_Value'array :: ((Untyped.RWCtx m s)) => (Value (Message.MutMsg s)) -> (Basics.List (Message.MutMsg s) (Value (Message.MutMsg s))) -> (m ())+set_Value'array :: ((Untyped.RWCtx m s)+                   ,(Classes.ToPtr s (Basics.List (Message.MutMsg s) (Value (Message.MutMsg s))))) => (Value (Message.MutMsg s)) -> (Basics.List (Message.MutMsg s) (Value (Message.MutMsg s))) -> (m ()) set_Value'array (Value'newtype_ struct) value = (do     (GenHelpers.setWordField struct (4 :: Std_.Word16) 0 0 0)     (do@@ -129,7 +130,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_Value'object :: ((Untyped.RWCtx m s)) => (Value (Message.MutMsg s)) -> (Basics.List (Message.MutMsg s) (Value'Field (Message.MutMsg s))) -> (m ())+set_Value'object :: ((Untyped.RWCtx m s)+                    ,(Classes.ToPtr s (Basics.List (Message.MutMsg s) (Value'Field (Message.MutMsg s))))) => (Value (Message.MutMsg s)) -> (Basics.List (Message.MutMsg s) (Value'Field (Message.MutMsg s))) -> (m ()) set_Value'object (Value'newtype_ struct) value = (do     (GenHelpers.setWordField struct (5 :: Std_.Word16) 0 0 0)     (do@@ -137,7 +139,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_Value'call :: ((Untyped.RWCtx m s)) => (Value (Message.MutMsg s)) -> (Value'Call (Message.MutMsg s)) -> (m ())+set_Value'call :: ((Untyped.RWCtx m s)+                  ,(Classes.ToPtr s (Value'Call (Message.MutMsg s)))) => (Value (Message.MutMsg s)) -> (Value'Call (Message.MutMsg s)) -> (m ()) set_Value'call (Value'newtype_ struct) value = (do     (GenHelpers.setWordField struct (6 :: Std_.Word16) 0 0 0)     (do@@ -149,8 +152,6 @@ set_Value'unknown' (Value'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word16) 0 0 0) newtype Value'Field msg     = Value'Field'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Value'Field) where-    tMsg f (Value'Field'newtype_ s) = (Value'Field'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Value'Field msg)) where     fromStruct struct = (Std_.pure (Value'Field'newtype_ struct)) instance (Classes.ToStruct msg (Value'Field msg)) where@@ -179,12 +180,14 @@ instance (Basics.MutListElem s (Value'Field (Message.MutMsg s))) where     setIndex (Value'Field'newtype_ elt) i (Value'Field'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (Value'Field'List_ <$> (Untyped.allocCompositeList msg 0 2 len))-get_Value'Field'name :: ((Untyped.ReadCtx m msg)) => (Value'Field msg) -> (m (Basics.Text msg))+get_Value'Field'name :: ((Untyped.ReadCtx m msg)+                        ,(Classes.FromPtr msg (Basics.Text msg))) => (Value'Field msg) -> (m (Basics.Text msg)) get_Value'Field'name (Value'Field'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Value'Field'name :: ((Untyped.RWCtx m s)) => (Value'Field (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ())+set_Value'Field'name :: ((Untyped.RWCtx m s)+                        ,(Classes.ToPtr s (Basics.Text (Message.MutMsg s)))) => (Value'Field (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ()) set_Value'Field'name (Value'Field'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -197,12 +200,14 @@     (set_Value'Field'name struct result)     (Std_.pure result)     )-get_Value'Field'value :: ((Untyped.ReadCtx m msg)) => (Value'Field msg) -> (m (Value msg))+get_Value'Field'value :: ((Untyped.ReadCtx m msg)+                         ,(Classes.FromPtr msg (Value msg))) => (Value'Field msg) -> (m (Value msg)) get_Value'Field'value (Value'Field'newtype_ struct) = (do     ptr <- (Untyped.getPtr 1 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Value'Field'value :: ((Untyped.RWCtx m s)) => (Value'Field (Message.MutMsg s)) -> (Value (Message.MutMsg s)) -> (m ())+set_Value'Field'value :: ((Untyped.RWCtx m s)+                         ,(Classes.ToPtr s (Value (Message.MutMsg s)))) => (Value'Field (Message.MutMsg s)) -> (Value (Message.MutMsg s)) -> (m ()) set_Value'Field'value (Value'Field'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 1 struct)@@ -217,8 +222,6 @@     ) newtype Value'Call msg     = Value'Call'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Value'Call) where-    tMsg f (Value'Call'newtype_ s) = (Value'Call'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Value'Call msg)) where     fromStruct struct = (Std_.pure (Value'Call'newtype_ struct)) instance (Classes.ToStruct msg (Value'Call msg)) where@@ -247,12 +250,14 @@ instance (Basics.MutListElem s (Value'Call (Message.MutMsg s))) where     setIndex (Value'Call'newtype_ elt) i (Value'Call'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (Value'Call'List_ <$> (Untyped.allocCompositeList msg 0 2 len))-get_Value'Call'function :: ((Untyped.ReadCtx m msg)) => (Value'Call msg) -> (m (Basics.Text msg))+get_Value'Call'function :: ((Untyped.ReadCtx m msg)+                           ,(Classes.FromPtr msg (Basics.Text msg))) => (Value'Call msg) -> (m (Basics.Text msg)) get_Value'Call'function (Value'Call'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Value'Call'function :: ((Untyped.RWCtx m s)) => (Value'Call (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ())+set_Value'Call'function :: ((Untyped.RWCtx m s)+                           ,(Classes.ToPtr s (Basics.Text (Message.MutMsg s)))) => (Value'Call (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ()) set_Value'Call'function (Value'Call'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -265,12 +270,14 @@     (set_Value'Call'function struct result)     (Std_.pure result)     )-get_Value'Call'params :: ((Untyped.ReadCtx m msg)) => (Value'Call msg) -> (m (Basics.List msg (Value msg)))+get_Value'Call'params :: ((Untyped.ReadCtx m msg)+                         ,(Classes.FromPtr msg (Basics.List msg (Value msg)))) => (Value'Call msg) -> (m (Basics.List msg (Value msg))) get_Value'Call'params (Value'Call'newtype_ struct) = (do     ptr <- (Untyped.getPtr 1 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Value'Call'params :: ((Untyped.RWCtx m s)) => (Value'Call (Message.MutMsg s)) -> (Basics.List (Message.MutMsg s) (Value (Message.MutMsg s))) -> (m ())+set_Value'Call'params :: ((Untyped.RWCtx m s)+                         ,(Classes.ToPtr s (Basics.List (Message.MutMsg s) (Value (Message.MutMsg s))))) => (Value'Call (Message.MutMsg s)) -> (Basics.List (Message.MutMsg s) (Value (Message.MutMsg s))) -> (m ()) set_Value'Call'params (Value'Call'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 1 struct)@@ -285,8 +292,6 @@     ) newtype FlattenOptions msg     = FlattenOptions'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg FlattenOptions) where-    tMsg f (FlattenOptions'newtype_ s) = (FlattenOptions'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (FlattenOptions msg)) where     fromStruct struct = (Std_.pure (FlattenOptions'newtype_ struct)) instance (Classes.ToStruct msg (FlattenOptions msg)) where@@ -315,12 +320,14 @@ instance (Basics.MutListElem s (FlattenOptions (Message.MutMsg s))) where     setIndex (FlattenOptions'newtype_ elt) i (FlattenOptions'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (FlattenOptions'List_ <$> (Untyped.allocCompositeList msg 0 1 len))-get_FlattenOptions'prefix :: ((Untyped.ReadCtx m msg)) => (FlattenOptions msg) -> (m (Basics.Text msg))+get_FlattenOptions'prefix :: ((Untyped.ReadCtx m msg)+                             ,(Classes.FromPtr msg (Basics.Text msg))) => (FlattenOptions msg) -> (m (Basics.Text msg)) get_FlattenOptions'prefix (FlattenOptions'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_FlattenOptions'prefix :: ((Untyped.RWCtx m s)) => (FlattenOptions (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ())+set_FlattenOptions'prefix :: ((Untyped.RWCtx m s)+                             ,(Classes.ToPtr s (Basics.Text (Message.MutMsg s)))) => (FlattenOptions (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ()) set_FlattenOptions'prefix (FlattenOptions'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -335,8 +342,6 @@     ) newtype DiscriminatorOptions msg     = DiscriminatorOptions'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg DiscriminatorOptions) where-    tMsg f (DiscriminatorOptions'newtype_ s) = (DiscriminatorOptions'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (DiscriminatorOptions msg)) where     fromStruct struct = (Std_.pure (DiscriminatorOptions'newtype_ struct)) instance (Classes.ToStruct msg (DiscriminatorOptions msg)) where@@ -365,12 +370,14 @@ instance (Basics.MutListElem s (DiscriminatorOptions (Message.MutMsg s))) where     setIndex (DiscriminatorOptions'newtype_ elt) i (DiscriminatorOptions'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (DiscriminatorOptions'List_ <$> (Untyped.allocCompositeList msg 0 2 len))-get_DiscriminatorOptions'name :: ((Untyped.ReadCtx m msg)) => (DiscriminatorOptions msg) -> (m (Basics.Text msg))+get_DiscriminatorOptions'name :: ((Untyped.ReadCtx m msg)+                                 ,(Classes.FromPtr msg (Basics.Text msg))) => (DiscriminatorOptions msg) -> (m (Basics.Text msg)) get_DiscriminatorOptions'name (DiscriminatorOptions'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_DiscriminatorOptions'name :: ((Untyped.RWCtx m s)) => (DiscriminatorOptions (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ())+set_DiscriminatorOptions'name :: ((Untyped.RWCtx m s)+                                 ,(Classes.ToPtr s (Basics.Text (Message.MutMsg s)))) => (DiscriminatorOptions (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ()) set_DiscriminatorOptions'name (DiscriminatorOptions'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -383,12 +390,14 @@     (set_DiscriminatorOptions'name struct result)     (Std_.pure result)     )-get_DiscriminatorOptions'valueName :: ((Untyped.ReadCtx m msg)) => (DiscriminatorOptions msg) -> (m (Basics.Text msg))+get_DiscriminatorOptions'valueName :: ((Untyped.ReadCtx m msg)+                                      ,(Classes.FromPtr msg (Basics.Text msg))) => (DiscriminatorOptions msg) -> (m (Basics.Text msg)) get_DiscriminatorOptions'valueName (DiscriminatorOptions'newtype_ struct) = (do     ptr <- (Untyped.getPtr 1 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_DiscriminatorOptions'valueName :: ((Untyped.RWCtx m s)) => (DiscriminatorOptions (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ())+set_DiscriminatorOptions'valueName :: ((Untyped.RWCtx m s)+                                      ,(Classes.ToPtr s (Basics.Text (Message.MutMsg s)))) => (DiscriminatorOptions (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ()) set_DiscriminatorOptions'valueName (DiscriminatorOptions'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 1 struct)

@@ -2,9 +2,11 @@ {-# 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 #-}@@ -43,12 +45,12 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Value) where+instance (Default.Default (Value)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Value) where+instance (Classes.FromStruct Message.ConstMsg (Value)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Value) where-    type Cerial msg Value = (Capnp.Gen.ById.X8ef99297a43a5e34.Value msg)+instance (Classes.Decerialize (Value)) where+    type Cerial msg (Value) = (Capnp.Gen.ById.X8ef99297a43a5e34.Value msg)     decerialize raw = (do         raw <- (Capnp.Gen.ById.X8ef99297a43a5e34.get_Value' raw)         case raw of@@ -69,7 +71,7 @@             (Capnp.Gen.ById.X8ef99297a43a5e34.Value'unknown' tag) ->                 (Std_.pure (Value'unknown' tag))         )-instance (Classes.Marshal Value) where+instance (Classes.Marshal s (Value)) where     marshalInto raw_ value_ = case value_ of         (Value'null) ->             (Capnp.Gen.ById.X8ef99297a43a5e34.set_Value'null raw_)@@ -87,20 +89,20 @@             ((Classes.cerialize (Untyped.message raw_) arg_) >>= (Capnp.Gen.ById.X8ef99297a43a5e34.set_Value'call raw_))         (Value'unknown' tag) ->             (Capnp.Gen.ById.X8ef99297a43a5e34.set_Value'unknown' raw_ tag)-instance (Classes.Cerialize Value)-instance (Classes.Cerialize (V.Vector Value)) where+instance (Classes.Cerialize s (Value))+instance (Classes.Cerialize s (V.Vector (Value))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector Value))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (Value)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Value)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Value))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Value))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Value)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Value)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Value))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Value))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Value)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Value)))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Value))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec data Value'Field      = Value'Field @@ -109,15 +111,15 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Value'Field) where+instance (Default.Default (Value'Field)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Value'Field) where+instance (Classes.FromStruct Message.ConstMsg (Value'Field)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Value'Field) where-    type Cerial msg Value'Field = (Capnp.Gen.ById.X8ef99297a43a5e34.Value'Field msg)+instance (Classes.Decerialize (Value'Field)) where+    type Cerial msg (Value'Field) = (Capnp.Gen.ById.X8ef99297a43a5e34.Value'Field msg)     decerialize raw = (Value'Field <$> ((Capnp.Gen.ById.X8ef99297a43a5e34.get_Value'Field'name raw) >>= Classes.decerialize)                                    <*> ((Capnp.Gen.ById.X8ef99297a43a5e34.get_Value'Field'value raw) >>= Classes.decerialize))-instance (Classes.Marshal Value'Field) where+instance (Classes.Marshal s (Value'Field)) where     marshalInto raw_ value_ = case value_ of         Value'Field{..} ->             (do@@ -125,20 +127,20 @@                 ((Classes.cerialize (Untyped.message raw_) value) >>= (Capnp.Gen.ById.X8ef99297a43a5e34.set_Value'Field'value raw_))                 (Std_.pure ())                 )-instance (Classes.Cerialize Value'Field)-instance (Classes.Cerialize (V.Vector Value'Field)) where+instance (Classes.Cerialize s (Value'Field))+instance (Classes.Cerialize s (V.Vector (Value'Field))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector Value'Field))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (Value'Field)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Value'Field)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Value'Field))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Value'Field))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Value'Field)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Value'Field)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Value'Field))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Value'Field))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Value'Field)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Value'Field)))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Value'Field))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec data Value'Call      = Value'Call @@ -147,15 +149,15 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Value'Call) where+instance (Default.Default (Value'Call)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Value'Call) where+instance (Classes.FromStruct Message.ConstMsg (Value'Call)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Value'Call) where-    type Cerial msg Value'Call = (Capnp.Gen.ById.X8ef99297a43a5e34.Value'Call msg)+instance (Classes.Decerialize (Value'Call)) where+    type Cerial msg (Value'Call) = (Capnp.Gen.ById.X8ef99297a43a5e34.Value'Call msg)     decerialize raw = (Value'Call <$> ((Capnp.Gen.ById.X8ef99297a43a5e34.get_Value'Call'function raw) >>= Classes.decerialize)                                   <*> ((Capnp.Gen.ById.X8ef99297a43a5e34.get_Value'Call'params raw) >>= Classes.decerialize))-instance (Classes.Marshal Value'Call) where+instance (Classes.Marshal s (Value'Call)) where     marshalInto raw_ value_ = case value_ of         Value'Call{..} ->             (do@@ -163,20 +165,20 @@                 ((Classes.cerialize (Untyped.message raw_) params) >>= (Capnp.Gen.ById.X8ef99297a43a5e34.set_Value'Call'params raw_))                 (Std_.pure ())                 )-instance (Classes.Cerialize Value'Call)-instance (Classes.Cerialize (V.Vector Value'Call)) where+instance (Classes.Cerialize s (Value'Call))+instance (Classes.Cerialize s (V.Vector (Value'Call))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector Value'Call))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (Value'Call)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Value'Call)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Value'Call))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Value'Call))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Value'Call)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Value'Call)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Value'Call))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Value'Call))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Value'Call)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Value'Call)))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Value'Call))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec data FlattenOptions      = FlattenOptions @@ -184,34 +186,34 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default FlattenOptions) where+instance (Default.Default (FlattenOptions)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg FlattenOptions) where+instance (Classes.FromStruct Message.ConstMsg (FlattenOptions)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize FlattenOptions) where-    type Cerial msg FlattenOptions = (Capnp.Gen.ById.X8ef99297a43a5e34.FlattenOptions msg)+instance (Classes.Decerialize (FlattenOptions)) where+    type Cerial msg (FlattenOptions) = (Capnp.Gen.ById.X8ef99297a43a5e34.FlattenOptions msg)     decerialize raw = (FlattenOptions <$> ((Capnp.Gen.ById.X8ef99297a43a5e34.get_FlattenOptions'prefix raw) >>= Classes.decerialize))-instance (Classes.Marshal FlattenOptions) where+instance (Classes.Marshal s (FlattenOptions)) where     marshalInto raw_ value_ = case value_ of         FlattenOptions{..} ->             (do                 ((Classes.cerialize (Untyped.message raw_) prefix) >>= (Capnp.Gen.ById.X8ef99297a43a5e34.set_FlattenOptions'prefix raw_))                 (Std_.pure ())                 )-instance (Classes.Cerialize FlattenOptions)-instance (Classes.Cerialize (V.Vector FlattenOptions)) where+instance (Classes.Cerialize s (FlattenOptions))+instance (Classes.Cerialize s (V.Vector (FlattenOptions))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector FlattenOptions))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (FlattenOptions)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector FlattenOptions)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (FlattenOptions))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector FlattenOptions))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (FlattenOptions)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector FlattenOptions)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (FlattenOptions))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector FlattenOptions))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (FlattenOptions)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector FlattenOptions)))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (FlattenOptions))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec data DiscriminatorOptions      = DiscriminatorOptions @@ -220,15 +222,15 @@     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default DiscriminatorOptions) where+instance (Default.Default (DiscriminatorOptions)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg DiscriminatorOptions) where+instance (Classes.FromStruct Message.ConstMsg (DiscriminatorOptions)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize DiscriminatorOptions) where-    type Cerial msg DiscriminatorOptions = (Capnp.Gen.ById.X8ef99297a43a5e34.DiscriminatorOptions msg)+instance (Classes.Decerialize (DiscriminatorOptions)) where+    type Cerial msg (DiscriminatorOptions) = (Capnp.Gen.ById.X8ef99297a43a5e34.DiscriminatorOptions msg)     decerialize raw = (DiscriminatorOptions <$> ((Capnp.Gen.ById.X8ef99297a43a5e34.get_DiscriminatorOptions'name raw) >>= Classes.decerialize)                                             <*> ((Capnp.Gen.ById.X8ef99297a43a5e34.get_DiscriminatorOptions'valueName raw) >>= Classes.decerialize))-instance (Classes.Marshal DiscriminatorOptions) where+instance (Classes.Marshal s (DiscriminatorOptions)) where     marshalInto raw_ value_ = case value_ of         DiscriminatorOptions{..} ->             (do@@ -236,18 +238,18 @@                 ((Classes.cerialize (Untyped.message raw_) valueName) >>= (Capnp.Gen.ById.X8ef99297a43a5e34.set_DiscriminatorOptions'valueName raw_))                 (Std_.pure ())                 )-instance (Classes.Cerialize DiscriminatorOptions)-instance (Classes.Cerialize (V.Vector DiscriminatorOptions)) where+instance (Classes.Cerialize s (DiscriminatorOptions))+instance (Classes.Cerialize s (V.Vector (DiscriminatorOptions))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector DiscriminatorOptions))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (DiscriminatorOptions)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector DiscriminatorOptions)))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (DiscriminatorOptions))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector DiscriminatorOptions))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (DiscriminatorOptions)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector DiscriminatorOptions)))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (DiscriminatorOptions))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector DiscriminatorOptions))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (DiscriminatorOptions)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector DiscriminatorOptions)))))))) where+instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (DiscriminatorOptions))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec

@@ -2,9 +2,11 @@ {-# 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 #-}

@@ -22,34 +22,32 @@ import qualified Data.Word as Std_ import qualified Data.Int as Std_ import Prelude ((<$>), (<*>), (>>=))-newtype Persistent msg+newtype Persistent sturdyRef owner msg     = Persistent'newtype_ (Std_.Maybe (Untyped.Cap msg))-instance (Classes.FromPtr msg (Persistent msg)) where+instance (Classes.FromPtr msg (Persistent sturdyRef owner msg)) where     fromPtr msg ptr = (Persistent'newtype_ <$> (Classes.fromPtr msg ptr))-instance (Classes.ToPtr s (Persistent (Message.MutMsg s))) where+instance (Classes.ToPtr s (Persistent sturdyRef owner (Message.MutMsg s))) where     toPtr msg (Persistent'newtype_ (Std_.Nothing)) = (Std_.pure Std_.Nothing)     toPtr msg (Persistent'newtype_ (Std_.Just cap)) = (Std_.pure (Std_.Just (Untyped.PtrCap cap)))-newtype Persistent'SaveParams msg+newtype Persistent'SaveParams sturdyRef owner msg     = Persistent'SaveParams'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Persistent'SaveParams) where-    tMsg f (Persistent'SaveParams'newtype_ s) = (Persistent'SaveParams'newtype_ <$> (Untyped.tMsg f s))-instance (Classes.FromStruct msg (Persistent'SaveParams msg)) where+instance (Classes.FromStruct msg (Persistent'SaveParams sturdyRef owner msg)) where     fromStruct struct = (Std_.pure (Persistent'SaveParams'newtype_ struct))-instance (Classes.ToStruct msg (Persistent'SaveParams msg)) where+instance (Classes.ToStruct msg (Persistent'SaveParams sturdyRef owner msg)) where     toStruct (Persistent'SaveParams'newtype_ struct) = struct-instance (Untyped.HasMessage (Persistent'SaveParams msg)) where-    type InMessage (Persistent'SaveParams msg) = msg+instance (Untyped.HasMessage (Persistent'SaveParams sturdyRef owner msg)) where+    type InMessage (Persistent'SaveParams sturdyRef owner msg) = msg     message (Persistent'SaveParams'newtype_ struct) = (Untyped.message struct)-instance (Untyped.MessageDefault (Persistent'SaveParams msg)) where+instance (Untyped.MessageDefault (Persistent'SaveParams sturdyRef owner msg)) where     messageDefault msg = (Persistent'SaveParams'newtype_ (Untyped.messageDefault msg))-instance (Classes.FromPtr msg (Persistent'SaveParams msg)) where+instance (Classes.FromPtr msg (Persistent'SaveParams sturdyRef owner msg)) where     fromPtr msg ptr = (Persistent'SaveParams'newtype_ <$> (Classes.fromPtr msg ptr))-instance (Classes.ToPtr s (Persistent'SaveParams (Message.MutMsg s))) where+instance (Classes.ToPtr s (Persistent'SaveParams sturdyRef owner (Message.MutMsg s))) where     toPtr msg (Persistent'SaveParams'newtype_ struct) = (Classes.toPtr msg struct)-instance (Classes.Allocate s (Persistent'SaveParams (Message.MutMsg s))) where+instance (Classes.Allocate s (Persistent'SaveParams sturdyRef owner (Message.MutMsg s))) where     new msg = (Persistent'SaveParams'newtype_ <$> (Untyped.allocStruct msg 0 1))-instance (Basics.ListElem msg (Persistent'SaveParams msg)) where-    newtype List msg (Persistent'SaveParams msg)+instance (Basics.ListElem msg (Persistent'SaveParams sturdyRef owner msg)) where+    newtype List msg (Persistent'SaveParams sturdyRef owner msg)         = Persistent'SaveParams'List_ (Untyped.ListOf msg (Untyped.Struct msg))     listFromPtr msg ptr = (Persistent'SaveParams'List_ <$> (Classes.fromPtr msg ptr))     toUntypedList (Persistent'SaveParams'List_ l) = (Untyped.ListStruct l)@@ -58,42 +56,42 @@         elt <- (Untyped.index i l)         (Classes.fromStruct elt)         )-instance (Basics.MutListElem s (Persistent'SaveParams (Message.MutMsg s))) where+instance (Basics.MutListElem s (Persistent'SaveParams sturdyRef owner (Message.MutMsg s))) where     setIndex (Persistent'SaveParams'newtype_ elt) i (Persistent'SaveParams'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (Persistent'SaveParams'List_ <$> (Untyped.allocCompositeList msg 0 1 len))-get_Persistent'SaveParams'sealFor :: ((Untyped.ReadCtx m msg)) => (Persistent'SaveParams msg) -> (m (Std_.Maybe (Untyped.Ptr msg)))+get_Persistent'SaveParams'sealFor :: ((Untyped.ReadCtx m msg)+                                     ,(Classes.FromPtr msg owner)) => (Persistent'SaveParams sturdyRef owner msg) -> (m owner) get_Persistent'SaveParams'sealFor (Persistent'SaveParams'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Persistent'SaveParams'sealFor :: ((Untyped.RWCtx m s)) => (Persistent'SaveParams (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())+set_Persistent'SaveParams'sealFor :: ((Untyped.RWCtx m s)+                                     ,(Classes.ToPtr s owner)) => (Persistent'SaveParams sturdyRef owner (Message.MutMsg s)) -> owner -> (m ()) set_Persistent'SaveParams'sealFor (Persistent'SaveParams'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)     )-has_Persistent'SaveParams'sealFor :: ((Untyped.ReadCtx m msg)) => (Persistent'SaveParams msg) -> (m Std_.Bool)+has_Persistent'SaveParams'sealFor :: ((Untyped.ReadCtx m msg)) => (Persistent'SaveParams sturdyRef owner msg) -> (m Std_.Bool) has_Persistent'SaveParams'sealFor (Persistent'SaveParams'newtype_ struct) = (Std_.isJust <$> (Untyped.getPtr 0 struct))-newtype Persistent'SaveResults msg+newtype Persistent'SaveResults sturdyRef owner msg     = Persistent'SaveResults'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Persistent'SaveResults) where-    tMsg f (Persistent'SaveResults'newtype_ s) = (Persistent'SaveResults'newtype_ <$> (Untyped.tMsg f s))-instance (Classes.FromStruct msg (Persistent'SaveResults msg)) where+instance (Classes.FromStruct msg (Persistent'SaveResults sturdyRef owner msg)) where     fromStruct struct = (Std_.pure (Persistent'SaveResults'newtype_ struct))-instance (Classes.ToStruct msg (Persistent'SaveResults msg)) where+instance (Classes.ToStruct msg (Persistent'SaveResults sturdyRef owner msg)) where     toStruct (Persistent'SaveResults'newtype_ struct) = struct-instance (Untyped.HasMessage (Persistent'SaveResults msg)) where-    type InMessage (Persistent'SaveResults msg) = msg+instance (Untyped.HasMessage (Persistent'SaveResults sturdyRef owner msg)) where+    type InMessage (Persistent'SaveResults sturdyRef owner msg) = msg     message (Persistent'SaveResults'newtype_ struct) = (Untyped.message struct)-instance (Untyped.MessageDefault (Persistent'SaveResults msg)) where+instance (Untyped.MessageDefault (Persistent'SaveResults sturdyRef owner msg)) where     messageDefault msg = (Persistent'SaveResults'newtype_ (Untyped.messageDefault msg))-instance (Classes.FromPtr msg (Persistent'SaveResults msg)) where+instance (Classes.FromPtr msg (Persistent'SaveResults sturdyRef owner msg)) where     fromPtr msg ptr = (Persistent'SaveResults'newtype_ <$> (Classes.fromPtr msg ptr))-instance (Classes.ToPtr s (Persistent'SaveResults (Message.MutMsg s))) where+instance (Classes.ToPtr s (Persistent'SaveResults sturdyRef owner (Message.MutMsg s))) where     toPtr msg (Persistent'SaveResults'newtype_ struct) = (Classes.toPtr msg struct)-instance (Classes.Allocate s (Persistent'SaveResults (Message.MutMsg s))) where+instance (Classes.Allocate s (Persistent'SaveResults sturdyRef owner (Message.MutMsg s))) where     new msg = (Persistent'SaveResults'newtype_ <$> (Untyped.allocStruct msg 0 1))-instance (Basics.ListElem msg (Persistent'SaveResults msg)) where-    newtype List msg (Persistent'SaveResults msg)+instance (Basics.ListElem msg (Persistent'SaveResults sturdyRef owner msg)) where+    newtype List msg (Persistent'SaveResults sturdyRef owner msg)         = Persistent'SaveResults'List_ (Untyped.ListOf msg (Untyped.Struct msg))     listFromPtr msg ptr = (Persistent'SaveResults'List_ <$> (Classes.fromPtr msg ptr))     toUntypedList (Persistent'SaveResults'List_ l) = (Untyped.ListStruct l)@@ -102,49 +100,49 @@         elt <- (Untyped.index i l)         (Classes.fromStruct elt)         )-instance (Basics.MutListElem s (Persistent'SaveResults (Message.MutMsg s))) where+instance (Basics.MutListElem s (Persistent'SaveResults sturdyRef owner (Message.MutMsg s))) where     setIndex (Persistent'SaveResults'newtype_ elt) i (Persistent'SaveResults'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (Persistent'SaveResults'List_ <$> (Untyped.allocCompositeList msg 0 1 len))-get_Persistent'SaveResults'sturdyRef :: ((Untyped.ReadCtx m msg)) => (Persistent'SaveResults msg) -> (m (Std_.Maybe (Untyped.Ptr msg)))+get_Persistent'SaveResults'sturdyRef :: ((Untyped.ReadCtx m msg)+                                        ,(Classes.FromPtr msg sturdyRef)) => (Persistent'SaveResults sturdyRef owner msg) -> (m sturdyRef) get_Persistent'SaveResults'sturdyRef (Persistent'SaveResults'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Persistent'SaveResults'sturdyRef :: ((Untyped.RWCtx m s)) => (Persistent'SaveResults (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())+set_Persistent'SaveResults'sturdyRef :: ((Untyped.RWCtx m s)+                                        ,(Classes.ToPtr s sturdyRef)) => (Persistent'SaveResults sturdyRef owner (Message.MutMsg s)) -> sturdyRef -> (m ()) set_Persistent'SaveResults'sturdyRef (Persistent'SaveResults'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)     )-has_Persistent'SaveResults'sturdyRef :: ((Untyped.ReadCtx m msg)) => (Persistent'SaveResults msg) -> (m Std_.Bool)+has_Persistent'SaveResults'sturdyRef :: ((Untyped.ReadCtx m msg)) => (Persistent'SaveResults sturdyRef owner msg) -> (m Std_.Bool) has_Persistent'SaveResults'sturdyRef (Persistent'SaveResults'newtype_ struct) = (Std_.isJust <$> (Untyped.getPtr 0 struct))-newtype RealmGateway msg+newtype RealmGateway internalRef externalRef internalOwner externalOwner msg     = RealmGateway'newtype_ (Std_.Maybe (Untyped.Cap msg))-instance (Classes.FromPtr msg (RealmGateway msg)) where+instance (Classes.FromPtr msg (RealmGateway internalRef externalRef internalOwner externalOwner msg)) where     fromPtr msg ptr = (RealmGateway'newtype_ <$> (Classes.fromPtr msg ptr))-instance (Classes.ToPtr s (RealmGateway (Message.MutMsg s))) where+instance (Classes.ToPtr s (RealmGateway internalRef externalRef internalOwner externalOwner (Message.MutMsg s))) where     toPtr msg (RealmGateway'newtype_ (Std_.Nothing)) = (Std_.pure Std_.Nothing)     toPtr msg (RealmGateway'newtype_ (Std_.Just cap)) = (Std_.pure (Std_.Just (Untyped.PtrCap cap)))-newtype RealmGateway'import'params msg+newtype RealmGateway'import'params internalRef externalRef internalOwner externalOwner msg     = RealmGateway'import'params'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg RealmGateway'import'params) where-    tMsg f (RealmGateway'import'params'newtype_ s) = (RealmGateway'import'params'newtype_ <$> (Untyped.tMsg f s))-instance (Classes.FromStruct msg (RealmGateway'import'params msg)) where+instance (Classes.FromStruct msg (RealmGateway'import'params internalRef externalRef internalOwner externalOwner msg)) where     fromStruct struct = (Std_.pure (RealmGateway'import'params'newtype_ struct))-instance (Classes.ToStruct msg (RealmGateway'import'params msg)) where+instance (Classes.ToStruct msg (RealmGateway'import'params internalRef externalRef internalOwner externalOwner msg)) where     toStruct (RealmGateway'import'params'newtype_ struct) = struct-instance (Untyped.HasMessage (RealmGateway'import'params msg)) where-    type InMessage (RealmGateway'import'params msg) = msg+instance (Untyped.HasMessage (RealmGateway'import'params internalRef externalRef internalOwner externalOwner msg)) where+    type InMessage (RealmGateway'import'params internalRef externalRef internalOwner externalOwner msg) = msg     message (RealmGateway'import'params'newtype_ struct) = (Untyped.message struct)-instance (Untyped.MessageDefault (RealmGateway'import'params msg)) where+instance (Untyped.MessageDefault (RealmGateway'import'params internalRef externalRef internalOwner externalOwner msg)) where     messageDefault msg = (RealmGateway'import'params'newtype_ (Untyped.messageDefault msg))-instance (Classes.FromPtr msg (RealmGateway'import'params msg)) where+instance (Classes.FromPtr msg (RealmGateway'import'params internalRef externalRef internalOwner externalOwner msg)) where     fromPtr msg ptr = (RealmGateway'import'params'newtype_ <$> (Classes.fromPtr msg ptr))-instance (Classes.ToPtr s (RealmGateway'import'params (Message.MutMsg s))) where+instance (Classes.ToPtr s (RealmGateway'import'params internalRef externalRef internalOwner externalOwner (Message.MutMsg s))) where     toPtr msg (RealmGateway'import'params'newtype_ struct) = (Classes.toPtr msg struct)-instance (Classes.Allocate s (RealmGateway'import'params (Message.MutMsg s))) where+instance (Classes.Allocate s (RealmGateway'import'params internalRef externalRef internalOwner externalOwner (Message.MutMsg s))) where     new msg = (RealmGateway'import'params'newtype_ <$> (Untyped.allocStruct msg 0 2))-instance (Basics.ListElem msg (RealmGateway'import'params msg)) where-    newtype List msg (RealmGateway'import'params msg)+instance (Basics.ListElem msg (RealmGateway'import'params internalRef externalRef internalOwner externalOwner msg)) where+    newtype List msg (RealmGateway'import'params internalRef externalRef internalOwner externalOwner msg)         = RealmGateway'import'params'List_ (Untyped.ListOf msg (Untyped.Struct msg))     listFromPtr msg ptr = (RealmGateway'import'params'List_ <$> (Classes.fromPtr msg ptr))     toUntypedList (RealmGateway'import'params'List_ l) = (Untyped.ListStruct l)@@ -153,60 +151,62 @@         elt <- (Untyped.index i l)         (Classes.fromStruct elt)         )-instance (Basics.MutListElem s (RealmGateway'import'params (Message.MutMsg s))) where+instance (Basics.MutListElem s (RealmGateway'import'params internalRef externalRef internalOwner externalOwner (Message.MutMsg s))) where     setIndex (RealmGateway'import'params'newtype_ elt) i (RealmGateway'import'params'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (RealmGateway'import'params'List_ <$> (Untyped.allocCompositeList msg 0 2 len))-get_RealmGateway'import'params'cap :: ((Untyped.ReadCtx m msg)) => (RealmGateway'import'params msg) -> (m (Persistent msg))+get_RealmGateway'import'params'cap :: ((Untyped.ReadCtx m msg)+                                      ,(Classes.FromPtr msg (Persistent externalRef externalOwner msg))) => (RealmGateway'import'params internalRef externalRef internalOwner externalOwner msg) -> (m (Persistent externalRef externalOwner msg)) get_RealmGateway'import'params'cap (RealmGateway'import'params'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_RealmGateway'import'params'cap :: ((Untyped.RWCtx m s)) => (RealmGateway'import'params (Message.MutMsg s)) -> (Persistent (Message.MutMsg s)) -> (m ())+set_RealmGateway'import'params'cap :: ((Untyped.RWCtx m s)+                                      ,(Classes.ToPtr s (Persistent externalRef externalOwner (Message.MutMsg s)))) => (RealmGateway'import'params internalRef externalRef internalOwner externalOwner (Message.MutMsg s)) -> (Persistent externalRef externalOwner (Message.MutMsg s)) -> (m ()) set_RealmGateway'import'params'cap (RealmGateway'import'params'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)     )-has_RealmGateway'import'params'cap :: ((Untyped.ReadCtx m msg)) => (RealmGateway'import'params msg) -> (m Std_.Bool)+has_RealmGateway'import'params'cap :: ((Untyped.ReadCtx m msg)) => (RealmGateway'import'params internalRef externalRef internalOwner externalOwner msg) -> (m Std_.Bool) has_RealmGateway'import'params'cap (RealmGateway'import'params'newtype_ struct) = (Std_.isJust <$> (Untyped.getPtr 0 struct))-get_RealmGateway'import'params'params :: ((Untyped.ReadCtx m msg)) => (RealmGateway'import'params msg) -> (m (Persistent'SaveParams msg))+get_RealmGateway'import'params'params :: ((Untyped.ReadCtx m msg)+                                         ,(Classes.FromPtr msg (Persistent'SaveParams internalRef internalOwner msg))) => (RealmGateway'import'params internalRef externalRef internalOwner externalOwner msg) -> (m (Persistent'SaveParams internalRef internalOwner msg)) get_RealmGateway'import'params'params (RealmGateway'import'params'newtype_ struct) = (do     ptr <- (Untyped.getPtr 1 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_RealmGateway'import'params'params :: ((Untyped.RWCtx m s)) => (RealmGateway'import'params (Message.MutMsg s)) -> (Persistent'SaveParams (Message.MutMsg s)) -> (m ())+set_RealmGateway'import'params'params :: ((Untyped.RWCtx m s)+                                         ,(Classes.ToPtr s (Persistent'SaveParams internalRef internalOwner (Message.MutMsg s)))) => (RealmGateway'import'params internalRef externalRef internalOwner externalOwner (Message.MutMsg s)) -> (Persistent'SaveParams internalRef internalOwner (Message.MutMsg s)) -> (m ()) set_RealmGateway'import'params'params (RealmGateway'import'params'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 1 struct)     )-has_RealmGateway'import'params'params :: ((Untyped.ReadCtx m msg)) => (RealmGateway'import'params msg) -> (m Std_.Bool)+has_RealmGateway'import'params'params :: ((Untyped.ReadCtx m msg)) => (RealmGateway'import'params internalRef externalRef internalOwner externalOwner msg) -> (m Std_.Bool) has_RealmGateway'import'params'params (RealmGateway'import'params'newtype_ struct) = (Std_.isJust <$> (Untyped.getPtr 1 struct))-new_RealmGateway'import'params'params :: ((Untyped.RWCtx m s)) => (RealmGateway'import'params (Message.MutMsg s)) -> (m (Persistent'SaveParams (Message.MutMsg s)))+new_RealmGateway'import'params'params :: ((Untyped.RWCtx m s)) => (RealmGateway'import'params internalRef externalRef internalOwner externalOwner (Message.MutMsg s)) -> (m (Persistent'SaveParams internalRef internalOwner (Message.MutMsg s))) new_RealmGateway'import'params'params struct = (do     result <- (Classes.new (Untyped.message struct))     (set_RealmGateway'import'params'params struct result)     (Std_.pure result)     )-newtype RealmGateway'export'params msg+newtype RealmGateway'export'params internalRef externalRef internalOwner externalOwner msg     = RealmGateway'export'params'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg RealmGateway'export'params) where-    tMsg f (RealmGateway'export'params'newtype_ s) = (RealmGateway'export'params'newtype_ <$> (Untyped.tMsg f s))-instance (Classes.FromStruct msg (RealmGateway'export'params msg)) where+instance (Classes.FromStruct msg (RealmGateway'export'params internalRef externalRef internalOwner externalOwner msg)) where     fromStruct struct = (Std_.pure (RealmGateway'export'params'newtype_ struct))-instance (Classes.ToStruct msg (RealmGateway'export'params msg)) where+instance (Classes.ToStruct msg (RealmGateway'export'params internalRef externalRef internalOwner externalOwner msg)) where     toStruct (RealmGateway'export'params'newtype_ struct) = struct-instance (Untyped.HasMessage (RealmGateway'export'params msg)) where-    type InMessage (RealmGateway'export'params msg) = msg+instance (Untyped.HasMessage (RealmGateway'export'params internalRef externalRef internalOwner externalOwner msg)) where+    type InMessage (RealmGateway'export'params internalRef externalRef internalOwner externalOwner msg) = msg     message (RealmGateway'export'params'newtype_ struct) = (Untyped.message struct)-instance (Untyped.MessageDefault (RealmGateway'export'params msg)) where+instance (Untyped.MessageDefault (RealmGateway'export'params internalRef externalRef internalOwner externalOwner msg)) where     messageDefault msg = (RealmGateway'export'params'newtype_ (Untyped.messageDefault msg))-instance (Classes.FromPtr msg (RealmGateway'export'params msg)) where+instance (Classes.FromPtr msg (RealmGateway'export'params internalRef externalRef internalOwner externalOwner msg)) where     fromPtr msg ptr = (RealmGateway'export'params'newtype_ <$> (Classes.fromPtr msg ptr))-instance (Classes.ToPtr s (RealmGateway'export'params (Message.MutMsg s))) where+instance (Classes.ToPtr s (RealmGateway'export'params internalRef externalRef internalOwner externalOwner (Message.MutMsg s))) where     toPtr msg (RealmGateway'export'params'newtype_ struct) = (Classes.toPtr msg struct)-instance (Classes.Allocate s (RealmGateway'export'params (Message.MutMsg s))) where+instance (Classes.Allocate s (RealmGateway'export'params internalRef externalRef internalOwner externalOwner (Message.MutMsg s))) where     new msg = (RealmGateway'export'params'newtype_ <$> (Untyped.allocStruct msg 0 2))-instance (Basics.ListElem msg (RealmGateway'export'params msg)) where-    newtype List msg (RealmGateway'export'params msg)+instance (Basics.ListElem msg (RealmGateway'export'params internalRef externalRef internalOwner externalOwner msg)) where+    newtype List msg (RealmGateway'export'params internalRef externalRef internalOwner externalOwner msg)         = RealmGateway'export'params'List_ (Untyped.ListOf msg (Untyped.Struct msg))     listFromPtr msg ptr = (RealmGateway'export'params'List_ <$> (Classes.fromPtr msg ptr))     toUntypedList (RealmGateway'export'params'List_ l) = (Untyped.ListStruct l)@@ -215,34 +215,38 @@         elt <- (Untyped.index i l)         (Classes.fromStruct elt)         )-instance (Basics.MutListElem s (RealmGateway'export'params (Message.MutMsg s))) where+instance (Basics.MutListElem s (RealmGateway'export'params internalRef externalRef internalOwner externalOwner (Message.MutMsg s))) where     setIndex (RealmGateway'export'params'newtype_ elt) i (RealmGateway'export'params'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (RealmGateway'export'params'List_ <$> (Untyped.allocCompositeList msg 0 2 len))-get_RealmGateway'export'params'cap :: ((Untyped.ReadCtx m msg)) => (RealmGateway'export'params msg) -> (m (Persistent msg))+get_RealmGateway'export'params'cap :: ((Untyped.ReadCtx m msg)+                                      ,(Classes.FromPtr msg (Persistent internalRef internalOwner msg))) => (RealmGateway'export'params internalRef externalRef internalOwner externalOwner msg) -> (m (Persistent internalRef internalOwner msg)) get_RealmGateway'export'params'cap (RealmGateway'export'params'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_RealmGateway'export'params'cap :: ((Untyped.RWCtx m s)) => (RealmGateway'export'params (Message.MutMsg s)) -> (Persistent (Message.MutMsg s)) -> (m ())+set_RealmGateway'export'params'cap :: ((Untyped.RWCtx m s)+                                      ,(Classes.ToPtr s (Persistent internalRef internalOwner (Message.MutMsg s)))) => (RealmGateway'export'params internalRef externalRef internalOwner externalOwner (Message.MutMsg s)) -> (Persistent internalRef internalOwner (Message.MutMsg s)) -> (m ()) set_RealmGateway'export'params'cap (RealmGateway'export'params'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)     )-has_RealmGateway'export'params'cap :: ((Untyped.ReadCtx m msg)) => (RealmGateway'export'params msg) -> (m Std_.Bool)+has_RealmGateway'export'params'cap :: ((Untyped.ReadCtx m msg)) => (RealmGateway'export'params internalRef externalRef internalOwner externalOwner msg) -> (m Std_.Bool) has_RealmGateway'export'params'cap (RealmGateway'export'params'newtype_ struct) = (Std_.isJust <$> (Untyped.getPtr 0 struct))-get_RealmGateway'export'params'params :: ((Untyped.ReadCtx m msg)) => (RealmGateway'export'params msg) -> (m (Persistent'SaveParams msg))+get_RealmGateway'export'params'params :: ((Untyped.ReadCtx m msg)+                                         ,(Classes.FromPtr msg (Persistent'SaveParams externalRef externalOwner msg))) => (RealmGateway'export'params internalRef externalRef internalOwner externalOwner msg) -> (m (Persistent'SaveParams externalRef externalOwner msg)) get_RealmGateway'export'params'params (RealmGateway'export'params'newtype_ struct) = (do     ptr <- (Untyped.getPtr 1 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_RealmGateway'export'params'params :: ((Untyped.RWCtx m s)) => (RealmGateway'export'params (Message.MutMsg s)) -> (Persistent'SaveParams (Message.MutMsg s)) -> (m ())+set_RealmGateway'export'params'params :: ((Untyped.RWCtx m s)+                                         ,(Classes.ToPtr s (Persistent'SaveParams externalRef externalOwner (Message.MutMsg s)))) => (RealmGateway'export'params internalRef externalRef internalOwner externalOwner (Message.MutMsg s)) -> (Persistent'SaveParams externalRef externalOwner (Message.MutMsg s)) -> (m ()) set_RealmGateway'export'params'params (RealmGateway'export'params'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 1 struct)     )-has_RealmGateway'export'params'params :: ((Untyped.ReadCtx m msg)) => (RealmGateway'export'params msg) -> (m Std_.Bool)+has_RealmGateway'export'params'params :: ((Untyped.ReadCtx m msg)) => (RealmGateway'export'params internalRef externalRef internalOwner externalOwner msg) -> (m Std_.Bool) has_RealmGateway'export'params'params (RealmGateway'export'params'newtype_ struct) = (Std_.isJust <$> (Untyped.getPtr 1 struct))-new_RealmGateway'export'params'params :: ((Untyped.RWCtx m s)) => (RealmGateway'export'params (Message.MutMsg s)) -> (m (Persistent'SaveParams (Message.MutMsg s)))+new_RealmGateway'export'params'params :: ((Untyped.RWCtx m s)) => (RealmGateway'export'params internalRef externalRef internalOwner externalOwner (Message.MutMsg s)) -> (m (Persistent'SaveParams externalRef externalOwner (Message.MutMsg s))) new_RealmGateway'export'params'params struct = (do     result <- (Classes.new (Untyped.message struct))     (set_RealmGateway'export'params'params struct result)

@@ -2,9 +2,11 @@ {-# 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 #-}@@ -42,18 +44,18 @@ import qualified Data.Word as Std_ import qualified Data.Int as Std_ import Prelude ((<$>), (<*>), (>>=))-newtype Persistent +newtype Persistent sturdyRef owner     = Persistent Message.Client     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic) class ((MonadIO.MonadIO m)-      ,(Server.Server m cap)) => (Persistent'server_ m cap) where+      ,(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 Persistent'SaveResults)+    persistent'save :: cap -> (Server.MethodHandler m (Persistent'SaveParams sturdyRef owner) (Persistent'SaveResults sturdyRef owner))     persistent'save _ = Server.methodUnimplemented-export_Persistent :: ((Persistent'server_ Std_.IO a)-                     ,(STM.MonadSTM m)) => Supervisors.Supervisor -> a -> (m Persistent)+export_Persistent :: ((STM.MonadSTM m)+                     ,(Persistent'server_ Std_.IO cap sturdyRef owner)) => Supervisors.Supervisor -> cap -> (m (Persistent sturdyRef owner)) export_Persistent sup_ server_ = (STM.liftSTM (Persistent <$> (Rpc.export sup_ Server.ServerOps{handleCast = (Server.unwrap server_)                                                                                                ,handleStop = (Server.shutdown server_)                                                                                                ,handleCall = (\interfaceId_ methodId_ -> case interfaceId_ of@@ -65,109 +67,253 @@                                                                                                                Server.methodUnimplemented                                                                                                    _ ->                                                                                                        Server.methodUnimplemented)})))-instance (Rpc.IsClient Persistent) where+instance (Rpc.IsClient (Persistent sturdyRef owner)) where     fromClient  = Persistent     toClient (Persistent client) = client-instance (Classes.FromPtr msg Persistent) where+instance (Classes.FromPtr msg (Persistent sturdyRef owner)) where     fromPtr  = RpcHelpers.isClientFromPtr-instance (Classes.ToPtr s Persistent) where+instance (Classes.ToPtr s (Persistent sturdyRef owner)) where     toPtr  = RpcHelpers.isClientToPtr-instance (Classes.Decerialize Persistent) where-    type Cerial msg Persistent = (Capnp.Gen.ById.Xb8630836983feed7.Persistent msg)+instance (Classes.Decerialize (Persistent sturdyRef owner)) where+    type Cerial msg (Persistent sturdyRef owner) = (Capnp.Gen.ById.Xb8630836983feed7.Persistent (Classes.Cerial msg sturdyRef) (Classes.Cerial msg owner) msg)     decerialize (Capnp.Gen.ById.Xb8630836983feed7.Persistent'newtype_ maybeCap) = case maybeCap of         (Std_.Nothing) ->             (Std_.pure (Persistent Message.nullClient))         (Std_.Just cap) ->             (Persistent <$> (Untyped.getClient cap))-instance (Classes.Cerialize Persistent) where+instance (Classes.Cerialize s (Persistent sturdyRef owner)) where     cerialize msg (Persistent client) = (Capnp.Gen.ById.Xb8630836983feed7.Persistent'newtype_ <$> (Std_.Just <$> (Untyped.appendCap msg client)))-instance (Server.Server Std_.IO Persistent)-instance (Persistent'server_ Std_.IO Persistent) where+instance (Server.Server Std_.IO (Persistent sturdyRef owner))+instance (Persistent'server_ Std_.IO (Persistent sturdyRef owner) sturdyRef owner) where     persistent'save (Persistent client) = (Rpc.clientMethodHandler 14468694717054801553 0 client)-data Persistent'SaveParams +data Persistent'SaveParams sturdyRef owner     = Persistent'SaveParams -        {sealFor :: (Std_.Maybe UntypedPure.Ptr)}+        {sealFor :: owner}     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Persistent'SaveParams) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))) => (Default.Default (Persistent'SaveParams sturdyRef owner)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Persistent'SaveParams) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))) => (Classes.FromStruct Message.ConstMsg (Persistent'SaveParams sturdyRef owner)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Persistent'SaveParams) where-    type Cerial msg Persistent'SaveParams = (Capnp.Gen.ById.Xb8630836983feed7.Persistent'SaveParams msg)+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))) => (Classes.Decerialize (Persistent'SaveParams sturdyRef owner)) where+    type Cerial msg (Persistent'SaveParams sturdyRef owner) = (Capnp.Gen.ById.Xb8630836983feed7.Persistent'SaveParams (Classes.Cerial msg sturdyRef) (Classes.Cerial msg owner) msg)     decerialize raw = (Persistent'SaveParams <$> ((Capnp.Gen.ById.Xb8630836983feed7.get_Persistent'SaveParams'sealFor raw) >>= Classes.decerialize))-instance (Classes.Marshal Persistent'SaveParams) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))+         ,(Classes.Cerialize s sturdyRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))+         ,(Classes.Cerialize s owner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Marshal s (Persistent'SaveParams sturdyRef owner)) where     marshalInto raw_ value_ = case value_ of         Persistent'SaveParams{..} ->             (do                 ((Classes.cerialize (Untyped.message raw_) sealFor) >>= (Capnp.Gen.ById.Xb8630836983feed7.set_Persistent'SaveParams'sealFor raw_))                 (Std_.pure ())                 )-instance (Classes.Cerialize Persistent'SaveParams)-instance (Classes.Cerialize (V.Vector Persistent'SaveParams)) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))+         ,(Classes.Cerialize s sturdyRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))+         ,(Classes.Cerialize s owner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (Persistent'SaveParams sturdyRef owner))+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))+         ,(Classes.Cerialize s sturdyRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))+         ,(Classes.Cerialize s owner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (Persistent'SaveParams sturdyRef owner))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector Persistent'SaveParams))) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))+         ,(Classes.Cerialize s sturdyRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))+         ,(Classes.Cerialize s owner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (Persistent'SaveParams sturdyRef owner)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Persistent'SaveParams)))) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))+         ,(Classes.Cerialize s sturdyRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))+         ,(Classes.Cerialize s owner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Persistent'SaveParams sturdyRef owner))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Persistent'SaveParams))))) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))+         ,(Classes.Cerialize s sturdyRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))+         ,(Classes.Cerialize s owner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Persistent'SaveParams sturdyRef owner)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Persistent'SaveParams)))))) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))+         ,(Classes.Cerialize s sturdyRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))+         ,(Classes.Cerialize s owner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Persistent'SaveParams sturdyRef owner))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Persistent'SaveParams))))))) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))+         ,(Classes.Cerialize s sturdyRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))+         ,(Classes.Cerialize s owner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Persistent'SaveParams sturdyRef owner)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Persistent'SaveParams)))))))) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))+         ,(Classes.Cerialize s sturdyRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))+         ,(Classes.Cerialize s owner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Persistent'SaveParams sturdyRef owner))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-data Persistent'SaveResults +data Persistent'SaveResults sturdyRef owner     = Persistent'SaveResults -        {sturdyRef :: (Std_.Maybe UntypedPure.Ptr)}+        {sturdyRef :: sturdyRef}     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default Persistent'SaveResults) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))) => (Default.Default (Persistent'SaveResults sturdyRef owner)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg Persistent'SaveResults) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))) => (Classes.FromStruct Message.ConstMsg (Persistent'SaveResults sturdyRef owner)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize Persistent'SaveResults) where-    type Cerial msg Persistent'SaveResults = (Capnp.Gen.ById.Xb8630836983feed7.Persistent'SaveResults msg)+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))) => (Classes.Decerialize (Persistent'SaveResults sturdyRef owner)) where+    type Cerial msg (Persistent'SaveResults sturdyRef owner) = (Capnp.Gen.ById.Xb8630836983feed7.Persistent'SaveResults (Classes.Cerial msg sturdyRef) (Classes.Cerial msg owner) msg)     decerialize raw = (Persistent'SaveResults <$> ((Capnp.Gen.ById.Xb8630836983feed7.get_Persistent'SaveResults'sturdyRef raw) >>= Classes.decerialize))-instance (Classes.Marshal Persistent'SaveResults) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))+         ,(Classes.Cerialize s sturdyRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))+         ,(Classes.Cerialize s owner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Marshal s (Persistent'SaveResults sturdyRef owner)) where     marshalInto raw_ value_ = case value_ of         Persistent'SaveResults{..} ->             (do                 ((Classes.cerialize (Untyped.message raw_) sturdyRef) >>= (Capnp.Gen.ById.Xb8630836983feed7.set_Persistent'SaveResults'sturdyRef raw_))                 (Std_.pure ())                 )-instance (Classes.Cerialize Persistent'SaveResults)-instance (Classes.Cerialize (V.Vector Persistent'SaveResults)) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))+         ,(Classes.Cerialize s sturdyRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))+         ,(Classes.Cerialize s owner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (Persistent'SaveResults sturdyRef owner))+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))+         ,(Classes.Cerialize s sturdyRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))+         ,(Classes.Cerialize s owner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (Persistent'SaveResults sturdyRef owner))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector Persistent'SaveResults))) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))+         ,(Classes.Cerialize s sturdyRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))+         ,(Classes.Cerialize s owner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (Persistent'SaveResults sturdyRef owner)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector Persistent'SaveResults)))) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))+         ,(Classes.Cerialize s sturdyRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))+         ,(Classes.Cerialize s owner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (Persistent'SaveResults sturdyRef owner))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector Persistent'SaveResults))))) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))+         ,(Classes.Cerialize s sturdyRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))+         ,(Classes.Cerialize s owner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (Persistent'SaveResults sturdyRef owner)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Persistent'SaveResults)))))) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))+         ,(Classes.Cerialize s sturdyRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))+         ,(Classes.Cerialize s owner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Persistent'SaveResults sturdyRef owner))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Persistent'SaveResults))))))) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))+         ,(Classes.Cerialize s sturdyRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))+         ,(Classes.Cerialize s owner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Persistent'SaveResults sturdyRef owner)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector Persistent'SaveResults)))))))) where+instance ((Classes.Decerialize sturdyRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg sturdyRef))+         ,(Classes.Decerialize owner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg owner))+         ,(Classes.Cerialize s sturdyRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) sturdyRef))+         ,(Classes.Cerialize s owner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) owner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (Persistent'SaveResults sturdyRef owner))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-newtype RealmGateway +newtype RealmGateway internalRef externalRef internalOwner externalOwner     = RealmGateway Message.Client     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic) class ((MonadIO.MonadIO m)-      ,(Server.Server m cap)) => (RealmGateway'server_ m cap) where+      ,(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 Persistent'SaveResults)+    realmGateway'import_ :: cap -> (Server.MethodHandler m (RealmGateway'import'params internalRef externalRef internalOwner externalOwner) (Persistent'SaveResults internalRef internalOwner))     realmGateway'import_ _ = Server.methodUnimplemented-    realmGateway'export :: cap -> (Server.MethodHandler m RealmGateway'export'params Persistent'SaveResults)+    realmGateway'export :: cap -> (Server.MethodHandler m (RealmGateway'export'params internalRef externalRef internalOwner externalOwner) (Persistent'SaveResults externalRef externalOwner))     realmGateway'export _ = Server.methodUnimplemented-export_RealmGateway :: ((RealmGateway'server_ Std_.IO a)-                       ,(STM.MonadSTM m)) => Supervisors.Supervisor -> a -> (m RealmGateway)+export_RealmGateway :: ((STM.MonadSTM m)+                       ,(RealmGateway'server_ Std_.IO cap internalRef externalRef internalOwner externalOwner)) => Supervisors.Supervisor -> cap -> (m (RealmGateway internalRef externalRef internalOwner externalOwner)) export_RealmGateway sup_ server_ = (STM.liftSTM (RealmGateway <$> (Rpc.export sup_ Server.ServerOps{handleCast = (Server.unwrap server_)                                                                                                    ,handleStop = (Server.shutdown server_)                                                                                                    ,handleCall = (\interfaceId_ methodId_ -> case interfaceId_ of@@ -181,42 +327,78 @@                                                                                                                    Server.methodUnimplemented                                                                                                        _ ->                                                                                                            Server.methodUnimplemented)})))-instance (Rpc.IsClient RealmGateway) where+instance (Rpc.IsClient (RealmGateway internalRef externalRef internalOwner externalOwner)) where     fromClient  = RealmGateway     toClient (RealmGateway client) = client-instance (Classes.FromPtr msg RealmGateway) where+instance (Classes.FromPtr msg (RealmGateway internalRef externalRef internalOwner externalOwner)) where     fromPtr  = RpcHelpers.isClientFromPtr-instance (Classes.ToPtr s RealmGateway) where+instance (Classes.ToPtr s (RealmGateway internalRef externalRef internalOwner externalOwner)) where     toPtr  = RpcHelpers.isClientToPtr-instance (Classes.Decerialize RealmGateway) where-    type Cerial msg RealmGateway = (Capnp.Gen.ById.Xb8630836983feed7.RealmGateway msg)+instance (Classes.Decerialize (RealmGateway internalRef externalRef internalOwner externalOwner)) where+    type Cerial msg (RealmGateway internalRef externalRef internalOwner externalOwner) = (Capnp.Gen.ById.Xb8630836983feed7.RealmGateway (Classes.Cerial msg internalRef) (Classes.Cerial msg externalRef) (Classes.Cerial msg internalOwner) (Classes.Cerial msg externalOwner) msg)     decerialize (Capnp.Gen.ById.Xb8630836983feed7.RealmGateway'newtype_ maybeCap) = case maybeCap of         (Std_.Nothing) ->             (Std_.pure (RealmGateway Message.nullClient))         (Std_.Just cap) ->             (RealmGateway <$> (Untyped.getClient cap))-instance (Classes.Cerialize RealmGateway) where+instance (Classes.Cerialize s (RealmGateway internalRef externalRef internalOwner externalOwner)) where     cerialize msg (RealmGateway client) = (Capnp.Gen.ById.Xb8630836983feed7.RealmGateway'newtype_ <$> (Std_.Just <$> (Untyped.appendCap msg client)))-instance (Server.Server Std_.IO RealmGateway)-instance (RealmGateway'server_ Std_.IO RealmGateway) where+instance (Server.Server Std_.IO (RealmGateway internalRef externalRef internalOwner externalOwner))+instance (RealmGateway'server_ Std_.IO (RealmGateway internalRef externalRef internalOwner externalOwner) internalRef externalRef internalOwner externalOwner) where     realmGateway'import_ (RealmGateway client) = (Rpc.clientMethodHandler 9583422979879616212 0 client)     realmGateway'export (RealmGateway client) = (Rpc.clientMethodHandler 9583422979879616212 1 client)-data RealmGateway'import'params +data RealmGateway'import'params internalRef externalRef internalOwner externalOwner     = RealmGateway'import'params -        {cap :: Persistent-        ,params :: Persistent'SaveParams}+        {cap :: (Persistent externalRef externalOwner)+        ,params :: (Persistent'SaveParams internalRef internalOwner)}     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default RealmGateway'import'params) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))) => (Default.Default (RealmGateway'import'params internalRef externalRef internalOwner externalOwner)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg RealmGateway'import'params) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))) => (Classes.FromStruct Message.ConstMsg (RealmGateway'import'params internalRef externalRef internalOwner externalOwner)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize RealmGateway'import'params) where-    type Cerial msg RealmGateway'import'params = (Capnp.Gen.ById.Xb8630836983feed7.RealmGateway'import'params msg)+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))) => (Classes.Decerialize (RealmGateway'import'params internalRef externalRef internalOwner externalOwner)) where+    type Cerial msg (RealmGateway'import'params internalRef externalRef internalOwner externalOwner) = (Capnp.Gen.ById.Xb8630836983feed7.RealmGateway'import'params (Classes.Cerial msg internalRef) (Classes.Cerial msg externalRef) (Classes.Cerial msg internalOwner) (Classes.Cerial msg externalOwner) msg)     decerialize raw = (RealmGateway'import'params <$> ((Capnp.Gen.ById.Xb8630836983feed7.get_RealmGateway'import'params'cap raw) >>= Classes.decerialize)                                                   <*> ((Capnp.Gen.ById.Xb8630836983feed7.get_RealmGateway'import'params'params raw) >>= Classes.decerialize))-instance (Classes.Marshal RealmGateway'import'params) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))+         ,(Classes.Cerialize s internalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))+         ,(Classes.Cerialize s externalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))+         ,(Classes.Cerialize s internalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))+         ,(Classes.Cerialize s externalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Marshal s (RealmGateway'import'params internalRef externalRef internalOwner externalOwner)) where     marshalInto raw_ value_ = case value_ of         RealmGateway'import'params{..} ->             (do@@ -224,37 +406,193 @@                 ((Classes.cerialize (Untyped.message raw_) params) >>= (Capnp.Gen.ById.Xb8630836983feed7.set_RealmGateway'import'params'params raw_))                 (Std_.pure ())                 )-instance (Classes.Cerialize RealmGateway'import'params)-instance (Classes.Cerialize (V.Vector RealmGateway'import'params)) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))+         ,(Classes.Cerialize s internalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))+         ,(Classes.Cerialize s externalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))+         ,(Classes.Cerialize s internalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))+         ,(Classes.Cerialize s externalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (RealmGateway'import'params internalRef externalRef internalOwner externalOwner))+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))+         ,(Classes.Cerialize s internalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))+         ,(Classes.Cerialize s externalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))+         ,(Classes.Cerialize s internalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))+         ,(Classes.Cerialize s externalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (RealmGateway'import'params internalRef externalRef internalOwner externalOwner))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector RealmGateway'import'params))) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))+         ,(Classes.Cerialize s internalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))+         ,(Classes.Cerialize s externalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))+         ,(Classes.Cerialize s internalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))+         ,(Classes.Cerialize s externalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (RealmGateway'import'params internalRef externalRef internalOwner externalOwner)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector RealmGateway'import'params)))) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))+         ,(Classes.Cerialize s internalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))+         ,(Classes.Cerialize s externalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))+         ,(Classes.Cerialize s internalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))+         ,(Classes.Cerialize s externalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (RealmGateway'import'params internalRef externalRef internalOwner externalOwner))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector RealmGateway'import'params))))) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))+         ,(Classes.Cerialize s internalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))+         ,(Classes.Cerialize s externalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))+         ,(Classes.Cerialize s internalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))+         ,(Classes.Cerialize s externalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (RealmGateway'import'params internalRef externalRef internalOwner externalOwner)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector RealmGateway'import'params)))))) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))+         ,(Classes.Cerialize s internalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))+         ,(Classes.Cerialize s externalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))+         ,(Classes.Cerialize s internalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))+         ,(Classes.Cerialize s externalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (RealmGateway'import'params internalRef externalRef internalOwner externalOwner))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector RealmGateway'import'params))))))) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))+         ,(Classes.Cerialize s internalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))+         ,(Classes.Cerialize s externalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))+         ,(Classes.Cerialize s internalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))+         ,(Classes.Cerialize s externalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (RealmGateway'import'params internalRef externalRef internalOwner externalOwner)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector RealmGateway'import'params)))))))) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))+         ,(Classes.Cerialize s internalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))+         ,(Classes.Cerialize s externalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))+         ,(Classes.Cerialize s internalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))+         ,(Classes.Cerialize s externalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (RealmGateway'import'params internalRef externalRef internalOwner externalOwner))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-data RealmGateway'export'params +data RealmGateway'export'params internalRef externalRef internalOwner externalOwner     = RealmGateway'export'params -        {cap :: Persistent-        ,params :: Persistent'SaveParams}+        {cap :: (Persistent internalRef internalOwner)+        ,params :: (Persistent'SaveParams externalRef externalOwner)}     deriving(Std_.Show             ,Std_.Eq             ,Generics.Generic)-instance (Default.Default RealmGateway'export'params) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))) => (Default.Default (RealmGateway'export'params internalRef externalRef internalOwner externalOwner)) where     def  = GenHelpersPure.defaultStruct-instance (Classes.FromStruct Message.ConstMsg RealmGateway'export'params) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))) => (Classes.FromStruct Message.ConstMsg (RealmGateway'export'params internalRef externalRef internalOwner externalOwner)) where     fromStruct struct = ((Classes.fromStruct struct) >>= Classes.decerialize)-instance (Classes.Decerialize RealmGateway'export'params) where-    type Cerial msg RealmGateway'export'params = (Capnp.Gen.ById.Xb8630836983feed7.RealmGateway'export'params msg)+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))) => (Classes.Decerialize (RealmGateway'export'params internalRef externalRef internalOwner externalOwner)) where+    type Cerial msg (RealmGateway'export'params internalRef externalRef internalOwner externalOwner) = (Capnp.Gen.ById.Xb8630836983feed7.RealmGateway'export'params (Classes.Cerial msg internalRef) (Classes.Cerial msg externalRef) (Classes.Cerial msg internalOwner) (Classes.Cerial msg externalOwner) msg)     decerialize raw = (RealmGateway'export'params <$> ((Capnp.Gen.ById.Xb8630836983feed7.get_RealmGateway'export'params'cap raw) >>= Classes.decerialize)                                                   <*> ((Capnp.Gen.ById.Xb8630836983feed7.get_RealmGateway'export'params'params raw) >>= Classes.decerialize))-instance (Classes.Marshal RealmGateway'export'params) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))+         ,(Classes.Cerialize s internalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))+         ,(Classes.Cerialize s externalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))+         ,(Classes.Cerialize s internalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))+         ,(Classes.Cerialize s externalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Marshal s (RealmGateway'export'params internalRef externalRef internalOwner externalOwner)) where     marshalInto raw_ value_ = case value_ of         RealmGateway'export'params{..} ->             (do@@ -262,18 +600,138 @@                 ((Classes.cerialize (Untyped.message raw_) params) >>= (Capnp.Gen.ById.Xb8630836983feed7.set_RealmGateway'export'params'params raw_))                 (Std_.pure ())                 )-instance (Classes.Cerialize RealmGateway'export'params)-instance (Classes.Cerialize (V.Vector RealmGateway'export'params)) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))+         ,(Classes.Cerialize s internalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))+         ,(Classes.Cerialize s externalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))+         ,(Classes.Cerialize s internalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))+         ,(Classes.Cerialize s externalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (RealmGateway'export'params internalRef externalRef internalOwner externalOwner))+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))+         ,(Classes.Cerialize s internalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))+         ,(Classes.Cerialize s externalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))+         ,(Classes.Cerialize s internalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))+         ,(Classes.Cerialize s externalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (RealmGateway'export'params internalRef externalRef internalOwner externalOwner))) where     cerialize  = GenHelpersPure.cerializeCompositeVec-instance (Classes.Cerialize (V.Vector (V.Vector RealmGateway'export'params))) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))+         ,(Classes.Cerialize s internalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))+         ,(Classes.Cerialize s externalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))+         ,(Classes.Cerialize s internalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))+         ,(Classes.Cerialize s externalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (RealmGateway'export'params internalRef externalRef internalOwner externalOwner)))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector RealmGateway'export'params)))) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))+         ,(Classes.Cerialize s internalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))+         ,(Classes.Cerialize s externalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))+         ,(Classes.Cerialize s internalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))+         ,(Classes.Cerialize s externalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (RealmGateway'export'params internalRef externalRef internalOwner externalOwner))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector RealmGateway'export'params))))) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))+         ,(Classes.Cerialize s internalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))+         ,(Classes.Cerialize s externalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))+         ,(Classes.Cerialize s internalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))+         ,(Classes.Cerialize s externalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (RealmGateway'export'params internalRef externalRef internalOwner externalOwner)))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector RealmGateway'export'params)))))) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))+         ,(Classes.Cerialize s internalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))+         ,(Classes.Cerialize s externalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))+         ,(Classes.Cerialize s internalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))+         ,(Classes.Cerialize s externalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (RealmGateway'export'params internalRef externalRef internalOwner externalOwner))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector RealmGateway'export'params))))))) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))+         ,(Classes.Cerialize s internalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))+         ,(Classes.Cerialize s externalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))+         ,(Classes.Cerialize s internalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))+         ,(Classes.Cerialize s externalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (RealmGateway'export'params internalRef externalRef internalOwner externalOwner)))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec-instance (Classes.Cerialize (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector RealmGateway'export'params)))))))) where+instance ((Classes.Decerialize internalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalRef))+         ,(Classes.Decerialize externalRef)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalRef))+         ,(Classes.Decerialize internalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg internalOwner))+         ,(Classes.Decerialize externalOwner)+         ,(Classes.FromPtr Message.ConstMsg (Classes.Cerial Message.ConstMsg externalOwner))+         ,(Classes.Cerialize s internalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalRef))+         ,(Classes.Cerialize s externalRef)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalRef))+         ,(Classes.Cerialize s internalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) internalOwner))+         ,(Classes.Cerialize s externalOwner)+         ,(Classes.ToPtr s (Classes.Cerial (Message.MutMsg s) externalOwner))) => (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (RealmGateway'export'params internalRef externalRef internalOwner externalOwner))))))))) where     cerialize  = GenHelpersPure.cerializeBasicVec

@@ -24,8 +24,6 @@ import Prelude ((<$>), (<*>), (>>=)) newtype Message msg     = Message'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Message) where-    tMsg f (Message'newtype_ s) = (Message'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Message msg)) where     fromStruct struct = (Std_.pure (Message'newtype_ struct)) instance (Classes.ToStruct msg (Message msg)) where@@ -147,9 +145,11 @@             _ ->                 (Std_.pure (Message'unknown' (Std_.fromIntegral tag)))         )-get_Message' :: ((Untyped.ReadCtx m msg)) => (Message msg) -> (m (Message' msg))+get_Message' :: ((Untyped.ReadCtx m msg)+                ,(Classes.FromStruct msg (Message' msg))) => (Message msg) -> (m (Message' msg)) get_Message' (Message'newtype_ struct) = (Classes.fromStruct struct)-set_Message'unimplemented :: ((Untyped.RWCtx m s)) => (Message (Message.MutMsg s)) -> (Message (Message.MutMsg s)) -> (m ())+set_Message'unimplemented :: ((Untyped.RWCtx m s)+                             ,(Classes.ToPtr s (Message (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Message (Message.MutMsg s)) -> (m ()) set_Message'unimplemented (Message'newtype_ struct) value = (do     (GenHelpers.setWordField struct (0 :: Std_.Word16) 0 0 0)     (do@@ -157,7 +157,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_Message'abort :: ((Untyped.RWCtx m s)) => (Message (Message.MutMsg s)) -> (Exception (Message.MutMsg s)) -> (m ())+set_Message'abort :: ((Untyped.RWCtx m s)+                     ,(Classes.ToPtr s (Exception (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Exception (Message.MutMsg s)) -> (m ()) set_Message'abort (Message'newtype_ struct) value = (do     (GenHelpers.setWordField struct (1 :: Std_.Word16) 0 0 0)     (do@@ -165,7 +166,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_Message'call :: ((Untyped.RWCtx m s)) => (Message (Message.MutMsg s)) -> (Call (Message.MutMsg s)) -> (m ())+set_Message'call :: ((Untyped.RWCtx m s)+                    ,(Classes.ToPtr s (Call (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Call (Message.MutMsg s)) -> (m ()) set_Message'call (Message'newtype_ struct) value = (do     (GenHelpers.setWordField struct (2 :: Std_.Word16) 0 0 0)     (do@@ -173,7 +175,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_Message'return :: ((Untyped.RWCtx m s)) => (Message (Message.MutMsg s)) -> (Return (Message.MutMsg s)) -> (m ())+set_Message'return :: ((Untyped.RWCtx m s)+                      ,(Classes.ToPtr s (Return (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Return (Message.MutMsg s)) -> (m ()) set_Message'return (Message'newtype_ struct) value = (do     (GenHelpers.setWordField struct (3 :: Std_.Word16) 0 0 0)     (do@@ -181,7 +184,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_Message'finish :: ((Untyped.RWCtx m s)) => (Message (Message.MutMsg s)) -> (Finish (Message.MutMsg s)) -> (m ())+set_Message'finish :: ((Untyped.RWCtx m s)+                      ,(Classes.ToPtr s (Finish (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Finish (Message.MutMsg s)) -> (m ()) set_Message'finish (Message'newtype_ struct) value = (do     (GenHelpers.setWordField struct (4 :: Std_.Word16) 0 0 0)     (do@@ -189,7 +193,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_Message'resolve :: ((Untyped.RWCtx m s)) => (Message (Message.MutMsg s)) -> (Resolve (Message.MutMsg s)) -> (m ())+set_Message'resolve :: ((Untyped.RWCtx m s)+                       ,(Classes.ToPtr s (Resolve (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Resolve (Message.MutMsg s)) -> (m ()) set_Message'resolve (Message'newtype_ struct) value = (do     (GenHelpers.setWordField struct (5 :: Std_.Word16) 0 0 0)     (do@@ -197,7 +202,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_Message'release :: ((Untyped.RWCtx m s)) => (Message (Message.MutMsg s)) -> (Release (Message.MutMsg s)) -> (m ())+set_Message'release :: ((Untyped.RWCtx m s)+                       ,(Classes.ToPtr s (Release (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Release (Message.MutMsg s)) -> (m ()) set_Message'release (Message'newtype_ struct) value = (do     (GenHelpers.setWordField struct (6 :: Std_.Word16) 0 0 0)     (do@@ -205,7 +211,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_Message'obsoleteSave :: ((Untyped.RWCtx m s)) => (Message (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())+set_Message'obsoleteSave :: ((Untyped.RWCtx m s)+                            ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (Message (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ()) set_Message'obsoleteSave (Message'newtype_ struct) value = (do     (GenHelpers.setWordField struct (7 :: Std_.Word16) 0 0 0)     (do@@ -213,7 +220,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_Message'bootstrap :: ((Untyped.RWCtx m s)) => (Message (Message.MutMsg s)) -> (Bootstrap (Message.MutMsg s)) -> (m ())+set_Message'bootstrap :: ((Untyped.RWCtx m s)+                         ,(Classes.ToPtr s (Bootstrap (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Bootstrap (Message.MutMsg s)) -> (m ()) set_Message'bootstrap (Message'newtype_ struct) value = (do     (GenHelpers.setWordField struct (8 :: Std_.Word16) 0 0 0)     (do@@ -221,7 +229,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_Message'obsoleteDelete :: ((Untyped.RWCtx m s)) => (Message (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())+set_Message'obsoleteDelete :: ((Untyped.RWCtx m s)+                              ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (Message (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ()) set_Message'obsoleteDelete (Message'newtype_ struct) value = (do     (GenHelpers.setWordField struct (9 :: Std_.Word16) 0 0 0)     (do@@ -229,7 +238,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_Message'provide :: ((Untyped.RWCtx m s)) => (Message (Message.MutMsg s)) -> (Provide (Message.MutMsg s)) -> (m ())+set_Message'provide :: ((Untyped.RWCtx m s)+                       ,(Classes.ToPtr s (Provide (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Provide (Message.MutMsg s)) -> (m ()) set_Message'provide (Message'newtype_ struct) value = (do     (GenHelpers.setWordField struct (10 :: Std_.Word16) 0 0 0)     (do@@ -237,7 +247,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_Message'accept :: ((Untyped.RWCtx m s)) => (Message (Message.MutMsg s)) -> (Accept (Message.MutMsg s)) -> (m ())+set_Message'accept :: ((Untyped.RWCtx m s)+                      ,(Classes.ToPtr s (Accept (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Accept (Message.MutMsg s)) -> (m ()) set_Message'accept (Message'newtype_ struct) value = (do     (GenHelpers.setWordField struct (11 :: Std_.Word16) 0 0 0)     (do@@ -245,7 +256,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_Message'join :: ((Untyped.RWCtx m s)) => (Message (Message.MutMsg s)) -> (Join (Message.MutMsg s)) -> (m ())+set_Message'join :: ((Untyped.RWCtx m s)+                    ,(Classes.ToPtr s (Join (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Join (Message.MutMsg s)) -> (m ()) set_Message'join (Message'newtype_ struct) value = (do     (GenHelpers.setWordField struct (12 :: Std_.Word16) 0 0 0)     (do@@ -253,7 +265,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_Message'disembargo :: ((Untyped.RWCtx m s)) => (Message (Message.MutMsg s)) -> (Disembargo (Message.MutMsg s)) -> (m ())+set_Message'disembargo :: ((Untyped.RWCtx m s)+                          ,(Classes.ToPtr s (Disembargo (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Disembargo (Message.MutMsg s)) -> (m ()) set_Message'disembargo (Message'newtype_ struct) value = (do     (GenHelpers.setWordField struct (13 :: Std_.Word16) 0 0 0)     (do@@ -265,8 +278,6 @@ set_Message'unknown' (Message'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word16) 0 0 0) newtype Bootstrap msg     = Bootstrap'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Bootstrap) where-    tMsg f (Bootstrap'newtype_ s) = (Bootstrap'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Bootstrap msg)) where     fromStruct struct = (Std_.pure (Bootstrap'newtype_ struct)) instance (Classes.ToStruct msg (Bootstrap msg)) where@@ -299,12 +310,14 @@ get_Bootstrap'questionId (Bootstrap'newtype_ struct) = (GenHelpers.getWordField struct 0 0 0) set_Bootstrap'questionId :: ((Untyped.RWCtx m s)) => (Bootstrap (Message.MutMsg s)) -> Std_.Word32 -> (m ()) set_Bootstrap'questionId (Bootstrap'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word32) 0 0 0)-get_Bootstrap'deprecatedObjectId :: ((Untyped.ReadCtx m msg)) => (Bootstrap msg) -> (m (Std_.Maybe (Untyped.Ptr msg)))+get_Bootstrap'deprecatedObjectId :: ((Untyped.ReadCtx m msg)+                                    ,(Classes.FromPtr msg (Std_.Maybe (Untyped.Ptr msg)))) => (Bootstrap msg) -> (m (Std_.Maybe (Untyped.Ptr msg))) get_Bootstrap'deprecatedObjectId (Bootstrap'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Bootstrap'deprecatedObjectId :: ((Untyped.RWCtx m s)) => (Bootstrap (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())+set_Bootstrap'deprecatedObjectId :: ((Untyped.RWCtx m s)+                                    ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (Bootstrap (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ()) set_Bootstrap'deprecatedObjectId (Bootstrap'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -313,8 +326,6 @@ has_Bootstrap'deprecatedObjectId (Bootstrap'newtype_ struct) = (Std_.isJust <$> (Untyped.getPtr 0 struct)) newtype Call msg     = Call'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Call) where-    tMsg f (Call'newtype_ s) = (Call'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Call msg)) where     fromStruct struct = (Std_.pure (Call'newtype_ struct)) instance (Classes.ToStruct msg (Call msg)) where@@ -347,12 +358,14 @@ get_Call'questionId (Call'newtype_ struct) = (GenHelpers.getWordField struct 0 0 0) set_Call'questionId :: ((Untyped.RWCtx m s)) => (Call (Message.MutMsg s)) -> Std_.Word32 -> (m ()) set_Call'questionId (Call'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word32) 0 0 0)-get_Call'target :: ((Untyped.ReadCtx m msg)) => (Call msg) -> (m (MessageTarget msg))+get_Call'target :: ((Untyped.ReadCtx m msg)+                   ,(Classes.FromPtr msg (MessageTarget msg))) => (Call msg) -> (m (MessageTarget msg)) get_Call'target (Call'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Call'target :: ((Untyped.RWCtx m s)) => (Call (Message.MutMsg s)) -> (MessageTarget (Message.MutMsg s)) -> (m ())+set_Call'target :: ((Untyped.RWCtx m s)+                   ,(Classes.ToPtr s (MessageTarget (Message.MutMsg s)))) => (Call (Message.MutMsg s)) -> (MessageTarget (Message.MutMsg s)) -> (m ()) set_Call'target (Call'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -373,12 +386,14 @@ get_Call'methodId (Call'newtype_ struct) = (GenHelpers.getWordField struct 0 32 0) set_Call'methodId :: ((Untyped.RWCtx m s)) => (Call (Message.MutMsg s)) -> Std_.Word16 -> (m ()) set_Call'methodId (Call'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word16) 0 32 0)-get_Call'params :: ((Untyped.ReadCtx m msg)) => (Call msg) -> (m (Payload msg))+get_Call'params :: ((Untyped.ReadCtx m msg)+                   ,(Classes.FromPtr msg (Payload msg))) => (Call msg) -> (m (Payload msg)) get_Call'params (Call'newtype_ struct) = (do     ptr <- (Untyped.getPtr 1 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Call'params :: ((Untyped.RWCtx m s)) => (Call (Message.MutMsg s)) -> (Payload (Message.MutMsg s)) -> (m ())+set_Call'params :: ((Untyped.RWCtx m s)+                   ,(Classes.ToPtr s (Payload (Message.MutMsg s)))) => (Call (Message.MutMsg s)) -> (Payload (Message.MutMsg s)) -> (m ()) set_Call'params (Call'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 1 struct)@@ -391,7 +406,8 @@     (set_Call'params struct result)     (Std_.pure result)     )-get_Call'sendResultsTo :: ((Untyped.ReadCtx m msg)) => (Call msg) -> (m (Call'sendResultsTo msg))+get_Call'sendResultsTo :: ((Untyped.ReadCtx m msg)+                          ,(Classes.FromStruct msg (Call'sendResultsTo msg))) => (Call msg) -> (m (Call'sendResultsTo msg)) get_Call'sendResultsTo (Call'newtype_ struct) = (Classes.fromStruct struct) get_Call'allowThirdPartyTailCall :: ((Untyped.ReadCtx m msg)) => (Call msg) -> (m Std_.Bool) get_Call'allowThirdPartyTailCall (Call'newtype_ struct) = (GenHelpers.getWordField struct 2 0 0)@@ -399,8 +415,6 @@ set_Call'allowThirdPartyTailCall (Call'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word1) 2 0 0) newtype Call'sendResultsTo msg     = Call'sendResultsTo'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Call'sendResultsTo) where-    tMsg f (Call'sendResultsTo'newtype_ s) = (Call'sendResultsTo'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Call'sendResultsTo msg)) where     fromStruct struct = (Std_.pure (Call'sendResultsTo'newtype_ struct)) instance (Classes.ToStruct msg (Call'sendResultsTo msg)) where@@ -431,7 +445,8 @@             _ ->                 (Std_.pure (Call'sendResultsTo'unknown' (Std_.fromIntegral tag)))         )-get_Call'sendResultsTo' :: ((Untyped.ReadCtx m msg)) => (Call'sendResultsTo msg) -> (m (Call'sendResultsTo' msg))+get_Call'sendResultsTo' :: ((Untyped.ReadCtx m msg)+                           ,(Classes.FromStruct msg (Call'sendResultsTo' msg))) => (Call'sendResultsTo msg) -> (m (Call'sendResultsTo' msg)) get_Call'sendResultsTo' (Call'sendResultsTo'newtype_ struct) = (Classes.fromStruct struct) set_Call'sendResultsTo'caller :: ((Untyped.RWCtx m s)) => (Call'sendResultsTo (Message.MutMsg s)) -> (m ()) set_Call'sendResultsTo'caller (Call'sendResultsTo'newtype_ struct) = (do@@ -443,7 +458,8 @@     (GenHelpers.setWordField struct (1 :: Std_.Word16) 0 48 0)     (Std_.pure ())     )-set_Call'sendResultsTo'thirdParty :: ((Untyped.RWCtx m s)) => (Call'sendResultsTo (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())+set_Call'sendResultsTo'thirdParty :: ((Untyped.RWCtx m s)+                                     ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (Call'sendResultsTo (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ()) set_Call'sendResultsTo'thirdParty (Call'sendResultsTo'newtype_ struct) value = (do     (GenHelpers.setWordField struct (2 :: Std_.Word16) 0 48 0)     (do@@ -455,8 +471,6 @@ set_Call'sendResultsTo'unknown' (Call'sendResultsTo'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word16) 0 48 0) newtype Return msg     = Return'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Return) where-    tMsg f (Return'newtype_ s) = (Return'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Return msg)) where     fromStruct struct = (Std_.pure (Return'newtype_ struct)) instance (Classes.ToStruct msg (Return msg)) where@@ -529,9 +543,11 @@             _ ->                 (Std_.pure (Return'unknown' (Std_.fromIntegral tag)))         )-get_Return' :: ((Untyped.ReadCtx m msg)) => (Return msg) -> (m (Return' msg))+get_Return' :: ((Untyped.ReadCtx m msg)+               ,(Classes.FromStruct msg (Return' msg))) => (Return msg) -> (m (Return' msg)) get_Return' (Return'newtype_ struct) = (Classes.fromStruct struct)-set_Return'results :: ((Untyped.RWCtx m s)) => (Return (Message.MutMsg s)) -> (Payload (Message.MutMsg s)) -> (m ())+set_Return'results :: ((Untyped.RWCtx m s)+                      ,(Classes.ToPtr s (Payload (Message.MutMsg s)))) => (Return (Message.MutMsg s)) -> (Payload (Message.MutMsg s)) -> (m ()) set_Return'results (Return'newtype_ struct) value = (do     (GenHelpers.setWordField struct (0 :: Std_.Word16) 0 48 0)     (do@@ -539,7 +555,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_Return'exception :: ((Untyped.RWCtx m s)) => (Return (Message.MutMsg s)) -> (Exception (Message.MutMsg s)) -> (m ())+set_Return'exception :: ((Untyped.RWCtx m s)+                        ,(Classes.ToPtr s (Exception (Message.MutMsg s)))) => (Return (Message.MutMsg s)) -> (Exception (Message.MutMsg s)) -> (m ()) set_Return'exception (Return'newtype_ struct) value = (do     (GenHelpers.setWordField struct (1 :: Std_.Word16) 0 48 0)     (do@@ -562,7 +579,8 @@     (GenHelpers.setWordField struct (4 :: Std_.Word16) 0 48 0)     (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word32) 1 0 0)     )-set_Return'acceptFromThirdParty :: ((Untyped.RWCtx m s)) => (Return (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())+set_Return'acceptFromThirdParty :: ((Untyped.RWCtx m s)+                                   ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (Return (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ()) set_Return'acceptFromThirdParty (Return'newtype_ struct) value = (do     (GenHelpers.setWordField struct (5 :: Std_.Word16) 0 48 0)     (do@@ -574,8 +592,6 @@ set_Return'unknown' (Return'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word16) 0 48 0) newtype Finish msg     = Finish'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Finish) where-    tMsg f (Finish'newtype_ s) = (Finish'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Finish msg)) where     fromStruct struct = (Std_.pure (Finish'newtype_ struct)) instance (Classes.ToStruct msg (Finish msg)) where@@ -614,8 +630,6 @@ set_Finish'releaseResultCaps (Finish'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word1) 0 32 1) newtype Resolve msg     = Resolve'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Resolve) where-    tMsg f (Resolve'newtype_ s) = (Resolve'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Resolve msg)) where     fromStruct struct = (Std_.pure (Resolve'newtype_ struct)) instance (Classes.ToStruct msg (Resolve msg)) where@@ -669,9 +683,11 @@             _ ->                 (Std_.pure (Resolve'unknown' (Std_.fromIntegral tag)))         )-get_Resolve' :: ((Untyped.ReadCtx m msg)) => (Resolve msg) -> (m (Resolve' msg))+get_Resolve' :: ((Untyped.ReadCtx m msg)+                ,(Classes.FromStruct msg (Resolve' msg))) => (Resolve msg) -> (m (Resolve' msg)) get_Resolve' (Resolve'newtype_ struct) = (Classes.fromStruct struct)-set_Resolve'cap :: ((Untyped.RWCtx m s)) => (Resolve (Message.MutMsg s)) -> (CapDescriptor (Message.MutMsg s)) -> (m ())+set_Resolve'cap :: ((Untyped.RWCtx m s)+                   ,(Classes.ToPtr s (CapDescriptor (Message.MutMsg s)))) => (Resolve (Message.MutMsg s)) -> (CapDescriptor (Message.MutMsg s)) -> (m ()) set_Resolve'cap (Resolve'newtype_ struct) value = (do     (GenHelpers.setWordField struct (0 :: Std_.Word16) 0 32 0)     (do@@ -679,7 +695,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_Resolve'exception :: ((Untyped.RWCtx m s)) => (Resolve (Message.MutMsg s)) -> (Exception (Message.MutMsg s)) -> (m ())+set_Resolve'exception :: ((Untyped.RWCtx m s)+                         ,(Classes.ToPtr s (Exception (Message.MutMsg s)))) => (Resolve (Message.MutMsg s)) -> (Exception (Message.MutMsg s)) -> (m ()) set_Resolve'exception (Resolve'newtype_ struct) value = (do     (GenHelpers.setWordField struct (1 :: Std_.Word16) 0 32 0)     (do@@ -691,8 +708,6 @@ set_Resolve'unknown' (Resolve'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word16) 0 32 0) newtype Release msg     = Release'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Release) where-    tMsg f (Release'newtype_ s) = (Release'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Release msg)) where     fromStruct struct = (Std_.pure (Release'newtype_ struct)) instance (Classes.ToStruct msg (Release msg)) where@@ -731,8 +746,6 @@ set_Release'referenceCount (Release'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word32) 0 32 0) newtype Disembargo msg     = Disembargo'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Disembargo) where-    tMsg f (Disembargo'newtype_ s) = (Disembargo'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Disembargo msg)) where     fromStruct struct = (Std_.pure (Disembargo'newtype_ struct)) instance (Classes.ToStruct msg (Disembargo msg)) where@@ -761,12 +774,14 @@ instance (Basics.MutListElem s (Disembargo (Message.MutMsg s))) where     setIndex (Disembargo'newtype_ elt) i (Disembargo'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (Disembargo'List_ <$> (Untyped.allocCompositeList msg 1 1 len))-get_Disembargo'target :: ((Untyped.ReadCtx m msg)) => (Disembargo msg) -> (m (MessageTarget msg))+get_Disembargo'target :: ((Untyped.ReadCtx m msg)+                         ,(Classes.FromPtr msg (MessageTarget msg))) => (Disembargo msg) -> (m (MessageTarget msg)) get_Disembargo'target (Disembargo'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Disembargo'target :: ((Untyped.RWCtx m s)) => (Disembargo (Message.MutMsg s)) -> (MessageTarget (Message.MutMsg s)) -> (m ())+set_Disembargo'target :: ((Untyped.RWCtx m s)+                         ,(Classes.ToPtr s (MessageTarget (Message.MutMsg s)))) => (Disembargo (Message.MutMsg s)) -> (MessageTarget (Message.MutMsg s)) -> (m ()) set_Disembargo'target (Disembargo'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -779,12 +794,11 @@     (set_Disembargo'target struct result)     (Std_.pure result)     )-get_Disembargo'context :: ((Untyped.ReadCtx m msg)) => (Disembargo msg) -> (m (Disembargo'context msg))+get_Disembargo'context :: ((Untyped.ReadCtx m msg)+                          ,(Classes.FromStruct msg (Disembargo'context msg))) => (Disembargo msg) -> (m (Disembargo'context msg)) get_Disembargo'context (Disembargo'newtype_ struct) = (Classes.fromStruct struct) newtype Disembargo'context msg     = Disembargo'context'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Disembargo'context) where-    tMsg f (Disembargo'context'newtype_ s) = (Disembargo'context'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Disembargo'context msg)) where     fromStruct struct = (Std_.pure (Disembargo'context'newtype_ struct)) instance (Classes.ToStruct msg (Disembargo'context msg)) where@@ -815,7 +829,8 @@             _ ->                 (Std_.pure (Disembargo'context'unknown' (Std_.fromIntegral tag)))         )-get_Disembargo'context' :: ((Untyped.ReadCtx m msg)) => (Disembargo'context msg) -> (m (Disembargo'context' msg))+get_Disembargo'context' :: ((Untyped.ReadCtx m msg)+                           ,(Classes.FromStruct msg (Disembargo'context' msg))) => (Disembargo'context msg) -> (m (Disembargo'context' msg)) get_Disembargo'context' (Disembargo'context'newtype_ struct) = (Classes.fromStruct struct) set_Disembargo'context'senderLoopback :: ((Untyped.RWCtx m s)) => (Disembargo'context (Message.MutMsg s)) -> Std_.Word32 -> (m ()) set_Disembargo'context'senderLoopback (Disembargo'context'newtype_ struct) value = (do@@ -841,8 +856,6 @@ set_Disembargo'context'unknown' (Disembargo'context'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word16) 0 32 0) newtype Provide msg     = Provide'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Provide) where-    tMsg f (Provide'newtype_ s) = (Provide'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Provide msg)) where     fromStruct struct = (Std_.pure (Provide'newtype_ struct)) instance (Classes.ToStruct msg (Provide msg)) where@@ -875,12 +888,14 @@ get_Provide'questionId (Provide'newtype_ struct) = (GenHelpers.getWordField struct 0 0 0) set_Provide'questionId :: ((Untyped.RWCtx m s)) => (Provide (Message.MutMsg s)) -> Std_.Word32 -> (m ()) set_Provide'questionId (Provide'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word32) 0 0 0)-get_Provide'target :: ((Untyped.ReadCtx m msg)) => (Provide msg) -> (m (MessageTarget msg))+get_Provide'target :: ((Untyped.ReadCtx m msg)+                      ,(Classes.FromPtr msg (MessageTarget msg))) => (Provide msg) -> (m (MessageTarget msg)) get_Provide'target (Provide'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Provide'target :: ((Untyped.RWCtx m s)) => (Provide (Message.MutMsg s)) -> (MessageTarget (Message.MutMsg s)) -> (m ())+set_Provide'target :: ((Untyped.RWCtx m s)+                      ,(Classes.ToPtr s (MessageTarget (Message.MutMsg s)))) => (Provide (Message.MutMsg s)) -> (MessageTarget (Message.MutMsg s)) -> (m ()) set_Provide'target (Provide'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -893,12 +908,14 @@     (set_Provide'target struct result)     (Std_.pure result)     )-get_Provide'recipient :: ((Untyped.ReadCtx m msg)) => (Provide msg) -> (m (Std_.Maybe (Untyped.Ptr msg)))+get_Provide'recipient :: ((Untyped.ReadCtx m msg)+                         ,(Classes.FromPtr msg (Std_.Maybe (Untyped.Ptr msg)))) => (Provide msg) -> (m (Std_.Maybe (Untyped.Ptr msg))) get_Provide'recipient (Provide'newtype_ struct) = (do     ptr <- (Untyped.getPtr 1 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Provide'recipient :: ((Untyped.RWCtx m s)) => (Provide (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())+set_Provide'recipient :: ((Untyped.RWCtx m s)+                         ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (Provide (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ()) set_Provide'recipient (Provide'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 1 struct)@@ -907,8 +924,6 @@ has_Provide'recipient (Provide'newtype_ struct) = (Std_.isJust <$> (Untyped.getPtr 1 struct)) newtype Accept msg     = Accept'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Accept) where-    tMsg f (Accept'newtype_ s) = (Accept'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Accept msg)) where     fromStruct struct = (Std_.pure (Accept'newtype_ struct)) instance (Classes.ToStruct msg (Accept msg)) where@@ -941,12 +956,14 @@ get_Accept'questionId (Accept'newtype_ struct) = (GenHelpers.getWordField struct 0 0 0) set_Accept'questionId :: ((Untyped.RWCtx m s)) => (Accept (Message.MutMsg s)) -> Std_.Word32 -> (m ()) set_Accept'questionId (Accept'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word32) 0 0 0)-get_Accept'provision :: ((Untyped.ReadCtx m msg)) => (Accept msg) -> (m (Std_.Maybe (Untyped.Ptr msg)))+get_Accept'provision :: ((Untyped.ReadCtx m msg)+                        ,(Classes.FromPtr msg (Std_.Maybe (Untyped.Ptr msg)))) => (Accept msg) -> (m (Std_.Maybe (Untyped.Ptr msg))) get_Accept'provision (Accept'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Accept'provision :: ((Untyped.RWCtx m s)) => (Accept (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())+set_Accept'provision :: ((Untyped.RWCtx m s)+                        ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (Accept (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ()) set_Accept'provision (Accept'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -959,8 +976,6 @@ set_Accept'embargo (Accept'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word1) 0 32 0) newtype Join msg     = Join'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Join) where-    tMsg f (Join'newtype_ s) = (Join'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Join msg)) where     fromStruct struct = (Std_.pure (Join'newtype_ struct)) instance (Classes.ToStruct msg (Join msg)) where@@ -993,12 +1008,14 @@ get_Join'questionId (Join'newtype_ struct) = (GenHelpers.getWordField struct 0 0 0) set_Join'questionId :: ((Untyped.RWCtx m s)) => (Join (Message.MutMsg s)) -> Std_.Word32 -> (m ()) set_Join'questionId (Join'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word32) 0 0 0)-get_Join'target :: ((Untyped.ReadCtx m msg)) => (Join msg) -> (m (MessageTarget msg))+get_Join'target :: ((Untyped.ReadCtx m msg)+                   ,(Classes.FromPtr msg (MessageTarget msg))) => (Join msg) -> (m (MessageTarget msg)) get_Join'target (Join'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Join'target :: ((Untyped.RWCtx m s)) => (Join (Message.MutMsg s)) -> (MessageTarget (Message.MutMsg s)) -> (m ())+set_Join'target :: ((Untyped.RWCtx m s)+                   ,(Classes.ToPtr s (MessageTarget (Message.MutMsg s)))) => (Join (Message.MutMsg s)) -> (MessageTarget (Message.MutMsg s)) -> (m ()) set_Join'target (Join'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -1011,12 +1028,14 @@     (set_Join'target struct result)     (Std_.pure result)     )-get_Join'keyPart :: ((Untyped.ReadCtx m msg)) => (Join msg) -> (m (Std_.Maybe (Untyped.Ptr msg)))+get_Join'keyPart :: ((Untyped.ReadCtx m msg)+                    ,(Classes.FromPtr msg (Std_.Maybe (Untyped.Ptr msg)))) => (Join msg) -> (m (Std_.Maybe (Untyped.Ptr msg))) get_Join'keyPart (Join'newtype_ struct) = (do     ptr <- (Untyped.getPtr 1 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Join'keyPart :: ((Untyped.RWCtx m s)) => (Join (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())+set_Join'keyPart :: ((Untyped.RWCtx m s)+                    ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (Join (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ()) set_Join'keyPart (Join'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 1 struct)@@ -1025,8 +1044,6 @@ has_Join'keyPart (Join'newtype_ struct) = (Std_.isJust <$> (Untyped.getPtr 1 struct)) newtype MessageTarget msg     = MessageTarget'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg MessageTarget) where-    tMsg f (MessageTarget'newtype_ s) = (MessageTarget'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (MessageTarget msg)) where     fromStruct struct = (Std_.pure (MessageTarget'newtype_ struct)) instance (Classes.ToStruct msg (MessageTarget msg)) where@@ -1073,14 +1090,16 @@             _ ->                 (Std_.pure (MessageTarget'unknown' (Std_.fromIntegral tag)))         )-get_MessageTarget' :: ((Untyped.ReadCtx m msg)) => (MessageTarget msg) -> (m (MessageTarget' msg))+get_MessageTarget' :: ((Untyped.ReadCtx m msg)+                      ,(Classes.FromStruct msg (MessageTarget' msg))) => (MessageTarget msg) -> (m (MessageTarget' msg)) get_MessageTarget' (MessageTarget'newtype_ struct) = (Classes.fromStruct struct) set_MessageTarget'importedCap :: ((Untyped.RWCtx m s)) => (MessageTarget (Message.MutMsg s)) -> Std_.Word32 -> (m ()) set_MessageTarget'importedCap (MessageTarget'newtype_ struct) value = (do     (GenHelpers.setWordField struct (0 :: Std_.Word16) 0 32 0)     (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word32) 0 0 0)     )-set_MessageTarget'promisedAnswer :: ((Untyped.RWCtx m s)) => (MessageTarget (Message.MutMsg s)) -> (PromisedAnswer (Message.MutMsg s)) -> (m ())+set_MessageTarget'promisedAnswer :: ((Untyped.RWCtx m s)+                                    ,(Classes.ToPtr s (PromisedAnswer (Message.MutMsg s)))) => (MessageTarget (Message.MutMsg s)) -> (PromisedAnswer (Message.MutMsg s)) -> (m ()) set_MessageTarget'promisedAnswer (MessageTarget'newtype_ struct) value = (do     (GenHelpers.setWordField struct (1 :: Std_.Word16) 0 32 0)     (do@@ -1092,8 +1111,6 @@ set_MessageTarget'unknown' (MessageTarget'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word16) 0 32 0) newtype Payload msg     = Payload'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Payload) where-    tMsg f (Payload'newtype_ s) = (Payload'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Payload msg)) where     fromStruct struct = (Std_.pure (Payload'newtype_ struct)) instance (Classes.ToStruct msg (Payload msg)) where@@ -1122,24 +1139,28 @@ instance (Basics.MutListElem s (Payload (Message.MutMsg s))) where     setIndex (Payload'newtype_ elt) i (Payload'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (Payload'List_ <$> (Untyped.allocCompositeList msg 0 2 len))-get_Payload'content :: ((Untyped.ReadCtx m msg)) => (Payload msg) -> (m (Std_.Maybe (Untyped.Ptr msg)))+get_Payload'content :: ((Untyped.ReadCtx m msg)+                       ,(Classes.FromPtr msg (Std_.Maybe (Untyped.Ptr msg)))) => (Payload msg) -> (m (Std_.Maybe (Untyped.Ptr msg))) get_Payload'content (Payload'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Payload'content :: ((Untyped.RWCtx m s)) => (Payload (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())+set_Payload'content :: ((Untyped.RWCtx m s)+                       ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (Payload (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ()) set_Payload'content (Payload'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)     ) has_Payload'content :: ((Untyped.ReadCtx m msg)) => (Payload msg) -> (m Std_.Bool) has_Payload'content (Payload'newtype_ struct) = (Std_.isJust <$> (Untyped.getPtr 0 struct))-get_Payload'capTable :: ((Untyped.ReadCtx m msg)) => (Payload msg) -> (m (Basics.List msg (CapDescriptor msg)))+get_Payload'capTable :: ((Untyped.ReadCtx m msg)+                        ,(Classes.FromPtr msg (Basics.List msg (CapDescriptor msg)))) => (Payload msg) -> (m (Basics.List msg (CapDescriptor msg))) get_Payload'capTable (Payload'newtype_ struct) = (do     ptr <- (Untyped.getPtr 1 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Payload'capTable :: ((Untyped.RWCtx m s)) => (Payload (Message.MutMsg s)) -> (Basics.List (Message.MutMsg s) (CapDescriptor (Message.MutMsg s))) -> (m ())+set_Payload'capTable :: ((Untyped.RWCtx m s)+                        ,(Classes.ToPtr s (Basics.List (Message.MutMsg s) (CapDescriptor (Message.MutMsg s))))) => (Payload (Message.MutMsg s)) -> (Basics.List (Message.MutMsg s) (CapDescriptor (Message.MutMsg s))) -> (m ()) set_Payload'capTable (Payload'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 1 struct)@@ -1154,8 +1175,6 @@     ) newtype CapDescriptor msg     = CapDescriptor'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg CapDescriptor) where-    tMsg f (CapDescriptor'newtype_ s) = (CapDescriptor'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (CapDescriptor msg)) where     fromStruct struct = (Std_.pure (CapDescriptor'newtype_ struct)) instance (Classes.ToStruct msg (CapDescriptor msg)) where@@ -1221,7 +1240,8 @@             _ ->                 (Std_.pure (CapDescriptor'unknown' (Std_.fromIntegral tag)))         )-get_CapDescriptor' :: ((Untyped.ReadCtx m msg)) => (CapDescriptor msg) -> (m (CapDescriptor' msg))+get_CapDescriptor' :: ((Untyped.ReadCtx m msg)+                      ,(Classes.FromStruct msg (CapDescriptor' msg))) => (CapDescriptor msg) -> (m (CapDescriptor' msg)) get_CapDescriptor' (CapDescriptor'newtype_ struct) = (Classes.fromStruct struct) set_CapDescriptor'none :: ((Untyped.RWCtx m s)) => (CapDescriptor (Message.MutMsg s)) -> (m ()) set_CapDescriptor'none (CapDescriptor'newtype_ struct) = (do@@ -1243,7 +1263,8 @@     (GenHelpers.setWordField struct (3 :: Std_.Word16) 0 0 0)     (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word32) 0 32 0)     )-set_CapDescriptor'receiverAnswer :: ((Untyped.RWCtx m s)) => (CapDescriptor (Message.MutMsg s)) -> (PromisedAnswer (Message.MutMsg s)) -> (m ())+set_CapDescriptor'receiverAnswer :: ((Untyped.RWCtx m s)+                                    ,(Classes.ToPtr s (PromisedAnswer (Message.MutMsg s)))) => (CapDescriptor (Message.MutMsg s)) -> (PromisedAnswer (Message.MutMsg s)) -> (m ()) set_CapDescriptor'receiverAnswer (CapDescriptor'newtype_ struct) value = (do     (GenHelpers.setWordField struct (4 :: Std_.Word16) 0 0 0)     (do@@ -1251,7 +1272,8 @@         (Untyped.setPtr ptr 0 struct)         )     )-set_CapDescriptor'thirdPartyHosted :: ((Untyped.RWCtx m s)) => (CapDescriptor (Message.MutMsg s)) -> (ThirdPartyCapDescriptor (Message.MutMsg s)) -> (m ())+set_CapDescriptor'thirdPartyHosted :: ((Untyped.RWCtx m s)+                                      ,(Classes.ToPtr s (ThirdPartyCapDescriptor (Message.MutMsg s)))) => (CapDescriptor (Message.MutMsg s)) -> (ThirdPartyCapDescriptor (Message.MutMsg s)) -> (m ()) set_CapDescriptor'thirdPartyHosted (CapDescriptor'newtype_ struct) value = (do     (GenHelpers.setWordField struct (5 :: Std_.Word16) 0 0 0)     (do@@ -1263,8 +1285,6 @@ set_CapDescriptor'unknown' (CapDescriptor'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word16) 0 0 0) newtype PromisedAnswer msg     = PromisedAnswer'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg PromisedAnswer) where-    tMsg f (PromisedAnswer'newtype_ s) = (PromisedAnswer'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (PromisedAnswer msg)) where     fromStruct struct = (Std_.pure (PromisedAnswer'newtype_ struct)) instance (Classes.ToStruct msg (PromisedAnswer msg)) where@@ -1297,12 +1317,14 @@ get_PromisedAnswer'questionId (PromisedAnswer'newtype_ struct) = (GenHelpers.getWordField struct 0 0 0) set_PromisedAnswer'questionId :: ((Untyped.RWCtx m s)) => (PromisedAnswer (Message.MutMsg s)) -> Std_.Word32 -> (m ()) set_PromisedAnswer'questionId (PromisedAnswer'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word32) 0 0 0)-get_PromisedAnswer'transform :: ((Untyped.ReadCtx m msg)) => (PromisedAnswer msg) -> (m (Basics.List msg (PromisedAnswer'Op msg)))+get_PromisedAnswer'transform :: ((Untyped.ReadCtx m msg)+                                ,(Classes.FromPtr msg (Basics.List msg (PromisedAnswer'Op msg)))) => (PromisedAnswer msg) -> (m (Basics.List msg (PromisedAnswer'Op msg))) get_PromisedAnswer'transform (PromisedAnswer'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_PromisedAnswer'transform :: ((Untyped.RWCtx m s)) => (PromisedAnswer (Message.MutMsg s)) -> (Basics.List (Message.MutMsg s) (PromisedAnswer'Op (Message.MutMsg s))) -> (m ())+set_PromisedAnswer'transform :: ((Untyped.RWCtx m s)+                                ,(Classes.ToPtr s (Basics.List (Message.MutMsg s) (PromisedAnswer'Op (Message.MutMsg s))))) => (PromisedAnswer (Message.MutMsg s)) -> (Basics.List (Message.MutMsg s) (PromisedAnswer'Op (Message.MutMsg s))) -> (m ()) set_PromisedAnswer'transform (PromisedAnswer'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -1317,8 +1339,6 @@     ) newtype PromisedAnswer'Op msg     = PromisedAnswer'Op'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg PromisedAnswer'Op) where-    tMsg f (PromisedAnswer'Op'newtype_ s) = (PromisedAnswer'Op'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (PromisedAnswer'Op msg)) where     fromStruct struct = (Std_.pure (PromisedAnswer'Op'newtype_ struct)) instance (Classes.ToStruct msg (PromisedAnswer'Op msg)) where@@ -1362,7 +1382,8 @@             _ ->                 (Std_.pure (PromisedAnswer'Op'unknown' (Std_.fromIntegral tag)))         )-get_PromisedAnswer'Op' :: ((Untyped.ReadCtx m msg)) => (PromisedAnswer'Op msg) -> (m (PromisedAnswer'Op' msg))+get_PromisedAnswer'Op' :: ((Untyped.ReadCtx m msg)+                          ,(Classes.FromStruct msg (PromisedAnswer'Op' msg))) => (PromisedAnswer'Op msg) -> (m (PromisedAnswer'Op' msg)) get_PromisedAnswer'Op' (PromisedAnswer'Op'newtype_ struct) = (Classes.fromStruct struct) set_PromisedAnswer'Op'noop :: ((Untyped.RWCtx m s)) => (PromisedAnswer'Op (Message.MutMsg s)) -> (m ()) set_PromisedAnswer'Op'noop (PromisedAnswer'Op'newtype_ struct) = (do@@ -1378,8 +1399,6 @@ set_PromisedAnswer'Op'unknown' (PromisedAnswer'Op'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word16) 0 0 0) newtype ThirdPartyCapDescriptor msg     = ThirdPartyCapDescriptor'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg ThirdPartyCapDescriptor) where-    tMsg f (ThirdPartyCapDescriptor'newtype_ s) = (ThirdPartyCapDescriptor'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (ThirdPartyCapDescriptor msg)) where     fromStruct struct = (Std_.pure (ThirdPartyCapDescriptor'newtype_ struct)) instance (Classes.ToStruct msg (ThirdPartyCapDescriptor msg)) where@@ -1408,12 +1427,14 @@ instance (Basics.MutListElem s (ThirdPartyCapDescriptor (Message.MutMsg s))) where     setIndex (ThirdPartyCapDescriptor'newtype_ elt) i (ThirdPartyCapDescriptor'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (ThirdPartyCapDescriptor'List_ <$> (Untyped.allocCompositeList msg 1 1 len))-get_ThirdPartyCapDescriptor'id :: ((Untyped.ReadCtx m msg)) => (ThirdPartyCapDescriptor msg) -> (m (Std_.Maybe (Untyped.Ptr msg)))+get_ThirdPartyCapDescriptor'id :: ((Untyped.ReadCtx m msg)+                                  ,(Classes.FromPtr msg (Std_.Maybe (Untyped.Ptr msg)))) => (ThirdPartyCapDescriptor msg) -> (m (Std_.Maybe (Untyped.Ptr msg))) get_ThirdPartyCapDescriptor'id (ThirdPartyCapDescriptor'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_ThirdPartyCapDescriptor'id :: ((Untyped.RWCtx m s)) => (ThirdPartyCapDescriptor (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())+set_ThirdPartyCapDescriptor'id :: ((Untyped.RWCtx m s)+                                  ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (ThirdPartyCapDescriptor (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ()) set_ThirdPartyCapDescriptor'id (ThirdPartyCapDescriptor'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)@@ -1426,8 +1447,6 @@ set_ThirdPartyCapDescriptor'vineId (ThirdPartyCapDescriptor'newtype_ struct) value = (GenHelpers.setWordField struct ((Std_.fromIntegral (Classes.toWord value)) :: Std_.Word32) 0 0 0) newtype Exception msg     = Exception'newtype_ (Untyped.Struct msg)-instance (Untyped.TraverseMsg Exception) where-    tMsg f (Exception'newtype_ s) = (Exception'newtype_ <$> (Untyped.tMsg f s)) instance (Classes.FromStruct msg (Exception msg)) where     fromStruct struct = (Std_.pure (Exception'newtype_ struct)) instance (Classes.ToStruct msg (Exception msg)) where@@ -1456,12 +1475,14 @@ instance (Basics.MutListElem s (Exception (Message.MutMsg s))) where     setIndex (Exception'newtype_ elt) i (Exception'List_ l) = (Untyped.setIndex elt i l)     newList msg len = (Exception'List_ <$> (Untyped.allocCompositeList msg 1 1 len))-get_Exception'reason :: ((Untyped.ReadCtx m msg)) => (Exception msg) -> (m (Basics.Text msg))+get_Exception'reason :: ((Untyped.ReadCtx m msg)+                        ,(Classes.FromPtr msg (Basics.Text msg))) => (Exception msg) -> (m (Basics.Text msg)) get_Exception'reason (Exception'newtype_ struct) = (do     ptr <- (Untyped.getPtr 0 struct)     (Classes.fromPtr (Untyped.message struct) ptr)     )-set_Exception'reason :: ((Untyped.RWCtx m s)) => (Exception (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ())+set_Exception'reason :: ((Untyped.RWCtx m s)+                        ,(Classes.ToPtr s (Basics.Text (Message.MutMsg s)))) => (Exception (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ()) set_Exception'reason (Exception'newtype_ struct) value = (do     ptr <- (Classes.toPtr (Untyped.message struct) value)     (Untyped.setPtr ptr 0 struct)