btc-lsp-0.1.0.0: src/Proto/BtcLsp/Data/HighLevel.hs
{- This file was auto-generated from btc_lsp/data/high_level.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies, DeriveGeneric#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.BtcLsp.Data.HighLevel (
Ctx(), FeeMoney(), FeeRate(), FieldIndex(), FundLnHodlInvoice(),
FundLnInvoice(), FundMoney(), FundOnChainAddress(), InputFailure(),
InputFailureKind(..), InputFailureKind(),
InputFailureKind'UnrecognizedValue, InternalFailure(),
InternalFailure'Either(..), _InternalFailure'Redacted,
_InternalFailure'GrpcServer, _InternalFailure'Math, LnHost(),
LnPeer(), LnPort(), LnPubKey(), LocalBalance(), Nonce(),
Privacy(..), Privacy(), Privacy'UnrecognizedValue, RefundMoney(),
RefundOnChainAddress(), RemoteBalance()
) 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 Text.PrettyPrint.GenericPretty.Instance
import qualified GHC.Generics
import qualified Text.PrettyPrint.GenericPretty
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.BtcLsp.Data.LowLevel
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.nonce' @:: Lens' Ctx Nonce@
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'nonce' @:: Lens' Ctx (Prelude.Maybe Nonce)@
* 'Proto.BtcLsp.Data.HighLevel_Fields.lnPubKey' @:: Lens' Ctx LnPubKey@
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'lnPubKey' @:: Lens' Ctx (Prelude.Maybe LnPubKey)@ -}
data Ctx
= Ctx'_constructor {_Ctx'nonce :: !(Prelude.Maybe Nonce),
_Ctx'lnPubKey :: !(Prelude.Maybe LnPubKey),
_Ctx'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show Ctx where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out Ctx
instance Data.ProtoLens.Field.HasField Ctx "nonce" Nonce where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Ctx'nonce (\ x__ y__ -> x__ {_Ctx'nonce = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Ctx "maybe'nonce" (Prelude.Maybe Nonce) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Ctx'nonce (\ x__ y__ -> x__ {_Ctx'nonce = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Ctx "lnPubKey" LnPubKey where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Ctx'lnPubKey (\ x__ y__ -> x__ {_Ctx'lnPubKey = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Ctx "maybe'lnPubKey" (Prelude.Maybe LnPubKey) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Ctx'lnPubKey (\ x__ y__ -> x__ {_Ctx'lnPubKey = y__}))
Prelude.id
instance Data.ProtoLens.Message Ctx where
messageName _ = Data.Text.pack "BtcLsp.Data.HighLevel.Ctx"
packedMessageDescriptor _
= "\n\
\\ETXCtx\DC22\n\
\\ENQnonce\CAN\SOH \SOH(\v2\FS.BtcLsp.Data.HighLevel.NonceR\ENQnonce\DC2=\n\
\\n\
\ln_pub_key\CAN\STX \SOH(\v2\US.BtcLsp.Data.HighLevel.LnPubKeyR\blnPubKey"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
nonce__field_descriptor
= Data.ProtoLens.FieldDescriptor
"nonce"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Nonce)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'nonce")) ::
Data.ProtoLens.FieldDescriptor Ctx
lnPubKey__field_descriptor
= Data.ProtoLens.FieldDescriptor
"ln_pub_key"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor LnPubKey)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'lnPubKey")) ::
Data.ProtoLens.FieldDescriptor Ctx
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, nonce__field_descriptor),
(Data.ProtoLens.Tag 2, lnPubKey__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_Ctx'_unknownFields (\ x__ y__ -> x__ {_Ctx'_unknownFields = y__})
defMessage
= Ctx'_constructor
{_Ctx'nonce = Prelude.Nothing, _Ctx'lnPubKey = Prelude.Nothing,
_Ctx'_unknownFields = []}
parseMessage
= let
loop :: Ctx -> Data.ProtoLens.Encoding.Bytes.Parser Ctx
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)
"nonce"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"nonce") 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)
"ln_pub_key"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"lnPubKey") 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) "Ctx"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'nonce") _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'lnPubKey") _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.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData Ctx where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_Ctx'_unknownFields x__)
(Control.DeepSeq.deepseq
(_Ctx'nonce x__) (Control.DeepSeq.deepseq (_Ctx'lnPubKey x__) ()))
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.val' @:: Lens' FeeMoney Proto.BtcLsp.Data.LowLevel.Msat@
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'val' @:: Lens' FeeMoney (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.Msat)@ -}
data FeeMoney
= FeeMoney'_constructor {_FeeMoney'val :: !(Prelude.Maybe Proto.BtcLsp.Data.LowLevel.Msat),
_FeeMoney'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show FeeMoney where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out FeeMoney
instance Data.ProtoLens.Field.HasField FeeMoney "val" Proto.BtcLsp.Data.LowLevel.Msat where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FeeMoney'val (\ x__ y__ -> x__ {_FeeMoney'val = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FeeMoney "maybe'val" (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.Msat) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FeeMoney'val (\ x__ y__ -> x__ {_FeeMoney'val = y__}))
Prelude.id
instance Data.ProtoLens.Message FeeMoney where
messageName _ = Data.Text.pack "BtcLsp.Data.HighLevel.FeeMoney"
packedMessageDescriptor _
= "\n\
\\bFeeMoney\DC2,\n\
\\ETXval\CAN\SOH \SOH(\v2\SUB.BtcLsp.Data.LowLevel.MsatR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.BtcLsp.Data.LowLevel.Msat)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'val")) ::
Data.ProtoLens.FieldDescriptor FeeMoney
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_FeeMoney'_unknownFields
(\ x__ y__ -> x__ {_FeeMoney'_unknownFields = y__})
defMessage
= FeeMoney'_constructor
{_FeeMoney'val = Prelude.Nothing, _FeeMoney'_unknownFields = []}
parseMessage
= let
loop :: FeeMoney -> Data.ProtoLens.Encoding.Bytes.Parser FeeMoney
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)
"val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") 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) "FeeMoney"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'val") _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.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData FeeMoney where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_FeeMoney'_unknownFields x__)
(Control.DeepSeq.deepseq (_FeeMoney'val x__) ())
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.val' @:: Lens' FeeRate Proto.BtcLsp.Data.LowLevel.Urational@
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'val' @:: Lens' FeeRate (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.Urational)@ -}
data FeeRate
= FeeRate'_constructor {_FeeRate'val :: !(Prelude.Maybe Proto.BtcLsp.Data.LowLevel.Urational),
_FeeRate'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show FeeRate where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out FeeRate
instance Data.ProtoLens.Field.HasField FeeRate "val" Proto.BtcLsp.Data.LowLevel.Urational where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FeeRate'val (\ x__ y__ -> x__ {_FeeRate'val = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FeeRate "maybe'val" (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.Urational) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FeeRate'val (\ x__ y__ -> x__ {_FeeRate'val = y__}))
Prelude.id
instance Data.ProtoLens.Message FeeRate where
messageName _ = Data.Text.pack "BtcLsp.Data.HighLevel.FeeRate"
packedMessageDescriptor _
= "\n\
\\aFeeRate\DC21\n\
\\ETXval\CAN\SOH \SOH(\v2\US.BtcLsp.Data.LowLevel.UrationalR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.BtcLsp.Data.LowLevel.Urational)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'val")) ::
Data.ProtoLens.FieldDescriptor FeeRate
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_FeeRate'_unknownFields
(\ x__ y__ -> x__ {_FeeRate'_unknownFields = y__})
defMessage
= FeeRate'_constructor
{_FeeRate'val = Prelude.Nothing, _FeeRate'_unknownFields = []}
parseMessage
= let
loop :: FeeRate -> Data.ProtoLens.Encoding.Bytes.Parser FeeRate
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)
"val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") 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) "FeeRate"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'val") _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.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData FeeRate where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_FeeRate'_unknownFields x__)
(Control.DeepSeq.deepseq (_FeeRate'val x__) ())
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.val' @:: Lens' FieldIndex Data.Word.Word32@ -}
data FieldIndex
= FieldIndex'_constructor {_FieldIndex'val :: !Data.Word.Word32,
_FieldIndex'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show FieldIndex where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out FieldIndex
instance Data.ProtoLens.Field.HasField FieldIndex "val" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FieldIndex'val (\ x__ y__ -> x__ {_FieldIndex'val = y__}))
Prelude.id
instance Data.ProtoLens.Message FieldIndex where
messageName _ = Data.Text.pack "BtcLsp.Data.HighLevel.FieldIndex"
packedMessageDescriptor _
= "\n\
\\n\
\FieldIndex\DC2\DLE\n\
\\ETXval\CAN\SOH \SOH(\rR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"val")) ::
Data.ProtoLens.FieldDescriptor FieldIndex
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_FieldIndex'_unknownFields
(\ x__ y__ -> x__ {_FieldIndex'_unknownFields = y__})
defMessage
= FieldIndex'_constructor
{_FieldIndex'val = Data.ProtoLens.fieldDefault,
_FieldIndex'_unknownFields = []}
parseMessage
= let
loop ::
FieldIndex -> Data.ProtoLens.Encoding.Bytes.Parser FieldIndex
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.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") 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) "FieldIndex"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"val") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData FieldIndex where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_FieldIndex'_unknownFields x__)
(Control.DeepSeq.deepseq (_FieldIndex'val x__) ())
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.val' @:: Lens' FundLnHodlInvoice Proto.BtcLsp.Data.LowLevel.LnHodlInvoice@
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'val' @:: Lens' FundLnHodlInvoice (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.LnHodlInvoice)@ -}
data FundLnHodlInvoice
= FundLnHodlInvoice'_constructor {_FundLnHodlInvoice'val :: !(Prelude.Maybe Proto.BtcLsp.Data.LowLevel.LnHodlInvoice),
_FundLnHodlInvoice'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show FundLnHodlInvoice where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out FundLnHodlInvoice
instance Data.ProtoLens.Field.HasField FundLnHodlInvoice "val" Proto.BtcLsp.Data.LowLevel.LnHodlInvoice where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FundLnHodlInvoice'val
(\ x__ y__ -> x__ {_FundLnHodlInvoice'val = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FundLnHodlInvoice "maybe'val" (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.LnHodlInvoice) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FundLnHodlInvoice'val
(\ x__ y__ -> x__ {_FundLnHodlInvoice'val = y__}))
Prelude.id
instance Data.ProtoLens.Message FundLnHodlInvoice where
messageName _
= Data.Text.pack "BtcLsp.Data.HighLevel.FundLnHodlInvoice"
packedMessageDescriptor _
= "\n\
\\DC1FundLnHodlInvoice\DC25\n\
\\ETXval\CAN\SOH \SOH(\v2#.BtcLsp.Data.LowLevel.LnHodlInvoiceR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.BtcLsp.Data.LowLevel.LnHodlInvoice)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'val")) ::
Data.ProtoLens.FieldDescriptor FundLnHodlInvoice
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_FundLnHodlInvoice'_unknownFields
(\ x__ y__ -> x__ {_FundLnHodlInvoice'_unknownFields = y__})
defMessage
= FundLnHodlInvoice'_constructor
{_FundLnHodlInvoice'val = Prelude.Nothing,
_FundLnHodlInvoice'_unknownFields = []}
parseMessage
= let
loop ::
FundLnHodlInvoice
-> Data.ProtoLens.Encoding.Bytes.Parser FundLnHodlInvoice
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)
"val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") 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) "FundLnHodlInvoice"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'val") _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.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData FundLnHodlInvoice where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_FundLnHodlInvoice'_unknownFields x__)
(Control.DeepSeq.deepseq (_FundLnHodlInvoice'val x__) ())
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.val' @:: Lens' FundLnInvoice Proto.BtcLsp.Data.LowLevel.LnInvoice@
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'val' @:: Lens' FundLnInvoice (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.LnInvoice)@ -}
data FundLnInvoice
= FundLnInvoice'_constructor {_FundLnInvoice'val :: !(Prelude.Maybe Proto.BtcLsp.Data.LowLevel.LnInvoice),
_FundLnInvoice'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show FundLnInvoice where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out FundLnInvoice
instance Data.ProtoLens.Field.HasField FundLnInvoice "val" Proto.BtcLsp.Data.LowLevel.LnInvoice where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FundLnInvoice'val (\ x__ y__ -> x__ {_FundLnInvoice'val = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FundLnInvoice "maybe'val" (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.LnInvoice) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FundLnInvoice'val (\ x__ y__ -> x__ {_FundLnInvoice'val = y__}))
Prelude.id
instance Data.ProtoLens.Message FundLnInvoice where
messageName _
= Data.Text.pack "BtcLsp.Data.HighLevel.FundLnInvoice"
packedMessageDescriptor _
= "\n\
\\rFundLnInvoice\DC21\n\
\\ETXval\CAN\SOH \SOH(\v2\US.BtcLsp.Data.LowLevel.LnInvoiceR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.BtcLsp.Data.LowLevel.LnInvoice)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'val")) ::
Data.ProtoLens.FieldDescriptor FundLnInvoice
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_FundLnInvoice'_unknownFields
(\ x__ y__ -> x__ {_FundLnInvoice'_unknownFields = y__})
defMessage
= FundLnInvoice'_constructor
{_FundLnInvoice'val = Prelude.Nothing,
_FundLnInvoice'_unknownFields = []}
parseMessage
= let
loop ::
FundLnInvoice -> Data.ProtoLens.Encoding.Bytes.Parser FundLnInvoice
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)
"val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") 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) "FundLnInvoice"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'val") _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.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData FundLnInvoice where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_FundLnInvoice'_unknownFields x__)
(Control.DeepSeq.deepseq (_FundLnInvoice'val x__) ())
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.val' @:: Lens' FundMoney Proto.BtcLsp.Data.LowLevel.Msat@
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'val' @:: Lens' FundMoney (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.Msat)@ -}
data FundMoney
= FundMoney'_constructor {_FundMoney'val :: !(Prelude.Maybe Proto.BtcLsp.Data.LowLevel.Msat),
_FundMoney'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show FundMoney where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out FundMoney
instance Data.ProtoLens.Field.HasField FundMoney "val" Proto.BtcLsp.Data.LowLevel.Msat where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FundMoney'val (\ x__ y__ -> x__ {_FundMoney'val = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FundMoney "maybe'val" (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.Msat) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FundMoney'val (\ x__ y__ -> x__ {_FundMoney'val = y__}))
Prelude.id
instance Data.ProtoLens.Message FundMoney where
messageName _ = Data.Text.pack "BtcLsp.Data.HighLevel.FundMoney"
packedMessageDescriptor _
= "\n\
\\tFundMoney\DC2,\n\
\\ETXval\CAN\SOH \SOH(\v2\SUB.BtcLsp.Data.LowLevel.MsatR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.BtcLsp.Data.LowLevel.Msat)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'val")) ::
Data.ProtoLens.FieldDescriptor FundMoney
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_FundMoney'_unknownFields
(\ x__ y__ -> x__ {_FundMoney'_unknownFields = y__})
defMessage
= FundMoney'_constructor
{_FundMoney'val = Prelude.Nothing, _FundMoney'_unknownFields = []}
parseMessage
= let
loop :: FundMoney -> Data.ProtoLens.Encoding.Bytes.Parser FundMoney
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)
"val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") 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) "FundMoney"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'val") _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.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData FundMoney where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_FundMoney'_unknownFields x__)
(Control.DeepSeq.deepseq (_FundMoney'val x__) ())
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.val' @:: Lens' FundOnChainAddress Proto.BtcLsp.Data.LowLevel.OnChainAddress@
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'val' @:: Lens' FundOnChainAddress (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.OnChainAddress)@ -}
data FundOnChainAddress
= FundOnChainAddress'_constructor {_FundOnChainAddress'val :: !(Prelude.Maybe Proto.BtcLsp.Data.LowLevel.OnChainAddress),
_FundOnChainAddress'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show FundOnChainAddress where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out FundOnChainAddress
instance Data.ProtoLens.Field.HasField FundOnChainAddress "val" Proto.BtcLsp.Data.LowLevel.OnChainAddress where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FundOnChainAddress'val
(\ x__ y__ -> x__ {_FundOnChainAddress'val = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FundOnChainAddress "maybe'val" (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.OnChainAddress) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FundOnChainAddress'val
(\ x__ y__ -> x__ {_FundOnChainAddress'val = y__}))
Prelude.id
instance Data.ProtoLens.Message FundOnChainAddress where
messageName _
= Data.Text.pack "BtcLsp.Data.HighLevel.FundOnChainAddress"
packedMessageDescriptor _
= "\n\
\\DC2FundOnChainAddress\DC26\n\
\\ETXval\CAN\SOH \SOH(\v2$.BtcLsp.Data.LowLevel.OnChainAddressR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.BtcLsp.Data.LowLevel.OnChainAddress)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'val")) ::
Data.ProtoLens.FieldDescriptor FundOnChainAddress
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_FundOnChainAddress'_unknownFields
(\ x__ y__ -> x__ {_FundOnChainAddress'_unknownFields = y__})
defMessage
= FundOnChainAddress'_constructor
{_FundOnChainAddress'val = Prelude.Nothing,
_FundOnChainAddress'_unknownFields = []}
parseMessage
= let
loop ::
FundOnChainAddress
-> Data.ProtoLens.Encoding.Bytes.Parser FundOnChainAddress
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)
"val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") 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) "FundOnChainAddress"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'val") _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.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData FundOnChainAddress where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_FundOnChainAddress'_unknownFields x__)
(Control.DeepSeq.deepseq (_FundOnChainAddress'val x__) ())
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.fieldLocation' @:: Lens' InputFailure [FieldIndex]@
* 'Proto.BtcLsp.Data.HighLevel_Fields.vec'fieldLocation' @:: Lens' InputFailure (Data.Vector.Vector FieldIndex)@
* 'Proto.BtcLsp.Data.HighLevel_Fields.kind' @:: Lens' InputFailure InputFailureKind@ -}
data InputFailure
= InputFailure'_constructor {_InputFailure'fieldLocation :: !(Data.Vector.Vector FieldIndex),
_InputFailure'kind :: !InputFailureKind,
_InputFailure'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show InputFailure where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out InputFailure
instance Data.ProtoLens.Field.HasField InputFailure "fieldLocation" [FieldIndex] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InputFailure'fieldLocation
(\ x__ y__ -> x__ {_InputFailure'fieldLocation = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField InputFailure "vec'fieldLocation" (Data.Vector.Vector FieldIndex) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InputFailure'fieldLocation
(\ x__ y__ -> x__ {_InputFailure'fieldLocation = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField InputFailure "kind" InputFailureKind where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InputFailure'kind (\ x__ y__ -> x__ {_InputFailure'kind = y__}))
Prelude.id
instance Data.ProtoLens.Message InputFailure where
messageName _ = Data.Text.pack "BtcLsp.Data.HighLevel.InputFailure"
packedMessageDescriptor _
= "\n\
\\fInputFailure\DC2H\n\
\\SOfield_location\CAN\SOH \ETX(\v2!.BtcLsp.Data.HighLevel.FieldIndexR\rfieldLocation\DC2;\n\
\\EOTkind\CAN\STX \SOH(\SO2'.BtcLsp.Data.HighLevel.InputFailureKindR\EOTkind"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
fieldLocation__field_descriptor
= Data.ProtoLens.FieldDescriptor
"field_location"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor FieldIndex)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"fieldLocation")) ::
Data.ProtoLens.FieldDescriptor InputFailure
kind__field_descriptor
= Data.ProtoLens.FieldDescriptor
"kind"
(Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor InputFailureKind)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"kind")) ::
Data.ProtoLens.FieldDescriptor InputFailure
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, fieldLocation__field_descriptor),
(Data.ProtoLens.Tag 2, kind__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_InputFailure'_unknownFields
(\ x__ y__ -> x__ {_InputFailure'_unknownFields = y__})
defMessage
= InputFailure'_constructor
{_InputFailure'fieldLocation = Data.Vector.Generic.empty,
_InputFailure'kind = Data.ProtoLens.fieldDefault,
_InputFailure'_unknownFields = []}
parseMessage
= let
loop ::
InputFailure
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld FieldIndex
-> Data.ProtoLens.Encoding.Bytes.Parser InputFailure
loop x mutable'fieldLocation
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'fieldLocation <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'fieldLocation)
(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'fieldLocation")
frozen'fieldLocation 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)
"field_location"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'fieldLocation y)
loop x v
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.toEnum
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt))
"kind"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"kind") y x)
mutable'fieldLocation
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'fieldLocation
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'fieldLocation <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'fieldLocation)
"InputFailure"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _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))
(Lens.Family2.view
(Data.ProtoLens.Field.field @"vec'fieldLocation") _x))
((Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"kind") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
((Prelude..)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral)
Prelude.fromEnum _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData InputFailure where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_InputFailure'_unknownFields x__)
(Control.DeepSeq.deepseq
(_InputFailure'fieldLocation x__)
(Control.DeepSeq.deepseq (_InputFailure'kind x__) ()))
newtype InputFailureKind'UnrecognizedValue
= InputFailureKind'UnrecognizedValue Data.Int.Int32
deriving stock (Prelude.Eq,
Prelude.Ord,
Prelude.Show,
GHC.Generics.Generic)
instance Text.PrettyPrint.GenericPretty.Out InputFailureKind'UnrecognizedValue
data InputFailureKind
= REQUIRED |
NOT_FOUND |
PARSING_FAILED |
VERIFICATION_FAILED |
InputFailureKind'Unrecognized !InputFailureKind'UnrecognizedValue
deriving stock (Prelude.Show,
Prelude.Eq,
Prelude.Ord,
GHC.Generics.Generic)
instance Data.ProtoLens.MessageEnum InputFailureKind where
maybeToEnum 0 = Prelude.Just REQUIRED
maybeToEnum 1 = Prelude.Just NOT_FOUND
maybeToEnum 2 = Prelude.Just PARSING_FAILED
maybeToEnum 3 = Prelude.Just VERIFICATION_FAILED
maybeToEnum k
= Prelude.Just
(InputFailureKind'Unrecognized
(InputFailureKind'UnrecognizedValue (Prelude.fromIntegral k)))
showEnum REQUIRED = "REQUIRED"
showEnum NOT_FOUND = "NOT_FOUND"
showEnum PARSING_FAILED = "PARSING_FAILED"
showEnum VERIFICATION_FAILED = "VERIFICATION_FAILED"
showEnum
(InputFailureKind'Unrecognized (InputFailureKind'UnrecognizedValue k))
= Prelude.show k
readEnum k
| (Prelude.==) k "REQUIRED" = Prelude.Just REQUIRED
| (Prelude.==) k "NOT_FOUND" = Prelude.Just NOT_FOUND
| (Prelude.==) k "PARSING_FAILED" = Prelude.Just PARSING_FAILED
| (Prelude.==) k "VERIFICATION_FAILED"
= Prelude.Just VERIFICATION_FAILED
| Prelude.otherwise
= (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum
instance Prelude.Bounded InputFailureKind where
minBound = REQUIRED
maxBound = VERIFICATION_FAILED
instance Prelude.Enum InputFailureKind where
toEnum k__
= Prelude.maybe
(Prelude.error
((Prelude.++)
"toEnum: unknown value for enum InputFailureKind: "
(Prelude.show k__)))
Prelude.id (Data.ProtoLens.maybeToEnum k__)
fromEnum REQUIRED = 0
fromEnum NOT_FOUND = 1
fromEnum PARSING_FAILED = 2
fromEnum VERIFICATION_FAILED = 3
fromEnum
(InputFailureKind'Unrecognized (InputFailureKind'UnrecognizedValue k))
= Prelude.fromIntegral k
succ VERIFICATION_FAILED
= Prelude.error
"InputFailureKind.succ: bad argument VERIFICATION_FAILED. This value would be out of bounds."
succ REQUIRED = NOT_FOUND
succ NOT_FOUND = PARSING_FAILED
succ PARSING_FAILED = VERIFICATION_FAILED
succ (InputFailureKind'Unrecognized _)
= Prelude.error
"InputFailureKind.succ: bad argument: unrecognized value"
pred REQUIRED
= Prelude.error
"InputFailureKind.pred: bad argument REQUIRED. This value would be out of bounds."
pred NOT_FOUND = REQUIRED
pred PARSING_FAILED = NOT_FOUND
pred VERIFICATION_FAILED = PARSING_FAILED
pred (InputFailureKind'Unrecognized _)
= Prelude.error
"InputFailureKind.pred: bad argument: unrecognized value"
enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom
enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo
enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen
enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault InputFailureKind where
fieldDefault = REQUIRED
instance Control.DeepSeq.NFData InputFailureKind where
rnf x__ = Prelude.seq x__ ()
instance Text.PrettyPrint.GenericPretty.Out InputFailureKind
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'either' @:: Lens' InternalFailure (Prelude.Maybe InternalFailure'Either)@
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'redacted' @:: Lens' InternalFailure (Prelude.Maybe Prelude.Bool)@
* 'Proto.BtcLsp.Data.HighLevel_Fields.redacted' @:: Lens' InternalFailure Prelude.Bool@
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'grpcServer' @:: Lens' InternalFailure (Prelude.Maybe Data.Text.Text)@
* 'Proto.BtcLsp.Data.HighLevel_Fields.grpcServer' @:: Lens' InternalFailure Data.Text.Text@
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'math' @:: Lens' InternalFailure (Prelude.Maybe Data.Text.Text)@
* 'Proto.BtcLsp.Data.HighLevel_Fields.math' @:: Lens' InternalFailure Data.Text.Text@ -}
data InternalFailure
= InternalFailure'_constructor {_InternalFailure'either :: !(Prelude.Maybe InternalFailure'Either),
_InternalFailure'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show InternalFailure where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out InternalFailure
data InternalFailure'Either
= InternalFailure'Redacted !Prelude.Bool |
InternalFailure'GrpcServer !Data.Text.Text |
InternalFailure'Math !Data.Text.Text
deriving stock (Prelude.Show,
Prelude.Eq,
Prelude.Ord,
GHC.Generics.Generic)
instance Text.PrettyPrint.GenericPretty.Out InternalFailure'Either
instance Data.ProtoLens.Field.HasField InternalFailure "maybe'either" (Prelude.Maybe InternalFailure'Either) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InternalFailure'either
(\ x__ y__ -> x__ {_InternalFailure'either = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField InternalFailure "maybe'redacted" (Prelude.Maybe Prelude.Bool) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InternalFailure'either
(\ x__ y__ -> x__ {_InternalFailure'either = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (InternalFailure'Redacted x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap InternalFailure'Redacted y__))
instance Data.ProtoLens.Field.HasField InternalFailure "redacted" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InternalFailure'either
(\ x__ y__ -> x__ {_InternalFailure'either = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (InternalFailure'Redacted x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap InternalFailure'Redacted y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField InternalFailure "maybe'grpcServer" (Prelude.Maybe Data.Text.Text) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InternalFailure'either
(\ x__ y__ -> x__ {_InternalFailure'either = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (InternalFailure'GrpcServer x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap InternalFailure'GrpcServer y__))
instance Data.ProtoLens.Field.HasField InternalFailure "grpcServer" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InternalFailure'either
(\ x__ y__ -> x__ {_InternalFailure'either = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (InternalFailure'GrpcServer x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap InternalFailure'GrpcServer y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField InternalFailure "maybe'math" (Prelude.Maybe Data.Text.Text) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InternalFailure'either
(\ x__ y__ -> x__ {_InternalFailure'either = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (InternalFailure'Math x__val)) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap InternalFailure'Math y__))
instance Data.ProtoLens.Field.HasField InternalFailure "math" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InternalFailure'either
(\ x__ y__ -> x__ {_InternalFailure'either = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (InternalFailure'Math x__val)) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap InternalFailure'Math y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Message InternalFailure where
messageName _
= Data.Text.pack "BtcLsp.Data.HighLevel.InternalFailure"
packedMessageDescriptor _
= "\n\
\\SIInternalFailure\DC2\FS\n\
\\bredacted\CAN\SOH \SOH(\bH\NULR\bredacted\DC2!\n\
\\vgrpc_server\CAN\STX \SOH(\tH\NULR\n\
\grpcServer\DC2\DC4\n\
\\EOTmath\CAN\ETX \SOH(\tH\NULR\EOTmathB\b\n\
\\ACKeither"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
redacted__field_descriptor
= Data.ProtoLens.FieldDescriptor
"redacted"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'redacted")) ::
Data.ProtoLens.FieldDescriptor InternalFailure
grpcServer__field_descriptor
= Data.ProtoLens.FieldDescriptor
"grpc_server"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'grpcServer")) ::
Data.ProtoLens.FieldDescriptor InternalFailure
math__field_descriptor
= Data.ProtoLens.FieldDescriptor
"math"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'math")) ::
Data.ProtoLens.FieldDescriptor InternalFailure
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, redacted__field_descriptor),
(Data.ProtoLens.Tag 2, grpcServer__field_descriptor),
(Data.ProtoLens.Tag 3, math__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_InternalFailure'_unknownFields
(\ x__ y__ -> x__ {_InternalFailure'_unknownFields = y__})
defMessage
= InternalFailure'_constructor
{_InternalFailure'either = Prelude.Nothing,
_InternalFailure'_unknownFields = []}
parseMessage
= let
loop ::
InternalFailure
-> Data.ProtoLens.Encoding.Bytes.Parser InternalFailure
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.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"redacted"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"redacted") y x)
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len)
Data.ProtoLens.Encoding.Bytes.runEither
(case Data.Text.Encoding.decodeUtf8' value of
(Prelude.Left err)
-> Prelude.Left (Prelude.show err)
(Prelude.Right r) -> Prelude.Right r))
"grpc_server"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"grpcServer") y x)
26
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len)
Data.ProtoLens.Encoding.Bytes.runEither
(case Data.Text.Encoding.decodeUtf8' value of
(Prelude.Left err)
-> Prelude.Left (Prelude.show err)
(Prelude.Right r) -> Prelude.Right r))
"math"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"math") 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) "InternalFailure"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'either") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just (InternalFailure'Redacted v))
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt (\ b -> if b then 1 else 0)
v)
(Prelude.Just (InternalFailure'GrpcServer 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.Text.Encoding.encodeUtf8 v)
(Prelude.Just (InternalFailure'Math 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.Text.Encoding.encodeUtf8 v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData InternalFailure where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_InternalFailure'_unknownFields x__)
(Control.DeepSeq.deepseq (_InternalFailure'either x__) ())
instance Control.DeepSeq.NFData InternalFailure'Either where
rnf (InternalFailure'Redacted x__) = Control.DeepSeq.rnf x__
rnf (InternalFailure'GrpcServer x__) = Control.DeepSeq.rnf x__
rnf (InternalFailure'Math x__) = Control.DeepSeq.rnf x__
_InternalFailure'Redacted ::
Data.ProtoLens.Prism.Prism' InternalFailure'Either Prelude.Bool
_InternalFailure'Redacted
= Data.ProtoLens.Prism.prism'
InternalFailure'Redacted
(\ p__
-> case p__ of
(InternalFailure'Redacted p__val) -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
_InternalFailure'GrpcServer ::
Data.ProtoLens.Prism.Prism' InternalFailure'Either Data.Text.Text
_InternalFailure'GrpcServer
= Data.ProtoLens.Prism.prism'
InternalFailure'GrpcServer
(\ p__
-> case p__ of
(InternalFailure'GrpcServer p__val) -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
_InternalFailure'Math ::
Data.ProtoLens.Prism.Prism' InternalFailure'Either Data.Text.Text
_InternalFailure'Math
= Data.ProtoLens.Prism.prism'
InternalFailure'Math
(\ p__
-> case p__ of
(InternalFailure'Math p__val) -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.val' @:: Lens' LnHost Data.Text.Text@ -}
data LnHost
= LnHost'_constructor {_LnHost'val :: !Data.Text.Text,
_LnHost'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show LnHost where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out LnHost
instance Data.ProtoLens.Field.HasField LnHost "val" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_LnHost'val (\ x__ y__ -> x__ {_LnHost'val = y__}))
Prelude.id
instance Data.ProtoLens.Message LnHost where
messageName _ = Data.Text.pack "BtcLsp.Data.HighLevel.LnHost"
packedMessageDescriptor _
= "\n\
\\ACKLnHost\DC2\DLE\n\
\\ETXval\CAN\SOH \SOH(\tR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"val")) ::
Data.ProtoLens.FieldDescriptor LnHost
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_LnHost'_unknownFields
(\ x__ y__ -> x__ {_LnHost'_unknownFields = y__})
defMessage
= LnHost'_constructor
{_LnHost'val = Data.ProtoLens.fieldDefault,
_LnHost'_unknownFields = []}
parseMessage
= let
loop :: LnHost -> Data.ProtoLens.Encoding.Bytes.Parser LnHost
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 value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len)
Data.ProtoLens.Encoding.Bytes.runEither
(case Data.Text.Encoding.decodeUtf8' value of
(Prelude.Left err)
-> Prelude.Left (Prelude.show err)
(Prelude.Right r) -> Prelude.Right r))
"val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") 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) "LnHost"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"val") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(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.Text.Encoding.encodeUtf8 _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData LnHost where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_LnHost'_unknownFields x__)
(Control.DeepSeq.deepseq (_LnHost'val x__) ())
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.pubKey' @:: Lens' LnPeer LnPubKey@
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'pubKey' @:: Lens' LnPeer (Prelude.Maybe LnPubKey)@
* 'Proto.BtcLsp.Data.HighLevel_Fields.host' @:: Lens' LnPeer LnHost@
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'host' @:: Lens' LnPeer (Prelude.Maybe LnHost)@
* 'Proto.BtcLsp.Data.HighLevel_Fields.port' @:: Lens' LnPeer LnPort@
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'port' @:: Lens' LnPeer (Prelude.Maybe LnPort)@ -}
data LnPeer
= LnPeer'_constructor {_LnPeer'pubKey :: !(Prelude.Maybe LnPubKey),
_LnPeer'host :: !(Prelude.Maybe LnHost),
_LnPeer'port :: !(Prelude.Maybe LnPort),
_LnPeer'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show LnPeer where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out LnPeer
instance Data.ProtoLens.Field.HasField LnPeer "pubKey" LnPubKey where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_LnPeer'pubKey (\ x__ y__ -> x__ {_LnPeer'pubKey = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField LnPeer "maybe'pubKey" (Prelude.Maybe LnPubKey) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_LnPeer'pubKey (\ x__ y__ -> x__ {_LnPeer'pubKey = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField LnPeer "host" LnHost where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_LnPeer'host (\ x__ y__ -> x__ {_LnPeer'host = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField LnPeer "maybe'host" (Prelude.Maybe LnHost) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_LnPeer'host (\ x__ y__ -> x__ {_LnPeer'host = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField LnPeer "port" LnPort where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_LnPeer'port (\ x__ y__ -> x__ {_LnPeer'port = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField LnPeer "maybe'port" (Prelude.Maybe LnPort) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_LnPeer'port (\ x__ y__ -> x__ {_LnPeer'port = y__}))
Prelude.id
instance Data.ProtoLens.Message LnPeer where
messageName _ = Data.Text.pack "BtcLsp.Data.HighLevel.LnPeer"
packedMessageDescriptor _
= "\n\
\\ACKLnPeer\DC28\n\
\\apub_key\CAN\SOH \SOH(\v2\US.BtcLsp.Data.HighLevel.LnPubKeyR\ACKpubKey\DC21\n\
\\EOThost\CAN\STX \SOH(\v2\GS.BtcLsp.Data.HighLevel.LnHostR\EOThost\DC21\n\
\\EOTport\CAN\ETX \SOH(\v2\GS.BtcLsp.Data.HighLevel.LnPortR\EOTport"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
pubKey__field_descriptor
= Data.ProtoLens.FieldDescriptor
"pub_key"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor LnPubKey)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'pubKey")) ::
Data.ProtoLens.FieldDescriptor LnPeer
host__field_descriptor
= Data.ProtoLens.FieldDescriptor
"host"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor LnHost)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'host")) ::
Data.ProtoLens.FieldDescriptor LnPeer
port__field_descriptor
= Data.ProtoLens.FieldDescriptor
"port"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor LnPort)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'port")) ::
Data.ProtoLens.FieldDescriptor LnPeer
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, pubKey__field_descriptor),
(Data.ProtoLens.Tag 2, host__field_descriptor),
(Data.ProtoLens.Tag 3, port__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_LnPeer'_unknownFields
(\ x__ y__ -> x__ {_LnPeer'_unknownFields = y__})
defMessage
= LnPeer'_constructor
{_LnPeer'pubKey = Prelude.Nothing, _LnPeer'host = Prelude.Nothing,
_LnPeer'port = Prelude.Nothing, _LnPeer'_unknownFields = []}
parseMessage
= let
loop :: LnPeer -> Data.ProtoLens.Encoding.Bytes.Parser LnPeer
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)
"pub_key"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pubKey") 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)
"host"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"host") 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)
"port"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"port") 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) "LnPeer"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'pubKey") _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'host") _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'port") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just _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 LnPeer where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_LnPeer'_unknownFields x__)
(Control.DeepSeq.deepseq
(_LnPeer'pubKey x__)
(Control.DeepSeq.deepseq
(_LnPeer'host x__)
(Control.DeepSeq.deepseq (_LnPeer'port x__) ())))
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.val' @:: Lens' LnPort Data.Word.Word32@ -}
data LnPort
= LnPort'_constructor {_LnPort'val :: !Data.Word.Word32,
_LnPort'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show LnPort where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out LnPort
instance Data.ProtoLens.Field.HasField LnPort "val" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_LnPort'val (\ x__ y__ -> x__ {_LnPort'val = y__}))
Prelude.id
instance Data.ProtoLens.Message LnPort where
messageName _ = Data.Text.pack "BtcLsp.Data.HighLevel.LnPort"
packedMessageDescriptor _
= "\n\
\\ACKLnPort\DC2\DLE\n\
\\ETXval\CAN\SOH \SOH(\rR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"val")) ::
Data.ProtoLens.FieldDescriptor LnPort
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_LnPort'_unknownFields
(\ x__ y__ -> x__ {_LnPort'_unknownFields = y__})
defMessage
= LnPort'_constructor
{_LnPort'val = Data.ProtoLens.fieldDefault,
_LnPort'_unknownFields = []}
parseMessage
= let
loop :: LnPort -> Data.ProtoLens.Encoding.Bytes.Parser LnPort
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.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") 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) "LnPort"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"val") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData LnPort where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_LnPort'_unknownFields x__)
(Control.DeepSeq.deepseq (_LnPort'val x__) ())
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.val' @:: Lens' LnPubKey Data.ByteString.ByteString@ -}
data LnPubKey
= LnPubKey'_constructor {_LnPubKey'val :: !Data.ByteString.ByteString,
_LnPubKey'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show LnPubKey where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out LnPubKey
instance Data.ProtoLens.Field.HasField LnPubKey "val" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_LnPubKey'val (\ x__ y__ -> x__ {_LnPubKey'val = y__}))
Prelude.id
instance Data.ProtoLens.Message LnPubKey where
messageName _ = Data.Text.pack "BtcLsp.Data.HighLevel.LnPubKey"
packedMessageDescriptor _
= "\n\
\\bLnPubKey\DC2\DLE\n\
\\ETXval\CAN\SOH \SOH(\fR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"val")) ::
Data.ProtoLens.FieldDescriptor LnPubKey
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_LnPubKey'_unknownFields
(\ x__ y__ -> x__ {_LnPubKey'_unknownFields = y__})
defMessage
= LnPubKey'_constructor
{_LnPubKey'val = Data.ProtoLens.fieldDefault,
_LnPubKey'_unknownFields = []}
parseMessage
= let
loop :: LnPubKey -> Data.ProtoLens.Encoding.Bytes.Parser LnPubKey
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))
"val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") 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) "LnPubKey"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"val") _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.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData LnPubKey where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_LnPubKey'_unknownFields x__)
(Control.DeepSeq.deepseq (_LnPubKey'val x__) ())
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.val' @:: Lens' LocalBalance Proto.BtcLsp.Data.LowLevel.Msat@
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'val' @:: Lens' LocalBalance (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.Msat)@ -}
data LocalBalance
= LocalBalance'_constructor {_LocalBalance'val :: !(Prelude.Maybe Proto.BtcLsp.Data.LowLevel.Msat),
_LocalBalance'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show LocalBalance where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out LocalBalance
instance Data.ProtoLens.Field.HasField LocalBalance "val" Proto.BtcLsp.Data.LowLevel.Msat where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_LocalBalance'val (\ x__ y__ -> x__ {_LocalBalance'val = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField LocalBalance "maybe'val" (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.Msat) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_LocalBalance'val (\ x__ y__ -> x__ {_LocalBalance'val = y__}))
Prelude.id
instance Data.ProtoLens.Message LocalBalance where
messageName _ = Data.Text.pack "BtcLsp.Data.HighLevel.LocalBalance"
packedMessageDescriptor _
= "\n\
\\fLocalBalance\DC2,\n\
\\ETXval\CAN\SOH \SOH(\v2\SUB.BtcLsp.Data.LowLevel.MsatR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.BtcLsp.Data.LowLevel.Msat)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'val")) ::
Data.ProtoLens.FieldDescriptor LocalBalance
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_LocalBalance'_unknownFields
(\ x__ y__ -> x__ {_LocalBalance'_unknownFields = y__})
defMessage
= LocalBalance'_constructor
{_LocalBalance'val = Prelude.Nothing,
_LocalBalance'_unknownFields = []}
parseMessage
= let
loop ::
LocalBalance -> Data.ProtoLens.Encoding.Bytes.Parser LocalBalance
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)
"val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") 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) "LocalBalance"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'val") _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.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData LocalBalance where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_LocalBalance'_unknownFields x__)
(Control.DeepSeq.deepseq (_LocalBalance'val x__) ())
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.val' @:: Lens' Nonce Data.Word.Word64@ -}
data Nonce
= Nonce'_constructor {_Nonce'val :: !Data.Word.Word64,
_Nonce'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show Nonce where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out Nonce
instance Data.ProtoLens.Field.HasField Nonce "val" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Nonce'val (\ x__ y__ -> x__ {_Nonce'val = y__}))
Prelude.id
instance Data.ProtoLens.Message Nonce where
messageName _ = Data.Text.pack "BtcLsp.Data.HighLevel.Nonce"
packedMessageDescriptor _
= "\n\
\\ENQNonce\DC2\DLE\n\
\\ETXval\CAN\SOH \SOH(\EOTR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"val")) ::
Data.ProtoLens.FieldDescriptor Nonce
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_Nonce'_unknownFields
(\ x__ y__ -> x__ {_Nonce'_unknownFields = y__})
defMessage
= Nonce'_constructor
{_Nonce'val = Data.ProtoLens.fieldDefault,
_Nonce'_unknownFields = []}
parseMessage
= let
loop :: Nonce -> Data.ProtoLens.Encoding.Bytes.Parser Nonce
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 "val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") 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) "Nonce"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"val") _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.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData Nonce where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_Nonce'_unknownFields x__)
(Control.DeepSeq.deepseq (_Nonce'val x__) ())
newtype Privacy'UnrecognizedValue
= Privacy'UnrecognizedValue Data.Int.Int32
deriving stock (Prelude.Eq,
Prelude.Ord,
Prelude.Show,
GHC.Generics.Generic)
instance Text.PrettyPrint.GenericPretty.Out Privacy'UnrecognizedValue
data Privacy
= PUBLIC |
PRIVATE |
Privacy'Unrecognized !Privacy'UnrecognizedValue
deriving stock (Prelude.Show,
Prelude.Eq,
Prelude.Ord,
GHC.Generics.Generic)
instance Data.ProtoLens.MessageEnum Privacy where
maybeToEnum 0 = Prelude.Just PUBLIC
maybeToEnum 1 = Prelude.Just PRIVATE
maybeToEnum k
= Prelude.Just
(Privacy'Unrecognized
(Privacy'UnrecognizedValue (Prelude.fromIntegral k)))
showEnum PUBLIC = "PUBLIC"
showEnum PRIVATE = "PRIVATE"
showEnum (Privacy'Unrecognized (Privacy'UnrecognizedValue k))
= Prelude.show k
readEnum k
| (Prelude.==) k "PUBLIC" = Prelude.Just PUBLIC
| (Prelude.==) k "PRIVATE" = Prelude.Just PRIVATE
| Prelude.otherwise
= (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum
instance Prelude.Bounded Privacy where
minBound = PUBLIC
maxBound = PRIVATE
instance Prelude.Enum Privacy where
toEnum k__
= Prelude.maybe
(Prelude.error
((Prelude.++)
"toEnum: unknown value for enum Privacy: " (Prelude.show k__)))
Prelude.id (Data.ProtoLens.maybeToEnum k__)
fromEnum PUBLIC = 0
fromEnum PRIVATE = 1
fromEnum (Privacy'Unrecognized (Privacy'UnrecognizedValue k))
= Prelude.fromIntegral k
succ PRIVATE
= Prelude.error
"Privacy.succ: bad argument PRIVATE. This value would be out of bounds."
succ PUBLIC = PRIVATE
succ (Privacy'Unrecognized _)
= Prelude.error "Privacy.succ: bad argument: unrecognized value"
pred PUBLIC
= Prelude.error
"Privacy.pred: bad argument PUBLIC. This value would be out of bounds."
pred PRIVATE = PUBLIC
pred (Privacy'Unrecognized _)
= Prelude.error "Privacy.pred: bad argument: unrecognized value"
enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom
enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo
enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen
enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault Privacy where
fieldDefault = PUBLIC
instance Control.DeepSeq.NFData Privacy where
rnf x__ = Prelude.seq x__ ()
instance Text.PrettyPrint.GenericPretty.Out Privacy
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.val' @:: Lens' RefundMoney Proto.BtcLsp.Data.LowLevel.Msat@
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'val' @:: Lens' RefundMoney (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.Msat)@ -}
data RefundMoney
= RefundMoney'_constructor {_RefundMoney'val :: !(Prelude.Maybe Proto.BtcLsp.Data.LowLevel.Msat),
_RefundMoney'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show RefundMoney where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out RefundMoney
instance Data.ProtoLens.Field.HasField RefundMoney "val" Proto.BtcLsp.Data.LowLevel.Msat where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RefundMoney'val (\ x__ y__ -> x__ {_RefundMoney'val = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField RefundMoney "maybe'val" (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.Msat) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RefundMoney'val (\ x__ y__ -> x__ {_RefundMoney'val = y__}))
Prelude.id
instance Data.ProtoLens.Message RefundMoney where
messageName _ = Data.Text.pack "BtcLsp.Data.HighLevel.RefundMoney"
packedMessageDescriptor _
= "\n\
\\vRefundMoney\DC2,\n\
\\ETXval\CAN\SOH \SOH(\v2\SUB.BtcLsp.Data.LowLevel.MsatR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.BtcLsp.Data.LowLevel.Msat)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'val")) ::
Data.ProtoLens.FieldDescriptor RefundMoney
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_RefundMoney'_unknownFields
(\ x__ y__ -> x__ {_RefundMoney'_unknownFields = y__})
defMessage
= RefundMoney'_constructor
{_RefundMoney'val = Prelude.Nothing,
_RefundMoney'_unknownFields = []}
parseMessage
= let
loop ::
RefundMoney -> Data.ProtoLens.Encoding.Bytes.Parser RefundMoney
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)
"val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") 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) "RefundMoney"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'val") _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.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData RefundMoney where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_RefundMoney'_unknownFields x__)
(Control.DeepSeq.deepseq (_RefundMoney'val x__) ())
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.val' @:: Lens' RefundOnChainAddress Proto.BtcLsp.Data.LowLevel.OnChainAddress@
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'val' @:: Lens' RefundOnChainAddress (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.OnChainAddress)@ -}
data RefundOnChainAddress
= RefundOnChainAddress'_constructor {_RefundOnChainAddress'val :: !(Prelude.Maybe Proto.BtcLsp.Data.LowLevel.OnChainAddress),
_RefundOnChainAddress'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show RefundOnChainAddress where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out RefundOnChainAddress
instance Data.ProtoLens.Field.HasField RefundOnChainAddress "val" Proto.BtcLsp.Data.LowLevel.OnChainAddress where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RefundOnChainAddress'val
(\ x__ y__ -> x__ {_RefundOnChainAddress'val = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField RefundOnChainAddress "maybe'val" (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.OnChainAddress) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RefundOnChainAddress'val
(\ x__ y__ -> x__ {_RefundOnChainAddress'val = y__}))
Prelude.id
instance Data.ProtoLens.Message RefundOnChainAddress where
messageName _
= Data.Text.pack "BtcLsp.Data.HighLevel.RefundOnChainAddress"
packedMessageDescriptor _
= "\n\
\\DC4RefundOnChainAddress\DC26\n\
\\ETXval\CAN\SOH \SOH(\v2$.BtcLsp.Data.LowLevel.OnChainAddressR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.BtcLsp.Data.LowLevel.OnChainAddress)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'val")) ::
Data.ProtoLens.FieldDescriptor RefundOnChainAddress
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_RefundOnChainAddress'_unknownFields
(\ x__ y__ -> x__ {_RefundOnChainAddress'_unknownFields = y__})
defMessage
= RefundOnChainAddress'_constructor
{_RefundOnChainAddress'val = Prelude.Nothing,
_RefundOnChainAddress'_unknownFields = []}
parseMessage
= let
loop ::
RefundOnChainAddress
-> Data.ProtoLens.Encoding.Bytes.Parser RefundOnChainAddress
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)
"val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") 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) "RefundOnChainAddress"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'val") _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.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData RefundOnChainAddress where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_RefundOnChainAddress'_unknownFields x__)
(Control.DeepSeq.deepseq (_RefundOnChainAddress'val x__) ())
{- | Fields :
* 'Proto.BtcLsp.Data.HighLevel_Fields.val' @:: Lens' RemoteBalance Proto.BtcLsp.Data.LowLevel.Msat@
* 'Proto.BtcLsp.Data.HighLevel_Fields.maybe'val' @:: Lens' RemoteBalance (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.Msat)@ -}
data RemoteBalance
= RemoteBalance'_constructor {_RemoteBalance'val :: !(Prelude.Maybe Proto.BtcLsp.Data.LowLevel.Msat),
_RemoteBalance'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show RemoteBalance where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out RemoteBalance
instance Data.ProtoLens.Field.HasField RemoteBalance "val" Proto.BtcLsp.Data.LowLevel.Msat where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RemoteBalance'val (\ x__ y__ -> x__ {_RemoteBalance'val = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField RemoteBalance "maybe'val" (Prelude.Maybe Proto.BtcLsp.Data.LowLevel.Msat) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RemoteBalance'val (\ x__ y__ -> x__ {_RemoteBalance'val = y__}))
Prelude.id
instance Data.ProtoLens.Message RemoteBalance where
messageName _
= Data.Text.pack "BtcLsp.Data.HighLevel.RemoteBalance"
packedMessageDescriptor _
= "\n\
\\rRemoteBalance\DC2,\n\
\\ETXval\CAN\SOH \SOH(\v2\SUB.BtcLsp.Data.LowLevel.MsatR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.BtcLsp.Data.LowLevel.Msat)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'val")) ::
Data.ProtoLens.FieldDescriptor RemoteBalance
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_RemoteBalance'_unknownFields
(\ x__ y__ -> x__ {_RemoteBalance'_unknownFields = y__})
defMessage
= RemoteBalance'_constructor
{_RemoteBalance'val = Prelude.Nothing,
_RemoteBalance'_unknownFields = []}
parseMessage
= let
loop ::
RemoteBalance -> Data.ProtoLens.Encoding.Bytes.Parser RemoteBalance
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)
"val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") 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) "RemoteBalance"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'val") _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.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData RemoteBalance where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_RemoteBalance'_unknownFields x__)
(Control.DeepSeq.deepseq (_RemoteBalance'val x__) ())
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor
= "\n\
\\GSbtc_lsp/data/high_level.proto\DC2\NAKBtcLsp.Data.HighLevel\SUB\FSbtc_lsp/data/low_level.proto\"<\n\
\\aFeeRate\DC21\n\
\\ETXval\CAN\SOH \SOH(\v2\US.BtcLsp.Data.LowLevel.UrationalR\ETXval\"8\n\
\\bFeeMoney\DC2,\n\
\\ETXval\CAN\SOH \SOH(\v2\SUB.BtcLsp.Data.LowLevel.MsatR\ETXval\"9\n\
\\tFundMoney\DC2,\n\
\\ETXval\CAN\SOH \SOH(\v2\SUB.BtcLsp.Data.LowLevel.MsatR\ETXval\";\n\
\\vRefundMoney\DC2,\n\
\\ETXval\CAN\SOH \SOH(\v2\SUB.BtcLsp.Data.LowLevel.MsatR\ETXval\"<\n\
\\fLocalBalance\DC2,\n\
\\ETXval\CAN\SOH \SOH(\v2\SUB.BtcLsp.Data.LowLevel.MsatR\ETXval\"=\n\
\\rRemoteBalance\DC2,\n\
\\ETXval\CAN\SOH \SOH(\v2\SUB.BtcLsp.Data.LowLevel.MsatR\ETXval\"B\n\
\\rFundLnInvoice\DC21\n\
\\ETXval\CAN\SOH \SOH(\v2\US.BtcLsp.Data.LowLevel.LnInvoiceR\ETXval\"J\n\
\\DC1FundLnHodlInvoice\DC25\n\
\\ETXval\CAN\SOH \SOH(\v2#.BtcLsp.Data.LowLevel.LnHodlInvoiceR\ETXval\"L\n\
\\DC2FundOnChainAddress\DC26\n\
\\ETXval\CAN\SOH \SOH(\v2$.BtcLsp.Data.LowLevel.OnChainAddressR\ETXval\"N\n\
\\DC4RefundOnChainAddress\DC26\n\
\\ETXval\CAN\SOH \SOH(\v2$.BtcLsp.Data.LowLevel.OnChainAddressR\ETXval\"x\n\
\\ETXCtx\DC22\n\
\\ENQnonce\CAN\SOH \SOH(\v2\FS.BtcLsp.Data.HighLevel.NonceR\ENQnonce\DC2=\n\
\\n\
\ln_pub_key\CAN\STX \SOH(\v2\US.BtcLsp.Data.HighLevel.LnPubKeyR\blnPubKey\"\EM\n\
\\ENQNonce\DC2\DLE\n\
\\ETXval\CAN\SOH \SOH(\EOTR\ETXval\"\FS\n\
\\bLnPubKey\DC2\DLE\n\
\\ETXval\CAN\SOH \SOH(\fR\ETXval\"\SUB\n\
\\ACKLnHost\DC2\DLE\n\
\\ETXval\CAN\SOH \SOH(\tR\ETXval\"\SUB\n\
\\ACKLnPort\DC2\DLE\n\
\\ETXval\CAN\SOH \SOH(\rR\ETXval\"\168\SOH\n\
\\ACKLnPeer\DC28\n\
\\apub_key\CAN\SOH \SOH(\v2\US.BtcLsp.Data.HighLevel.LnPubKeyR\ACKpubKey\DC21\n\
\\EOThost\CAN\STX \SOH(\v2\GS.BtcLsp.Data.HighLevel.LnHostR\EOThost\DC21\n\
\\EOTport\CAN\ETX \SOH(\v2\GS.BtcLsp.Data.HighLevel.LnPortR\EOTport\"\149\SOH\n\
\\fInputFailure\DC2H\n\
\\SOfield_location\CAN\SOH \ETX(\v2!.BtcLsp.Data.HighLevel.FieldIndexR\rfieldLocation\DC2;\n\
\\EOTkind\CAN\STX \SOH(\SO2'.BtcLsp.Data.HighLevel.InputFailureKindR\EOTkind\"\RS\n\
\\n\
\FieldIndex\DC2\DLE\n\
\\ETXval\CAN\SOH \SOH(\rR\ETXval\"r\n\
\\SIInternalFailure\DC2\FS\n\
\\bredacted\CAN\SOH \SOH(\bH\NULR\bredacted\DC2!\n\
\\vgrpc_server\CAN\STX \SOH(\tH\NULR\n\
\grpcServer\DC2\DC4\n\
\\EOTmath\CAN\ETX \SOH(\tH\NULR\EOTmathB\b\n\
\\ACKeither*\\\n\
\\DLEInputFailureKind\DC2\f\n\
\\bREQUIRED\DLE\NUL\DC2\r\n\
\\tNOT_FOUND\DLE\SOH\DC2\DC2\n\
\\SOPARSING_FAILED\DLE\STX\DC2\ETB\n\
\\DC3VERIFICATION_FAILED\DLE\ETX*\"\n\
\\aPrivacy\DC2\n\
\\n\
\\ACKPUBLIC\DLE\NUL\DC2\v\n\
\\aPRIVATE\DLE\SOHJ\165\EM\n\
\\ACK\DC2\EOT\NUL\NUL\DEL\SOH\n\
\\b\n\
\\SOH\f\DC2\ETX\NUL\NUL\DLE\n\
\P\n\
\\SOH\STX\DC2\ETX\a\NUL\RS2F\n\
\ HighLevel types are the only types\n\
\ used directly in Grpc Methods.\n\
\\n\
\\n\
\\t\n\
\\STX\ETX\NUL\DC2\ETX\t\NUL&\n\
\\n\
\\n\
\\STX\EOT\NUL\DC2\EOT\v\NUL\r\SOH\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\v\b\SI\n\
\\v\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX\f\STX*\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\f\STX!\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\f\"%\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\f()\n\
\\n\
\\n\
\\STX\EOT\SOH\DC2\EOT\SI\NUL\DC1\SOH\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX\SI\b\DLE\n\
\\v\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX\DLE\STX%\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX\DLE\STX\FS\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\DLE\GS \n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\DLE#$\n\
\\n\
\\n\
\\STX\EOT\STX\DC2\EOT\DC3\NUL\NAK\SOH\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX\DC3\b\DC1\n\
\\v\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX\DC4\STX%\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX\DC4\STX\FS\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\DC4\GS \n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\DC4#$\n\
\\n\
\\n\
\\STX\EOT\ETX\DC2\EOT\ETB\NUL\EM\SOH\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETX\ETB\b\DC3\n\
\\v\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETX\CAN\STX%\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX\CAN\STX\FS\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\CAN\GS \n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\CAN#$\n\
\\n\
\\n\
\\STX\EOT\EOT\DC2\EOT\ESC\NUL\GS\SOH\n\
\\n\
\\n\
\\ETX\EOT\EOT\SOH\DC2\ETX\ESC\b\DC4\n\
\\v\n\
\\EOT\EOT\EOT\STX\NUL\DC2\ETX\FS\STX%\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETX\FS\STX\FS\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX\FS\GS \n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX\FS#$\n\
\\n\
\\n\
\\STX\EOT\ENQ\DC2\EOT\US\NUL!\SOH\n\
\\n\
\\n\
\\ETX\EOT\ENQ\SOH\DC2\ETX\US\b\NAK\n\
\\v\n\
\\EOT\EOT\ENQ\STX\NUL\DC2\ETX \STX%\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\ETX \STX\FS\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX \GS \n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX #$\n\
\\n\
\\n\
\\STX\EOT\ACK\DC2\EOT#\NUL%\SOH\n\
\\n\
\\n\
\\ETX\EOT\ACK\SOH\DC2\ETX#\b\NAK\n\
\\v\n\
\\EOT\EOT\ACK\STX\NUL\DC2\ETX$\STX*\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ACK\DC2\ETX$\STX!\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX$\"%\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX$()\n\
\\n\
\\n\
\\STX\EOT\a\DC2\EOT'\NUL)\SOH\n\
\\n\
\\n\
\\ETX\EOT\a\SOH\DC2\ETX'\b\EM\n\
\\v\n\
\\EOT\EOT\a\STX\NUL\DC2\ETX(\STX.\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ACK\DC2\ETX(\STX%\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\SOH\DC2\ETX(&)\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ETX\DC2\ETX(,-\n\
\\n\
\\n\
\\STX\EOT\b\DC2\EOT+\NUL-\SOH\n\
\\n\
\\n\
\\ETX\EOT\b\SOH\DC2\ETX+\b\SUB\n\
\\v\n\
\\EOT\EOT\b\STX\NUL\DC2\ETX,\STX/\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\ACK\DC2\ETX,\STX&\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\SOH\DC2\ETX,'*\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\ETX\DC2\ETX,-.\n\
\\n\
\\n\
\\STX\EOT\t\DC2\EOT/\NUL1\SOH\n\
\\n\
\\n\
\\ETX\EOT\t\SOH\DC2\ETX/\b\FS\n\
\\v\n\
\\EOT\EOT\t\STX\NUL\DC2\ETX0\STX/\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\ACK\DC2\ETX0\STX&\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\SOH\DC2\ETX0'*\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\ETX\DC2\ETX0-.\n\
\\n\
\\n\
\\STX\EOT\n\
\\DC2\EOT3\NUL6\SOH\n\
\\n\
\\n\
\\ETX\EOT\n\
\\SOH\DC2\ETX3\b\v\n\
\\v\n\
\\EOT\EOT\n\
\\STX\NUL\DC2\ETX4\STX\DC2\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\ACK\DC2\ETX4\STX\a\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\SOH\DC2\ETX4\b\r\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\ETX\DC2\ETX4\DLE\DC1\n\
\\v\n\
\\EOT\EOT\n\
\\STX\SOH\DC2\ETX5\STX\SUB\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\SOH\ACK\DC2\ETX5\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\SOH\SOH\DC2\ETX5\v\NAK\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\SOH\ETX\DC2\ETX5\CAN\EM\n\
\\233\STX\n\
\\STX\EOT\v\DC2\EOTB\NULD\SOH2\220\STX\n\
\ All requests do require a nonce. The nonce is used\n\
\ for security reasons and is used to guard against\n\
\ replay attacks. The server will reject any request\n\
\ that comes with an incorrect nonce. The only requirement\n\
\ for the nonce is that it needs to be strictly increasing.\n\
\ Nonce generation is often achieved by using the\n\
\ current UNIX timestamp.\n\
\\n\
\\n\
\\n\
\\n\
\\ETX\EOT\v\SOH\DC2\ETXB\b\r\n\
\\v\n\
\\EOT\EOT\v\STX\NUL\DC2\ETXC\STX\DC1\n\
\\f\n\
\\ENQ\EOT\v\STX\NUL\ENQ\DC2\ETXC\STX\b\n\
\\f\n\
\\ENQ\EOT\v\STX\NUL\SOH\DC2\ETXC\t\f\n\
\\f\n\
\\ENQ\EOT\v\STX\NUL\ETX\DC2\ETXC\SI\DLE\n\
\\n\
\\n\
\\STX\EOT\f\DC2\EOTF\NULH\SOH\n\
\\n\
\\n\
\\ETX\EOT\f\SOH\DC2\ETXF\b\DLE\n\
\\v\n\
\\EOT\EOT\f\STX\NUL\DC2\ETXG\STX\DLE\n\
\\f\n\
\\ENQ\EOT\f\STX\NUL\ENQ\DC2\ETXG\STX\a\n\
\\f\n\
\\ENQ\EOT\f\STX\NUL\SOH\DC2\ETXG\b\v\n\
\\f\n\
\\ENQ\EOT\f\STX\NUL\ETX\DC2\ETXG\SO\SI\n\
\\n\
\\n\
\\STX\EOT\r\DC2\EOTJ\NULL\SOH\n\
\\n\
\\n\
\\ETX\EOT\r\SOH\DC2\ETXJ\b\SO\n\
\\v\n\
\\EOT\EOT\r\STX\NUL\DC2\ETXK\STX\DC1\n\
\\f\n\
\\ENQ\EOT\r\STX\NUL\ENQ\DC2\ETXK\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\NUL\SOH\DC2\ETXK\t\f\n\
\\f\n\
\\ENQ\EOT\r\STX\NUL\ETX\DC2\ETXK\SI\DLE\n\
\\n\
\\n\
\\STX\EOT\SO\DC2\EOTN\NULP\SOH\n\
\\n\
\\n\
\\ETX\EOT\SO\SOH\DC2\ETXN\b\SO\n\
\\v\n\
\\EOT\EOT\SO\STX\NUL\DC2\ETXO\STX\DC1\n\
\\f\n\
\\ENQ\EOT\SO\STX\NUL\ENQ\DC2\ETXO\STX\b\n\
\\f\n\
\\ENQ\EOT\SO\STX\NUL\SOH\DC2\ETXO\t\f\n\
\\f\n\
\\ENQ\EOT\SO\STX\NUL\ETX\DC2\ETXO\SI\DLE\n\
\\n\
\\n\
\\STX\EOT\SI\DC2\EOTR\NULV\SOH\n\
\\n\
\\n\
\\ETX\EOT\SI\SOH\DC2\ETXR\b\SO\n\
\\v\n\
\\EOT\EOT\SI\STX\NUL\DC2\ETXS\STX\ETB\n\
\\f\n\
\\ENQ\EOT\SI\STX\NUL\ACK\DC2\ETXS\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\SI\STX\NUL\SOH\DC2\ETXS\v\DC2\n\
\\f\n\
\\ENQ\EOT\SI\STX\NUL\ETX\DC2\ETXS\NAK\SYN\n\
\\v\n\
\\EOT\EOT\SI\STX\SOH\DC2\ETXT\STX\DC2\n\
\\f\n\
\\ENQ\EOT\SI\STX\SOH\ACK\DC2\ETXT\STX\b\n\
\\f\n\
\\ENQ\EOT\SI\STX\SOH\SOH\DC2\ETXT\t\r\n\
\\f\n\
\\ENQ\EOT\SI\STX\SOH\ETX\DC2\ETXT\DLE\DC1\n\
\\v\n\
\\EOT\EOT\SI\STX\STX\DC2\ETXU\STX\DC2\n\
\\f\n\
\\ENQ\EOT\SI\STX\STX\ACK\DC2\ETXU\STX\b\n\
\\f\n\
\\ENQ\EOT\SI\STX\STX\SOH\DC2\ETXU\t\r\n\
\\f\n\
\\ENQ\EOT\SI\STX\STX\ETX\DC2\ETXU\DLE\DC1\n\
\\n\
\\n\
\\STX\EOT\DLE\DC2\EOTX\NUL[\SOH\n\
\\n\
\\n\
\\ETX\EOT\DLE\SOH\DC2\ETXX\b\DC4\n\
\\v\n\
\\EOT\EOT\DLE\STX\NUL\DC2\ETXY\STX)\n\
\\f\n\
\\ENQ\EOT\DLE\STX\NUL\EOT\DC2\ETXY\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\DLE\STX\NUL\ACK\DC2\ETXY\v\NAK\n\
\\f\n\
\\ENQ\EOT\DLE\STX\NUL\SOH\DC2\ETXY\SYN$\n\
\\f\n\
\\ENQ\EOT\DLE\STX\NUL\ETX\DC2\ETXY'(\n\
\\v\n\
\\EOT\EOT\DLE\STX\SOH\DC2\ETXZ\STX\FS\n\
\\f\n\
\\ENQ\EOT\DLE\STX\SOH\ACK\DC2\ETXZ\STX\DC2\n\
\\f\n\
\\ENQ\EOT\DLE\STX\SOH\SOH\DC2\ETXZ\DC3\ETB\n\
\\f\n\
\\ENQ\EOT\DLE\STX\SOH\ETX\DC2\ETXZ\SUB\ESC\n\
\\n\
\\n\
\\STX\EOT\DC1\DC2\EOT]\NUL_\SOH\n\
\\n\
\\n\
\\ETX\EOT\DC1\SOH\DC2\ETX]\b\DC2\n\
\\v\n\
\\EOT\EOT\DC1\STX\NUL\DC2\ETX^\STX\DC1\n\
\\f\n\
\\ENQ\EOT\DC1\STX\NUL\ENQ\DC2\ETX^\STX\b\n\
\\f\n\
\\ENQ\EOT\DC1\STX\NUL\SOH\DC2\ETX^\t\f\n\
\\f\n\
\\ENQ\EOT\DC1\STX\NUL\ETX\DC2\ETX^\SI\DLE\n\
\\n\
\\n\
\\STX\ENQ\NUL\DC2\EOTa\NULr\SOH\n\
\\n\
\\n\
\\ETX\ENQ\NUL\SOH\DC2\ETXa\ENQ\NAK\n\
\l\n\
\\EOT\ENQ\NUL\STX\NUL\DC2\ETXd\STX\SI\SUB_ All proto3 messages are optional, but sometimes\n\
\ message presence is required by source code.\n\
\\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\ETXd\STX\n\
\\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\NUL\STX\DC2\ETXd\r\SO\n\
\\182\SOH\n\
\\EOT\ENQ\NUL\STX\SOH\DC2\ETXh\STX\DLE\SUB\168\SOH Sometimes protobuf term is not data itself, but reference\n\
\ to some other data, located somewhere else, for example\n\
\ in database, and this resource might be not found.\n\
\\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\ETXh\STX\v\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\SOH\STX\DC2\ETXh\SO\SI\n\
\\201\SOH\n\
\\EOT\ENQ\NUL\STX\STX\DC2\ETXm\STX\NAK\SUB\187\SOH Sometimes data is required to be in some\n\
\ specific format (for example DER binary encoding)\n\
\ which is not the part of proto3 type system.\n\
\ This error shows the failure of custom parser.\n\
\\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\STX\SOH\DC2\ETXm\STX\DLE\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\STX\STX\DC2\ETXm\DC3\DC4\n\
\\157\SOH\n\
\\EOT\ENQ\NUL\STX\ETX\DC2\ETXq\STX\SUB\SUB\143\SOH Even if custom parser succeeded, sometimes data\n\
\ needs to be verified somehow, for example\n\
\ signature needs to be cryptographically verified.\n\
\\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\ETX\SOH\DC2\ETXq\STX\NAK\n\
\\f\n\
\\ENQ\ENQ\NUL\STX\ETX\STX\DC2\ETXq\CAN\EM\n\
\\n\
\\n\
\\STX\ENQ\SOH\DC2\EOTt\NULw\SOH\n\
\\n\
\\n\
\\ETX\ENQ\SOH\SOH\DC2\ETXt\ENQ\f\n\
\\v\n\
\\EOT\ENQ\SOH\STX\NUL\DC2\ETXu\STX\r\n\
\\f\n\
\\ENQ\ENQ\SOH\STX\NUL\SOH\DC2\ETXu\STX\b\n\
\\f\n\
\\ENQ\ENQ\SOH\STX\NUL\STX\DC2\ETXu\v\f\n\
\\v\n\
\\EOT\ENQ\SOH\STX\SOH\DC2\ETXv\STX\SO\n\
\\f\n\
\\ENQ\ENQ\SOH\STX\SOH\SOH\DC2\ETXv\STX\t\n\
\\f\n\
\\ENQ\ENQ\SOH\STX\SOH\STX\DC2\ETXv\f\r\n\
\\n\
\\n\
\\STX\EOT\DC2\DC2\EOTy\NUL\DEL\SOH\n\
\\n\
\\n\
\\ETX\EOT\DC2\SOH\DC2\ETXy\b\ETB\n\
\\f\n\
\\EOT\EOT\DC2\b\NUL\DC2\EOTz\STX~\ETX\n\
\\f\n\
\\ENQ\EOT\DC2\b\NUL\SOH\DC2\ETXz\b\SO\n\
\\v\n\
\\EOT\EOT\DC2\STX\NUL\DC2\ETX{\EOT\SYN\n\
\\f\n\
\\ENQ\EOT\DC2\STX\NUL\ENQ\DC2\ETX{\EOT\b\n\
\\f\n\
\\ENQ\EOT\DC2\STX\NUL\SOH\DC2\ETX{\t\DC1\n\
\\f\n\
\\ENQ\EOT\DC2\STX\NUL\ETX\DC2\ETX{\DC4\NAK\n\
\\v\n\
\\EOT\EOT\DC2\STX\SOH\DC2\ETX|\EOT\ESC\n\
\\f\n\
\\ENQ\EOT\DC2\STX\SOH\ENQ\DC2\ETX|\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\DC2\STX\SOH\SOH\DC2\ETX|\v\SYN\n\
\\f\n\
\\ENQ\EOT\DC2\STX\SOH\ETX\DC2\ETX|\EM\SUB\n\
\\v\n\
\\EOT\EOT\DC2\STX\STX\DC2\ETX}\EOT\DC4\n\
\\f\n\
\\ENQ\EOT\DC2\STX\STX\ENQ\DC2\ETX}\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\DC2\STX\STX\SOH\DC2\ETX}\v\SI\n\
\\f\n\
\\ENQ\EOT\DC2\STX\STX\ETX\DC2\ETX}\DC2\DC3b\ACKproto3"