{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE FunctionalDependencies #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE UndecidableInstances #-}
{-# OPTIONS_GHC -Wno-unused-imports #-}
{-# OPTIONS_GHC -Wno-dodgy-exports #-}
{-# OPTIONS_GHC -Wno-unused-matches #-}
{-# OPTIONS_GHC -Wno-orphans #-}
module Capnp.Gen.Capnp.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 ConstMsg (Cerial ConstMsg a)) =>
a
GenHelpersPure.defaultStruct
instance (Classes.FromStruct Message.ConstMsg (StreamResult)) where
    fromStruct :: Struct ConstMsg -> m StreamResult
fromStruct Struct ConstMsg
struct = ((Struct ConstMsg -> m (StreamResult ConstMsg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct ConstMsg
struct) m (StreamResult ConstMsg)
-> (StreamResult ConstMsg -> m StreamResult) -> m StreamResult
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= StreamResult ConstMsg -> m StreamResult
forall a (m :: * -> *).
(Decerialize a, ReadCtx m ConstMsg) =>
Cerial ConstMsg a -> m a
Classes.decerialize)
instance (Classes.Decerialize (StreamResult)) where
    type Cerial msg (StreamResult) = (Capnp.Gen.ById.X86c366a91393f3f8.StreamResult msg)
    decerialize :: Cerial ConstMsg StreamResult -> m StreamResult
decerialize Cerial ConstMsg 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 (MutMsg s) StreamResult -> StreamResult -> m ()
marshalInto Cerial (MutMsg 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 :: MutMsg s
-> Vector StreamResult
-> m (Cerial (MutMsg s) (Vector StreamResult))
cerialize  = MutMsg s
-> Vector StreamResult
-> m (Cerial (MutMsg s) (Vector StreamResult))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Marshal s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
GenHelpersPure.cerializeCompositeVec
instance (Classes.Cerialize s (V.Vector (V.Vector (StreamResult)))) where
    cerialize :: MutMsg s
-> Vector (Vector StreamResult)
-> m (Cerial (MutMsg s) (Vector (Vector StreamResult)))
cerialize  = MutMsg s
-> Vector (Vector StreamResult)
-> m (Cerial (MutMsg s) (Vector (Vector StreamResult)))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (StreamResult))))) where
    cerialize :: MutMsg s
-> Vector (Vector (Vector StreamResult))
-> m (Cerial (MutMsg s) (Vector (Vector (Vector StreamResult))))
cerialize  = MutMsg s
-> Vector (Vector (Vector StreamResult))
-> m (Cerial (MutMsg s) (Vector (Vector (Vector StreamResult))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (StreamResult)))))) where
    cerialize :: MutMsg s
-> Vector (Vector (Vector (Vector StreamResult)))
-> m (Cerial
        (MutMsg s) (Vector (Vector (Vector (Vector StreamResult)))))
cerialize  = MutMsg s
-> Vector (Vector (Vector (Vector StreamResult)))
-> m (Cerial
        (MutMsg s) (Vector (Vector (Vector (Vector StreamResult)))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (StreamResult))))))) where
    cerialize :: MutMsg s
-> Vector (Vector (Vector (Vector (Vector StreamResult))))
-> m (Cerial
        (MutMsg s)
        (Vector (Vector (Vector (Vector (Vector StreamResult))))))
cerialize  = MutMsg s
-> Vector (Vector (Vector (Vector (Vector StreamResult))))
-> m (Cerial
        (MutMsg s)
        (Vector (Vector (Vector (Vector (Vector StreamResult))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (StreamResult)))))))) where
    cerialize :: MutMsg s
-> Vector (Vector (Vector (Vector (Vector (Vector StreamResult)))))
-> m (Cerial
        (MutMsg s)
        (Vector (Vector (Vector (Vector (Vector (Vector StreamResult)))))))
cerialize  = MutMsg s
-> Vector (Vector (Vector (Vector (Vector (Vector StreamResult)))))
-> m (Cerial
        (MutMsg s)
        (Vector (Vector (Vector (Vector (Vector (Vector StreamResult)))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
GenHelpersPure.cerializeBasicVec
instance (Classes.Cerialize s (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (V.Vector (StreamResult))))))))) where
    cerialize :: MutMsg s
-> Vector
     (Vector (Vector (Vector (Vector (Vector (Vector StreamResult))))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector (Vector (Vector (Vector (Vector StreamResult))))))))
cerialize  = MutMsg s
-> Vector
     (Vector (Vector (Vector (Vector (Vector (Vector StreamResult))))))
-> m (Cerial
        (MutMsg s)
        (Vector
           (Vector
              (Vector (Vector (Vector (Vector (Vector StreamResult))))))))
forall (m :: * -> *) s a.
(RWCtx m s, MutListElem s (Cerial (MutMsg s) a), Cerialize s a) =>
MutMsg s -> Vector a -> m (List (MutMsg s) (Cerial (MutMsg s) a))
GenHelpersPure.cerializeBasicVec