utxorpc-0.0.19.0: Proto/Utxorpc/V1alpha/Watch/Watch.hs
{- This file was auto-generated from utxorpc/v1alpha/watch/watch.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Utxorpc.V1alpha.Watch.Watch (
WatchService(..), AnyChainBlock(), AnyChainBlock'Chain(..),
_AnyChainBlock'Cardano, AnyChainTx(), AnyChainTx'Chain(..),
_AnyChainTx'Cardano, AnyChainTxPattern(),
AnyChainTxPattern'Chain(..), _AnyChainTxPattern'Cardano,
BlockRef(), TxPredicate(), WatchTxRequest(), WatchTxResponse(),
WatchTxResponse'Action(..), _WatchTxResponse'Apply,
_WatchTxResponse'Undo, _WatchTxResponse'Idle
) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Google.Protobuf.FieldMask
import qualified Proto.Utxorpc.V1alpha.Cardano.Cardano
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.nativeBytes' @:: Lens' AnyChainBlock Data.ByteString.ByteString@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.maybe'chain' @:: Lens' AnyChainBlock (Prelude.Maybe AnyChainBlock'Chain)@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.maybe'cardano' @:: Lens' AnyChainBlock (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.Block)@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.cardano' @:: Lens' AnyChainBlock Proto.Utxorpc.V1alpha.Cardano.Cardano.Block@ -}
data AnyChainBlock
= AnyChainBlock'_constructor {_AnyChainBlock'nativeBytes :: !Data.ByteString.ByteString,
_AnyChainBlock'chain :: !(Prelude.Maybe AnyChainBlock'Chain),
_AnyChainBlock'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show AnyChainBlock where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
data AnyChainBlock'Chain
= AnyChainBlock'Cardano !Proto.Utxorpc.V1alpha.Cardano.Cardano.Block
deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)
instance Data.ProtoLens.Field.HasField AnyChainBlock "nativeBytes" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AnyChainBlock'nativeBytes
(\ x__ y__ -> x__ {_AnyChainBlock'nativeBytes = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AnyChainBlock "maybe'chain" (Prelude.Maybe AnyChainBlock'Chain) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AnyChainBlock'chain
(\ x__ y__ -> x__ {_AnyChainBlock'chain = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AnyChainBlock "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.Block) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AnyChainBlock'chain
(\ x__ y__ -> x__ {_AnyChainBlock'chain = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (AnyChainBlock'Cardano x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap AnyChainBlock'Cardano y__))
instance Data.ProtoLens.Field.HasField AnyChainBlock "cardano" Proto.Utxorpc.V1alpha.Cardano.Cardano.Block where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AnyChainBlock'chain
(\ x__ y__ -> x__ {_AnyChainBlock'chain = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (AnyChainBlock'Cardano x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap AnyChainBlock'Cardano y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message AnyChainBlock where
messageName _
= Data.Text.pack "utxorpc.v1alpha.watch.AnyChainBlock"
packedMessageDescriptor _
= "\n\
\\rAnyChainBlock\DC2!\n\
\\fnative_bytes\CAN\SOH \SOH(\fR\vnativeBytes\DC2:\n\
\\acardano\CAN\STX \SOH(\v2\RS.utxorpc.v1alpha.cardano.BlockH\NULR\acardanoB\a\n\
\\ENQchain"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
nativeBytes__field_descriptor
= Data.ProtoLens.FieldDescriptor
"native_bytes"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"nativeBytes")) ::
Data.ProtoLens.FieldDescriptor AnyChainBlock
cardano__field_descriptor
= Data.ProtoLens.FieldDescriptor
"cardano"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1alpha.Cardano.Cardano.Block)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'cardano")) ::
Data.ProtoLens.FieldDescriptor AnyChainBlock
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, nativeBytes__field_descriptor),
(Data.ProtoLens.Tag 2, cardano__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_AnyChainBlock'_unknownFields
(\ x__ y__ -> x__ {_AnyChainBlock'_unknownFields = y__})
defMessage
= AnyChainBlock'_constructor
{_AnyChainBlock'nativeBytes = Data.ProtoLens.fieldDefault,
_AnyChainBlock'chain = Prelude.Nothing,
_AnyChainBlock'_unknownFields = []}
parseMessage
= let
loop ::
AnyChainBlock -> Data.ProtoLens.Encoding.Bytes.Parser AnyChainBlock
loop x
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
10
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"native_bytes"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"nativeBytes") y x)
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"cardano"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x)
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do loop Data.ProtoLens.defMessage) "AnyChainBlock"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"nativeBytes") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
((Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'chain") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just (AnyChainBlock'Cardano v))
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData AnyChainBlock where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_AnyChainBlock'_unknownFields x__)
(Control.DeepSeq.deepseq
(_AnyChainBlock'nativeBytes x__)
(Control.DeepSeq.deepseq (_AnyChainBlock'chain x__) ()))
instance Control.DeepSeq.NFData AnyChainBlock'Chain where
rnf (AnyChainBlock'Cardano x__) = Control.DeepSeq.rnf x__
_AnyChainBlock'Cardano ::
Data.ProtoLens.Prism.Prism' AnyChainBlock'Chain Proto.Utxorpc.V1alpha.Cardano.Cardano.Block
_AnyChainBlock'Cardano
= Data.ProtoLens.Prism.prism'
AnyChainBlock'Cardano
(\ p__
-> case p__ of
(AnyChainBlock'Cardano p__val) -> Prelude.Just p__val)
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.block' @:: Lens' AnyChainTx AnyChainBlock@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.maybe'block' @:: Lens' AnyChainTx (Prelude.Maybe AnyChainBlock)@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.maybe'chain' @:: Lens' AnyChainTx (Prelude.Maybe AnyChainTx'Chain)@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.maybe'cardano' @:: Lens' AnyChainTx (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.Tx)@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.cardano' @:: Lens' AnyChainTx Proto.Utxorpc.V1alpha.Cardano.Cardano.Tx@ -}
data AnyChainTx
= AnyChainTx'_constructor {_AnyChainTx'block :: !(Prelude.Maybe AnyChainBlock),
_AnyChainTx'chain :: !(Prelude.Maybe AnyChainTx'Chain),
_AnyChainTx'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show AnyChainTx where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
data AnyChainTx'Chain
= AnyChainTx'Cardano !Proto.Utxorpc.V1alpha.Cardano.Cardano.Tx
deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)
instance Data.ProtoLens.Field.HasField AnyChainTx "block" AnyChainBlock where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AnyChainTx'block (\ x__ y__ -> x__ {_AnyChainTx'block = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AnyChainTx "maybe'block" (Prelude.Maybe AnyChainBlock) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AnyChainTx'block (\ x__ y__ -> x__ {_AnyChainTx'block = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AnyChainTx "maybe'chain" (Prelude.Maybe AnyChainTx'Chain) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AnyChainTx'chain (\ x__ y__ -> x__ {_AnyChainTx'chain = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AnyChainTx "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.Tx) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AnyChainTx'chain (\ x__ y__ -> x__ {_AnyChainTx'chain = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (AnyChainTx'Cardano x__val)) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap AnyChainTx'Cardano y__))
instance Data.ProtoLens.Field.HasField AnyChainTx "cardano" Proto.Utxorpc.V1alpha.Cardano.Cardano.Tx where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AnyChainTx'chain (\ x__ y__ -> x__ {_AnyChainTx'chain = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (AnyChainTx'Cardano x__val)) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap AnyChainTx'Cardano y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message AnyChainTx where
messageName _ = Data.Text.pack "utxorpc.v1alpha.watch.AnyChainTx"
packedMessageDescriptor _
= "\n\
\\n\
\AnyChainTx\DC27\n\
\\acardano\CAN\SOH \SOH(\v2\ESC.utxorpc.v1alpha.cardano.TxH\NULR\acardano\DC2:\n\
\\ENQblock\CAN\STX \SOH(\v2$.utxorpc.v1alpha.watch.AnyChainBlockR\ENQblockB\a\n\
\\ENQchain"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
block__field_descriptor
= Data.ProtoLens.FieldDescriptor
"block"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor AnyChainBlock)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'block")) ::
Data.ProtoLens.FieldDescriptor AnyChainTx
cardano__field_descriptor
= Data.ProtoLens.FieldDescriptor
"cardano"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1alpha.Cardano.Cardano.Tx)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'cardano")) ::
Data.ProtoLens.FieldDescriptor AnyChainTx
in
Data.Map.fromList
[(Data.ProtoLens.Tag 2, block__field_descriptor),
(Data.ProtoLens.Tag 1, cardano__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_AnyChainTx'_unknownFields
(\ x__ y__ -> x__ {_AnyChainTx'_unknownFields = y__})
defMessage
= AnyChainTx'_constructor
{_AnyChainTx'block = Prelude.Nothing,
_AnyChainTx'chain = Prelude.Nothing,
_AnyChainTx'_unknownFields = []}
parseMessage
= let
loop ::
AnyChainTx -> Data.ProtoLens.Encoding.Bytes.Parser AnyChainTx
loop x
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"block"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"block") y x)
10
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"cardano"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x)
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do loop Data.ProtoLens.defMessage) "AnyChainTx"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'block") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just _v)
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage _v))
((Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'chain") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just (AnyChainTx'Cardano v))
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData AnyChainTx where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_AnyChainTx'_unknownFields x__)
(Control.DeepSeq.deepseq
(_AnyChainTx'block x__)
(Control.DeepSeq.deepseq (_AnyChainTx'chain x__) ()))
instance Control.DeepSeq.NFData AnyChainTx'Chain where
rnf (AnyChainTx'Cardano x__) = Control.DeepSeq.rnf x__
_AnyChainTx'Cardano ::
Data.ProtoLens.Prism.Prism' AnyChainTx'Chain Proto.Utxorpc.V1alpha.Cardano.Cardano.Tx
_AnyChainTx'Cardano
= Data.ProtoLens.Prism.prism'
AnyChainTx'Cardano
(\ p__
-> case p__ of (AnyChainTx'Cardano p__val) -> Prelude.Just p__val)
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.maybe'chain' @:: Lens' AnyChainTxPattern (Prelude.Maybe AnyChainTxPattern'Chain)@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.maybe'cardano' @:: Lens' AnyChainTxPattern (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.TxPattern)@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.cardano' @:: Lens' AnyChainTxPattern Proto.Utxorpc.V1alpha.Cardano.Cardano.TxPattern@ -}
data AnyChainTxPattern
= AnyChainTxPattern'_constructor {_AnyChainTxPattern'chain :: !(Prelude.Maybe AnyChainTxPattern'Chain),
_AnyChainTxPattern'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show AnyChainTxPattern where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
data AnyChainTxPattern'Chain
= AnyChainTxPattern'Cardano !Proto.Utxorpc.V1alpha.Cardano.Cardano.TxPattern
deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)
instance Data.ProtoLens.Field.HasField AnyChainTxPattern "maybe'chain" (Prelude.Maybe AnyChainTxPattern'Chain) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AnyChainTxPattern'chain
(\ x__ y__ -> x__ {_AnyChainTxPattern'chain = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AnyChainTxPattern "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.TxPattern) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AnyChainTxPattern'chain
(\ x__ y__ -> x__ {_AnyChainTxPattern'chain = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (AnyChainTxPattern'Cardano x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap AnyChainTxPattern'Cardano y__))
instance Data.ProtoLens.Field.HasField AnyChainTxPattern "cardano" Proto.Utxorpc.V1alpha.Cardano.Cardano.TxPattern where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AnyChainTxPattern'chain
(\ x__ y__ -> x__ {_AnyChainTxPattern'chain = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (AnyChainTxPattern'Cardano x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap AnyChainTxPattern'Cardano y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message AnyChainTxPattern where
messageName _
= Data.Text.pack "utxorpc.v1alpha.watch.AnyChainTxPattern"
packedMessageDescriptor _
= "\n\
\\DC1AnyChainTxPattern\DC2>\n\
\\acardano\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.cardano.TxPatternH\NULR\acardanoB\a\n\
\\ENQchain"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
cardano__field_descriptor
= Data.ProtoLens.FieldDescriptor
"cardano"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1alpha.Cardano.Cardano.TxPattern)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'cardano")) ::
Data.ProtoLens.FieldDescriptor AnyChainTxPattern
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, cardano__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_AnyChainTxPattern'_unknownFields
(\ x__ y__ -> x__ {_AnyChainTxPattern'_unknownFields = y__})
defMessage
= AnyChainTxPattern'_constructor
{_AnyChainTxPattern'chain = Prelude.Nothing,
_AnyChainTxPattern'_unknownFields = []}
parseMessage
= let
loop ::
AnyChainTxPattern
-> Data.ProtoLens.Encoding.Bytes.Parser AnyChainTxPattern
loop x
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
10
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"cardano"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x)
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do loop Data.ProtoLens.defMessage) "AnyChainTxPattern"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'chain") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just (AnyChainTxPattern'Cardano v))
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData AnyChainTxPattern where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_AnyChainTxPattern'_unknownFields x__)
(Control.DeepSeq.deepseq (_AnyChainTxPattern'chain x__) ())
instance Control.DeepSeq.NFData AnyChainTxPattern'Chain where
rnf (AnyChainTxPattern'Cardano x__) = Control.DeepSeq.rnf x__
_AnyChainTxPattern'Cardano ::
Data.ProtoLens.Prism.Prism' AnyChainTxPattern'Chain Proto.Utxorpc.V1alpha.Cardano.Cardano.TxPattern
_AnyChainTxPattern'Cardano
= Data.ProtoLens.Prism.prism'
AnyChainTxPattern'Cardano
(\ p__
-> case p__ of
(AnyChainTxPattern'Cardano p__val) -> Prelude.Just p__val)
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.slot' @:: Lens' BlockRef Data.Word.Word64@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.hash' @:: Lens' BlockRef Data.ByteString.ByteString@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.height' @:: Lens' BlockRef Data.Word.Word64@ -}
data BlockRef
= BlockRef'_constructor {_BlockRef'slot :: !Data.Word.Word64,
_BlockRef'hash :: !Data.ByteString.ByteString,
_BlockRef'height :: !Data.Word.Word64,
_BlockRef'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show BlockRef where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField BlockRef "slot" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_BlockRef'slot (\ x__ y__ -> x__ {_BlockRef'slot = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField BlockRef "hash" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_BlockRef'hash (\ x__ y__ -> x__ {_BlockRef'hash = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField BlockRef "height" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_BlockRef'height (\ x__ y__ -> x__ {_BlockRef'height = y__}))
Prelude.id
instance Data.ProtoLens.Message BlockRef where
messageName _ = Data.Text.pack "utxorpc.v1alpha.watch.BlockRef"
packedMessageDescriptor _
= "\n\
\\bBlockRef\DC2\DC2\n\
\\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\DC2\n\
\\EOThash\CAN\STX \SOH(\fR\EOThash\DC2\SYN\n\
\\ACKheight\CAN\ETX \SOH(\EOTR\ACKheight"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
slot__field_descriptor
= Data.ProtoLens.FieldDescriptor
"slot"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"slot")) ::
Data.ProtoLens.FieldDescriptor BlockRef
hash__field_descriptor
= Data.ProtoLens.FieldDescriptor
"hash"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) ::
Data.ProtoLens.FieldDescriptor BlockRef
height__field_descriptor
= Data.ProtoLens.FieldDescriptor
"height"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"height")) ::
Data.ProtoLens.FieldDescriptor BlockRef
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, slot__field_descriptor),
(Data.ProtoLens.Tag 2, hash__field_descriptor),
(Data.ProtoLens.Tag 3, height__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_BlockRef'_unknownFields
(\ x__ y__ -> x__ {_BlockRef'_unknownFields = y__})
defMessage
= BlockRef'_constructor
{_BlockRef'slot = Data.ProtoLens.fieldDefault,
_BlockRef'hash = Data.ProtoLens.fieldDefault,
_BlockRef'height = Data.ProtoLens.fieldDefault,
_BlockRef'_unknownFields = []}
parseMessage
= let
loop :: BlockRef -> Data.ProtoLens.Encoding.Bytes.Parser BlockRef
loop x
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "slot"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"slot") y x)
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"hash"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x)
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "height"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"height") y x)
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do loop Data.ProtoLens.defMessage) "BlockRef"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"slot") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"height") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))))
instance Control.DeepSeq.NFData BlockRef where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_BlockRef'_unknownFields x__)
(Control.DeepSeq.deepseq
(_BlockRef'slot x__)
(Control.DeepSeq.deepseq
(_BlockRef'hash x__)
(Control.DeepSeq.deepseq (_BlockRef'height x__) ())))
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.match' @:: Lens' TxPredicate AnyChainTxPattern@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.maybe'match' @:: Lens' TxPredicate (Prelude.Maybe AnyChainTxPattern)@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.not' @:: Lens' TxPredicate [TxPredicate]@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.vec'not' @:: Lens' TxPredicate (Data.Vector.Vector TxPredicate)@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.allOf' @:: Lens' TxPredicate [TxPredicate]@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.vec'allOf' @:: Lens' TxPredicate (Data.Vector.Vector TxPredicate)@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.anyOf' @:: Lens' TxPredicate [TxPredicate]@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.vec'anyOf' @:: Lens' TxPredicate (Data.Vector.Vector TxPredicate)@ -}
data TxPredicate
= TxPredicate'_constructor {_TxPredicate'match :: !(Prelude.Maybe AnyChainTxPattern),
_TxPredicate'not :: !(Data.Vector.Vector TxPredicate),
_TxPredicate'allOf :: !(Data.Vector.Vector TxPredicate),
_TxPredicate'anyOf :: !(Data.Vector.Vector TxPredicate),
_TxPredicate'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show TxPredicate where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField TxPredicate "match" AnyChainTxPattern where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_TxPredicate'match (\ x__ y__ -> x__ {_TxPredicate'match = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TxPredicate "maybe'match" (Prelude.Maybe AnyChainTxPattern) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_TxPredicate'match (\ x__ y__ -> x__ {_TxPredicate'match = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField TxPredicate "not" [TxPredicate] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_TxPredicate'not (\ x__ y__ -> x__ {_TxPredicate'not = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField TxPredicate "vec'not" (Data.Vector.Vector TxPredicate) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_TxPredicate'not (\ x__ y__ -> x__ {_TxPredicate'not = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField TxPredicate "allOf" [TxPredicate] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_TxPredicate'allOf (\ x__ y__ -> x__ {_TxPredicate'allOf = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField TxPredicate "vec'allOf" (Data.Vector.Vector TxPredicate) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_TxPredicate'allOf (\ x__ y__ -> x__ {_TxPredicate'allOf = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField TxPredicate "anyOf" [TxPredicate] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_TxPredicate'anyOf (\ x__ y__ -> x__ {_TxPredicate'anyOf = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField TxPredicate "vec'anyOf" (Data.Vector.Vector TxPredicate) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_TxPredicate'anyOf (\ x__ y__ -> x__ {_TxPredicate'anyOf = y__}))
Prelude.id
instance Data.ProtoLens.Message TxPredicate where
messageName _ = Data.Text.pack "utxorpc.v1alpha.watch.TxPredicate"
packedMessageDescriptor _
= "\n\
\\vTxPredicate\DC2>\n\
\\ENQmatch\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.watch.AnyChainTxPatternR\ENQmatch\DC24\n\
\\ETXnot\CAN\STX \ETX(\v2\".utxorpc.v1alpha.watch.TxPredicateR\ETXnot\DC29\n\
\\ACKall_of\CAN\ETX \ETX(\v2\".utxorpc.v1alpha.watch.TxPredicateR\ENQallOf\DC29\n\
\\ACKany_of\CAN\EOT \ETX(\v2\".utxorpc.v1alpha.watch.TxPredicateR\ENQanyOf"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
match__field_descriptor
= Data.ProtoLens.FieldDescriptor
"match"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor AnyChainTxPattern)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'match")) ::
Data.ProtoLens.FieldDescriptor TxPredicate
not__field_descriptor
= Data.ProtoLens.FieldDescriptor
"not"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TxPredicate)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"not")) ::
Data.ProtoLens.FieldDescriptor TxPredicate
allOf__field_descriptor
= Data.ProtoLens.FieldDescriptor
"all_of"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TxPredicate)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"allOf")) ::
Data.ProtoLens.FieldDescriptor TxPredicate
anyOf__field_descriptor
= Data.ProtoLens.FieldDescriptor
"any_of"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TxPredicate)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"anyOf")) ::
Data.ProtoLens.FieldDescriptor TxPredicate
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, match__field_descriptor),
(Data.ProtoLens.Tag 2, not__field_descriptor),
(Data.ProtoLens.Tag 3, allOf__field_descriptor),
(Data.ProtoLens.Tag 4, anyOf__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_TxPredicate'_unknownFields
(\ x__ y__ -> x__ {_TxPredicate'_unknownFields = y__})
defMessage
= TxPredicate'_constructor
{_TxPredicate'match = Prelude.Nothing,
_TxPredicate'not = Data.Vector.Generic.empty,
_TxPredicate'allOf = Data.Vector.Generic.empty,
_TxPredicate'anyOf = Data.Vector.Generic.empty,
_TxPredicate'_unknownFields = []}
parseMessage
= let
loop ::
TxPredicate
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxPredicate
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxPredicate
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxPredicate
-> Data.ProtoLens.Encoding.Bytes.Parser TxPredicate
loop x mutable'allOf mutable'anyOf mutable'not
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'allOf <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'allOf)
frozen'anyOf <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'anyOf)
frozen'not <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'not)
(let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'allOf") frozen'allOf
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'anyOf") frozen'anyOf
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'not") frozen'not x))))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
10
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"match"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"match") y x)
mutable'allOf mutable'anyOf mutable'not
18
-> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
"not"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'not y)
loop x mutable'allOf mutable'anyOf v
26
-> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
"all_of"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'allOf y)
loop x v mutable'anyOf mutable'not
34
-> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
"any_of"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'anyOf y)
loop x mutable'allOf v mutable'not
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'allOf mutable'anyOf mutable'not
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'allOf <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
mutable'anyOf <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
mutable'not <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop
Data.ProtoLens.defMessage mutable'allOf mutable'anyOf mutable'not)
"TxPredicate"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'match") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just _v)
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage _v))
((Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage _v))
(Lens.Family2.view (Data.ProtoLens.Field.field @"vec'not") _x))
((Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage _v))
(Lens.Family2.view (Data.ProtoLens.Field.field @"vec'allOf") _x))
((Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage _v))
(Lens.Family2.view (Data.ProtoLens.Field.field @"vec'anyOf") _x))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))))
instance Control.DeepSeq.NFData TxPredicate where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_TxPredicate'_unknownFields x__)
(Control.DeepSeq.deepseq
(_TxPredicate'match x__)
(Control.DeepSeq.deepseq
(_TxPredicate'not x__)
(Control.DeepSeq.deepseq
(_TxPredicate'allOf x__)
(Control.DeepSeq.deepseq (_TxPredicate'anyOf x__) ()))))
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.predicate' @:: Lens' WatchTxRequest TxPredicate@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.maybe'predicate' @:: Lens' WatchTxRequest (Prelude.Maybe TxPredicate)@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.fieldMask' @:: Lens' WatchTxRequest Proto.Google.Protobuf.FieldMask.FieldMask@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.maybe'fieldMask' @:: Lens' WatchTxRequest (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask)@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.intersect' @:: Lens' WatchTxRequest [BlockRef]@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.vec'intersect' @:: Lens' WatchTxRequest (Data.Vector.Vector BlockRef)@ -}
data WatchTxRequest
= WatchTxRequest'_constructor {_WatchTxRequest'predicate :: !(Prelude.Maybe TxPredicate),
_WatchTxRequest'fieldMask :: !(Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask),
_WatchTxRequest'intersect :: !(Data.Vector.Vector BlockRef),
_WatchTxRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show WatchTxRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField WatchTxRequest "predicate" TxPredicate where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_WatchTxRequest'predicate
(\ x__ y__ -> x__ {_WatchTxRequest'predicate = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField WatchTxRequest "maybe'predicate" (Prelude.Maybe TxPredicate) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_WatchTxRequest'predicate
(\ x__ y__ -> x__ {_WatchTxRequest'predicate = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField WatchTxRequest "fieldMask" Proto.Google.Protobuf.FieldMask.FieldMask where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_WatchTxRequest'fieldMask
(\ x__ y__ -> x__ {_WatchTxRequest'fieldMask = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField WatchTxRequest "maybe'fieldMask" (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_WatchTxRequest'fieldMask
(\ x__ y__ -> x__ {_WatchTxRequest'fieldMask = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField WatchTxRequest "intersect" [BlockRef] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_WatchTxRequest'intersect
(\ x__ y__ -> x__ {_WatchTxRequest'intersect = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField WatchTxRequest "vec'intersect" (Data.Vector.Vector BlockRef) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_WatchTxRequest'intersect
(\ x__ y__ -> x__ {_WatchTxRequest'intersect = y__}))
Prelude.id
instance Data.ProtoLens.Message WatchTxRequest where
messageName _
= Data.Text.pack "utxorpc.v1alpha.watch.WatchTxRequest"
packedMessageDescriptor _
= "\n\
\\SOWatchTxRequest\DC2@\n\
\\tpredicate\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.watch.TxPredicateR\tpredicate\DC29\n\
\\n\
\field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\DC2=\n\
\\tintersect\CAN\ETX \ETX(\v2\US.utxorpc.v1alpha.watch.BlockRefR\tintersect"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
predicate__field_descriptor
= Data.ProtoLens.FieldDescriptor
"predicate"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TxPredicate)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'predicate")) ::
Data.ProtoLens.FieldDescriptor WatchTxRequest
fieldMask__field_descriptor
= Data.ProtoLens.FieldDescriptor
"field_mask"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.FieldMask.FieldMask)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'fieldMask")) ::
Data.ProtoLens.FieldDescriptor WatchTxRequest
intersect__field_descriptor
= Data.ProtoLens.FieldDescriptor
"intersect"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor BlockRef)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"intersect")) ::
Data.ProtoLens.FieldDescriptor WatchTxRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, predicate__field_descriptor),
(Data.ProtoLens.Tag 2, fieldMask__field_descriptor),
(Data.ProtoLens.Tag 3, intersect__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_WatchTxRequest'_unknownFields
(\ x__ y__ -> x__ {_WatchTxRequest'_unknownFields = y__})
defMessage
= WatchTxRequest'_constructor
{_WatchTxRequest'predicate = Prelude.Nothing,
_WatchTxRequest'fieldMask = Prelude.Nothing,
_WatchTxRequest'intersect = Data.Vector.Generic.empty,
_WatchTxRequest'_unknownFields = []}
parseMessage
= let
loop ::
WatchTxRequest
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld BlockRef
-> Data.ProtoLens.Encoding.Bytes.Parser WatchTxRequest
loop x mutable'intersect
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'intersect <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'intersect)
(let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'intersect") frozen'intersect x))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
10
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"predicate"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"predicate") y x)
mutable'intersect
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"field_mask"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"fieldMask") y x)
mutable'intersect
26
-> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
"intersect"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'intersect y)
loop x v
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'intersect
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'intersect <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'intersect)
"WatchTxRequest"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view
(Data.ProtoLens.Field.field @"maybe'predicate") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just _v)
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage _v))
((Data.Monoid.<>)
(case
Lens.Family2.view
(Data.ProtoLens.Field.field @"maybe'fieldMask") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just _v)
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage _v))
((Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage _v))
(Lens.Family2.view
(Data.ProtoLens.Field.field @"vec'intersect") _x))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))))
instance Control.DeepSeq.NFData WatchTxRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_WatchTxRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_WatchTxRequest'predicate x__)
(Control.DeepSeq.deepseq
(_WatchTxRequest'fieldMask x__)
(Control.DeepSeq.deepseq (_WatchTxRequest'intersect x__) ())))
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.maybe'action' @:: Lens' WatchTxResponse (Prelude.Maybe WatchTxResponse'Action)@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.maybe'apply' @:: Lens' WatchTxResponse (Prelude.Maybe AnyChainTx)@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.apply' @:: Lens' WatchTxResponse AnyChainTx@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.maybe'undo' @:: Lens' WatchTxResponse (Prelude.Maybe AnyChainTx)@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.undo' @:: Lens' WatchTxResponse AnyChainTx@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.maybe'idle' @:: Lens' WatchTxResponse (Prelude.Maybe BlockRef)@
* 'Proto.Utxorpc.V1alpha.Watch.Watch_Fields.idle' @:: Lens' WatchTxResponse BlockRef@ -}
data WatchTxResponse
= WatchTxResponse'_constructor {_WatchTxResponse'action :: !(Prelude.Maybe WatchTxResponse'Action),
_WatchTxResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show WatchTxResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
data WatchTxResponse'Action
= WatchTxResponse'Apply !AnyChainTx |
WatchTxResponse'Undo !AnyChainTx |
WatchTxResponse'Idle !BlockRef
deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)
instance Data.ProtoLens.Field.HasField WatchTxResponse "maybe'action" (Prelude.Maybe WatchTxResponse'Action) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_WatchTxResponse'action
(\ x__ y__ -> x__ {_WatchTxResponse'action = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField WatchTxResponse "maybe'apply" (Prelude.Maybe AnyChainTx) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_WatchTxResponse'action
(\ x__ y__ -> x__ {_WatchTxResponse'action = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (WatchTxResponse'Apply x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap WatchTxResponse'Apply y__))
instance Data.ProtoLens.Field.HasField WatchTxResponse "apply" AnyChainTx where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_WatchTxResponse'action
(\ x__ y__ -> x__ {_WatchTxResponse'action = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (WatchTxResponse'Apply x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap WatchTxResponse'Apply y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField WatchTxResponse "maybe'undo" (Prelude.Maybe AnyChainTx) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_WatchTxResponse'action
(\ x__ y__ -> x__ {_WatchTxResponse'action = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (WatchTxResponse'Undo x__val)) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap WatchTxResponse'Undo y__))
instance Data.ProtoLens.Field.HasField WatchTxResponse "undo" AnyChainTx where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_WatchTxResponse'action
(\ x__ y__ -> x__ {_WatchTxResponse'action = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (WatchTxResponse'Undo x__val)) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap WatchTxResponse'Undo y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField WatchTxResponse "maybe'idle" (Prelude.Maybe BlockRef) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_WatchTxResponse'action
(\ x__ y__ -> x__ {_WatchTxResponse'action = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (WatchTxResponse'Idle x__val)) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap WatchTxResponse'Idle y__))
instance Data.ProtoLens.Field.HasField WatchTxResponse "idle" BlockRef where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_WatchTxResponse'action
(\ x__ y__ -> x__ {_WatchTxResponse'action = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (WatchTxResponse'Idle x__val)) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap WatchTxResponse'Idle y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message WatchTxResponse where
messageName _
= Data.Text.pack "utxorpc.v1alpha.watch.WatchTxResponse"
packedMessageDescriptor _
= "\n\
\\SIWatchTxResponse\DC29\n\
\\ENQapply\CAN\SOH \SOH(\v2!.utxorpc.v1alpha.watch.AnyChainTxH\NULR\ENQapply\DC27\n\
\\EOTundo\CAN\STX \SOH(\v2!.utxorpc.v1alpha.watch.AnyChainTxH\NULR\EOTundo\DC25\n\
\\EOTidle\CAN\ETX \SOH(\v2\US.utxorpc.v1alpha.watch.BlockRefH\NULR\EOTidleB\b\n\
\\ACKaction"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
apply__field_descriptor
= Data.ProtoLens.FieldDescriptor
"apply"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor AnyChainTx)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'apply")) ::
Data.ProtoLens.FieldDescriptor WatchTxResponse
undo__field_descriptor
= Data.ProtoLens.FieldDescriptor
"undo"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor AnyChainTx)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'undo")) ::
Data.ProtoLens.FieldDescriptor WatchTxResponse
idle__field_descriptor
= Data.ProtoLens.FieldDescriptor
"idle"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor BlockRef)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'idle")) ::
Data.ProtoLens.FieldDescriptor WatchTxResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, apply__field_descriptor),
(Data.ProtoLens.Tag 2, undo__field_descriptor),
(Data.ProtoLens.Tag 3, idle__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_WatchTxResponse'_unknownFields
(\ x__ y__ -> x__ {_WatchTxResponse'_unknownFields = y__})
defMessage
= WatchTxResponse'_constructor
{_WatchTxResponse'action = Prelude.Nothing,
_WatchTxResponse'_unknownFields = []}
parseMessage
= let
loop ::
WatchTxResponse
-> Data.ProtoLens.Encoding.Bytes.Parser WatchTxResponse
loop x
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
10
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"apply"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"apply") y x)
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"undo"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"undo") y x)
26
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"idle"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"idle") y x)
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do loop Data.ProtoLens.defMessage) "WatchTxResponse"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'action") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just (WatchTxResponse'Apply v))
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage v)
(Prelude.Just (WatchTxResponse'Undo v))
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage v)
(Prelude.Just (WatchTxResponse'Idle v))
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData WatchTxResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_WatchTxResponse'_unknownFields x__)
(Control.DeepSeq.deepseq (_WatchTxResponse'action x__) ())
instance Control.DeepSeq.NFData WatchTxResponse'Action where
rnf (WatchTxResponse'Apply x__) = Control.DeepSeq.rnf x__
rnf (WatchTxResponse'Undo x__) = Control.DeepSeq.rnf x__
rnf (WatchTxResponse'Idle x__) = Control.DeepSeq.rnf x__
_WatchTxResponse'Apply ::
Data.ProtoLens.Prism.Prism' WatchTxResponse'Action AnyChainTx
_WatchTxResponse'Apply
= Data.ProtoLens.Prism.prism'
WatchTxResponse'Apply
(\ p__
-> case p__ of
(WatchTxResponse'Apply p__val) -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
_WatchTxResponse'Undo ::
Data.ProtoLens.Prism.Prism' WatchTxResponse'Action AnyChainTx
_WatchTxResponse'Undo
= Data.ProtoLens.Prism.prism'
WatchTxResponse'Undo
(\ p__
-> case p__ of
(WatchTxResponse'Undo p__val) -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
_WatchTxResponse'Idle ::
Data.ProtoLens.Prism.Prism' WatchTxResponse'Action BlockRef
_WatchTxResponse'Idle
= Data.ProtoLens.Prism.prism'
WatchTxResponse'Idle
(\ p__
-> case p__ of
(WatchTxResponse'Idle p__val) -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
data WatchService = WatchService {}
instance Data.ProtoLens.Service.Types.Service WatchService where
type ServiceName WatchService = "WatchService"
type ServicePackage WatchService = "utxorpc.v1alpha.watch"
type ServiceMethods WatchService = '["watchTx"]
packedServiceDescriptor _
= "\n\
\\fWatchService\DC2Z\n\
\\aWatchTx\DC2%.utxorpc.v1alpha.watch.WatchTxRequest\SUB&.utxorpc.v1alpha.watch.WatchTxResponse0\SOH"
instance Data.ProtoLens.Service.Types.HasMethodImpl WatchService "watchTx" where
type MethodName WatchService "watchTx" = "WatchTx"
type MethodInput WatchService "watchTx" = WatchTxRequest
type MethodOutput WatchService "watchTx" = WatchTxResponse
type MethodStreamingType WatchService "watchTx" = 'Data.ProtoLens.Service.Types.ServerStreaming
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor
= "\n\
\!utxorpc/v1alpha/watch/watch.proto\DC2\NAKutxorpc.v1alpha.watch\SUB google/protobuf/field_mask.proto\SUB%utxorpc/v1alpha/cardano/cardano.proto\"J\n\
\\bBlockRef\DC2\DC2\n\
\\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\DC2\n\
\\EOThash\CAN\STX \SOH(\fR\EOThash\DC2\SYN\n\
\\ACKheight\CAN\ETX \SOH(\EOTR\ACKheight\"w\n\
\\rAnyChainBlock\DC2!\n\
\\fnative_bytes\CAN\SOH \SOH(\fR\vnativeBytes\DC2:\n\
\\acardano\CAN\STX \SOH(\v2\RS.utxorpc.v1alpha.cardano.BlockH\NULR\acardanoB\a\n\
\\ENQchain\"\\\n\
\\DC1AnyChainTxPattern\DC2>\n\
\\acardano\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.cardano.TxPatternH\NULR\acardanoB\a\n\
\\ENQchain\"\249\SOH\n\
\\vTxPredicate\DC2>\n\
\\ENQmatch\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.watch.AnyChainTxPatternR\ENQmatch\DC24\n\
\\ETXnot\CAN\STX \ETX(\v2\".utxorpc.v1alpha.watch.TxPredicateR\ETXnot\DC29\n\
\\ACKall_of\CAN\ETX \ETX(\v2\".utxorpc.v1alpha.watch.TxPredicateR\ENQallOf\DC29\n\
\\ACKany_of\CAN\EOT \ETX(\v2\".utxorpc.v1alpha.watch.TxPredicateR\ENQanyOf\"\204\SOH\n\
\\SOWatchTxRequest\DC2@\n\
\\tpredicate\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.watch.TxPredicateR\tpredicate\DC29\n\
\\n\
\field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\DC2=\n\
\\tintersect\CAN\ETX \ETX(\v2\US.utxorpc.v1alpha.watch.BlockRefR\tintersect\"\138\SOH\n\
\\n\
\AnyChainTx\DC27\n\
\\acardano\CAN\SOH \SOH(\v2\ESC.utxorpc.v1alpha.cardano.TxH\NULR\acardano\DC2:\n\
\\ENQblock\CAN\STX \SOH(\v2$.utxorpc.v1alpha.watch.AnyChainBlockR\ENQblockB\a\n\
\\ENQchain\"\198\SOH\n\
\\SIWatchTxResponse\DC29\n\
\\ENQapply\CAN\SOH \SOH(\v2!.utxorpc.v1alpha.watch.AnyChainTxH\NULR\ENQapply\DC27\n\
\\EOTundo\CAN\STX \SOH(\v2!.utxorpc.v1alpha.watch.AnyChainTxH\NULR\EOTundo\DC25\n\
\\EOTidle\CAN\ETX \SOH(\v2\US.utxorpc.v1alpha.watch.BlockRefH\NULR\EOTidleB\b\n\
\\ACKaction2j\n\
\\fWatchService\DC2Z\n\
\\aWatchTx\DC2%.utxorpc.v1alpha.watch.WatchTxRequest\SUB&.utxorpc.v1alpha.watch.WatchTxResponse0\SOHB\210\SOH\n\
\\EMcom.utxorpc.v1alpha.watchB\n\
\WatchProtoP\SOHZ3github.com/utxorpc/go-codegen/utxorpc/v1alpha/watch\162\STX\ETXUVW\170\STX\NAKUtxorpc.V1alpha.Watch\202\STX\NAKUtxorpc\\V1alpha\\Watch\226\STX!Utxorpc\\V1alpha\\Watch\\GPBMetadata\234\STX\ETBUtxorpc::V1alpha::WatchJ\168\NAK\n\
\\ACK\DC2\EOT\NUL\NUL?\SOH\n\
\\b\n\
\\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
\\b\n\
\\SOH\STX\DC2\ETX\STX\NUL\RS\n\
\\t\n\
\\STX\ETX\NUL\DC2\ETX\EOT\NUL*\n\
\\t\n\
\\STX\ETX\SOH\DC2\ETX\ENQ\NUL/\n\
\Z\n\
\\STX\EOT\NUL\DC2\EOT\b\NUL\f\SOH\SUBN Represents a reference to a specific block by a chosen combination of fields\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\b\b\DLE\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\t\STX\b\n\
\A\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX\t\STX\DC2\"4 Height or slot number (depending on the blockchain)\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\t\t\r\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\t\DLE\DC1\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\n\
\\STX\a\n\
\.\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX\n\
\\STX\DC1\"! Hash of the content of the block\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\n\
\\b\f\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\n\
\\SI\DLE\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX\v\STX\b\n\
\\SUB\n\
\\EOT\EOT\NUL\STX\STX\DC2\ETX\v\STX\DC4\"\r Block height\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\v\t\SI\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\v\DC2\DC3\n\
\\n\
\\n\
\\STX\EOT\SOH\DC2\EOT\SO\NUL\DC3\SOH\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX\SO\b\NAK\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\SI\STX\a\n\
\4\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX\SI\STX\EM\"' Original bytes as defined by the chain\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\SI\b\DC4\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\SI\ETB\CAN\n\
\\f\n\
\\EOT\EOT\SOH\b\NUL\DC2\EOT\DLE\STX\DC2\ETX\n\
\\f\n\
\\ENQ\EOT\SOH\b\NUL\SOH\DC2\ETX\DLE\b\r\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETX\DC1\EOT!\n\
\%\n\
\\EOT\EOT\SOH\STX\SOH\DC2\ETX\DC1\EOT.\"\CAN A parsed Cardano block.\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\DC1\")\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\DC1,-\n\
\D\n\
\\STX\EOT\STX\DC2\EOT\SYN\NUL\SUB\SOH\SUB8 Represents a tx pattern from any supported blockchain.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX\SYN\b\EM\n\
\\f\n\
\\EOT\EOT\STX\b\NUL\DC2\EOT\ETB\STX\EM\ETX\n\
\\f\n\
\\ENQ\EOT\STX\b\NUL\SOH\DC2\ETX\ETB\b\r\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX\CAN\EOT%\n\
\#\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX\CAN\EOT2\"\SYN A Cardano tx pattern.\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\CAN&-\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\CAN01\n\
\\\\n\
\\STX\EOT\ETX\DC2\EOT\GS\NUL\"\SOH\SUBP Represents a simple tx predicate that can composed to create more complex ones\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETX\GS\b\DC3\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX\RS\STX\DC3\n\
\7\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETX\RS\STX\RS\"* Predicate is true if tx exhibits pattern.\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\RS\DC4\EM\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\RS\FS\GS\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\EOT\DC2\ETX\US\STX\n\
\\n\
\>\n\
\\EOT\EOT\ETX\STX\SOH\DC2\ETX\US\STX\US\"1 Predicate is true if tx doesn't exhibit pattern.\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\ACK\DC2\ETX\US\v\SYN\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX\US\ETB\SUB\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX\US\GS\RS\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\EOT\DC2\ETX \STX\n\
\\n\
\C\n\
\\EOT\EOT\ETX\STX\STX\DC2\ETX \STX\"\"6 Predicate is true if tx exhibits all of the patterns.\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\ACK\DC2\ETX \v\SYN\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETX \ETB\GS\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETX !\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ETX\EOT\DC2\ETX!\STX\n\
\\n\
\C\n\
\\EOT\EOT\ETX\STX\ETX\DC2\ETX!\STX\"\"6 Predicate is true if tx exhibits any of the patterns.\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ETX\ACK\DC2\ETX!\v\SYN\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ETX\SOH\DC2\ETX!\ETB\GS\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ETX\ETX\DC2\ETX! !\n\
\X\n\
\\STX\EOT\EOT\DC2\EOT%\NUL)\SOH\SUBL Request to watch transactions from the chain based on a set of predicates.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\EOT\SOH\DC2\ETX%\b\SYN\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETX&\STX\r\n\
\2\n\
\\EOT\EOT\EOT\STX\NUL\DC2\ETX&\STX\FS\"% Predicate to filter transactions by.\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX&\SO\ETB\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX&\SUB\ESC\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\ACK\DC2\ETX'\STX\ESC\n\
\6\n\
\\EOT\EOT\EOT\STX\SOH\DC2\ETX'\STX+\") Field mask to selectively return fields.\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETX'\FS&\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETX')*\n\
\\f\n\
\\ENQ\EOT\EOT\STX\STX\EOT\DC2\ETX(\STX\n\
\\n\
\@\n\
\\EOT\EOT\EOT\STX\STX\DC2\ETX(\STX\"\"3 List of block references to find the intersection.\n\
\\f\n\
\\ENQ\EOT\EOT\STX\STX\ACK\DC2\ETX(\v\DC3\n\
\\f\n\
\\ENQ\EOT\EOT\STX\STX\SOH\DC2\ETX(\DC4\GS\n\
\\f\n\
\\ENQ\EOT\EOT\STX\STX\ETX\DC2\ETX( !\n\
\E\n\
\\STX\EOT\ENQ\DC2\EOT,\NUL1\SOH\SUB9 Represents a transaction from any supported blockchain.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ENQ\SOH\DC2\ETX,\b\DC2\n\
\\f\n\
\\EOT\EOT\ENQ\b\NUL\DC2\EOT-\STX/\ETX\n\
\\f\n\
\\ENQ\EOT\ENQ\b\NUL\SOH\DC2\ETX-\b\r\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\ETX.\EOT\RS\n\
\$\n\
\\EOT\EOT\ENQ\STX\NUL\DC2\ETX.\EOT+\"\ETB A Cardano transaction.\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX.\US&\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX.)*\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\ETX0\STX\SI\n\
\.\n\
\\EOT\EOT\ENQ\STX\SOH\DC2\ETX0\STX\SUB\"! Block containing the transaction\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETX0\DLE\NAK\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETX0\CAN\EM\n\
\\\\n\
\\STX\EOT\ACK\DC2\EOT4\NUL:\SOH\SUBP Response containing the matching chain transactions or block progress signals.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ACK\SOH\DC2\ETX4\b\ETB\n\
\\f\n\
\\EOT\EOT\ACK\b\NUL\DC2\EOT5\STX9\ETX\n\
\\f\n\
\\ENQ\EOT\ACK\b\NUL\SOH\DC2\ETX5\b\SO\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ACK\DC2\ETX6\EOT\SO\n\
\%\n\
\\EOT\EOT\ACK\STX\NUL\DC2\ETX6\EOT\EM\"\CAN Apply this transaction.\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX6\SI\DC4\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX6\ETB\CAN\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ACK\DC2\ETX7\EOT\SO\n\
\$\n\
\\EOT\EOT\ACK\STX\SOH\DC2\ETX7\EOT\CAN\"\ETB Undo this transaction.\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX7\SI\DC3\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX7\SYN\ETB\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\ACK\DC2\ETX8\EOT\f\n\
\*\n\
\\EOT\EOT\ACK\STX\STX\DC2\ETX8\EOT\SYN\"\GS No-match signal for a block.\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETX8\r\DC1\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETX8\DC4\NAK\n\
\O\n\
\\STX\ACK\NUL\DC2\EOT=\NUL?\SOH\SUBC Service definition for watching transactions based on predicates.\n\
\\n\
\\n\
\\n\
\\ETX\ACK\NUL\SOH\DC2\ETX=\b\DC4\n\
\S\n\
\\EOT\ACK\NUL\STX\NUL\DC2\ETX>\STX?\"F Stream transactions from the chain matching the specified predicates.\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX>\ACK\r\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX>\SO\FS\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\ACK\DC2\ETX>'-\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX>.=b\ACKproto3"