{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE FunctionalDependencies #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE UndecidableInstances #-}
{-# OPTIONS_GHC -Wno-unused-imports #-}
{-# OPTIONS_GHC -Wno-dodgy-exports #-}
{-# OPTIONS_GHC -Wno-unused-matches #-}
{-# OPTIONS_GHC -Wno-orphans #-}
{-# OPTIONS_GHC -Wno-unticked-promoted-constructors #-}
{-# OPTIONS_GHC -Wno-name-shadowing #-}
module Capnp.Gen.Capnp.Stream.Pure(StreamResult(..)) where
import qualified Capnp.GenHelpers.ReExports.Data.Vector as V
import qualified Capnp.GenHelpers.ReExports.Data.Text as T
import qualified Capnp.GenHelpers.ReExports.Data.ByteString as BS
import qualified Capnp.GenHelpers.ReExports.Data.Default as Default
import qualified GHC.Generics as Generics
import qualified Control.Monad.IO.Class as MonadIO
import qualified Capnp.Untyped.Pure as UntypedPure
import qualified Capnp.Untyped as Untyped
import qualified Capnp.Message as Message
import qualified Capnp.Classes as Classes
import qualified Capnp.Basics.Pure as BasicsPure
import qualified Capnp.GenHelpers.Pure as GenHelpersPure
import qualified Capnp.Gen.ById.X86c366a91393f3f8
import qualified Prelude as Std_
import qualified Data.Word as Std_
import qualified Data.Int as Std_
import Prelude ((<$>), (<*>), (>>=))
data StreamResult 
    = StreamResult 
        {}
    deriving(Int -> StreamResult -> ShowS
[StreamResult] -> ShowS
StreamResult -> String
(Int -> StreamResult -> ShowS)
-> (StreamResult -> String)
-> ([StreamResult] -> ShowS)
-> Show StreamResult
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StreamResult] -> ShowS
$cshowList :: [StreamResult] -> ShowS
show :: StreamResult -> String
$cshow :: StreamResult -> String
showsPrec :: Int -> StreamResult -> ShowS
$cshowsPrec :: Int -> StreamResult -> ShowS
Std_.Show
            ,StreamResult -> StreamResult -> Bool
(StreamResult -> StreamResult -> Bool)
-> (StreamResult -> StreamResult -> Bool) -> Eq StreamResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StreamResult -> StreamResult -> Bool
$c/= :: StreamResult -> StreamResult -> Bool
== :: StreamResult -> StreamResult -> Bool
$c== :: StreamResult -> StreamResult -> Bool
Std_.Eq
            ,(forall x. StreamResult -> Rep StreamResult x)
-> (forall x. Rep StreamResult x -> StreamResult)
-> Generic StreamResult
forall x. Rep StreamResult x -> StreamResult
forall x. StreamResult -> Rep StreamResult x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep StreamResult x -> StreamResult
$cfrom :: forall x. StreamResult -> Rep StreamResult x
Generics.Generic)
instance (Default.Default StreamResult) where
    def :: StreamResult
def  = StreamResult
forall a. (Decerialize a, FromStruct 'Const (Cerial 'Const a)) => a
GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.Const StreamResult) where
    fromStruct :: Struct 'Const -> m StreamResult
fromStruct Struct 'Const
struct = ((Struct 'Const -> m (StreamResult 'Const)
forall (mut :: Mutability) a (m :: * -> *).
(FromStruct mut a, ReadCtx m mut) =>
Struct mut -> m a
Classes.fromStruct Struct 'Const
struct) m (StreamResult 'Const)
-> (StreamResult 'Const -> m StreamResult) -> m StreamResult
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= StreamResult 'Const -> m StreamResult
forall a (m :: * -> *).
(Decerialize a, ReadCtx m 'Const) =>
Cerial 'Const a -> m a
Classes.decerialize)
instance (Classes.Decerialize StreamResult) where
    type Cerial msg StreamResult = (Capnp.Gen.ById.X86c366a91393f3f8.StreamResult msg)
    decerialize :: Cerial 'Const StreamResult -> m StreamResult
decerialize Cerial 'Const StreamResult
raw = (StreamResult -> m StreamResult
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure StreamResult
StreamResult)
instance (Classes.Marshal s StreamResult) where
    marshalInto :: Cerial ('Mut s) StreamResult -> StreamResult -> m ()
marshalInto Cerial ('Mut s) StreamResult
raw_ StreamResult
value_ = case StreamResult
value_ of
        (StreamResult
StreamResult) ->
            (do
                (() -> m ()
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure ())
                )
instance (Classes.Cerialize s StreamResult)
instance (Classes.Cerialize s (V.Vector StreamResult)) where
    cerialize :: Message ('Mut s)
-> Vector StreamResult -> m (Cerial ('Mut s) (Vector StreamResult))
cerialize  = Message ('Mut s)
-> Vector StreamResult -> m (Cerial ('Mut s) (Vector StreamResult))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial ('Mut s) a), Marshal s a) =>
Message ('Mut s)
-> Vector a -> m (List ('Mut s) (Cerial ('Mut s) a))
GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector StreamResult))) where
    cerialize :: Message ('Mut s)
-> Vector (Vector StreamResult)
-> m (Cerial ('Mut s) (Vector (Vector StreamResult)))
cerialize  = Message ('Mut s)
-> Vector (Vector StreamResult)
-> m (Cerial ('Mut s) (Vector (Vector StreamResult)))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial ('Mut s) a), Cerialize s a) =>
Message ('Mut s)
-> Vector a -> m (List ('Mut s) (Cerial ('Mut s) a))
GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector StreamResult)))) where
    cerialize :: Message ('Mut s)
-> Vector (Vector (Vector StreamResult))
-> m (Cerial ('Mut s) (Vector (Vector (Vector StreamResult))))
cerialize  = Message ('Mut s)
-> Vector (Vector (Vector StreamResult))
-> m (Cerial ('Mut s) (Vector (Vector (Vector StreamResult))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial ('Mut s) a), Cerialize s a) =>
Message ('Mut s)
-> Vector a -> m (List ('Mut s) (Cerial ('Mut s) a))
GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector StreamResult))))) where
    cerialize :: Message ('Mut s)
-> Vector (Vector (Vector (Vector StreamResult)))
-> m (Cerial
        ('Mut s) (Vector (Vector (Vector (Vector StreamResult)))))
cerialize  = Message ('Mut s)
-> Vector (Vector (Vector (Vector StreamResult)))
-> m (Cerial
        ('Mut s) (Vector (Vector (Vector (Vector StreamResult)))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial ('Mut s) a), Cerialize s a) =>
Message ('Mut s)
-> Vector a -> m (List ('Mut s) (Cerial ('Mut s) a))
GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector StreamResult)))))) where
    cerialize :: Message ('Mut s)
-> Vector (Vector (Vector (Vector (Vector StreamResult))))
-> m (Cerial
        ('Mut s) (Vector (Vector (Vector (Vector (Vector StreamResult))))))
cerialize  = Message ('Mut s)
-> Vector (Vector (Vector (Vector (Vector StreamResult))))
-> m (Cerial
        ('Mut s) (Vector (Vector (Vector (Vector (Vector StreamResult))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial ('Mut s) a), Cerialize s a) =>
Message ('Mut s)
-> Vector a -> m (List ('Mut s) (Cerial ('Mut s) a))
GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector StreamResult))))))) where
    cerialize :: Message ('Mut s)
-> Vector (Vector (Vector (Vector (Vector (Vector StreamResult)))))
-> m (Cerial
        ('Mut s)
        (Vector (Vector (Vector (Vector (Vector (Vector StreamResult)))))))
cerialize  = Message ('Mut s)
-> Vector (Vector (Vector (Vector (Vector (Vector StreamResult)))))
-> m (Cerial
        ('Mut s)
        (Vector (Vector (Vector (Vector (Vector (Vector StreamResult)))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial ('Mut s) a), Cerialize s a) =>
Message ('Mut s)
-> Vector a -> m (List ('Mut s) (Cerial ('Mut s) a))
GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector StreamResult)))))))) where
    cerialize :: Message ('Mut s)
-> Vector
     (Vector (Vector (Vector (Vector (Vector (Vector StreamResult))))))
-> m (Cerial
        ('Mut s)
        (Vector
           (Vector
              (Vector (Vector (Vector (Vector (Vector StreamResult))))))))
cerialize  = Message ('Mut s)
-> Vector
     (Vector (Vector (Vector (Vector (Vector (Vector StreamResult))))))
-> m (Cerial
        ('Mut s)
        (Vector
           (Vector
              (Vector (Vector (Vector (Vector (Vector StreamResult))))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial ('Mut s) a), Cerialize s a) =>
Message ('Mut s)
-> Vector a -> m (List ('Mut s) (Cerial ('Mut s) a))
GenHelpersPure.cerializeBasicVec