lnd-client-0.1.0.1: src/Proto/Lnrpc/Ln1.hs
{- This file was auto-generated from lnrpc/ln1.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.Lnrpc.Ln1 (
AMP(), AMPInvoiceState(), AbandonChannelRequest(),
AbandonChannelResponse(), AddInvoiceResponse(),
BakeMacaroonRequest(), BakeMacaroonResponse(),
ChanBackupExportRequest(), ChanBackupSnapshot(), ChannelBackup(),
ChannelBackupSubscription(), ChannelBackups(), ChannelFeeReport(),
ChannelUpdate(), CheckMacPermRequest(), CheckMacPermResponse(),
DebugLevelRequest(), DebugLevelResponse(),
DeleteAllPaymentsRequest(), DeleteAllPaymentsResponse(),
DeleteMacaroonIDRequest(), DeleteMacaroonIDResponse(),
DeletePaymentRequest(), DeletePaymentResponse(),
ExportChannelBackupRequest(), FailedUpdate(), Failure(),
Failure'FailureCode(..), Failure'FailureCode(),
Failure'FailureCode'UnrecognizedValue, FeeReportRequest(),
FeeReportResponse(), ForwardingEvent(), ForwardingHistoryRequest(),
ForwardingHistoryResponse(), HTLCAttempt(),
HTLCAttempt'HTLCStatus(..), HTLCAttempt'HTLCStatus(),
HTLCAttempt'HTLCStatus'UnrecognizedValue, InterceptFeedback(),
Invoice(), Invoice'AmpInvoiceStateEntry(), Invoice'FeaturesEntry(),
Invoice'InvoiceState(..), Invoice'InvoiceState(),
Invoice'InvoiceState'UnrecognizedValue, InvoiceHTLC(),
InvoiceHTLC'CustomRecordsEntry(), InvoiceHTLCState(..),
InvoiceHTLCState(), InvoiceHTLCState'UnrecognizedValue,
InvoiceSubscription(), ListInvoiceRequest(), ListInvoiceResponse(),
ListMacaroonIDsRequest(), ListMacaroonIDsResponse(),
ListPaymentsRequest(), ListPaymentsResponse(),
ListPermissionsRequest(), ListPermissionsResponse(),
ListPermissionsResponse'MethodPermissionsEntry(), MacaroonId(),
MacaroonPermission(), MacaroonPermissionList(),
MiddlewareRegistration(), MultiChanBackup(), Op(), PayReq(),
PayReq'FeaturesEntry(), PayReqString(), Payment(),
Payment'PaymentStatus(..), Payment'PaymentStatus(),
Payment'PaymentStatus'UnrecognizedValue, PaymentFailureReason(..),
PaymentFailureReason(), PaymentFailureReason'UnrecognizedValue,
PaymentHash(), PolicyUpdateRequest(),
PolicyUpdateRequest'Scope(..), _PolicyUpdateRequest'Global,
_PolicyUpdateRequest'ChanPoint, PolicyUpdateResponse(),
RPCMessage(), RPCMiddlewareRequest(),
RPCMiddlewareRequest'InterceptType(..),
_RPCMiddlewareRequest'StreamAuth, _RPCMiddlewareRequest'Request,
_RPCMiddlewareRequest'Response, RPCMiddlewareResponse(),
RPCMiddlewareResponse'MiddlewareMessage(..),
_RPCMiddlewareResponse'Register, _RPCMiddlewareResponse'Feedback,
RestoreBackupResponse(), RestoreChanBackupRequest(),
RestoreChanBackupRequest'Backup(..),
_RestoreChanBackupRequest'ChanBackups,
_RestoreChanBackupRequest'MultiChanBackup, SetID(), StreamAuth(),
UpdateFailure(..), UpdateFailure(),
UpdateFailure'UnrecognizedValue, VerifyChanBackupResponse()
) 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.Lnrpc.Ln0
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.rootShare' @:: Lens' AMP Data.ByteString.ByteString@
* 'Proto.Lnrpc.Ln1_Fields.setId' @:: Lens' AMP Data.ByteString.ByteString@
* 'Proto.Lnrpc.Ln1_Fields.childIndex' @:: Lens' AMP Data.Word.Word32@
* 'Proto.Lnrpc.Ln1_Fields.hash' @:: Lens' AMP Data.ByteString.ByteString@
* 'Proto.Lnrpc.Ln1_Fields.preimage' @:: Lens' AMP Data.ByteString.ByteString@ -}
data AMP
= AMP'_constructor {_AMP'rootShare :: !Data.ByteString.ByteString,
_AMP'setId :: !Data.ByteString.ByteString,
_AMP'childIndex :: !Data.Word.Word32,
_AMP'hash :: !Data.ByteString.ByteString,
_AMP'preimage :: !Data.ByteString.ByteString,
_AMP'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show AMP where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out AMP
instance Data.ProtoLens.Field.HasField AMP "rootShare" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AMP'rootShare (\ x__ y__ -> x__ {_AMP'rootShare = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AMP "setId" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AMP'setId (\ x__ y__ -> x__ {_AMP'setId = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AMP "childIndex" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AMP'childIndex (\ x__ y__ -> x__ {_AMP'childIndex = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AMP "hash" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AMP'hash (\ x__ y__ -> x__ {_AMP'hash = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AMP "preimage" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AMP'preimage (\ x__ y__ -> x__ {_AMP'preimage = y__}))
Prelude.id
instance Data.ProtoLens.Message AMP where
messageName _ = Data.Text.pack "lnrpc.AMP"
packedMessageDescriptor _
= "\n\
\\ETXAMP\DC2\GS\n\
\\n\
\root_share\CAN\SOH \SOH(\fR\trootShare\DC2\NAK\n\
\\ACKset_id\CAN\STX \SOH(\fR\ENQsetId\DC2\US\n\
\\vchild_index\CAN\ETX \SOH(\rR\n\
\childIndex\DC2\DC2\n\
\\EOThash\CAN\EOT \SOH(\fR\EOThash\DC2\SUB\n\
\\bpreimage\CAN\ENQ \SOH(\fR\bpreimage"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
rootShare__field_descriptor
= Data.ProtoLens.FieldDescriptor
"root_share"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"rootShare")) ::
Data.ProtoLens.FieldDescriptor AMP
setId__field_descriptor
= Data.ProtoLens.FieldDescriptor
"set_id"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"setId")) ::
Data.ProtoLens.FieldDescriptor AMP
childIndex__field_descriptor
= Data.ProtoLens.FieldDescriptor
"child_index"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"childIndex")) ::
Data.ProtoLens.FieldDescriptor AMP
hash__field_descriptor
= Data.ProtoLens.FieldDescriptor
"hash"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) ::
Data.ProtoLens.FieldDescriptor AMP
preimage__field_descriptor
= Data.ProtoLens.FieldDescriptor
"preimage"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"preimage")) ::
Data.ProtoLens.FieldDescriptor AMP
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, rootShare__field_descriptor),
(Data.ProtoLens.Tag 2, setId__field_descriptor),
(Data.ProtoLens.Tag 3, childIndex__field_descriptor),
(Data.ProtoLens.Tag 4, hash__field_descriptor),
(Data.ProtoLens.Tag 5, preimage__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_AMP'_unknownFields (\ x__ y__ -> x__ {_AMP'_unknownFields = y__})
defMessage
= AMP'_constructor
{_AMP'rootShare = Data.ProtoLens.fieldDefault,
_AMP'setId = Data.ProtoLens.fieldDefault,
_AMP'childIndex = Data.ProtoLens.fieldDefault,
_AMP'hash = Data.ProtoLens.fieldDefault,
_AMP'preimage = Data.ProtoLens.fieldDefault,
_AMP'_unknownFields = []}
parseMessage
= let
loop :: AMP -> Data.ProtoLens.Encoding.Bytes.Parser AMP
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))
"root_share"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"rootShare") y x)
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"set_id"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"setId") y x)
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"child_index"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"childIndex") y x)
34
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"hash"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x)
42
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"preimage"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"preimage") 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) "AMP"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"rootShare") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"setId") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"childIndex") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"preimage") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 42)
((\ 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 AMP where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_AMP'_unknownFields x__)
(Control.DeepSeq.deepseq
(_AMP'rootShare x__)
(Control.DeepSeq.deepseq
(_AMP'setId x__)
(Control.DeepSeq.deepseq
(_AMP'childIndex x__)
(Control.DeepSeq.deepseq
(_AMP'hash x__)
(Control.DeepSeq.deepseq (_AMP'preimage x__) ())))))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.state' @:: Lens' AMPInvoiceState InvoiceHTLCState@
* 'Proto.Lnrpc.Ln1_Fields.settleIndex' @:: Lens' AMPInvoiceState Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.settleTime' @:: Lens' AMPInvoiceState Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.amtPaidMsat' @:: Lens' AMPInvoiceState Data.Int.Int64@ -}
data AMPInvoiceState
= AMPInvoiceState'_constructor {_AMPInvoiceState'state :: !InvoiceHTLCState,
_AMPInvoiceState'settleIndex :: !Data.Word.Word64,
_AMPInvoiceState'settleTime :: !Data.Int.Int64,
_AMPInvoiceState'amtPaidMsat :: !Data.Int.Int64,
_AMPInvoiceState'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show AMPInvoiceState where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out AMPInvoiceState
instance Data.ProtoLens.Field.HasField AMPInvoiceState "state" InvoiceHTLCState where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AMPInvoiceState'state
(\ x__ y__ -> x__ {_AMPInvoiceState'state = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AMPInvoiceState "settleIndex" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AMPInvoiceState'settleIndex
(\ x__ y__ -> x__ {_AMPInvoiceState'settleIndex = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AMPInvoiceState "settleTime" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AMPInvoiceState'settleTime
(\ x__ y__ -> x__ {_AMPInvoiceState'settleTime = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AMPInvoiceState "amtPaidMsat" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AMPInvoiceState'amtPaidMsat
(\ x__ y__ -> x__ {_AMPInvoiceState'amtPaidMsat = y__}))
Prelude.id
instance Data.ProtoLens.Message AMPInvoiceState where
messageName _ = Data.Text.pack "lnrpc.AMPInvoiceState"
packedMessageDescriptor _
= "\n\
\\SIAMPInvoiceState\DC2-\n\
\\ENQstate\CAN\SOH \SOH(\SO2\ETB.lnrpc.InvoiceHTLCStateR\ENQstate\DC2!\n\
\\fsettle_index\CAN\STX \SOH(\EOTR\vsettleIndex\DC2\US\n\
\\vsettle_time\CAN\ETX \SOH(\ETXR\n\
\settleTime\DC2\"\n\
\\ramt_paid_msat\CAN\ENQ \SOH(\ETXR\vamtPaidMsat"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
state__field_descriptor
= Data.ProtoLens.FieldDescriptor
"state"
(Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor InvoiceHTLCState)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"state")) ::
Data.ProtoLens.FieldDescriptor AMPInvoiceState
settleIndex__field_descriptor
= Data.ProtoLens.FieldDescriptor
"settle_index"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"settleIndex")) ::
Data.ProtoLens.FieldDescriptor AMPInvoiceState
settleTime__field_descriptor
= Data.ProtoLens.FieldDescriptor
"settle_time"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"settleTime")) ::
Data.ProtoLens.FieldDescriptor AMPInvoiceState
amtPaidMsat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"amt_paid_msat"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"amtPaidMsat")) ::
Data.ProtoLens.FieldDescriptor AMPInvoiceState
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, state__field_descriptor),
(Data.ProtoLens.Tag 2, settleIndex__field_descriptor),
(Data.ProtoLens.Tag 3, settleTime__field_descriptor),
(Data.ProtoLens.Tag 5, amtPaidMsat__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_AMPInvoiceState'_unknownFields
(\ x__ y__ -> x__ {_AMPInvoiceState'_unknownFields = y__})
defMessage
= AMPInvoiceState'_constructor
{_AMPInvoiceState'state = Data.ProtoLens.fieldDefault,
_AMPInvoiceState'settleIndex = Data.ProtoLens.fieldDefault,
_AMPInvoiceState'settleTime = Data.ProtoLens.fieldDefault,
_AMPInvoiceState'amtPaidMsat = Data.ProtoLens.fieldDefault,
_AMPInvoiceState'_unknownFields = []}
parseMessage
= let
loop ::
AMPInvoiceState
-> Data.ProtoLens.Encoding.Bytes.Parser AMPInvoiceState
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.toEnum
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt))
"state"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"state") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "settle_index"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"settleIndex") y x)
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"settle_time"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"settleTime") y x)
40
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"amt_paid_msat"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"amtPaidMsat") 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) "AMPInvoiceState"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"state") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
((Prelude..)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral)
Prelude.fromEnum _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"settleIndex") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"settleTime") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"amtPaidMsat") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 40)
((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 AMPInvoiceState where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_AMPInvoiceState'_unknownFields x__)
(Control.DeepSeq.deepseq
(_AMPInvoiceState'state x__)
(Control.DeepSeq.deepseq
(_AMPInvoiceState'settleIndex x__)
(Control.DeepSeq.deepseq
(_AMPInvoiceState'settleTime x__)
(Control.DeepSeq.deepseq (_AMPInvoiceState'amtPaidMsat x__) ()))))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.channelPoint' @:: Lens' AbandonChannelRequest Proto.Lnrpc.Ln0.ChannelPoint@
* 'Proto.Lnrpc.Ln1_Fields.maybe'channelPoint' @:: Lens' AbandonChannelRequest (Prelude.Maybe Proto.Lnrpc.Ln0.ChannelPoint)@
* 'Proto.Lnrpc.Ln1_Fields.pendingFundingShimOnly' @:: Lens' AbandonChannelRequest Prelude.Bool@
* 'Proto.Lnrpc.Ln1_Fields.iKnowWhatIAmDoing' @:: Lens' AbandonChannelRequest Prelude.Bool@ -}
data AbandonChannelRequest
= AbandonChannelRequest'_constructor {_AbandonChannelRequest'channelPoint :: !(Prelude.Maybe Proto.Lnrpc.Ln0.ChannelPoint),
_AbandonChannelRequest'pendingFundingShimOnly :: !Prelude.Bool,
_AbandonChannelRequest'iKnowWhatIAmDoing :: !Prelude.Bool,
_AbandonChannelRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show AbandonChannelRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out AbandonChannelRequest
instance Data.ProtoLens.Field.HasField AbandonChannelRequest "channelPoint" Proto.Lnrpc.Ln0.ChannelPoint where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AbandonChannelRequest'channelPoint
(\ x__ y__ -> x__ {_AbandonChannelRequest'channelPoint = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AbandonChannelRequest "maybe'channelPoint" (Prelude.Maybe Proto.Lnrpc.Ln0.ChannelPoint) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AbandonChannelRequest'channelPoint
(\ x__ y__ -> x__ {_AbandonChannelRequest'channelPoint = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AbandonChannelRequest "pendingFundingShimOnly" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AbandonChannelRequest'pendingFundingShimOnly
(\ x__ y__
-> x__ {_AbandonChannelRequest'pendingFundingShimOnly = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AbandonChannelRequest "iKnowWhatIAmDoing" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AbandonChannelRequest'iKnowWhatIAmDoing
(\ x__ y__
-> x__ {_AbandonChannelRequest'iKnowWhatIAmDoing = y__}))
Prelude.id
instance Data.ProtoLens.Message AbandonChannelRequest where
messageName _ = Data.Text.pack "lnrpc.AbandonChannelRequest"
packedMessageDescriptor _
= "\n\
\\NAKAbandonChannelRequest\DC28\n\
\\rchannel_point\CAN\SOH \SOH(\v2\DC3.lnrpc.ChannelPointR\fchannelPoint\DC29\n\
\\EMpending_funding_shim_only\CAN\STX \SOH(\bR\SYNpendingFundingShimOnly\DC21\n\
\\SYNi_know_what_i_am_doing\CAN\ETX \SOH(\bR\DC1iKnowWhatIAmDoing"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
channelPoint__field_descriptor
= Data.ProtoLens.FieldDescriptor
"channel_point"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Lnrpc.Ln0.ChannelPoint)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'channelPoint")) ::
Data.ProtoLens.FieldDescriptor AbandonChannelRequest
pendingFundingShimOnly__field_descriptor
= Data.ProtoLens.FieldDescriptor
"pending_funding_shim_only"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"pendingFundingShimOnly")) ::
Data.ProtoLens.FieldDescriptor AbandonChannelRequest
iKnowWhatIAmDoing__field_descriptor
= Data.ProtoLens.FieldDescriptor
"i_know_what_i_am_doing"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"iKnowWhatIAmDoing")) ::
Data.ProtoLens.FieldDescriptor AbandonChannelRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, channelPoint__field_descriptor),
(Data.ProtoLens.Tag 2, pendingFundingShimOnly__field_descriptor),
(Data.ProtoLens.Tag 3, iKnowWhatIAmDoing__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_AbandonChannelRequest'_unknownFields
(\ x__ y__ -> x__ {_AbandonChannelRequest'_unknownFields = y__})
defMessage
= AbandonChannelRequest'_constructor
{_AbandonChannelRequest'channelPoint = Prelude.Nothing,
_AbandonChannelRequest'pendingFundingShimOnly = Data.ProtoLens.fieldDefault,
_AbandonChannelRequest'iKnowWhatIAmDoing = Data.ProtoLens.fieldDefault,
_AbandonChannelRequest'_unknownFields = []}
parseMessage
= let
loop ::
AbandonChannelRequest
-> Data.ProtoLens.Encoding.Bytes.Parser AbandonChannelRequest
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)
"channel_point"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"channelPoint") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"pending_funding_shim_only"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"pendingFundingShimOnly") y x)
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"i_know_what_i_am_doing"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"iKnowWhatIAmDoing") 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) "AbandonChannelRequest"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view
(Data.ProtoLens.Field.field @"maybe'channelPoint") _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.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"pendingFundingShimOnly") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt (\ b -> if b then 1 else 0)
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"iKnowWhatIAmDoing") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt (\ b -> if b then 1 else 0)
_v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))))
instance Control.DeepSeq.NFData AbandonChannelRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_AbandonChannelRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_AbandonChannelRequest'channelPoint x__)
(Control.DeepSeq.deepseq
(_AbandonChannelRequest'pendingFundingShimOnly x__)
(Control.DeepSeq.deepseq
(_AbandonChannelRequest'iKnowWhatIAmDoing x__) ())))
{- | Fields :
-}
data AbandonChannelResponse
= AbandonChannelResponse'_constructor {_AbandonChannelResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show AbandonChannelResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out AbandonChannelResponse
instance Data.ProtoLens.Message AbandonChannelResponse where
messageName _ = Data.Text.pack "lnrpc.AbandonChannelResponse"
packedMessageDescriptor _
= "\n\
\\SYNAbandonChannelResponse"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag = let in Data.Map.fromList []
unknownFields
= Lens.Family2.Unchecked.lens
_AbandonChannelResponse'_unknownFields
(\ x__ y__ -> x__ {_AbandonChannelResponse'_unknownFields = y__})
defMessage
= AbandonChannelResponse'_constructor
{_AbandonChannelResponse'_unknownFields = []}
parseMessage
= let
loop ::
AbandonChannelResponse
-> Data.ProtoLens.Encoding.Bytes.Parser AbandonChannelResponse
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 {
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) "AbandonChannelResponse"
buildMessage
= \ _x
-> Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
instance Control.DeepSeq.NFData AbandonChannelResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_AbandonChannelResponse'_unknownFields x__) ()
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.rHash' @:: Lens' AddInvoiceResponse Data.ByteString.ByteString@
* 'Proto.Lnrpc.Ln1_Fields.paymentRequest' @:: Lens' AddInvoiceResponse Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.addIndex' @:: Lens' AddInvoiceResponse Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.paymentAddr' @:: Lens' AddInvoiceResponse Data.ByteString.ByteString@ -}
data AddInvoiceResponse
= AddInvoiceResponse'_constructor {_AddInvoiceResponse'rHash :: !Data.ByteString.ByteString,
_AddInvoiceResponse'paymentRequest :: !Data.Text.Text,
_AddInvoiceResponse'addIndex :: !Data.Word.Word64,
_AddInvoiceResponse'paymentAddr :: !Data.ByteString.ByteString,
_AddInvoiceResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show AddInvoiceResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out AddInvoiceResponse
instance Data.ProtoLens.Field.HasField AddInvoiceResponse "rHash" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AddInvoiceResponse'rHash
(\ x__ y__ -> x__ {_AddInvoiceResponse'rHash = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AddInvoiceResponse "paymentRequest" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AddInvoiceResponse'paymentRequest
(\ x__ y__ -> x__ {_AddInvoiceResponse'paymentRequest = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AddInvoiceResponse "addIndex" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AddInvoiceResponse'addIndex
(\ x__ y__ -> x__ {_AddInvoiceResponse'addIndex = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AddInvoiceResponse "paymentAddr" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AddInvoiceResponse'paymentAddr
(\ x__ y__ -> x__ {_AddInvoiceResponse'paymentAddr = y__}))
Prelude.id
instance Data.ProtoLens.Message AddInvoiceResponse where
messageName _ = Data.Text.pack "lnrpc.AddInvoiceResponse"
packedMessageDescriptor _
= "\n\
\\DC2AddInvoiceResponse\DC2\NAK\n\
\\ACKr_hash\CAN\SOH \SOH(\fR\ENQrHash\DC2'\n\
\\SIpayment_request\CAN\STX \SOH(\tR\SOpaymentRequest\DC2\ESC\n\
\\tadd_index\CAN\DLE \SOH(\EOTR\baddIndex\DC2!\n\
\\fpayment_addr\CAN\DC1 \SOH(\fR\vpaymentAddr"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
rHash__field_descriptor
= Data.ProtoLens.FieldDescriptor
"r_hash"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"rHash")) ::
Data.ProtoLens.FieldDescriptor AddInvoiceResponse
paymentRequest__field_descriptor
= Data.ProtoLens.FieldDescriptor
"payment_request"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"paymentRequest")) ::
Data.ProtoLens.FieldDescriptor AddInvoiceResponse
addIndex__field_descriptor
= Data.ProtoLens.FieldDescriptor
"add_index"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"addIndex")) ::
Data.ProtoLens.FieldDescriptor AddInvoiceResponse
paymentAddr__field_descriptor
= Data.ProtoLens.FieldDescriptor
"payment_addr"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"paymentAddr")) ::
Data.ProtoLens.FieldDescriptor AddInvoiceResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, rHash__field_descriptor),
(Data.ProtoLens.Tag 2, paymentRequest__field_descriptor),
(Data.ProtoLens.Tag 16, addIndex__field_descriptor),
(Data.ProtoLens.Tag 17, paymentAddr__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_AddInvoiceResponse'_unknownFields
(\ x__ y__ -> x__ {_AddInvoiceResponse'_unknownFields = y__})
defMessage
= AddInvoiceResponse'_constructor
{_AddInvoiceResponse'rHash = Data.ProtoLens.fieldDefault,
_AddInvoiceResponse'paymentRequest = Data.ProtoLens.fieldDefault,
_AddInvoiceResponse'addIndex = Data.ProtoLens.fieldDefault,
_AddInvoiceResponse'paymentAddr = Data.ProtoLens.fieldDefault,
_AddInvoiceResponse'_unknownFields = []}
parseMessage
= let
loop ::
AddInvoiceResponse
-> Data.ProtoLens.Encoding.Bytes.Parser AddInvoiceResponse
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))
"r_hash"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"rHash") 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))
"payment_request"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"paymentRequest") y x)
128
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "add_index"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"addIndex") y x)
138
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"payment_addr"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"paymentAddr") 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) "AddInvoiceResponse"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"rHash") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"paymentRequest") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(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))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"addIndex") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 128)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"paymentAddr") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 138)
((\ 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 AddInvoiceResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_AddInvoiceResponse'_unknownFields x__)
(Control.DeepSeq.deepseq
(_AddInvoiceResponse'rHash x__)
(Control.DeepSeq.deepseq
(_AddInvoiceResponse'paymentRequest x__)
(Control.DeepSeq.deepseq
(_AddInvoiceResponse'addIndex x__)
(Control.DeepSeq.deepseq
(_AddInvoiceResponse'paymentAddr x__) ()))))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.permissions' @:: Lens' BakeMacaroonRequest [MacaroonPermission]@
* 'Proto.Lnrpc.Ln1_Fields.vec'permissions' @:: Lens' BakeMacaroonRequest (Data.Vector.Vector MacaroonPermission)@
* 'Proto.Lnrpc.Ln1_Fields.rootKeyId' @:: Lens' BakeMacaroonRequest Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.allowExternalPermissions' @:: Lens' BakeMacaroonRequest Prelude.Bool@ -}
data BakeMacaroonRequest
= BakeMacaroonRequest'_constructor {_BakeMacaroonRequest'permissions :: !(Data.Vector.Vector MacaroonPermission),
_BakeMacaroonRequest'rootKeyId :: !Data.Word.Word64,
_BakeMacaroonRequest'allowExternalPermissions :: !Prelude.Bool,
_BakeMacaroonRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show BakeMacaroonRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out BakeMacaroonRequest
instance Data.ProtoLens.Field.HasField BakeMacaroonRequest "permissions" [MacaroonPermission] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_BakeMacaroonRequest'permissions
(\ x__ y__ -> x__ {_BakeMacaroonRequest'permissions = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField BakeMacaroonRequest "vec'permissions" (Data.Vector.Vector MacaroonPermission) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_BakeMacaroonRequest'permissions
(\ x__ y__ -> x__ {_BakeMacaroonRequest'permissions = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField BakeMacaroonRequest "rootKeyId" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_BakeMacaroonRequest'rootKeyId
(\ x__ y__ -> x__ {_BakeMacaroonRequest'rootKeyId = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField BakeMacaroonRequest "allowExternalPermissions" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_BakeMacaroonRequest'allowExternalPermissions
(\ x__ y__
-> x__ {_BakeMacaroonRequest'allowExternalPermissions = y__}))
Prelude.id
instance Data.ProtoLens.Message BakeMacaroonRequest where
messageName _ = Data.Text.pack "lnrpc.BakeMacaroonRequest"
packedMessageDescriptor _
= "\n\
\\DC3BakeMacaroonRequest\DC2;\n\
\\vpermissions\CAN\SOH \ETX(\v2\EM.lnrpc.MacaroonPermissionR\vpermissions\DC2\RS\n\
\\vroot_key_id\CAN\STX \SOH(\EOTR\trootKeyId\DC2<\n\
\\SUBallow_external_permissions\CAN\ETX \SOH(\bR\CANallowExternalPermissions"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
permissions__field_descriptor
= Data.ProtoLens.FieldDescriptor
"permissions"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor MacaroonPermission)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"permissions")) ::
Data.ProtoLens.FieldDescriptor BakeMacaroonRequest
rootKeyId__field_descriptor
= Data.ProtoLens.FieldDescriptor
"root_key_id"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"rootKeyId")) ::
Data.ProtoLens.FieldDescriptor BakeMacaroonRequest
allowExternalPermissions__field_descriptor
= Data.ProtoLens.FieldDescriptor
"allow_external_permissions"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"allowExternalPermissions")) ::
Data.ProtoLens.FieldDescriptor BakeMacaroonRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, permissions__field_descriptor),
(Data.ProtoLens.Tag 2, rootKeyId__field_descriptor),
(Data.ProtoLens.Tag 3, allowExternalPermissions__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_BakeMacaroonRequest'_unknownFields
(\ x__ y__ -> x__ {_BakeMacaroonRequest'_unknownFields = y__})
defMessage
= BakeMacaroonRequest'_constructor
{_BakeMacaroonRequest'permissions = Data.Vector.Generic.empty,
_BakeMacaroonRequest'rootKeyId = Data.ProtoLens.fieldDefault,
_BakeMacaroonRequest'allowExternalPermissions = Data.ProtoLens.fieldDefault,
_BakeMacaroonRequest'_unknownFields = []}
parseMessage
= let
loop ::
BakeMacaroonRequest
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MacaroonPermission
-> Data.ProtoLens.Encoding.Bytes.Parser BakeMacaroonRequest
loop x mutable'permissions
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'permissions <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'permissions)
(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'permissions") frozen'permissions
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)
"permissions"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'permissions y)
loop x v
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "root_key_id"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"rootKeyId") y x)
mutable'permissions
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"allow_external_permissions"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"allowExternalPermissions") y x)
mutable'permissions
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'permissions
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'permissions <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'permissions)
"BakeMacaroonRequest"
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'permissions") _x))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"rootKeyId") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"allowExternalPermissions") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt (\ b -> if b then 1 else 0)
_v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))))
instance Control.DeepSeq.NFData BakeMacaroonRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_BakeMacaroonRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_BakeMacaroonRequest'permissions x__)
(Control.DeepSeq.deepseq
(_BakeMacaroonRequest'rootKeyId x__)
(Control.DeepSeq.deepseq
(_BakeMacaroonRequest'allowExternalPermissions x__) ())))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.macaroon' @:: Lens' BakeMacaroonResponse Data.Text.Text@ -}
data BakeMacaroonResponse
= BakeMacaroonResponse'_constructor {_BakeMacaroonResponse'macaroon :: !Data.Text.Text,
_BakeMacaroonResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show BakeMacaroonResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out BakeMacaroonResponse
instance Data.ProtoLens.Field.HasField BakeMacaroonResponse "macaroon" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_BakeMacaroonResponse'macaroon
(\ x__ y__ -> x__ {_BakeMacaroonResponse'macaroon = y__}))
Prelude.id
instance Data.ProtoLens.Message BakeMacaroonResponse where
messageName _ = Data.Text.pack "lnrpc.BakeMacaroonResponse"
packedMessageDescriptor _
= "\n\
\\DC4BakeMacaroonResponse\DC2\SUB\n\
\\bmacaroon\CAN\SOH \SOH(\tR\bmacaroon"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
macaroon__field_descriptor
= Data.ProtoLens.FieldDescriptor
"macaroon"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"macaroon")) ::
Data.ProtoLens.FieldDescriptor BakeMacaroonResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, macaroon__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_BakeMacaroonResponse'_unknownFields
(\ x__ y__ -> x__ {_BakeMacaroonResponse'_unknownFields = y__})
defMessage
= BakeMacaroonResponse'_constructor
{_BakeMacaroonResponse'macaroon = Data.ProtoLens.fieldDefault,
_BakeMacaroonResponse'_unknownFields = []}
parseMessage
= let
loop ::
BakeMacaroonResponse
-> Data.ProtoLens.Encoding.Bytes.Parser BakeMacaroonResponse
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))
"macaroon"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"macaroon") 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) "BakeMacaroonResponse"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"macaroon") _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 BakeMacaroonResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_BakeMacaroonResponse'_unknownFields x__)
(Control.DeepSeq.deepseq (_BakeMacaroonResponse'macaroon x__) ())
{- | Fields :
-}
data ChanBackupExportRequest
= ChanBackupExportRequest'_constructor {_ChanBackupExportRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ChanBackupExportRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ChanBackupExportRequest
instance Data.ProtoLens.Message ChanBackupExportRequest where
messageName _ = Data.Text.pack "lnrpc.ChanBackupExportRequest"
packedMessageDescriptor _
= "\n\
\\ETBChanBackupExportRequest"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag = let in Data.Map.fromList []
unknownFields
= Lens.Family2.Unchecked.lens
_ChanBackupExportRequest'_unknownFields
(\ x__ y__ -> x__ {_ChanBackupExportRequest'_unknownFields = y__})
defMessage
= ChanBackupExportRequest'_constructor
{_ChanBackupExportRequest'_unknownFields = []}
parseMessage
= let
loop ::
ChanBackupExportRequest
-> Data.ProtoLens.Encoding.Bytes.Parser ChanBackupExportRequest
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 {
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) "ChanBackupExportRequest"
buildMessage
= \ _x
-> Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
instance Control.DeepSeq.NFData ChanBackupExportRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ChanBackupExportRequest'_unknownFields x__) ()
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.singleChanBackups' @:: Lens' ChanBackupSnapshot ChannelBackups@
* 'Proto.Lnrpc.Ln1_Fields.maybe'singleChanBackups' @:: Lens' ChanBackupSnapshot (Prelude.Maybe ChannelBackups)@
* 'Proto.Lnrpc.Ln1_Fields.multiChanBackup' @:: Lens' ChanBackupSnapshot MultiChanBackup@
* 'Proto.Lnrpc.Ln1_Fields.maybe'multiChanBackup' @:: Lens' ChanBackupSnapshot (Prelude.Maybe MultiChanBackup)@ -}
data ChanBackupSnapshot
= ChanBackupSnapshot'_constructor {_ChanBackupSnapshot'singleChanBackups :: !(Prelude.Maybe ChannelBackups),
_ChanBackupSnapshot'multiChanBackup :: !(Prelude.Maybe MultiChanBackup),
_ChanBackupSnapshot'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ChanBackupSnapshot where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ChanBackupSnapshot
instance Data.ProtoLens.Field.HasField ChanBackupSnapshot "singleChanBackups" ChannelBackups where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChanBackupSnapshot'singleChanBackups
(\ x__ y__ -> x__ {_ChanBackupSnapshot'singleChanBackups = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ChanBackupSnapshot "maybe'singleChanBackups" (Prelude.Maybe ChannelBackups) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChanBackupSnapshot'singleChanBackups
(\ x__ y__ -> x__ {_ChanBackupSnapshot'singleChanBackups = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChanBackupSnapshot "multiChanBackup" MultiChanBackup where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChanBackupSnapshot'multiChanBackup
(\ x__ y__ -> x__ {_ChanBackupSnapshot'multiChanBackup = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ChanBackupSnapshot "maybe'multiChanBackup" (Prelude.Maybe MultiChanBackup) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChanBackupSnapshot'multiChanBackup
(\ x__ y__ -> x__ {_ChanBackupSnapshot'multiChanBackup = y__}))
Prelude.id
instance Data.ProtoLens.Message ChanBackupSnapshot where
messageName _ = Data.Text.pack "lnrpc.ChanBackupSnapshot"
packedMessageDescriptor _
= "\n\
\\DC2ChanBackupSnapshot\DC2E\n\
\\DC3single_chan_backups\CAN\SOH \SOH(\v2\NAK.lnrpc.ChannelBackupsR\DC1singleChanBackups\DC2B\n\
\\DC1multi_chan_backup\CAN\STX \SOH(\v2\SYN.lnrpc.MultiChanBackupR\SImultiChanBackup"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
singleChanBackups__field_descriptor
= Data.ProtoLens.FieldDescriptor
"single_chan_backups"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ChannelBackups)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'singleChanBackups")) ::
Data.ProtoLens.FieldDescriptor ChanBackupSnapshot
multiChanBackup__field_descriptor
= Data.ProtoLens.FieldDescriptor
"multi_chan_backup"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor MultiChanBackup)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'multiChanBackup")) ::
Data.ProtoLens.FieldDescriptor ChanBackupSnapshot
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, singleChanBackups__field_descriptor),
(Data.ProtoLens.Tag 2, multiChanBackup__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ChanBackupSnapshot'_unknownFields
(\ x__ y__ -> x__ {_ChanBackupSnapshot'_unknownFields = y__})
defMessage
= ChanBackupSnapshot'_constructor
{_ChanBackupSnapshot'singleChanBackups = Prelude.Nothing,
_ChanBackupSnapshot'multiChanBackup = Prelude.Nothing,
_ChanBackupSnapshot'_unknownFields = []}
parseMessage
= let
loop ::
ChanBackupSnapshot
-> Data.ProtoLens.Encoding.Bytes.Parser ChanBackupSnapshot
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)
"single_chan_backups"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"singleChanBackups") 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)
"multi_chan_backup"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"multiChanBackup") 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) "ChanBackupSnapshot"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view
(Data.ProtoLens.Field.field @"maybe'singleChanBackups") _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'multiChanBackup") _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 ChanBackupSnapshot where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ChanBackupSnapshot'_unknownFields x__)
(Control.DeepSeq.deepseq
(_ChanBackupSnapshot'singleChanBackups x__)
(Control.DeepSeq.deepseq
(_ChanBackupSnapshot'multiChanBackup x__) ()))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.chanPoint' @:: Lens' ChannelBackup Proto.Lnrpc.Ln0.ChannelPoint@
* 'Proto.Lnrpc.Ln1_Fields.maybe'chanPoint' @:: Lens' ChannelBackup (Prelude.Maybe Proto.Lnrpc.Ln0.ChannelPoint)@
* 'Proto.Lnrpc.Ln1_Fields.chanBackup' @:: Lens' ChannelBackup Data.ByteString.ByteString@ -}
data ChannelBackup
= ChannelBackup'_constructor {_ChannelBackup'chanPoint :: !(Prelude.Maybe Proto.Lnrpc.Ln0.ChannelPoint),
_ChannelBackup'chanBackup :: !Data.ByteString.ByteString,
_ChannelBackup'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ChannelBackup where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ChannelBackup
instance Data.ProtoLens.Field.HasField ChannelBackup "chanPoint" Proto.Lnrpc.Ln0.ChannelPoint where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelBackup'chanPoint
(\ x__ y__ -> x__ {_ChannelBackup'chanPoint = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ChannelBackup "maybe'chanPoint" (Prelude.Maybe Proto.Lnrpc.Ln0.ChannelPoint) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelBackup'chanPoint
(\ x__ y__ -> x__ {_ChannelBackup'chanPoint = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChannelBackup "chanBackup" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelBackup'chanBackup
(\ x__ y__ -> x__ {_ChannelBackup'chanBackup = y__}))
Prelude.id
instance Data.ProtoLens.Message ChannelBackup where
messageName _ = Data.Text.pack "lnrpc.ChannelBackup"
packedMessageDescriptor _
= "\n\
\\rChannelBackup\DC22\n\
\\n\
\chan_point\CAN\SOH \SOH(\v2\DC3.lnrpc.ChannelPointR\tchanPoint\DC2\US\n\
\\vchan_backup\CAN\STX \SOH(\fR\n\
\chanBackup"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
chanPoint__field_descriptor
= Data.ProtoLens.FieldDescriptor
"chan_point"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Lnrpc.Ln0.ChannelPoint)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'chanPoint")) ::
Data.ProtoLens.FieldDescriptor ChannelBackup
chanBackup__field_descriptor
= Data.ProtoLens.FieldDescriptor
"chan_backup"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"chanBackup")) ::
Data.ProtoLens.FieldDescriptor ChannelBackup
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, chanPoint__field_descriptor),
(Data.ProtoLens.Tag 2, chanBackup__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ChannelBackup'_unknownFields
(\ x__ y__ -> x__ {_ChannelBackup'_unknownFields = y__})
defMessage
= ChannelBackup'_constructor
{_ChannelBackup'chanPoint = Prelude.Nothing,
_ChannelBackup'chanBackup = Data.ProtoLens.fieldDefault,
_ChannelBackup'_unknownFields = []}
parseMessage
= let
loop ::
ChannelBackup -> Data.ProtoLens.Encoding.Bytes.Parser ChannelBackup
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)
"chan_point"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"chanPoint") y x)
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"chan_backup"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"chanBackup") 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) "ChannelBackup"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view
(Data.ProtoLens.Field.field @"maybe'chanPoint") _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.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"chanBackup") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData ChannelBackup where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ChannelBackup'_unknownFields x__)
(Control.DeepSeq.deepseq
(_ChannelBackup'chanPoint x__)
(Control.DeepSeq.deepseq (_ChannelBackup'chanBackup x__) ()))
{- | Fields :
-}
data ChannelBackupSubscription
= ChannelBackupSubscription'_constructor {_ChannelBackupSubscription'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ChannelBackupSubscription where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ChannelBackupSubscription
instance Data.ProtoLens.Message ChannelBackupSubscription where
messageName _ = Data.Text.pack "lnrpc.ChannelBackupSubscription"
packedMessageDescriptor _
= "\n\
\\EMChannelBackupSubscription"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag = let in Data.Map.fromList []
unknownFields
= Lens.Family2.Unchecked.lens
_ChannelBackupSubscription'_unknownFields
(\ x__ y__
-> x__ {_ChannelBackupSubscription'_unknownFields = y__})
defMessage
= ChannelBackupSubscription'_constructor
{_ChannelBackupSubscription'_unknownFields = []}
parseMessage
= let
loop ::
ChannelBackupSubscription
-> Data.ProtoLens.Encoding.Bytes.Parser ChannelBackupSubscription
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 {
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) "ChannelBackupSubscription"
buildMessage
= \ _x
-> Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
instance Control.DeepSeq.NFData ChannelBackupSubscription where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ChannelBackupSubscription'_unknownFields x__) ()
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.chanBackups' @:: Lens' ChannelBackups [ChannelBackup]@
* 'Proto.Lnrpc.Ln1_Fields.vec'chanBackups' @:: Lens' ChannelBackups (Data.Vector.Vector ChannelBackup)@ -}
data ChannelBackups
= ChannelBackups'_constructor {_ChannelBackups'chanBackups :: !(Data.Vector.Vector ChannelBackup),
_ChannelBackups'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ChannelBackups where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ChannelBackups
instance Data.ProtoLens.Field.HasField ChannelBackups "chanBackups" [ChannelBackup] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelBackups'chanBackups
(\ x__ y__ -> x__ {_ChannelBackups'chanBackups = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField ChannelBackups "vec'chanBackups" (Data.Vector.Vector ChannelBackup) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelBackups'chanBackups
(\ x__ y__ -> x__ {_ChannelBackups'chanBackups = y__}))
Prelude.id
instance Data.ProtoLens.Message ChannelBackups where
messageName _ = Data.Text.pack "lnrpc.ChannelBackups"
packedMessageDescriptor _
= "\n\
\\SOChannelBackups\DC27\n\
\\fchan_backups\CAN\SOH \ETX(\v2\DC4.lnrpc.ChannelBackupR\vchanBackups"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
chanBackups__field_descriptor
= Data.ProtoLens.FieldDescriptor
"chan_backups"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ChannelBackup)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"chanBackups")) ::
Data.ProtoLens.FieldDescriptor ChannelBackups
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, chanBackups__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ChannelBackups'_unknownFields
(\ x__ y__ -> x__ {_ChannelBackups'_unknownFields = y__})
defMessage
= ChannelBackups'_constructor
{_ChannelBackups'chanBackups = Data.Vector.Generic.empty,
_ChannelBackups'_unknownFields = []}
parseMessage
= let
loop ::
ChannelBackups
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ChannelBackup
-> Data.ProtoLens.Encoding.Bytes.Parser ChannelBackups
loop x mutable'chanBackups
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'chanBackups <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'chanBackups)
(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'chanBackups") frozen'chanBackups
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)
"chan_backups"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'chanBackups y)
loop x v
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'chanBackups
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'chanBackups <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'chanBackups)
"ChannelBackups"
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'chanBackups") _x))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData ChannelBackups where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ChannelBackups'_unknownFields x__)
(Control.DeepSeq.deepseq (_ChannelBackups'chanBackups x__) ())
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.chanId' @:: Lens' ChannelFeeReport Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.channelPoint' @:: Lens' ChannelFeeReport Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.baseFeeMsat' @:: Lens' ChannelFeeReport Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.feePerMil' @:: Lens' ChannelFeeReport Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.feeRate' @:: Lens' ChannelFeeReport Prelude.Double@ -}
data ChannelFeeReport
= ChannelFeeReport'_constructor {_ChannelFeeReport'chanId :: !Data.Word.Word64,
_ChannelFeeReport'channelPoint :: !Data.Text.Text,
_ChannelFeeReport'baseFeeMsat :: !Data.Int.Int64,
_ChannelFeeReport'feePerMil :: !Data.Int.Int64,
_ChannelFeeReport'feeRate :: !Prelude.Double,
_ChannelFeeReport'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ChannelFeeReport where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ChannelFeeReport
instance Data.ProtoLens.Field.HasField ChannelFeeReport "chanId" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelFeeReport'chanId
(\ x__ y__ -> x__ {_ChannelFeeReport'chanId = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChannelFeeReport "channelPoint" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelFeeReport'channelPoint
(\ x__ y__ -> x__ {_ChannelFeeReport'channelPoint = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChannelFeeReport "baseFeeMsat" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelFeeReport'baseFeeMsat
(\ x__ y__ -> x__ {_ChannelFeeReport'baseFeeMsat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChannelFeeReport "feePerMil" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelFeeReport'feePerMil
(\ x__ y__ -> x__ {_ChannelFeeReport'feePerMil = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChannelFeeReport "feeRate" Prelude.Double where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelFeeReport'feeRate
(\ x__ y__ -> x__ {_ChannelFeeReport'feeRate = y__}))
Prelude.id
instance Data.ProtoLens.Message ChannelFeeReport where
messageName _ = Data.Text.pack "lnrpc.ChannelFeeReport"
packedMessageDescriptor _
= "\n\
\\DLEChannelFeeReport\DC2\ESC\n\
\\achan_id\CAN\ENQ \SOH(\EOTR\ACKchanIdB\STX0\SOH\DC2#\n\
\\rchannel_point\CAN\SOH \SOH(\tR\fchannelPoint\DC2\"\n\
\\rbase_fee_msat\CAN\STX \SOH(\ETXR\vbaseFeeMsat\DC2\RS\n\
\\vfee_per_mil\CAN\ETX \SOH(\ETXR\tfeePerMil\DC2\EM\n\
\\bfee_rate\CAN\EOT \SOH(\SOHR\afeeRate"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
chanId__field_descriptor
= Data.ProtoLens.FieldDescriptor
"chan_id"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"chanId")) ::
Data.ProtoLens.FieldDescriptor ChannelFeeReport
channelPoint__field_descriptor
= Data.ProtoLens.FieldDescriptor
"channel_point"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"channelPoint")) ::
Data.ProtoLens.FieldDescriptor ChannelFeeReport
baseFeeMsat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"base_fee_msat"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"baseFeeMsat")) ::
Data.ProtoLens.FieldDescriptor ChannelFeeReport
feePerMil__field_descriptor
= Data.ProtoLens.FieldDescriptor
"fee_per_mil"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"feePerMil")) ::
Data.ProtoLens.FieldDescriptor ChannelFeeReport
feeRate__field_descriptor
= Data.ProtoLens.FieldDescriptor
"fee_rate"
(Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"feeRate")) ::
Data.ProtoLens.FieldDescriptor ChannelFeeReport
in
Data.Map.fromList
[(Data.ProtoLens.Tag 5, chanId__field_descriptor),
(Data.ProtoLens.Tag 1, channelPoint__field_descriptor),
(Data.ProtoLens.Tag 2, baseFeeMsat__field_descriptor),
(Data.ProtoLens.Tag 3, feePerMil__field_descriptor),
(Data.ProtoLens.Tag 4, feeRate__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ChannelFeeReport'_unknownFields
(\ x__ y__ -> x__ {_ChannelFeeReport'_unknownFields = y__})
defMessage
= ChannelFeeReport'_constructor
{_ChannelFeeReport'chanId = Data.ProtoLens.fieldDefault,
_ChannelFeeReport'channelPoint = Data.ProtoLens.fieldDefault,
_ChannelFeeReport'baseFeeMsat = Data.ProtoLens.fieldDefault,
_ChannelFeeReport'feePerMil = Data.ProtoLens.fieldDefault,
_ChannelFeeReport'feeRate = Data.ProtoLens.fieldDefault,
_ChannelFeeReport'_unknownFields = []}
parseMessage
= let
loop ::
ChannelFeeReport
-> Data.ProtoLens.Encoding.Bytes.Parser ChannelFeeReport
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
40
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "chan_id"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"chanId") y x)
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))
"channel_point"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"channelPoint") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"base_fee_msat"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"baseFeeMsat") y x)
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"fee_per_mil"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"feePerMil") y x)
33
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Data.ProtoLens.Encoding.Bytes.wordToDouble
Data.ProtoLens.Encoding.Bytes.getFixed64)
"fee_rate"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"feeRate") 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) "ChannelFeeReport"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"chanId") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 40)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"channelPoint") _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.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"baseFeeMsat") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"feePerMil") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"feeRate") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 33)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putFixed64
Data.ProtoLens.Encoding.Bytes.doubleToWord _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))))))
instance Control.DeepSeq.NFData ChannelFeeReport where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ChannelFeeReport'_unknownFields x__)
(Control.DeepSeq.deepseq
(_ChannelFeeReport'chanId x__)
(Control.DeepSeq.deepseq
(_ChannelFeeReport'channelPoint x__)
(Control.DeepSeq.deepseq
(_ChannelFeeReport'baseFeeMsat x__)
(Control.DeepSeq.deepseq
(_ChannelFeeReport'feePerMil x__)
(Control.DeepSeq.deepseq (_ChannelFeeReport'feeRate x__) ())))))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.signature' @:: Lens' ChannelUpdate Data.ByteString.ByteString@
* 'Proto.Lnrpc.Ln1_Fields.chainHash' @:: Lens' ChannelUpdate Data.ByteString.ByteString@
* 'Proto.Lnrpc.Ln1_Fields.chanId' @:: Lens' ChannelUpdate Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.timestamp' @:: Lens' ChannelUpdate Data.Word.Word32@
* 'Proto.Lnrpc.Ln1_Fields.messageFlags' @:: Lens' ChannelUpdate Data.Word.Word32@
* 'Proto.Lnrpc.Ln1_Fields.channelFlags' @:: Lens' ChannelUpdate Data.Word.Word32@
* 'Proto.Lnrpc.Ln1_Fields.timeLockDelta' @:: Lens' ChannelUpdate Data.Word.Word32@
* 'Proto.Lnrpc.Ln1_Fields.htlcMinimumMsat' @:: Lens' ChannelUpdate Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.baseFee' @:: Lens' ChannelUpdate Data.Word.Word32@
* 'Proto.Lnrpc.Ln1_Fields.feeRate' @:: Lens' ChannelUpdate Data.Word.Word32@
* 'Proto.Lnrpc.Ln1_Fields.htlcMaximumMsat' @:: Lens' ChannelUpdate Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.extraOpaqueData' @:: Lens' ChannelUpdate Data.ByteString.ByteString@ -}
data ChannelUpdate
= ChannelUpdate'_constructor {_ChannelUpdate'signature :: !Data.ByteString.ByteString,
_ChannelUpdate'chainHash :: !Data.ByteString.ByteString,
_ChannelUpdate'chanId :: !Data.Word.Word64,
_ChannelUpdate'timestamp :: !Data.Word.Word32,
_ChannelUpdate'messageFlags :: !Data.Word.Word32,
_ChannelUpdate'channelFlags :: !Data.Word.Word32,
_ChannelUpdate'timeLockDelta :: !Data.Word.Word32,
_ChannelUpdate'htlcMinimumMsat :: !Data.Word.Word64,
_ChannelUpdate'baseFee :: !Data.Word.Word32,
_ChannelUpdate'feeRate :: !Data.Word.Word32,
_ChannelUpdate'htlcMaximumMsat :: !Data.Word.Word64,
_ChannelUpdate'extraOpaqueData :: !Data.ByteString.ByteString,
_ChannelUpdate'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ChannelUpdate where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ChannelUpdate
instance Data.ProtoLens.Field.HasField ChannelUpdate "signature" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelUpdate'signature
(\ x__ y__ -> x__ {_ChannelUpdate'signature = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChannelUpdate "chainHash" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelUpdate'chainHash
(\ x__ y__ -> x__ {_ChannelUpdate'chainHash = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChannelUpdate "chanId" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelUpdate'chanId
(\ x__ y__ -> x__ {_ChannelUpdate'chanId = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChannelUpdate "timestamp" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelUpdate'timestamp
(\ x__ y__ -> x__ {_ChannelUpdate'timestamp = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChannelUpdate "messageFlags" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelUpdate'messageFlags
(\ x__ y__ -> x__ {_ChannelUpdate'messageFlags = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChannelUpdate "channelFlags" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelUpdate'channelFlags
(\ x__ y__ -> x__ {_ChannelUpdate'channelFlags = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChannelUpdate "timeLockDelta" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelUpdate'timeLockDelta
(\ x__ y__ -> x__ {_ChannelUpdate'timeLockDelta = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChannelUpdate "htlcMinimumMsat" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelUpdate'htlcMinimumMsat
(\ x__ y__ -> x__ {_ChannelUpdate'htlcMinimumMsat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChannelUpdate "baseFee" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelUpdate'baseFee
(\ x__ y__ -> x__ {_ChannelUpdate'baseFee = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChannelUpdate "feeRate" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelUpdate'feeRate
(\ x__ y__ -> x__ {_ChannelUpdate'feeRate = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChannelUpdate "htlcMaximumMsat" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelUpdate'htlcMaximumMsat
(\ x__ y__ -> x__ {_ChannelUpdate'htlcMaximumMsat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChannelUpdate "extraOpaqueData" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChannelUpdate'extraOpaqueData
(\ x__ y__ -> x__ {_ChannelUpdate'extraOpaqueData = y__}))
Prelude.id
instance Data.ProtoLens.Message ChannelUpdate where
messageName _ = Data.Text.pack "lnrpc.ChannelUpdate"
packedMessageDescriptor _
= "\n\
\\rChannelUpdate\DC2\FS\n\
\\tsignature\CAN\SOH \SOH(\fR\tsignature\DC2\GS\n\
\\n\
\chain_hash\CAN\STX \SOH(\fR\tchainHash\DC2\ESC\n\
\\achan_id\CAN\ETX \SOH(\EOTR\ACKchanIdB\STX0\SOH\DC2\FS\n\
\\ttimestamp\CAN\EOT \SOH(\rR\ttimestamp\DC2#\n\
\\rmessage_flags\CAN\n\
\ \SOH(\rR\fmessageFlags\DC2#\n\
\\rchannel_flags\CAN\ENQ \SOH(\rR\fchannelFlags\DC2&\n\
\\SItime_lock_delta\CAN\ACK \SOH(\rR\rtimeLockDelta\DC2*\n\
\\DC1htlc_minimum_msat\CAN\a \SOH(\EOTR\SIhtlcMinimumMsat\DC2\EM\n\
\\bbase_fee\CAN\b \SOH(\rR\abaseFee\DC2\EM\n\
\\bfee_rate\CAN\t \SOH(\rR\afeeRate\DC2*\n\
\\DC1htlc_maximum_msat\CAN\v \SOH(\EOTR\SIhtlcMaximumMsat\DC2*\n\
\\DC1extra_opaque_data\CAN\f \SOH(\fR\SIextraOpaqueData"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
signature__field_descriptor
= Data.ProtoLens.FieldDescriptor
"signature"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"signature")) ::
Data.ProtoLens.FieldDescriptor ChannelUpdate
chainHash__field_descriptor
= Data.ProtoLens.FieldDescriptor
"chain_hash"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"chainHash")) ::
Data.ProtoLens.FieldDescriptor ChannelUpdate
chanId__field_descriptor
= Data.ProtoLens.FieldDescriptor
"chan_id"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"chanId")) ::
Data.ProtoLens.FieldDescriptor ChannelUpdate
timestamp__field_descriptor
= Data.ProtoLens.FieldDescriptor
"timestamp"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"timestamp")) ::
Data.ProtoLens.FieldDescriptor ChannelUpdate
messageFlags__field_descriptor
= Data.ProtoLens.FieldDescriptor
"message_flags"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"messageFlags")) ::
Data.ProtoLens.FieldDescriptor ChannelUpdate
channelFlags__field_descriptor
= Data.ProtoLens.FieldDescriptor
"channel_flags"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"channelFlags")) ::
Data.ProtoLens.FieldDescriptor ChannelUpdate
timeLockDelta__field_descriptor
= Data.ProtoLens.FieldDescriptor
"time_lock_delta"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"timeLockDelta")) ::
Data.ProtoLens.FieldDescriptor ChannelUpdate
htlcMinimumMsat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"htlc_minimum_msat"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"htlcMinimumMsat")) ::
Data.ProtoLens.FieldDescriptor ChannelUpdate
baseFee__field_descriptor
= Data.ProtoLens.FieldDescriptor
"base_fee"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"baseFee")) ::
Data.ProtoLens.FieldDescriptor ChannelUpdate
feeRate__field_descriptor
= Data.ProtoLens.FieldDescriptor
"fee_rate"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"feeRate")) ::
Data.ProtoLens.FieldDescriptor ChannelUpdate
htlcMaximumMsat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"htlc_maximum_msat"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"htlcMaximumMsat")) ::
Data.ProtoLens.FieldDescriptor ChannelUpdate
extraOpaqueData__field_descriptor
= Data.ProtoLens.FieldDescriptor
"extra_opaque_data"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"extraOpaqueData")) ::
Data.ProtoLens.FieldDescriptor ChannelUpdate
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, signature__field_descriptor),
(Data.ProtoLens.Tag 2, chainHash__field_descriptor),
(Data.ProtoLens.Tag 3, chanId__field_descriptor),
(Data.ProtoLens.Tag 4, timestamp__field_descriptor),
(Data.ProtoLens.Tag 10, messageFlags__field_descriptor),
(Data.ProtoLens.Tag 5, channelFlags__field_descriptor),
(Data.ProtoLens.Tag 6, timeLockDelta__field_descriptor),
(Data.ProtoLens.Tag 7, htlcMinimumMsat__field_descriptor),
(Data.ProtoLens.Tag 8, baseFee__field_descriptor),
(Data.ProtoLens.Tag 9, feeRate__field_descriptor),
(Data.ProtoLens.Tag 11, htlcMaximumMsat__field_descriptor),
(Data.ProtoLens.Tag 12, extraOpaqueData__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ChannelUpdate'_unknownFields
(\ x__ y__ -> x__ {_ChannelUpdate'_unknownFields = y__})
defMessage
= ChannelUpdate'_constructor
{_ChannelUpdate'signature = Data.ProtoLens.fieldDefault,
_ChannelUpdate'chainHash = Data.ProtoLens.fieldDefault,
_ChannelUpdate'chanId = Data.ProtoLens.fieldDefault,
_ChannelUpdate'timestamp = Data.ProtoLens.fieldDefault,
_ChannelUpdate'messageFlags = Data.ProtoLens.fieldDefault,
_ChannelUpdate'channelFlags = Data.ProtoLens.fieldDefault,
_ChannelUpdate'timeLockDelta = Data.ProtoLens.fieldDefault,
_ChannelUpdate'htlcMinimumMsat = Data.ProtoLens.fieldDefault,
_ChannelUpdate'baseFee = Data.ProtoLens.fieldDefault,
_ChannelUpdate'feeRate = Data.ProtoLens.fieldDefault,
_ChannelUpdate'htlcMaximumMsat = Data.ProtoLens.fieldDefault,
_ChannelUpdate'extraOpaqueData = Data.ProtoLens.fieldDefault,
_ChannelUpdate'_unknownFields = []}
parseMessage
= let
loop ::
ChannelUpdate -> Data.ProtoLens.Encoding.Bytes.Parser ChannelUpdate
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))
"signature"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"signature") y x)
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"chain_hash"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"chainHash") y x)
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "chan_id"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"chanId") y x)
32
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"timestamp"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"timestamp") y x)
80
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"message_flags"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"messageFlags") y x)
40
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"channel_flags"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"channelFlags") y x)
48
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"time_lock_delta"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"timeLockDelta") y x)
56
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "htlc_minimum_msat"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"htlcMinimumMsat") y x)
64
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"base_fee"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"baseFee") y x)
72
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"fee_rate"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"feeRate") y x)
88
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "htlc_maximum_msat"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"htlcMaximumMsat") y x)
98
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"extra_opaque_data"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"extraOpaqueData") 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) "ChannelUpdate"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"signature") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"chainHash") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"chanId") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"timestamp") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 32)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"messageFlags") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 80)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"channelFlags") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 40)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"timeLockDelta") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 48)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"htlcMinimumMsat") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 56)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"baseFee") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 64)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"feeRate") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 72)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"htlcMaximumMsat")
_x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 88)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field
@"extraOpaqueData")
_x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 98)
((\ 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 ChannelUpdate where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ChannelUpdate'_unknownFields x__)
(Control.DeepSeq.deepseq
(_ChannelUpdate'signature x__)
(Control.DeepSeq.deepseq
(_ChannelUpdate'chainHash x__)
(Control.DeepSeq.deepseq
(_ChannelUpdate'chanId x__)
(Control.DeepSeq.deepseq
(_ChannelUpdate'timestamp x__)
(Control.DeepSeq.deepseq
(_ChannelUpdate'messageFlags x__)
(Control.DeepSeq.deepseq
(_ChannelUpdate'channelFlags x__)
(Control.DeepSeq.deepseq
(_ChannelUpdate'timeLockDelta x__)
(Control.DeepSeq.deepseq
(_ChannelUpdate'htlcMinimumMsat x__)
(Control.DeepSeq.deepseq
(_ChannelUpdate'baseFee x__)
(Control.DeepSeq.deepseq
(_ChannelUpdate'feeRate x__)
(Control.DeepSeq.deepseq
(_ChannelUpdate'htlcMaximumMsat x__)
(Control.DeepSeq.deepseq
(_ChannelUpdate'extraOpaqueData x__) ()))))))))))))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.macaroon' @:: Lens' CheckMacPermRequest Data.ByteString.ByteString@
* 'Proto.Lnrpc.Ln1_Fields.permissions' @:: Lens' CheckMacPermRequest [MacaroonPermission]@
* 'Proto.Lnrpc.Ln1_Fields.vec'permissions' @:: Lens' CheckMacPermRequest (Data.Vector.Vector MacaroonPermission)@
* 'Proto.Lnrpc.Ln1_Fields.fullMethod' @:: Lens' CheckMacPermRequest Data.Text.Text@ -}
data CheckMacPermRequest
= CheckMacPermRequest'_constructor {_CheckMacPermRequest'macaroon :: !Data.ByteString.ByteString,
_CheckMacPermRequest'permissions :: !(Data.Vector.Vector MacaroonPermission),
_CheckMacPermRequest'fullMethod :: !Data.Text.Text,
_CheckMacPermRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show CheckMacPermRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out CheckMacPermRequest
instance Data.ProtoLens.Field.HasField CheckMacPermRequest "macaroon" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_CheckMacPermRequest'macaroon
(\ x__ y__ -> x__ {_CheckMacPermRequest'macaroon = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField CheckMacPermRequest "permissions" [MacaroonPermission] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_CheckMacPermRequest'permissions
(\ x__ y__ -> x__ {_CheckMacPermRequest'permissions = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField CheckMacPermRequest "vec'permissions" (Data.Vector.Vector MacaroonPermission) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_CheckMacPermRequest'permissions
(\ x__ y__ -> x__ {_CheckMacPermRequest'permissions = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField CheckMacPermRequest "fullMethod" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_CheckMacPermRequest'fullMethod
(\ x__ y__ -> x__ {_CheckMacPermRequest'fullMethod = y__}))
Prelude.id
instance Data.ProtoLens.Message CheckMacPermRequest where
messageName _ = Data.Text.pack "lnrpc.CheckMacPermRequest"
packedMessageDescriptor _
= "\n\
\\DC3CheckMacPermRequest\DC2\SUB\n\
\\bmacaroon\CAN\SOH \SOH(\fR\bmacaroon\DC2;\n\
\\vpermissions\CAN\STX \ETX(\v2\EM.lnrpc.MacaroonPermissionR\vpermissions\DC2\RS\n\
\\n\
\fullMethod\CAN\ETX \SOH(\tR\n\
\fullMethod"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
macaroon__field_descriptor
= Data.ProtoLens.FieldDescriptor
"macaroon"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"macaroon")) ::
Data.ProtoLens.FieldDescriptor CheckMacPermRequest
permissions__field_descriptor
= Data.ProtoLens.FieldDescriptor
"permissions"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor MacaroonPermission)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"permissions")) ::
Data.ProtoLens.FieldDescriptor CheckMacPermRequest
fullMethod__field_descriptor
= Data.ProtoLens.FieldDescriptor
"fullMethod"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"fullMethod")) ::
Data.ProtoLens.FieldDescriptor CheckMacPermRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, macaroon__field_descriptor),
(Data.ProtoLens.Tag 2, permissions__field_descriptor),
(Data.ProtoLens.Tag 3, fullMethod__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_CheckMacPermRequest'_unknownFields
(\ x__ y__ -> x__ {_CheckMacPermRequest'_unknownFields = y__})
defMessage
= CheckMacPermRequest'_constructor
{_CheckMacPermRequest'macaroon = Data.ProtoLens.fieldDefault,
_CheckMacPermRequest'permissions = Data.Vector.Generic.empty,
_CheckMacPermRequest'fullMethod = Data.ProtoLens.fieldDefault,
_CheckMacPermRequest'_unknownFields = []}
parseMessage
= let
loop ::
CheckMacPermRequest
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MacaroonPermission
-> Data.ProtoLens.Encoding.Bytes.Parser CheckMacPermRequest
loop x mutable'permissions
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'permissions <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'permissions)
(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'permissions") frozen'permissions
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))
"macaroon"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"macaroon") y x)
mutable'permissions
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)
"permissions"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'permissions y)
loop x v
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))
"fullMethod"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"fullMethod") y x)
mutable'permissions
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'permissions
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'permissions <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'permissions)
"CheckMacPermRequest"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"macaroon") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
((Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage _v))
(Lens.Family2.view
(Data.ProtoLens.Field.field @"vec'permissions") _x))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"fullMethod") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(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 CheckMacPermRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_CheckMacPermRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_CheckMacPermRequest'macaroon x__)
(Control.DeepSeq.deepseq
(_CheckMacPermRequest'permissions x__)
(Control.DeepSeq.deepseq
(_CheckMacPermRequest'fullMethod x__) ())))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.valid' @:: Lens' CheckMacPermResponse Prelude.Bool@ -}
data CheckMacPermResponse
= CheckMacPermResponse'_constructor {_CheckMacPermResponse'valid :: !Prelude.Bool,
_CheckMacPermResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show CheckMacPermResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out CheckMacPermResponse
instance Data.ProtoLens.Field.HasField CheckMacPermResponse "valid" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_CheckMacPermResponse'valid
(\ x__ y__ -> x__ {_CheckMacPermResponse'valid = y__}))
Prelude.id
instance Data.ProtoLens.Message CheckMacPermResponse where
messageName _ = Data.Text.pack "lnrpc.CheckMacPermResponse"
packedMessageDescriptor _
= "\n\
\\DC4CheckMacPermResponse\DC2\DC4\n\
\\ENQvalid\CAN\SOH \SOH(\bR\ENQvalid"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
valid__field_descriptor
= Data.ProtoLens.FieldDescriptor
"valid"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"valid")) ::
Data.ProtoLens.FieldDescriptor CheckMacPermResponse
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, valid__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_CheckMacPermResponse'_unknownFields
(\ x__ y__ -> x__ {_CheckMacPermResponse'_unknownFields = y__})
defMessage
= CheckMacPermResponse'_constructor
{_CheckMacPermResponse'valid = Data.ProtoLens.fieldDefault,
_CheckMacPermResponse'_unknownFields = []}
parseMessage
= let
loop ::
CheckMacPermResponse
-> Data.ProtoLens.Encoding.Bytes.Parser CheckMacPermResponse
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)
"valid"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"valid") 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) "CheckMacPermResponse"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"valid") _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 (\ b -> if b then 1 else 0)
_v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData CheckMacPermResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_CheckMacPermResponse'_unknownFields x__)
(Control.DeepSeq.deepseq (_CheckMacPermResponse'valid x__) ())
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.show' @:: Lens' DebugLevelRequest Prelude.Bool@
* 'Proto.Lnrpc.Ln1_Fields.levelSpec' @:: Lens' DebugLevelRequest Data.Text.Text@ -}
data DebugLevelRequest
= DebugLevelRequest'_constructor {_DebugLevelRequest'show :: !Prelude.Bool,
_DebugLevelRequest'levelSpec :: !Data.Text.Text,
_DebugLevelRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show DebugLevelRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out DebugLevelRequest
instance Data.ProtoLens.Field.HasField DebugLevelRequest "show" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_DebugLevelRequest'show
(\ x__ y__ -> x__ {_DebugLevelRequest'show = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField DebugLevelRequest "levelSpec" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_DebugLevelRequest'levelSpec
(\ x__ y__ -> x__ {_DebugLevelRequest'levelSpec = y__}))
Prelude.id
instance Data.ProtoLens.Message DebugLevelRequest where
messageName _ = Data.Text.pack "lnrpc.DebugLevelRequest"
packedMessageDescriptor _
= "\n\
\\DC1DebugLevelRequest\DC2\DC2\n\
\\EOTshow\CAN\SOH \SOH(\bR\EOTshow\DC2\GS\n\
\\n\
\level_spec\CAN\STX \SOH(\tR\tlevelSpec"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
show__field_descriptor
= Data.ProtoLens.FieldDescriptor
"show"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"show")) ::
Data.ProtoLens.FieldDescriptor DebugLevelRequest
levelSpec__field_descriptor
= Data.ProtoLens.FieldDescriptor
"level_spec"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"levelSpec")) ::
Data.ProtoLens.FieldDescriptor DebugLevelRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, show__field_descriptor),
(Data.ProtoLens.Tag 2, levelSpec__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_DebugLevelRequest'_unknownFields
(\ x__ y__ -> x__ {_DebugLevelRequest'_unknownFields = y__})
defMessage
= DebugLevelRequest'_constructor
{_DebugLevelRequest'show = Data.ProtoLens.fieldDefault,
_DebugLevelRequest'levelSpec = Data.ProtoLens.fieldDefault,
_DebugLevelRequest'_unknownFields = []}
parseMessage
= let
loop ::
DebugLevelRequest
-> Data.ProtoLens.Encoding.Bytes.Parser DebugLevelRequest
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)
"show"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"show") 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))
"level_spec"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"levelSpec") 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) "DebugLevelRequest"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"show") _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 (\ b -> if b then 1 else 0)
_v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"levelSpec") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(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))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData DebugLevelRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_DebugLevelRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_DebugLevelRequest'show x__)
(Control.DeepSeq.deepseq (_DebugLevelRequest'levelSpec x__) ()))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.subSystems' @:: Lens' DebugLevelResponse Data.Text.Text@ -}
data DebugLevelResponse
= DebugLevelResponse'_constructor {_DebugLevelResponse'subSystems :: !Data.Text.Text,
_DebugLevelResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show DebugLevelResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out DebugLevelResponse
instance Data.ProtoLens.Field.HasField DebugLevelResponse "subSystems" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_DebugLevelResponse'subSystems
(\ x__ y__ -> x__ {_DebugLevelResponse'subSystems = y__}))
Prelude.id
instance Data.ProtoLens.Message DebugLevelResponse where
messageName _ = Data.Text.pack "lnrpc.DebugLevelResponse"
packedMessageDescriptor _
= "\n\
\\DC2DebugLevelResponse\DC2\US\n\
\\vsub_systems\CAN\SOH \SOH(\tR\n\
\subSystems"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
subSystems__field_descriptor
= Data.ProtoLens.FieldDescriptor
"sub_systems"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"subSystems")) ::
Data.ProtoLens.FieldDescriptor DebugLevelResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, subSystems__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_DebugLevelResponse'_unknownFields
(\ x__ y__ -> x__ {_DebugLevelResponse'_unknownFields = y__})
defMessage
= DebugLevelResponse'_constructor
{_DebugLevelResponse'subSystems = Data.ProtoLens.fieldDefault,
_DebugLevelResponse'_unknownFields = []}
parseMessage
= let
loop ::
DebugLevelResponse
-> Data.ProtoLens.Encoding.Bytes.Parser DebugLevelResponse
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))
"sub_systems"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"subSystems") 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) "DebugLevelResponse"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"subSystems") _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 DebugLevelResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_DebugLevelResponse'_unknownFields x__)
(Control.DeepSeq.deepseq (_DebugLevelResponse'subSystems x__) ())
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.failedPaymentsOnly' @:: Lens' DeleteAllPaymentsRequest Prelude.Bool@
* 'Proto.Lnrpc.Ln1_Fields.failedHtlcsOnly' @:: Lens' DeleteAllPaymentsRequest Prelude.Bool@ -}
data DeleteAllPaymentsRequest
= DeleteAllPaymentsRequest'_constructor {_DeleteAllPaymentsRequest'failedPaymentsOnly :: !Prelude.Bool,
_DeleteAllPaymentsRequest'failedHtlcsOnly :: !Prelude.Bool,
_DeleteAllPaymentsRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show DeleteAllPaymentsRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out DeleteAllPaymentsRequest
instance Data.ProtoLens.Field.HasField DeleteAllPaymentsRequest "failedPaymentsOnly" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_DeleteAllPaymentsRequest'failedPaymentsOnly
(\ x__ y__
-> x__ {_DeleteAllPaymentsRequest'failedPaymentsOnly = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField DeleteAllPaymentsRequest "failedHtlcsOnly" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_DeleteAllPaymentsRequest'failedHtlcsOnly
(\ x__ y__
-> x__ {_DeleteAllPaymentsRequest'failedHtlcsOnly = y__}))
Prelude.id
instance Data.ProtoLens.Message DeleteAllPaymentsRequest where
messageName _ = Data.Text.pack "lnrpc.DeleteAllPaymentsRequest"
packedMessageDescriptor _
= "\n\
\\CANDeleteAllPaymentsRequest\DC20\n\
\\DC4failed_payments_only\CAN\SOH \SOH(\bR\DC2failedPaymentsOnly\DC2*\n\
\\DC1failed_htlcs_only\CAN\STX \SOH(\bR\SIfailedHtlcsOnly"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
failedPaymentsOnly__field_descriptor
= Data.ProtoLens.FieldDescriptor
"failed_payments_only"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"failedPaymentsOnly")) ::
Data.ProtoLens.FieldDescriptor DeleteAllPaymentsRequest
failedHtlcsOnly__field_descriptor
= Data.ProtoLens.FieldDescriptor
"failed_htlcs_only"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"failedHtlcsOnly")) ::
Data.ProtoLens.FieldDescriptor DeleteAllPaymentsRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, failedPaymentsOnly__field_descriptor),
(Data.ProtoLens.Tag 2, failedHtlcsOnly__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_DeleteAllPaymentsRequest'_unknownFields
(\ x__ y__ -> x__ {_DeleteAllPaymentsRequest'_unknownFields = y__})
defMessage
= DeleteAllPaymentsRequest'_constructor
{_DeleteAllPaymentsRequest'failedPaymentsOnly = Data.ProtoLens.fieldDefault,
_DeleteAllPaymentsRequest'failedHtlcsOnly = Data.ProtoLens.fieldDefault,
_DeleteAllPaymentsRequest'_unknownFields = []}
parseMessage
= let
loop ::
DeleteAllPaymentsRequest
-> Data.ProtoLens.Encoding.Bytes.Parser DeleteAllPaymentsRequest
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)
"failed_payments_only"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"failedPaymentsOnly") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"failed_htlcs_only"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"failedHtlcsOnly") 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) "DeleteAllPaymentsRequest"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"failedPaymentsOnly") _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 (\ b -> if b then 1 else 0)
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"failedHtlcsOnly") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt (\ b -> if b then 1 else 0)
_v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData DeleteAllPaymentsRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_DeleteAllPaymentsRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_DeleteAllPaymentsRequest'failedPaymentsOnly x__)
(Control.DeepSeq.deepseq
(_DeleteAllPaymentsRequest'failedHtlcsOnly x__) ()))
{- | Fields :
-}
data DeleteAllPaymentsResponse
= DeleteAllPaymentsResponse'_constructor {_DeleteAllPaymentsResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show DeleteAllPaymentsResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out DeleteAllPaymentsResponse
instance Data.ProtoLens.Message DeleteAllPaymentsResponse where
messageName _ = Data.Text.pack "lnrpc.DeleteAllPaymentsResponse"
packedMessageDescriptor _
= "\n\
\\EMDeleteAllPaymentsResponse"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag = let in Data.Map.fromList []
unknownFields
= Lens.Family2.Unchecked.lens
_DeleteAllPaymentsResponse'_unknownFields
(\ x__ y__
-> x__ {_DeleteAllPaymentsResponse'_unknownFields = y__})
defMessage
= DeleteAllPaymentsResponse'_constructor
{_DeleteAllPaymentsResponse'_unknownFields = []}
parseMessage
= let
loop ::
DeleteAllPaymentsResponse
-> Data.ProtoLens.Encoding.Bytes.Parser DeleteAllPaymentsResponse
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 {
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) "DeleteAllPaymentsResponse"
buildMessage
= \ _x
-> Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
instance Control.DeepSeq.NFData DeleteAllPaymentsResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_DeleteAllPaymentsResponse'_unknownFields x__) ()
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.rootKeyId' @:: Lens' DeleteMacaroonIDRequest Data.Word.Word64@ -}
data DeleteMacaroonIDRequest
= DeleteMacaroonIDRequest'_constructor {_DeleteMacaroonIDRequest'rootKeyId :: !Data.Word.Word64,
_DeleteMacaroonIDRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show DeleteMacaroonIDRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out DeleteMacaroonIDRequest
instance Data.ProtoLens.Field.HasField DeleteMacaroonIDRequest "rootKeyId" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_DeleteMacaroonIDRequest'rootKeyId
(\ x__ y__ -> x__ {_DeleteMacaroonIDRequest'rootKeyId = y__}))
Prelude.id
instance Data.ProtoLens.Message DeleteMacaroonIDRequest where
messageName _ = Data.Text.pack "lnrpc.DeleteMacaroonIDRequest"
packedMessageDescriptor _
= "\n\
\\ETBDeleteMacaroonIDRequest\DC2\RS\n\
\\vroot_key_id\CAN\SOH \SOH(\EOTR\trootKeyId"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
rootKeyId__field_descriptor
= Data.ProtoLens.FieldDescriptor
"root_key_id"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"rootKeyId")) ::
Data.ProtoLens.FieldDescriptor DeleteMacaroonIDRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, rootKeyId__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_DeleteMacaroonIDRequest'_unknownFields
(\ x__ y__ -> x__ {_DeleteMacaroonIDRequest'_unknownFields = y__})
defMessage
= DeleteMacaroonIDRequest'_constructor
{_DeleteMacaroonIDRequest'rootKeyId = Data.ProtoLens.fieldDefault,
_DeleteMacaroonIDRequest'_unknownFields = []}
parseMessage
= let
loop ::
DeleteMacaroonIDRequest
-> Data.ProtoLens.Encoding.Bytes.Parser DeleteMacaroonIDRequest
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 "root_key_id"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"rootKeyId") 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) "DeleteMacaroonIDRequest"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"rootKeyId") _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 DeleteMacaroonIDRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_DeleteMacaroonIDRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_DeleteMacaroonIDRequest'rootKeyId x__) ())
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.deleted' @:: Lens' DeleteMacaroonIDResponse Prelude.Bool@ -}
data DeleteMacaroonIDResponse
= DeleteMacaroonIDResponse'_constructor {_DeleteMacaroonIDResponse'deleted :: !Prelude.Bool,
_DeleteMacaroonIDResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show DeleteMacaroonIDResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out DeleteMacaroonIDResponse
instance Data.ProtoLens.Field.HasField DeleteMacaroonIDResponse "deleted" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_DeleteMacaroonIDResponse'deleted
(\ x__ y__ -> x__ {_DeleteMacaroonIDResponse'deleted = y__}))
Prelude.id
instance Data.ProtoLens.Message DeleteMacaroonIDResponse where
messageName _ = Data.Text.pack "lnrpc.DeleteMacaroonIDResponse"
packedMessageDescriptor _
= "\n\
\\CANDeleteMacaroonIDResponse\DC2\CAN\n\
\\adeleted\CAN\SOH \SOH(\bR\adeleted"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
deleted__field_descriptor
= Data.ProtoLens.FieldDescriptor
"deleted"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"deleted")) ::
Data.ProtoLens.FieldDescriptor DeleteMacaroonIDResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, deleted__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_DeleteMacaroonIDResponse'_unknownFields
(\ x__ y__ -> x__ {_DeleteMacaroonIDResponse'_unknownFields = y__})
defMessage
= DeleteMacaroonIDResponse'_constructor
{_DeleteMacaroonIDResponse'deleted = Data.ProtoLens.fieldDefault,
_DeleteMacaroonIDResponse'_unknownFields = []}
parseMessage
= let
loop ::
DeleteMacaroonIDResponse
-> Data.ProtoLens.Encoding.Bytes.Parser DeleteMacaroonIDResponse
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)
"deleted"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"deleted") 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) "DeleteMacaroonIDResponse"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"deleted") _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 (\ b -> if b then 1 else 0)
_v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData DeleteMacaroonIDResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_DeleteMacaroonIDResponse'_unknownFields x__)
(Control.DeepSeq.deepseq
(_DeleteMacaroonIDResponse'deleted x__) ())
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.paymentHash' @:: Lens' DeletePaymentRequest Data.ByteString.ByteString@
* 'Proto.Lnrpc.Ln1_Fields.failedHtlcsOnly' @:: Lens' DeletePaymentRequest Prelude.Bool@ -}
data DeletePaymentRequest
= DeletePaymentRequest'_constructor {_DeletePaymentRequest'paymentHash :: !Data.ByteString.ByteString,
_DeletePaymentRequest'failedHtlcsOnly :: !Prelude.Bool,
_DeletePaymentRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show DeletePaymentRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out DeletePaymentRequest
instance Data.ProtoLens.Field.HasField DeletePaymentRequest "paymentHash" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_DeletePaymentRequest'paymentHash
(\ x__ y__ -> x__ {_DeletePaymentRequest'paymentHash = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField DeletePaymentRequest "failedHtlcsOnly" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_DeletePaymentRequest'failedHtlcsOnly
(\ x__ y__ -> x__ {_DeletePaymentRequest'failedHtlcsOnly = y__}))
Prelude.id
instance Data.ProtoLens.Message DeletePaymentRequest where
messageName _ = Data.Text.pack "lnrpc.DeletePaymentRequest"
packedMessageDescriptor _
= "\n\
\\DC4DeletePaymentRequest\DC2!\n\
\\fpayment_hash\CAN\SOH \SOH(\fR\vpaymentHash\DC2*\n\
\\DC1failed_htlcs_only\CAN\STX \SOH(\bR\SIfailedHtlcsOnly"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
paymentHash__field_descriptor
= Data.ProtoLens.FieldDescriptor
"payment_hash"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"paymentHash")) ::
Data.ProtoLens.FieldDescriptor DeletePaymentRequest
failedHtlcsOnly__field_descriptor
= Data.ProtoLens.FieldDescriptor
"failed_htlcs_only"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"failedHtlcsOnly")) ::
Data.ProtoLens.FieldDescriptor DeletePaymentRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, paymentHash__field_descriptor),
(Data.ProtoLens.Tag 2, failedHtlcsOnly__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_DeletePaymentRequest'_unknownFields
(\ x__ y__ -> x__ {_DeletePaymentRequest'_unknownFields = y__})
defMessage
= DeletePaymentRequest'_constructor
{_DeletePaymentRequest'paymentHash = Data.ProtoLens.fieldDefault,
_DeletePaymentRequest'failedHtlcsOnly = Data.ProtoLens.fieldDefault,
_DeletePaymentRequest'_unknownFields = []}
parseMessage
= let
loop ::
DeletePaymentRequest
-> Data.ProtoLens.Encoding.Bytes.Parser DeletePaymentRequest
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))
"payment_hash"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"paymentHash") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"failed_htlcs_only"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"failedHtlcsOnly") 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) "DeletePaymentRequest"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"paymentHash") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"failedHtlcsOnly") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt (\ b -> if b then 1 else 0)
_v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData DeletePaymentRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_DeletePaymentRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_DeletePaymentRequest'paymentHash x__)
(Control.DeepSeq.deepseq
(_DeletePaymentRequest'failedHtlcsOnly x__) ()))
{- | Fields :
-}
data DeletePaymentResponse
= DeletePaymentResponse'_constructor {_DeletePaymentResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show DeletePaymentResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out DeletePaymentResponse
instance Data.ProtoLens.Message DeletePaymentResponse where
messageName _ = Data.Text.pack "lnrpc.DeletePaymentResponse"
packedMessageDescriptor _
= "\n\
\\NAKDeletePaymentResponse"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag = let in Data.Map.fromList []
unknownFields
= Lens.Family2.Unchecked.lens
_DeletePaymentResponse'_unknownFields
(\ x__ y__ -> x__ {_DeletePaymentResponse'_unknownFields = y__})
defMessage
= DeletePaymentResponse'_constructor
{_DeletePaymentResponse'_unknownFields = []}
parseMessage
= let
loop ::
DeletePaymentResponse
-> Data.ProtoLens.Encoding.Bytes.Parser DeletePaymentResponse
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 {
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) "DeletePaymentResponse"
buildMessage
= \ _x
-> Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
instance Control.DeepSeq.NFData DeletePaymentResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_DeletePaymentResponse'_unknownFields x__) ()
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.chanPoint' @:: Lens' ExportChannelBackupRequest Proto.Lnrpc.Ln0.ChannelPoint@
* 'Proto.Lnrpc.Ln1_Fields.maybe'chanPoint' @:: Lens' ExportChannelBackupRequest (Prelude.Maybe Proto.Lnrpc.Ln0.ChannelPoint)@ -}
data ExportChannelBackupRequest
= ExportChannelBackupRequest'_constructor {_ExportChannelBackupRequest'chanPoint :: !(Prelude.Maybe Proto.Lnrpc.Ln0.ChannelPoint),
_ExportChannelBackupRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ExportChannelBackupRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ExportChannelBackupRequest
instance Data.ProtoLens.Field.HasField ExportChannelBackupRequest "chanPoint" Proto.Lnrpc.Ln0.ChannelPoint where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ExportChannelBackupRequest'chanPoint
(\ x__ y__ -> x__ {_ExportChannelBackupRequest'chanPoint = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ExportChannelBackupRequest "maybe'chanPoint" (Prelude.Maybe Proto.Lnrpc.Ln0.ChannelPoint) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ExportChannelBackupRequest'chanPoint
(\ x__ y__ -> x__ {_ExportChannelBackupRequest'chanPoint = y__}))
Prelude.id
instance Data.ProtoLens.Message ExportChannelBackupRequest where
messageName _ = Data.Text.pack "lnrpc.ExportChannelBackupRequest"
packedMessageDescriptor _
= "\n\
\\SUBExportChannelBackupRequest\DC22\n\
\\n\
\chan_point\CAN\SOH \SOH(\v2\DC3.lnrpc.ChannelPointR\tchanPoint"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
chanPoint__field_descriptor
= Data.ProtoLens.FieldDescriptor
"chan_point"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Lnrpc.Ln0.ChannelPoint)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'chanPoint")) ::
Data.ProtoLens.FieldDescriptor ExportChannelBackupRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, chanPoint__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ExportChannelBackupRequest'_unknownFields
(\ x__ y__
-> x__ {_ExportChannelBackupRequest'_unknownFields = y__})
defMessage
= ExportChannelBackupRequest'_constructor
{_ExportChannelBackupRequest'chanPoint = Prelude.Nothing,
_ExportChannelBackupRequest'_unknownFields = []}
parseMessage
= let
loop ::
ExportChannelBackupRequest
-> Data.ProtoLens.Encoding.Bytes.Parser ExportChannelBackupRequest
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)
"chan_point"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"chanPoint") 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) "ExportChannelBackupRequest"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view
(Data.ProtoLens.Field.field @"maybe'chanPoint") _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 ExportChannelBackupRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ExportChannelBackupRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_ExportChannelBackupRequest'chanPoint x__) ())
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.outpoint' @:: Lens' FailedUpdate Proto.Lnrpc.Ln0.OutPoint@
* 'Proto.Lnrpc.Ln1_Fields.maybe'outpoint' @:: Lens' FailedUpdate (Prelude.Maybe Proto.Lnrpc.Ln0.OutPoint)@
* 'Proto.Lnrpc.Ln1_Fields.reason' @:: Lens' FailedUpdate UpdateFailure@
* 'Proto.Lnrpc.Ln1_Fields.updateError' @:: Lens' FailedUpdate Data.Text.Text@ -}
data FailedUpdate
= FailedUpdate'_constructor {_FailedUpdate'outpoint :: !(Prelude.Maybe Proto.Lnrpc.Ln0.OutPoint),
_FailedUpdate'reason :: !UpdateFailure,
_FailedUpdate'updateError :: !Data.Text.Text,
_FailedUpdate'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show FailedUpdate where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out FailedUpdate
instance Data.ProtoLens.Field.HasField FailedUpdate "outpoint" Proto.Lnrpc.Ln0.OutPoint where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FailedUpdate'outpoint
(\ x__ y__ -> x__ {_FailedUpdate'outpoint = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FailedUpdate "maybe'outpoint" (Prelude.Maybe Proto.Lnrpc.Ln0.OutPoint) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FailedUpdate'outpoint
(\ x__ y__ -> x__ {_FailedUpdate'outpoint = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField FailedUpdate "reason" UpdateFailure where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FailedUpdate'reason
(\ x__ y__ -> x__ {_FailedUpdate'reason = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField FailedUpdate "updateError" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FailedUpdate'updateError
(\ x__ y__ -> x__ {_FailedUpdate'updateError = y__}))
Prelude.id
instance Data.ProtoLens.Message FailedUpdate where
messageName _ = Data.Text.pack "lnrpc.FailedUpdate"
packedMessageDescriptor _
= "\n\
\\fFailedUpdate\DC2+\n\
\\boutpoint\CAN\SOH \SOH(\v2\SI.lnrpc.OutPointR\boutpoint\DC2,\n\
\\ACKreason\CAN\STX \SOH(\SO2\DC4.lnrpc.UpdateFailureR\ACKreason\DC2!\n\
\\fupdate_error\CAN\ETX \SOH(\tR\vupdateError"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
outpoint__field_descriptor
= Data.ProtoLens.FieldDescriptor
"outpoint"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Lnrpc.Ln0.OutPoint)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'outpoint")) ::
Data.ProtoLens.FieldDescriptor FailedUpdate
reason__field_descriptor
= Data.ProtoLens.FieldDescriptor
"reason"
(Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor UpdateFailure)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"reason")) ::
Data.ProtoLens.FieldDescriptor FailedUpdate
updateError__field_descriptor
= Data.ProtoLens.FieldDescriptor
"update_error"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"updateError")) ::
Data.ProtoLens.FieldDescriptor FailedUpdate
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, outpoint__field_descriptor),
(Data.ProtoLens.Tag 2, reason__field_descriptor),
(Data.ProtoLens.Tag 3, updateError__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_FailedUpdate'_unknownFields
(\ x__ y__ -> x__ {_FailedUpdate'_unknownFields = y__})
defMessage
= FailedUpdate'_constructor
{_FailedUpdate'outpoint = Prelude.Nothing,
_FailedUpdate'reason = Data.ProtoLens.fieldDefault,
_FailedUpdate'updateError = Data.ProtoLens.fieldDefault,
_FailedUpdate'_unknownFields = []}
parseMessage
= let
loop ::
FailedUpdate -> Data.ProtoLens.Encoding.Bytes.Parser FailedUpdate
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)
"outpoint"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"outpoint") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.toEnum
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt))
"reason"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"reason") 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))
"update_error"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"updateError") 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) "FailedUpdate"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'outpoint") _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.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"reason") _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.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"updateError") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(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 FailedUpdate where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_FailedUpdate'_unknownFields x__)
(Control.DeepSeq.deepseq
(_FailedUpdate'outpoint x__)
(Control.DeepSeq.deepseq
(_FailedUpdate'reason x__)
(Control.DeepSeq.deepseq (_FailedUpdate'updateError x__) ())))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.code' @:: Lens' Failure Failure'FailureCode@
* 'Proto.Lnrpc.Ln1_Fields.channelUpdate' @:: Lens' Failure ChannelUpdate@
* 'Proto.Lnrpc.Ln1_Fields.maybe'channelUpdate' @:: Lens' Failure (Prelude.Maybe ChannelUpdate)@
* 'Proto.Lnrpc.Ln1_Fields.htlcMsat' @:: Lens' Failure Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.onionSha256' @:: Lens' Failure Data.ByteString.ByteString@
* 'Proto.Lnrpc.Ln1_Fields.cltvExpiry' @:: Lens' Failure Data.Word.Word32@
* 'Proto.Lnrpc.Ln1_Fields.flags' @:: Lens' Failure Data.Word.Word32@
* 'Proto.Lnrpc.Ln1_Fields.failureSourceIndex' @:: Lens' Failure Data.Word.Word32@
* 'Proto.Lnrpc.Ln1_Fields.height' @:: Lens' Failure Data.Word.Word32@ -}
data Failure
= Failure'_constructor {_Failure'code :: !Failure'FailureCode,
_Failure'channelUpdate :: !(Prelude.Maybe ChannelUpdate),
_Failure'htlcMsat :: !Data.Word.Word64,
_Failure'onionSha256 :: !Data.ByteString.ByteString,
_Failure'cltvExpiry :: !Data.Word.Word32,
_Failure'flags :: !Data.Word.Word32,
_Failure'failureSourceIndex :: !Data.Word.Word32,
_Failure'height :: !Data.Word.Word32,
_Failure'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show Failure where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out Failure
instance Data.ProtoLens.Field.HasField Failure "code" Failure'FailureCode where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Failure'code (\ x__ y__ -> x__ {_Failure'code = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Failure "channelUpdate" ChannelUpdate where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Failure'channelUpdate
(\ x__ y__ -> x__ {_Failure'channelUpdate = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Failure "maybe'channelUpdate" (Prelude.Maybe ChannelUpdate) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Failure'channelUpdate
(\ x__ y__ -> x__ {_Failure'channelUpdate = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Failure "htlcMsat" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Failure'htlcMsat (\ x__ y__ -> x__ {_Failure'htlcMsat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Failure "onionSha256" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Failure'onionSha256
(\ x__ y__ -> x__ {_Failure'onionSha256 = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Failure "cltvExpiry" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Failure'cltvExpiry (\ x__ y__ -> x__ {_Failure'cltvExpiry = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Failure "flags" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Failure'flags (\ x__ y__ -> x__ {_Failure'flags = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Failure "failureSourceIndex" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Failure'failureSourceIndex
(\ x__ y__ -> x__ {_Failure'failureSourceIndex = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Failure "height" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Failure'height (\ x__ y__ -> x__ {_Failure'height = y__}))
Prelude.id
instance Data.ProtoLens.Message Failure where
messageName _ = Data.Text.pack "lnrpc.Failure"
packedMessageDescriptor _
= "\n\
\\aFailure\DC2.\n\
\\EOTcode\CAN\SOH \SOH(\SO2\SUB.lnrpc.Failure.FailureCodeR\EOTcode\DC2;\n\
\\SOchannel_update\CAN\ETX \SOH(\v2\DC4.lnrpc.ChannelUpdateR\rchannelUpdate\DC2\ESC\n\
\\thtlc_msat\CAN\EOT \SOH(\EOTR\bhtlcMsat\DC2\"\n\
\\ronion_sha_256\CAN\ENQ \SOH(\fR\vonionSha256\DC2\US\n\
\\vcltv_expiry\CAN\ACK \SOH(\rR\n\
\cltvExpiry\DC2\DC4\n\
\\ENQflags\CAN\a \SOH(\rR\ENQflags\DC20\n\
\\DC4failure_source_index\CAN\b \SOH(\rR\DC2failureSourceIndex\DC2\SYN\n\
\\ACKheight\CAN\t \SOH(\rR\ACKheight\"\239\ENQ\n\
\\vFailureCode\DC2\f\n\
\\bRESERVED\DLE\NUL\DC2(\n\
\$INCORRECT_OR_UNKNOWN_PAYMENT_DETAILS\DLE\SOH\DC2\FS\n\
\\CANINCORRECT_PAYMENT_AMOUNT\DLE\STX\DC2\US\n\
\\ESCFINAL_INCORRECT_CLTV_EXPIRY\DLE\ETX\DC2\US\n\
\\ESCFINAL_INCORRECT_HTLC_AMOUNT\DLE\EOT\DC2\EM\n\
\\NAKFINAL_EXPIRY_TOO_SOON\DLE\ENQ\DC2\DC1\n\
\\rINVALID_REALM\DLE\ACK\DC2\DC3\n\
\\SIEXPIRY_TOO_SOON\DLE\a\DC2\EM\n\
\\NAKINVALID_ONION_VERSION\DLE\b\DC2\SYN\n\
\\DC2INVALID_ONION_HMAC\DLE\t\DC2\NAK\n\
\\DC1INVALID_ONION_KEY\DLE\n\
\\DC2\CAN\n\
\\DC4AMOUNT_BELOW_MINIMUM\DLE\v\DC2\DC4\n\
\\DLEFEE_INSUFFICIENT\DLE\f\DC2\EM\n\
\\NAKINCORRECT_CLTV_EXPIRY\DLE\r\DC2\DC4\n\
\\DLECHANNEL_DISABLED\DLE\SO\DC2\GS\n\
\\EMTEMPORARY_CHANNEL_FAILURE\DLE\SI\DC2!\n\
\\GSREQUIRED_NODE_FEATURE_MISSING\DLE\DLE\DC2$\n\
\ REQUIRED_CHANNEL_FEATURE_MISSING\DLE\DC1\DC2\NAK\n\
\\DC1UNKNOWN_NEXT_PEER\DLE\DC2\DC2\SUB\n\
\\SYNTEMPORARY_NODE_FAILURE\DLE\DC3\DC2\SUB\n\
\\SYNPERMANENT_NODE_FAILURE\DLE\DC4\DC2\GS\n\
\\EMPERMANENT_CHANNEL_FAILURE\DLE\NAK\DC2\DC2\n\
\\SOEXPIRY_TOO_FAR\DLE\SYN\DC2\SI\n\
\\vMPP_TIMEOUT\DLE\ETB\DC2\EM\n\
\\NAKINVALID_ONION_PAYLOAD\DLE\CAN\DC2\NAK\n\
\\DLEINTERNAL_FAILURE\DLE\229\a\DC2\DC4\n\
\\SIUNKNOWN_FAILURE\DLE\230\a\DC2\ETB\n\
\\DC2UNREADABLE_FAILURE\DLE\231\aJ\EOT\b\STX\DLE\ETX"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
code__field_descriptor
= Data.ProtoLens.FieldDescriptor
"code"
(Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Failure'FailureCode)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"code")) ::
Data.ProtoLens.FieldDescriptor Failure
channelUpdate__field_descriptor
= Data.ProtoLens.FieldDescriptor
"channel_update"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ChannelUpdate)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'channelUpdate")) ::
Data.ProtoLens.FieldDescriptor Failure
htlcMsat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"htlc_msat"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"htlcMsat")) ::
Data.ProtoLens.FieldDescriptor Failure
onionSha256__field_descriptor
= Data.ProtoLens.FieldDescriptor
"onion_sha_256"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"onionSha256")) ::
Data.ProtoLens.FieldDescriptor Failure
cltvExpiry__field_descriptor
= Data.ProtoLens.FieldDescriptor
"cltv_expiry"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"cltvExpiry")) ::
Data.ProtoLens.FieldDescriptor Failure
flags__field_descriptor
= Data.ProtoLens.FieldDescriptor
"flags"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"flags")) ::
Data.ProtoLens.FieldDescriptor Failure
failureSourceIndex__field_descriptor
= Data.ProtoLens.FieldDescriptor
"failure_source_index"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"failureSourceIndex")) ::
Data.ProtoLens.FieldDescriptor Failure
height__field_descriptor
= Data.ProtoLens.FieldDescriptor
"height"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"height")) ::
Data.ProtoLens.FieldDescriptor Failure
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, code__field_descriptor),
(Data.ProtoLens.Tag 3, channelUpdate__field_descriptor),
(Data.ProtoLens.Tag 4, htlcMsat__field_descriptor),
(Data.ProtoLens.Tag 5, onionSha256__field_descriptor),
(Data.ProtoLens.Tag 6, cltvExpiry__field_descriptor),
(Data.ProtoLens.Tag 7, flags__field_descriptor),
(Data.ProtoLens.Tag 8, failureSourceIndex__field_descriptor),
(Data.ProtoLens.Tag 9, height__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_Failure'_unknownFields
(\ x__ y__ -> x__ {_Failure'_unknownFields = y__})
defMessage
= Failure'_constructor
{_Failure'code = Data.ProtoLens.fieldDefault,
_Failure'channelUpdate = Prelude.Nothing,
_Failure'htlcMsat = Data.ProtoLens.fieldDefault,
_Failure'onionSha256 = Data.ProtoLens.fieldDefault,
_Failure'cltvExpiry = Data.ProtoLens.fieldDefault,
_Failure'flags = Data.ProtoLens.fieldDefault,
_Failure'failureSourceIndex = Data.ProtoLens.fieldDefault,
_Failure'height = Data.ProtoLens.fieldDefault,
_Failure'_unknownFields = []}
parseMessage
= let
loop :: Failure -> Data.ProtoLens.Encoding.Bytes.Parser Failure
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.toEnum
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt))
"code"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"code") 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)
"channel_update"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"channelUpdate") y x)
32
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "htlc_msat"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"htlcMsat") y x)
42
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"onion_sha_256"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"onionSha256") y x)
48
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"cltv_expiry"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"cltvExpiry") y x)
56
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"flags"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"flags") y x)
64
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"failure_source_index"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"failureSourceIndex") y x)
72
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"height"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"height") y x)
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do loop Data.ProtoLens.defMessage) "Failure"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"code") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
((Prelude..)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral)
Prelude.fromEnum _v))
((Data.Monoid.<>)
(case
Lens.Family2.view
(Data.ProtoLens.Field.field @"maybe'channelUpdate") _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.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"htlcMsat") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 32)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"onionSha256") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 42)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"cltvExpiry") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 48)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral
_v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"flags") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 56)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"failureSourceIndex") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 64)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"height") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 72)
((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 Failure where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_Failure'_unknownFields x__)
(Control.DeepSeq.deepseq
(_Failure'code x__)
(Control.DeepSeq.deepseq
(_Failure'channelUpdate x__)
(Control.DeepSeq.deepseq
(_Failure'htlcMsat x__)
(Control.DeepSeq.deepseq
(_Failure'onionSha256 x__)
(Control.DeepSeq.deepseq
(_Failure'cltvExpiry x__)
(Control.DeepSeq.deepseq
(_Failure'flags x__)
(Control.DeepSeq.deepseq
(_Failure'failureSourceIndex x__)
(Control.DeepSeq.deepseq (_Failure'height x__) ()))))))))
newtype Failure'FailureCode'UnrecognizedValue
= Failure'FailureCode'UnrecognizedValue Data.Int.Int32
deriving stock (Prelude.Eq,
Prelude.Ord,
Prelude.Show,
GHC.Generics.Generic)
instance Text.PrettyPrint.GenericPretty.Out Failure'FailureCode'UnrecognizedValue
data Failure'FailureCode
= Failure'RESERVED |
Failure'INCORRECT_OR_UNKNOWN_PAYMENT_DETAILS |
Failure'INCORRECT_PAYMENT_AMOUNT |
Failure'FINAL_INCORRECT_CLTV_EXPIRY |
Failure'FINAL_INCORRECT_HTLC_AMOUNT |
Failure'FINAL_EXPIRY_TOO_SOON |
Failure'INVALID_REALM |
Failure'EXPIRY_TOO_SOON |
Failure'INVALID_ONION_VERSION |
Failure'INVALID_ONION_HMAC |
Failure'INVALID_ONION_KEY |
Failure'AMOUNT_BELOW_MINIMUM |
Failure'FEE_INSUFFICIENT |
Failure'INCORRECT_CLTV_EXPIRY |
Failure'CHANNEL_DISABLED |
Failure'TEMPORARY_CHANNEL_FAILURE |
Failure'REQUIRED_NODE_FEATURE_MISSING |
Failure'REQUIRED_CHANNEL_FEATURE_MISSING |
Failure'UNKNOWN_NEXT_PEER |
Failure'TEMPORARY_NODE_FAILURE |
Failure'PERMANENT_NODE_FAILURE |
Failure'PERMANENT_CHANNEL_FAILURE |
Failure'EXPIRY_TOO_FAR |
Failure'MPP_TIMEOUT |
Failure'INVALID_ONION_PAYLOAD |
Failure'INTERNAL_FAILURE |
Failure'UNKNOWN_FAILURE |
Failure'UNREADABLE_FAILURE |
Failure'FailureCode'Unrecognized !Failure'FailureCode'UnrecognizedValue
deriving stock (Prelude.Show,
Prelude.Eq,
Prelude.Ord,
GHC.Generics.Generic)
instance Data.ProtoLens.MessageEnum Failure'FailureCode where
maybeToEnum 0 = Prelude.Just Failure'RESERVED
maybeToEnum 1
= Prelude.Just Failure'INCORRECT_OR_UNKNOWN_PAYMENT_DETAILS
maybeToEnum 2 = Prelude.Just Failure'INCORRECT_PAYMENT_AMOUNT
maybeToEnum 3 = Prelude.Just Failure'FINAL_INCORRECT_CLTV_EXPIRY
maybeToEnum 4 = Prelude.Just Failure'FINAL_INCORRECT_HTLC_AMOUNT
maybeToEnum 5 = Prelude.Just Failure'FINAL_EXPIRY_TOO_SOON
maybeToEnum 6 = Prelude.Just Failure'INVALID_REALM
maybeToEnum 7 = Prelude.Just Failure'EXPIRY_TOO_SOON
maybeToEnum 8 = Prelude.Just Failure'INVALID_ONION_VERSION
maybeToEnum 9 = Prelude.Just Failure'INVALID_ONION_HMAC
maybeToEnum 10 = Prelude.Just Failure'INVALID_ONION_KEY
maybeToEnum 11 = Prelude.Just Failure'AMOUNT_BELOW_MINIMUM
maybeToEnum 12 = Prelude.Just Failure'FEE_INSUFFICIENT
maybeToEnum 13 = Prelude.Just Failure'INCORRECT_CLTV_EXPIRY
maybeToEnum 14 = Prelude.Just Failure'CHANNEL_DISABLED
maybeToEnum 15 = Prelude.Just Failure'TEMPORARY_CHANNEL_FAILURE
maybeToEnum 16 = Prelude.Just Failure'REQUIRED_NODE_FEATURE_MISSING
maybeToEnum 17
= Prelude.Just Failure'REQUIRED_CHANNEL_FEATURE_MISSING
maybeToEnum 18 = Prelude.Just Failure'UNKNOWN_NEXT_PEER
maybeToEnum 19 = Prelude.Just Failure'TEMPORARY_NODE_FAILURE
maybeToEnum 20 = Prelude.Just Failure'PERMANENT_NODE_FAILURE
maybeToEnum 21 = Prelude.Just Failure'PERMANENT_CHANNEL_FAILURE
maybeToEnum 22 = Prelude.Just Failure'EXPIRY_TOO_FAR
maybeToEnum 23 = Prelude.Just Failure'MPP_TIMEOUT
maybeToEnum 24 = Prelude.Just Failure'INVALID_ONION_PAYLOAD
maybeToEnum 997 = Prelude.Just Failure'INTERNAL_FAILURE
maybeToEnum 998 = Prelude.Just Failure'UNKNOWN_FAILURE
maybeToEnum 999 = Prelude.Just Failure'UNREADABLE_FAILURE
maybeToEnum k
= Prelude.Just
(Failure'FailureCode'Unrecognized
(Failure'FailureCode'UnrecognizedValue (Prelude.fromIntegral k)))
showEnum Failure'RESERVED = "RESERVED"
showEnum Failure'INCORRECT_OR_UNKNOWN_PAYMENT_DETAILS
= "INCORRECT_OR_UNKNOWN_PAYMENT_DETAILS"
showEnum Failure'INCORRECT_PAYMENT_AMOUNT
= "INCORRECT_PAYMENT_AMOUNT"
showEnum Failure'FINAL_INCORRECT_CLTV_EXPIRY
= "FINAL_INCORRECT_CLTV_EXPIRY"
showEnum Failure'FINAL_INCORRECT_HTLC_AMOUNT
= "FINAL_INCORRECT_HTLC_AMOUNT"
showEnum Failure'FINAL_EXPIRY_TOO_SOON = "FINAL_EXPIRY_TOO_SOON"
showEnum Failure'INVALID_REALM = "INVALID_REALM"
showEnum Failure'EXPIRY_TOO_SOON = "EXPIRY_TOO_SOON"
showEnum Failure'INVALID_ONION_VERSION = "INVALID_ONION_VERSION"
showEnum Failure'INVALID_ONION_HMAC = "INVALID_ONION_HMAC"
showEnum Failure'INVALID_ONION_KEY = "INVALID_ONION_KEY"
showEnum Failure'AMOUNT_BELOW_MINIMUM = "AMOUNT_BELOW_MINIMUM"
showEnum Failure'FEE_INSUFFICIENT = "FEE_INSUFFICIENT"
showEnum Failure'INCORRECT_CLTV_EXPIRY = "INCORRECT_CLTV_EXPIRY"
showEnum Failure'CHANNEL_DISABLED = "CHANNEL_DISABLED"
showEnum Failure'TEMPORARY_CHANNEL_FAILURE
= "TEMPORARY_CHANNEL_FAILURE"
showEnum Failure'REQUIRED_NODE_FEATURE_MISSING
= "REQUIRED_NODE_FEATURE_MISSING"
showEnum Failure'REQUIRED_CHANNEL_FEATURE_MISSING
= "REQUIRED_CHANNEL_FEATURE_MISSING"
showEnum Failure'UNKNOWN_NEXT_PEER = "UNKNOWN_NEXT_PEER"
showEnum Failure'TEMPORARY_NODE_FAILURE = "TEMPORARY_NODE_FAILURE"
showEnum Failure'PERMANENT_NODE_FAILURE = "PERMANENT_NODE_FAILURE"
showEnum Failure'PERMANENT_CHANNEL_FAILURE
= "PERMANENT_CHANNEL_FAILURE"
showEnum Failure'EXPIRY_TOO_FAR = "EXPIRY_TOO_FAR"
showEnum Failure'MPP_TIMEOUT = "MPP_TIMEOUT"
showEnum Failure'INVALID_ONION_PAYLOAD = "INVALID_ONION_PAYLOAD"
showEnum Failure'INTERNAL_FAILURE = "INTERNAL_FAILURE"
showEnum Failure'UNKNOWN_FAILURE = "UNKNOWN_FAILURE"
showEnum Failure'UNREADABLE_FAILURE = "UNREADABLE_FAILURE"
showEnum
(Failure'FailureCode'Unrecognized (Failure'FailureCode'UnrecognizedValue k))
= Prelude.show k
readEnum k
| (Prelude.==) k "RESERVED" = Prelude.Just Failure'RESERVED
| (Prelude.==) k "INCORRECT_OR_UNKNOWN_PAYMENT_DETAILS"
= Prelude.Just Failure'INCORRECT_OR_UNKNOWN_PAYMENT_DETAILS
| (Prelude.==) k "INCORRECT_PAYMENT_AMOUNT"
= Prelude.Just Failure'INCORRECT_PAYMENT_AMOUNT
| (Prelude.==) k "FINAL_INCORRECT_CLTV_EXPIRY"
= Prelude.Just Failure'FINAL_INCORRECT_CLTV_EXPIRY
| (Prelude.==) k "FINAL_INCORRECT_HTLC_AMOUNT"
= Prelude.Just Failure'FINAL_INCORRECT_HTLC_AMOUNT
| (Prelude.==) k "FINAL_EXPIRY_TOO_SOON"
= Prelude.Just Failure'FINAL_EXPIRY_TOO_SOON
| (Prelude.==) k "INVALID_REALM"
= Prelude.Just Failure'INVALID_REALM
| (Prelude.==) k "EXPIRY_TOO_SOON"
= Prelude.Just Failure'EXPIRY_TOO_SOON
| (Prelude.==) k "INVALID_ONION_VERSION"
= Prelude.Just Failure'INVALID_ONION_VERSION
| (Prelude.==) k "INVALID_ONION_HMAC"
= Prelude.Just Failure'INVALID_ONION_HMAC
| (Prelude.==) k "INVALID_ONION_KEY"
= Prelude.Just Failure'INVALID_ONION_KEY
| (Prelude.==) k "AMOUNT_BELOW_MINIMUM"
= Prelude.Just Failure'AMOUNT_BELOW_MINIMUM
| (Prelude.==) k "FEE_INSUFFICIENT"
= Prelude.Just Failure'FEE_INSUFFICIENT
| (Prelude.==) k "INCORRECT_CLTV_EXPIRY"
= Prelude.Just Failure'INCORRECT_CLTV_EXPIRY
| (Prelude.==) k "CHANNEL_DISABLED"
= Prelude.Just Failure'CHANNEL_DISABLED
| (Prelude.==) k "TEMPORARY_CHANNEL_FAILURE"
= Prelude.Just Failure'TEMPORARY_CHANNEL_FAILURE
| (Prelude.==) k "REQUIRED_NODE_FEATURE_MISSING"
= Prelude.Just Failure'REQUIRED_NODE_FEATURE_MISSING
| (Prelude.==) k "REQUIRED_CHANNEL_FEATURE_MISSING"
= Prelude.Just Failure'REQUIRED_CHANNEL_FEATURE_MISSING
| (Prelude.==) k "UNKNOWN_NEXT_PEER"
= Prelude.Just Failure'UNKNOWN_NEXT_PEER
| (Prelude.==) k "TEMPORARY_NODE_FAILURE"
= Prelude.Just Failure'TEMPORARY_NODE_FAILURE
| (Prelude.==) k "PERMANENT_NODE_FAILURE"
= Prelude.Just Failure'PERMANENT_NODE_FAILURE
| (Prelude.==) k "PERMANENT_CHANNEL_FAILURE"
= Prelude.Just Failure'PERMANENT_CHANNEL_FAILURE
| (Prelude.==) k "EXPIRY_TOO_FAR"
= Prelude.Just Failure'EXPIRY_TOO_FAR
| (Prelude.==) k "MPP_TIMEOUT" = Prelude.Just Failure'MPP_TIMEOUT
| (Prelude.==) k "INVALID_ONION_PAYLOAD"
= Prelude.Just Failure'INVALID_ONION_PAYLOAD
| (Prelude.==) k "INTERNAL_FAILURE"
= Prelude.Just Failure'INTERNAL_FAILURE
| (Prelude.==) k "UNKNOWN_FAILURE"
= Prelude.Just Failure'UNKNOWN_FAILURE
| (Prelude.==) k "UNREADABLE_FAILURE"
= Prelude.Just Failure'UNREADABLE_FAILURE
| Prelude.otherwise
= (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum
instance Prelude.Bounded Failure'FailureCode where
minBound = Failure'RESERVED
maxBound = Failure'UNREADABLE_FAILURE
instance Prelude.Enum Failure'FailureCode where
toEnum k__
= Prelude.maybe
(Prelude.error
((Prelude.++)
"toEnum: unknown value for enum FailureCode: " (Prelude.show k__)))
Prelude.id (Data.ProtoLens.maybeToEnum k__)
fromEnum Failure'RESERVED = 0
fromEnum Failure'INCORRECT_OR_UNKNOWN_PAYMENT_DETAILS = 1
fromEnum Failure'INCORRECT_PAYMENT_AMOUNT = 2
fromEnum Failure'FINAL_INCORRECT_CLTV_EXPIRY = 3
fromEnum Failure'FINAL_INCORRECT_HTLC_AMOUNT = 4
fromEnum Failure'FINAL_EXPIRY_TOO_SOON = 5
fromEnum Failure'INVALID_REALM = 6
fromEnum Failure'EXPIRY_TOO_SOON = 7
fromEnum Failure'INVALID_ONION_VERSION = 8
fromEnum Failure'INVALID_ONION_HMAC = 9
fromEnum Failure'INVALID_ONION_KEY = 10
fromEnum Failure'AMOUNT_BELOW_MINIMUM = 11
fromEnum Failure'FEE_INSUFFICIENT = 12
fromEnum Failure'INCORRECT_CLTV_EXPIRY = 13
fromEnum Failure'CHANNEL_DISABLED = 14
fromEnum Failure'TEMPORARY_CHANNEL_FAILURE = 15
fromEnum Failure'REQUIRED_NODE_FEATURE_MISSING = 16
fromEnum Failure'REQUIRED_CHANNEL_FEATURE_MISSING = 17
fromEnum Failure'UNKNOWN_NEXT_PEER = 18
fromEnum Failure'TEMPORARY_NODE_FAILURE = 19
fromEnum Failure'PERMANENT_NODE_FAILURE = 20
fromEnum Failure'PERMANENT_CHANNEL_FAILURE = 21
fromEnum Failure'EXPIRY_TOO_FAR = 22
fromEnum Failure'MPP_TIMEOUT = 23
fromEnum Failure'INVALID_ONION_PAYLOAD = 24
fromEnum Failure'INTERNAL_FAILURE = 997
fromEnum Failure'UNKNOWN_FAILURE = 998
fromEnum Failure'UNREADABLE_FAILURE = 999
fromEnum
(Failure'FailureCode'Unrecognized (Failure'FailureCode'UnrecognizedValue k))
= Prelude.fromIntegral k
succ Failure'UNREADABLE_FAILURE
= Prelude.error
"Failure'FailureCode.succ: bad argument Failure'UNREADABLE_FAILURE. This value would be out of bounds."
succ Failure'RESERVED
= Failure'INCORRECT_OR_UNKNOWN_PAYMENT_DETAILS
succ Failure'INCORRECT_OR_UNKNOWN_PAYMENT_DETAILS
= Failure'INCORRECT_PAYMENT_AMOUNT
succ Failure'INCORRECT_PAYMENT_AMOUNT
= Failure'FINAL_INCORRECT_CLTV_EXPIRY
succ Failure'FINAL_INCORRECT_CLTV_EXPIRY
= Failure'FINAL_INCORRECT_HTLC_AMOUNT
succ Failure'FINAL_INCORRECT_HTLC_AMOUNT
= Failure'FINAL_EXPIRY_TOO_SOON
succ Failure'FINAL_EXPIRY_TOO_SOON = Failure'INVALID_REALM
succ Failure'INVALID_REALM = Failure'EXPIRY_TOO_SOON
succ Failure'EXPIRY_TOO_SOON = Failure'INVALID_ONION_VERSION
succ Failure'INVALID_ONION_VERSION = Failure'INVALID_ONION_HMAC
succ Failure'INVALID_ONION_HMAC = Failure'INVALID_ONION_KEY
succ Failure'INVALID_ONION_KEY = Failure'AMOUNT_BELOW_MINIMUM
succ Failure'AMOUNT_BELOW_MINIMUM = Failure'FEE_INSUFFICIENT
succ Failure'FEE_INSUFFICIENT = Failure'INCORRECT_CLTV_EXPIRY
succ Failure'INCORRECT_CLTV_EXPIRY = Failure'CHANNEL_DISABLED
succ Failure'CHANNEL_DISABLED = Failure'TEMPORARY_CHANNEL_FAILURE
succ Failure'TEMPORARY_CHANNEL_FAILURE
= Failure'REQUIRED_NODE_FEATURE_MISSING
succ Failure'REQUIRED_NODE_FEATURE_MISSING
= Failure'REQUIRED_CHANNEL_FEATURE_MISSING
succ Failure'REQUIRED_CHANNEL_FEATURE_MISSING
= Failure'UNKNOWN_NEXT_PEER
succ Failure'UNKNOWN_NEXT_PEER = Failure'TEMPORARY_NODE_FAILURE
succ Failure'TEMPORARY_NODE_FAILURE
= Failure'PERMANENT_NODE_FAILURE
succ Failure'PERMANENT_NODE_FAILURE
= Failure'PERMANENT_CHANNEL_FAILURE
succ Failure'PERMANENT_CHANNEL_FAILURE = Failure'EXPIRY_TOO_FAR
succ Failure'EXPIRY_TOO_FAR = Failure'MPP_TIMEOUT
succ Failure'MPP_TIMEOUT = Failure'INVALID_ONION_PAYLOAD
succ Failure'INVALID_ONION_PAYLOAD = Failure'INTERNAL_FAILURE
succ Failure'INTERNAL_FAILURE = Failure'UNKNOWN_FAILURE
succ Failure'UNKNOWN_FAILURE = Failure'UNREADABLE_FAILURE
succ (Failure'FailureCode'Unrecognized _)
= Prelude.error
"Failure'FailureCode.succ: bad argument: unrecognized value"
pred Failure'RESERVED
= Prelude.error
"Failure'FailureCode.pred: bad argument Failure'RESERVED. This value would be out of bounds."
pred Failure'INCORRECT_OR_UNKNOWN_PAYMENT_DETAILS
= Failure'RESERVED
pred Failure'INCORRECT_PAYMENT_AMOUNT
= Failure'INCORRECT_OR_UNKNOWN_PAYMENT_DETAILS
pred Failure'FINAL_INCORRECT_CLTV_EXPIRY
= Failure'INCORRECT_PAYMENT_AMOUNT
pred Failure'FINAL_INCORRECT_HTLC_AMOUNT
= Failure'FINAL_INCORRECT_CLTV_EXPIRY
pred Failure'FINAL_EXPIRY_TOO_SOON
= Failure'FINAL_INCORRECT_HTLC_AMOUNT
pred Failure'INVALID_REALM = Failure'FINAL_EXPIRY_TOO_SOON
pred Failure'EXPIRY_TOO_SOON = Failure'INVALID_REALM
pred Failure'INVALID_ONION_VERSION = Failure'EXPIRY_TOO_SOON
pred Failure'INVALID_ONION_HMAC = Failure'INVALID_ONION_VERSION
pred Failure'INVALID_ONION_KEY = Failure'INVALID_ONION_HMAC
pred Failure'AMOUNT_BELOW_MINIMUM = Failure'INVALID_ONION_KEY
pred Failure'FEE_INSUFFICIENT = Failure'AMOUNT_BELOW_MINIMUM
pred Failure'INCORRECT_CLTV_EXPIRY = Failure'FEE_INSUFFICIENT
pred Failure'CHANNEL_DISABLED = Failure'INCORRECT_CLTV_EXPIRY
pred Failure'TEMPORARY_CHANNEL_FAILURE = Failure'CHANNEL_DISABLED
pred Failure'REQUIRED_NODE_FEATURE_MISSING
= Failure'TEMPORARY_CHANNEL_FAILURE
pred Failure'REQUIRED_CHANNEL_FEATURE_MISSING
= Failure'REQUIRED_NODE_FEATURE_MISSING
pred Failure'UNKNOWN_NEXT_PEER
= Failure'REQUIRED_CHANNEL_FEATURE_MISSING
pred Failure'TEMPORARY_NODE_FAILURE = Failure'UNKNOWN_NEXT_PEER
pred Failure'PERMANENT_NODE_FAILURE
= Failure'TEMPORARY_NODE_FAILURE
pred Failure'PERMANENT_CHANNEL_FAILURE
= Failure'PERMANENT_NODE_FAILURE
pred Failure'EXPIRY_TOO_FAR = Failure'PERMANENT_CHANNEL_FAILURE
pred Failure'MPP_TIMEOUT = Failure'EXPIRY_TOO_FAR
pred Failure'INVALID_ONION_PAYLOAD = Failure'MPP_TIMEOUT
pred Failure'INTERNAL_FAILURE = Failure'INVALID_ONION_PAYLOAD
pred Failure'UNKNOWN_FAILURE = Failure'INTERNAL_FAILURE
pred Failure'UNREADABLE_FAILURE = Failure'UNKNOWN_FAILURE
pred (Failure'FailureCode'Unrecognized _)
= Prelude.error
"Failure'FailureCode.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 Failure'FailureCode where
fieldDefault = Failure'RESERVED
instance Control.DeepSeq.NFData Failure'FailureCode where
rnf x__ = Prelude.seq x__ ()
instance Text.PrettyPrint.GenericPretty.Out Failure'FailureCode
{- | Fields :
-}
data FeeReportRequest
= FeeReportRequest'_constructor {_FeeReportRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show FeeReportRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out FeeReportRequest
instance Data.ProtoLens.Message FeeReportRequest where
messageName _ = Data.Text.pack "lnrpc.FeeReportRequest"
packedMessageDescriptor _
= "\n\
\\DLEFeeReportRequest"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag = let in Data.Map.fromList []
unknownFields
= Lens.Family2.Unchecked.lens
_FeeReportRequest'_unknownFields
(\ x__ y__ -> x__ {_FeeReportRequest'_unknownFields = y__})
defMessage
= FeeReportRequest'_constructor
{_FeeReportRequest'_unknownFields = []}
parseMessage
= let
loop ::
FeeReportRequest
-> Data.ProtoLens.Encoding.Bytes.Parser FeeReportRequest
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 {
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) "FeeReportRequest"
buildMessage
= \ _x
-> Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
instance Control.DeepSeq.NFData FeeReportRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_FeeReportRequest'_unknownFields x__) ()
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.channelFees' @:: Lens' FeeReportResponse [ChannelFeeReport]@
* 'Proto.Lnrpc.Ln1_Fields.vec'channelFees' @:: Lens' FeeReportResponse (Data.Vector.Vector ChannelFeeReport)@
* 'Proto.Lnrpc.Ln1_Fields.dayFeeSum' @:: Lens' FeeReportResponse Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.weekFeeSum' @:: Lens' FeeReportResponse Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.monthFeeSum' @:: Lens' FeeReportResponse Data.Word.Word64@ -}
data FeeReportResponse
= FeeReportResponse'_constructor {_FeeReportResponse'channelFees :: !(Data.Vector.Vector ChannelFeeReport),
_FeeReportResponse'dayFeeSum :: !Data.Word.Word64,
_FeeReportResponse'weekFeeSum :: !Data.Word.Word64,
_FeeReportResponse'monthFeeSum :: !Data.Word.Word64,
_FeeReportResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show FeeReportResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out FeeReportResponse
instance Data.ProtoLens.Field.HasField FeeReportResponse "channelFees" [ChannelFeeReport] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FeeReportResponse'channelFees
(\ x__ y__ -> x__ {_FeeReportResponse'channelFees = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField FeeReportResponse "vec'channelFees" (Data.Vector.Vector ChannelFeeReport) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FeeReportResponse'channelFees
(\ x__ y__ -> x__ {_FeeReportResponse'channelFees = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField FeeReportResponse "dayFeeSum" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FeeReportResponse'dayFeeSum
(\ x__ y__ -> x__ {_FeeReportResponse'dayFeeSum = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField FeeReportResponse "weekFeeSum" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FeeReportResponse'weekFeeSum
(\ x__ y__ -> x__ {_FeeReportResponse'weekFeeSum = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField FeeReportResponse "monthFeeSum" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_FeeReportResponse'monthFeeSum
(\ x__ y__ -> x__ {_FeeReportResponse'monthFeeSum = y__}))
Prelude.id
instance Data.ProtoLens.Message FeeReportResponse where
messageName _ = Data.Text.pack "lnrpc.FeeReportResponse"
packedMessageDescriptor _
= "\n\
\\DC1FeeReportResponse\DC2:\n\
\\fchannel_fees\CAN\SOH \ETX(\v2\ETB.lnrpc.ChannelFeeReportR\vchannelFees\DC2\RS\n\
\\vday_fee_sum\CAN\STX \SOH(\EOTR\tdayFeeSum\DC2 \n\
\\fweek_fee_sum\CAN\ETX \SOH(\EOTR\n\
\weekFeeSum\DC2\"\n\
\\rmonth_fee_sum\CAN\EOT \SOH(\EOTR\vmonthFeeSum"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
channelFees__field_descriptor
= Data.ProtoLens.FieldDescriptor
"channel_fees"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ChannelFeeReport)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"channelFees")) ::
Data.ProtoLens.FieldDescriptor FeeReportResponse
dayFeeSum__field_descriptor
= Data.ProtoLens.FieldDescriptor
"day_fee_sum"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"dayFeeSum")) ::
Data.ProtoLens.FieldDescriptor FeeReportResponse
weekFeeSum__field_descriptor
= Data.ProtoLens.FieldDescriptor
"week_fee_sum"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"weekFeeSum")) ::
Data.ProtoLens.FieldDescriptor FeeReportResponse
monthFeeSum__field_descriptor
= Data.ProtoLens.FieldDescriptor
"month_fee_sum"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"monthFeeSum")) ::
Data.ProtoLens.FieldDescriptor FeeReportResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, channelFees__field_descriptor),
(Data.ProtoLens.Tag 2, dayFeeSum__field_descriptor),
(Data.ProtoLens.Tag 3, weekFeeSum__field_descriptor),
(Data.ProtoLens.Tag 4, monthFeeSum__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_FeeReportResponse'_unknownFields
(\ x__ y__ -> x__ {_FeeReportResponse'_unknownFields = y__})
defMessage
= FeeReportResponse'_constructor
{_FeeReportResponse'channelFees = Data.Vector.Generic.empty,
_FeeReportResponse'dayFeeSum = Data.ProtoLens.fieldDefault,
_FeeReportResponse'weekFeeSum = Data.ProtoLens.fieldDefault,
_FeeReportResponse'monthFeeSum = Data.ProtoLens.fieldDefault,
_FeeReportResponse'_unknownFields = []}
parseMessage
= let
loop ::
FeeReportResponse
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ChannelFeeReport
-> Data.ProtoLens.Encoding.Bytes.Parser FeeReportResponse
loop x mutable'channelFees
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'channelFees <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'channelFees)
(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'channelFees") frozen'channelFees
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)
"channel_fees"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'channelFees y)
loop x v
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "day_fee_sum"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"dayFeeSum") y x)
mutable'channelFees
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "week_fee_sum"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"weekFeeSum") y x)
mutable'channelFees
32
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "month_fee_sum"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"monthFeeSum") y x)
mutable'channelFees
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'channelFees
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'channelFees <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'channelFees)
"FeeReportResponse"
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'channelFees") _x))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"dayFeeSum") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"weekFeeSum") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"monthFeeSum") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 32)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))))
instance Control.DeepSeq.NFData FeeReportResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_FeeReportResponse'_unknownFields x__)
(Control.DeepSeq.deepseq
(_FeeReportResponse'channelFees x__)
(Control.DeepSeq.deepseq
(_FeeReportResponse'dayFeeSum x__)
(Control.DeepSeq.deepseq
(_FeeReportResponse'weekFeeSum x__)
(Control.DeepSeq.deepseq
(_FeeReportResponse'monthFeeSum x__) ()))))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.timestamp' @:: Lens' ForwardingEvent Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.chanIdIn' @:: Lens' ForwardingEvent Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.chanIdOut' @:: Lens' ForwardingEvent Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.amtIn' @:: Lens' ForwardingEvent Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.amtOut' @:: Lens' ForwardingEvent Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.fee' @:: Lens' ForwardingEvent Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.feeMsat' @:: Lens' ForwardingEvent Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.amtInMsat' @:: Lens' ForwardingEvent Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.amtOutMsat' @:: Lens' ForwardingEvent Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.timestampNs' @:: Lens' ForwardingEvent Data.Word.Word64@ -}
data ForwardingEvent
= ForwardingEvent'_constructor {_ForwardingEvent'timestamp :: !Data.Word.Word64,
_ForwardingEvent'chanIdIn :: !Data.Word.Word64,
_ForwardingEvent'chanIdOut :: !Data.Word.Word64,
_ForwardingEvent'amtIn :: !Data.Word.Word64,
_ForwardingEvent'amtOut :: !Data.Word.Word64,
_ForwardingEvent'fee :: !Data.Word.Word64,
_ForwardingEvent'feeMsat :: !Data.Word.Word64,
_ForwardingEvent'amtInMsat :: !Data.Word.Word64,
_ForwardingEvent'amtOutMsat :: !Data.Word.Word64,
_ForwardingEvent'timestampNs :: !Data.Word.Word64,
_ForwardingEvent'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ForwardingEvent where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ForwardingEvent
instance Data.ProtoLens.Field.HasField ForwardingEvent "timestamp" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ForwardingEvent'timestamp
(\ x__ y__ -> x__ {_ForwardingEvent'timestamp = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ForwardingEvent "chanIdIn" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ForwardingEvent'chanIdIn
(\ x__ y__ -> x__ {_ForwardingEvent'chanIdIn = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ForwardingEvent "chanIdOut" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ForwardingEvent'chanIdOut
(\ x__ y__ -> x__ {_ForwardingEvent'chanIdOut = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ForwardingEvent "amtIn" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ForwardingEvent'amtIn
(\ x__ y__ -> x__ {_ForwardingEvent'amtIn = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ForwardingEvent "amtOut" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ForwardingEvent'amtOut
(\ x__ y__ -> x__ {_ForwardingEvent'amtOut = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ForwardingEvent "fee" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ForwardingEvent'fee
(\ x__ y__ -> x__ {_ForwardingEvent'fee = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ForwardingEvent "feeMsat" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ForwardingEvent'feeMsat
(\ x__ y__ -> x__ {_ForwardingEvent'feeMsat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ForwardingEvent "amtInMsat" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ForwardingEvent'amtInMsat
(\ x__ y__ -> x__ {_ForwardingEvent'amtInMsat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ForwardingEvent "amtOutMsat" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ForwardingEvent'amtOutMsat
(\ x__ y__ -> x__ {_ForwardingEvent'amtOutMsat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ForwardingEvent "timestampNs" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ForwardingEvent'timestampNs
(\ x__ y__ -> x__ {_ForwardingEvent'timestampNs = y__}))
Prelude.id
instance Data.ProtoLens.Message ForwardingEvent where
messageName _ = Data.Text.pack "lnrpc.ForwardingEvent"
packedMessageDescriptor _
= "\n\
\\SIForwardingEvent\DC2 \n\
\\ttimestamp\CAN\SOH \SOH(\EOTR\ttimestampB\STX\CAN\SOH\DC2 \n\
\\n\
\chan_id_in\CAN\STX \SOH(\EOTR\bchanIdInB\STX0\SOH\DC2\"\n\
\\vchan_id_out\CAN\EOT \SOH(\EOTR\tchanIdOutB\STX0\SOH\DC2\NAK\n\
\\ACKamt_in\CAN\ENQ \SOH(\EOTR\ENQamtIn\DC2\ETB\n\
\\aamt_out\CAN\ACK \SOH(\EOTR\ACKamtOut\DC2\DLE\n\
\\ETXfee\CAN\a \SOH(\EOTR\ETXfee\DC2\EM\n\
\\bfee_msat\CAN\b \SOH(\EOTR\afeeMsat\DC2\RS\n\
\\vamt_in_msat\CAN\t \SOH(\EOTR\tamtInMsat\DC2 \n\
\\famt_out_msat\CAN\n\
\ \SOH(\EOTR\n\
\amtOutMsat\DC2!\n\
\\ftimestamp_ns\CAN\v \SOH(\EOTR\vtimestampNs"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
timestamp__field_descriptor
= Data.ProtoLens.FieldDescriptor
"timestamp"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"timestamp")) ::
Data.ProtoLens.FieldDescriptor ForwardingEvent
chanIdIn__field_descriptor
= Data.ProtoLens.FieldDescriptor
"chan_id_in"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"chanIdIn")) ::
Data.ProtoLens.FieldDescriptor ForwardingEvent
chanIdOut__field_descriptor
= Data.ProtoLens.FieldDescriptor
"chan_id_out"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"chanIdOut")) ::
Data.ProtoLens.FieldDescriptor ForwardingEvent
amtIn__field_descriptor
= Data.ProtoLens.FieldDescriptor
"amt_in"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"amtIn")) ::
Data.ProtoLens.FieldDescriptor ForwardingEvent
amtOut__field_descriptor
= Data.ProtoLens.FieldDescriptor
"amt_out"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"amtOut")) ::
Data.ProtoLens.FieldDescriptor ForwardingEvent
fee__field_descriptor
= Data.ProtoLens.FieldDescriptor
"fee"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"fee")) ::
Data.ProtoLens.FieldDescriptor ForwardingEvent
feeMsat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"fee_msat"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"feeMsat")) ::
Data.ProtoLens.FieldDescriptor ForwardingEvent
amtInMsat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"amt_in_msat"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"amtInMsat")) ::
Data.ProtoLens.FieldDescriptor ForwardingEvent
amtOutMsat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"amt_out_msat"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"amtOutMsat")) ::
Data.ProtoLens.FieldDescriptor ForwardingEvent
timestampNs__field_descriptor
= Data.ProtoLens.FieldDescriptor
"timestamp_ns"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"timestampNs")) ::
Data.ProtoLens.FieldDescriptor ForwardingEvent
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, timestamp__field_descriptor),
(Data.ProtoLens.Tag 2, chanIdIn__field_descriptor),
(Data.ProtoLens.Tag 4, chanIdOut__field_descriptor),
(Data.ProtoLens.Tag 5, amtIn__field_descriptor),
(Data.ProtoLens.Tag 6, amtOut__field_descriptor),
(Data.ProtoLens.Tag 7, fee__field_descriptor),
(Data.ProtoLens.Tag 8, feeMsat__field_descriptor),
(Data.ProtoLens.Tag 9, amtInMsat__field_descriptor),
(Data.ProtoLens.Tag 10, amtOutMsat__field_descriptor),
(Data.ProtoLens.Tag 11, timestampNs__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ForwardingEvent'_unknownFields
(\ x__ y__ -> x__ {_ForwardingEvent'_unknownFields = y__})
defMessage
= ForwardingEvent'_constructor
{_ForwardingEvent'timestamp = Data.ProtoLens.fieldDefault,
_ForwardingEvent'chanIdIn = Data.ProtoLens.fieldDefault,
_ForwardingEvent'chanIdOut = Data.ProtoLens.fieldDefault,
_ForwardingEvent'amtIn = Data.ProtoLens.fieldDefault,
_ForwardingEvent'amtOut = Data.ProtoLens.fieldDefault,
_ForwardingEvent'fee = Data.ProtoLens.fieldDefault,
_ForwardingEvent'feeMsat = Data.ProtoLens.fieldDefault,
_ForwardingEvent'amtInMsat = Data.ProtoLens.fieldDefault,
_ForwardingEvent'amtOutMsat = Data.ProtoLens.fieldDefault,
_ForwardingEvent'timestampNs = Data.ProtoLens.fieldDefault,
_ForwardingEvent'_unknownFields = []}
parseMessage
= let
loop ::
ForwardingEvent
-> Data.ProtoLens.Encoding.Bytes.Parser ForwardingEvent
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 "timestamp"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"timestamp") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "chan_id_in"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"chanIdIn") y x)
32
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "chan_id_out"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"chanIdOut") y x)
40
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "amt_in"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"amtIn") y x)
48
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "amt_out"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"amtOut") y x)
56
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "fee"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"fee") y x)
64
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "fee_msat"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"feeMsat") y x)
72
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "amt_in_msat"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"amtInMsat") y x)
80
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "amt_out_msat"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"amtOutMsat") y x)
88
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "timestamp_ns"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"timestampNs") 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) "ForwardingEvent"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"timestamp") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"chanIdIn") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"chanIdOut") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 32)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"amtIn") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 40)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"amtOut") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 48)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"fee") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 56)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"feeMsat") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 64)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"amtInMsat") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 72)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"amtOutMsat") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 80)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"timestampNs") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 88)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view
Data.ProtoLens.unknownFields _x)))))))))))
instance Control.DeepSeq.NFData ForwardingEvent where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ForwardingEvent'_unknownFields x__)
(Control.DeepSeq.deepseq
(_ForwardingEvent'timestamp x__)
(Control.DeepSeq.deepseq
(_ForwardingEvent'chanIdIn x__)
(Control.DeepSeq.deepseq
(_ForwardingEvent'chanIdOut x__)
(Control.DeepSeq.deepseq
(_ForwardingEvent'amtIn x__)
(Control.DeepSeq.deepseq
(_ForwardingEvent'amtOut x__)
(Control.DeepSeq.deepseq
(_ForwardingEvent'fee x__)
(Control.DeepSeq.deepseq
(_ForwardingEvent'feeMsat x__)
(Control.DeepSeq.deepseq
(_ForwardingEvent'amtInMsat x__)
(Control.DeepSeq.deepseq
(_ForwardingEvent'amtOutMsat x__)
(Control.DeepSeq.deepseq
(_ForwardingEvent'timestampNs x__) ()))))))))))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.startTime' @:: Lens' ForwardingHistoryRequest Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.endTime' @:: Lens' ForwardingHistoryRequest Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.indexOffset' @:: Lens' ForwardingHistoryRequest Data.Word.Word32@
* 'Proto.Lnrpc.Ln1_Fields.numMaxEvents' @:: Lens' ForwardingHistoryRequest Data.Word.Word32@ -}
data ForwardingHistoryRequest
= ForwardingHistoryRequest'_constructor {_ForwardingHistoryRequest'startTime :: !Data.Word.Word64,
_ForwardingHistoryRequest'endTime :: !Data.Word.Word64,
_ForwardingHistoryRequest'indexOffset :: !Data.Word.Word32,
_ForwardingHistoryRequest'numMaxEvents :: !Data.Word.Word32,
_ForwardingHistoryRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ForwardingHistoryRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ForwardingHistoryRequest
instance Data.ProtoLens.Field.HasField ForwardingHistoryRequest "startTime" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ForwardingHistoryRequest'startTime
(\ x__ y__ -> x__ {_ForwardingHistoryRequest'startTime = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ForwardingHistoryRequest "endTime" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ForwardingHistoryRequest'endTime
(\ x__ y__ -> x__ {_ForwardingHistoryRequest'endTime = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ForwardingHistoryRequest "indexOffset" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ForwardingHistoryRequest'indexOffset
(\ x__ y__ -> x__ {_ForwardingHistoryRequest'indexOffset = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ForwardingHistoryRequest "numMaxEvents" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ForwardingHistoryRequest'numMaxEvents
(\ x__ y__ -> x__ {_ForwardingHistoryRequest'numMaxEvents = y__}))
Prelude.id
instance Data.ProtoLens.Message ForwardingHistoryRequest where
messageName _ = Data.Text.pack "lnrpc.ForwardingHistoryRequest"
packedMessageDescriptor _
= "\n\
\\CANForwardingHistoryRequest\DC2\GS\n\
\\n\
\start_time\CAN\SOH \SOH(\EOTR\tstartTime\DC2\EM\n\
\\bend_time\CAN\STX \SOH(\EOTR\aendTime\DC2!\n\
\\findex_offset\CAN\ETX \SOH(\rR\vindexOffset\DC2$\n\
\\SOnum_max_events\CAN\EOT \SOH(\rR\fnumMaxEvents"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
startTime__field_descriptor
= Data.ProtoLens.FieldDescriptor
"start_time"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"startTime")) ::
Data.ProtoLens.FieldDescriptor ForwardingHistoryRequest
endTime__field_descriptor
= Data.ProtoLens.FieldDescriptor
"end_time"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"endTime")) ::
Data.ProtoLens.FieldDescriptor ForwardingHistoryRequest
indexOffset__field_descriptor
= Data.ProtoLens.FieldDescriptor
"index_offset"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"indexOffset")) ::
Data.ProtoLens.FieldDescriptor ForwardingHistoryRequest
numMaxEvents__field_descriptor
= Data.ProtoLens.FieldDescriptor
"num_max_events"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"numMaxEvents")) ::
Data.ProtoLens.FieldDescriptor ForwardingHistoryRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, startTime__field_descriptor),
(Data.ProtoLens.Tag 2, endTime__field_descriptor),
(Data.ProtoLens.Tag 3, indexOffset__field_descriptor),
(Data.ProtoLens.Tag 4, numMaxEvents__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ForwardingHistoryRequest'_unknownFields
(\ x__ y__ -> x__ {_ForwardingHistoryRequest'_unknownFields = y__})
defMessage
= ForwardingHistoryRequest'_constructor
{_ForwardingHistoryRequest'startTime = Data.ProtoLens.fieldDefault,
_ForwardingHistoryRequest'endTime = Data.ProtoLens.fieldDefault,
_ForwardingHistoryRequest'indexOffset = Data.ProtoLens.fieldDefault,
_ForwardingHistoryRequest'numMaxEvents = Data.ProtoLens.fieldDefault,
_ForwardingHistoryRequest'_unknownFields = []}
parseMessage
= let
loop ::
ForwardingHistoryRequest
-> Data.ProtoLens.Encoding.Bytes.Parser ForwardingHistoryRequest
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 "start_time"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"startTime") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "end_time"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"endTime") y x)
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"index_offset"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"indexOffset") y x)
32
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"num_max_events"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"numMaxEvents") 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) "ForwardingHistoryRequest"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"startTime") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"endTime") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"indexOffset") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"numMaxEvents") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 32)
((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 ForwardingHistoryRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ForwardingHistoryRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_ForwardingHistoryRequest'startTime x__)
(Control.DeepSeq.deepseq
(_ForwardingHistoryRequest'endTime x__)
(Control.DeepSeq.deepseq
(_ForwardingHistoryRequest'indexOffset x__)
(Control.DeepSeq.deepseq
(_ForwardingHistoryRequest'numMaxEvents x__) ()))))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.forwardingEvents' @:: Lens' ForwardingHistoryResponse [ForwardingEvent]@
* 'Proto.Lnrpc.Ln1_Fields.vec'forwardingEvents' @:: Lens' ForwardingHistoryResponse (Data.Vector.Vector ForwardingEvent)@
* 'Proto.Lnrpc.Ln1_Fields.lastOffsetIndex' @:: Lens' ForwardingHistoryResponse Data.Word.Word32@ -}
data ForwardingHistoryResponse
= ForwardingHistoryResponse'_constructor {_ForwardingHistoryResponse'forwardingEvents :: !(Data.Vector.Vector ForwardingEvent),
_ForwardingHistoryResponse'lastOffsetIndex :: !Data.Word.Word32,
_ForwardingHistoryResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ForwardingHistoryResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ForwardingHistoryResponse
instance Data.ProtoLens.Field.HasField ForwardingHistoryResponse "forwardingEvents" [ForwardingEvent] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ForwardingHistoryResponse'forwardingEvents
(\ x__ y__
-> x__ {_ForwardingHistoryResponse'forwardingEvents = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField ForwardingHistoryResponse "vec'forwardingEvents" (Data.Vector.Vector ForwardingEvent) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ForwardingHistoryResponse'forwardingEvents
(\ x__ y__
-> x__ {_ForwardingHistoryResponse'forwardingEvents = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ForwardingHistoryResponse "lastOffsetIndex" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ForwardingHistoryResponse'lastOffsetIndex
(\ x__ y__
-> x__ {_ForwardingHistoryResponse'lastOffsetIndex = y__}))
Prelude.id
instance Data.ProtoLens.Message ForwardingHistoryResponse where
messageName _ = Data.Text.pack "lnrpc.ForwardingHistoryResponse"
packedMessageDescriptor _
= "\n\
\\EMForwardingHistoryResponse\DC2C\n\
\\DC1forwarding_events\CAN\SOH \ETX(\v2\SYN.lnrpc.ForwardingEventR\DLEforwardingEvents\DC2*\n\
\\DC1last_offset_index\CAN\STX \SOH(\rR\SIlastOffsetIndex"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
forwardingEvents__field_descriptor
= Data.ProtoLens.FieldDescriptor
"forwarding_events"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ForwardingEvent)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"forwardingEvents")) ::
Data.ProtoLens.FieldDescriptor ForwardingHistoryResponse
lastOffsetIndex__field_descriptor
= Data.ProtoLens.FieldDescriptor
"last_offset_index"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"lastOffsetIndex")) ::
Data.ProtoLens.FieldDescriptor ForwardingHistoryResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, forwardingEvents__field_descriptor),
(Data.ProtoLens.Tag 2, lastOffsetIndex__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ForwardingHistoryResponse'_unknownFields
(\ x__ y__
-> x__ {_ForwardingHistoryResponse'_unknownFields = y__})
defMessage
= ForwardingHistoryResponse'_constructor
{_ForwardingHistoryResponse'forwardingEvents = Data.Vector.Generic.empty,
_ForwardingHistoryResponse'lastOffsetIndex = Data.ProtoLens.fieldDefault,
_ForwardingHistoryResponse'_unknownFields = []}
parseMessage
= let
loop ::
ForwardingHistoryResponse
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ForwardingEvent
-> Data.ProtoLens.Encoding.Bytes.Parser ForwardingHistoryResponse
loop x mutable'forwardingEvents
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'forwardingEvents <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'forwardingEvents)
(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'forwardingEvents")
frozen'forwardingEvents 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)
"forwarding_events"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'forwardingEvents y)
loop x v
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"last_offset_index"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"lastOffsetIndex") y x)
mutable'forwardingEvents
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'forwardingEvents
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'forwardingEvents <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'forwardingEvents)
"ForwardingHistoryResponse"
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'forwardingEvents") _x))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"lastOffsetIndex") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
((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 ForwardingHistoryResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ForwardingHistoryResponse'_unknownFields x__)
(Control.DeepSeq.deepseq
(_ForwardingHistoryResponse'forwardingEvents x__)
(Control.DeepSeq.deepseq
(_ForwardingHistoryResponse'lastOffsetIndex x__) ()))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.attemptId' @:: Lens' HTLCAttempt Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.status' @:: Lens' HTLCAttempt HTLCAttempt'HTLCStatus@
* 'Proto.Lnrpc.Ln1_Fields.route' @:: Lens' HTLCAttempt Proto.Lnrpc.Ln0.Route@
* 'Proto.Lnrpc.Ln1_Fields.maybe'route' @:: Lens' HTLCAttempt (Prelude.Maybe Proto.Lnrpc.Ln0.Route)@
* 'Proto.Lnrpc.Ln1_Fields.attemptTimeNs' @:: Lens' HTLCAttempt Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.resolveTimeNs' @:: Lens' HTLCAttempt Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.failure' @:: Lens' HTLCAttempt Failure@
* 'Proto.Lnrpc.Ln1_Fields.maybe'failure' @:: Lens' HTLCAttempt (Prelude.Maybe Failure)@
* 'Proto.Lnrpc.Ln1_Fields.preimage' @:: Lens' HTLCAttempt Data.ByteString.ByteString@ -}
data HTLCAttempt
= HTLCAttempt'_constructor {_HTLCAttempt'attemptId :: !Data.Word.Word64,
_HTLCAttempt'status :: !HTLCAttempt'HTLCStatus,
_HTLCAttempt'route :: !(Prelude.Maybe Proto.Lnrpc.Ln0.Route),
_HTLCAttempt'attemptTimeNs :: !Data.Int.Int64,
_HTLCAttempt'resolveTimeNs :: !Data.Int.Int64,
_HTLCAttempt'failure :: !(Prelude.Maybe Failure),
_HTLCAttempt'preimage :: !Data.ByteString.ByteString,
_HTLCAttempt'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show HTLCAttempt where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out HTLCAttempt
instance Data.ProtoLens.Field.HasField HTLCAttempt "attemptId" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_HTLCAttempt'attemptId
(\ x__ y__ -> x__ {_HTLCAttempt'attemptId = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField HTLCAttempt "status" HTLCAttempt'HTLCStatus where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_HTLCAttempt'status (\ x__ y__ -> x__ {_HTLCAttempt'status = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField HTLCAttempt "route" Proto.Lnrpc.Ln0.Route where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_HTLCAttempt'route (\ x__ y__ -> x__ {_HTLCAttempt'route = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField HTLCAttempt "maybe'route" (Prelude.Maybe Proto.Lnrpc.Ln0.Route) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_HTLCAttempt'route (\ x__ y__ -> x__ {_HTLCAttempt'route = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField HTLCAttempt "attemptTimeNs" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_HTLCAttempt'attemptTimeNs
(\ x__ y__ -> x__ {_HTLCAttempt'attemptTimeNs = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField HTLCAttempt "resolveTimeNs" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_HTLCAttempt'resolveTimeNs
(\ x__ y__ -> x__ {_HTLCAttempt'resolveTimeNs = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField HTLCAttempt "failure" Failure where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_HTLCAttempt'failure
(\ x__ y__ -> x__ {_HTLCAttempt'failure = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField HTLCAttempt "maybe'failure" (Prelude.Maybe Failure) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_HTLCAttempt'failure
(\ x__ y__ -> x__ {_HTLCAttempt'failure = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField HTLCAttempt "preimage" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_HTLCAttempt'preimage
(\ x__ y__ -> x__ {_HTLCAttempt'preimage = y__}))
Prelude.id
instance Data.ProtoLens.Message HTLCAttempt where
messageName _ = Data.Text.pack "lnrpc.HTLCAttempt"
packedMessageDescriptor _
= "\n\
\\vHTLCAttempt\DC2\GS\n\
\\n\
\attempt_id\CAN\a \SOH(\EOTR\tattemptId\DC25\n\
\\ACKstatus\CAN\SOH \SOH(\SO2\GS.lnrpc.HTLCAttempt.HTLCStatusR\ACKstatus\DC2\"\n\
\\ENQroute\CAN\STX \SOH(\v2\f.lnrpc.RouteR\ENQroute\DC2&\n\
\\SIattempt_time_ns\CAN\ETX \SOH(\ETXR\rattemptTimeNs\DC2&\n\
\\SIresolve_time_ns\CAN\EOT \SOH(\ETXR\rresolveTimeNs\DC2(\n\
\\afailure\CAN\ENQ \SOH(\v2\SO.lnrpc.FailureR\afailure\DC2\SUB\n\
\\bpreimage\CAN\ACK \SOH(\fR\bpreimage\"6\n\
\\n\
\HTLCStatus\DC2\r\n\
\\tIN_FLIGHT\DLE\NUL\DC2\r\n\
\\tSUCCEEDED\DLE\SOH\DC2\n\
\\n\
\\ACKFAILED\DLE\STX"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
attemptId__field_descriptor
= Data.ProtoLens.FieldDescriptor
"attempt_id"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"attemptId")) ::
Data.ProtoLens.FieldDescriptor HTLCAttempt
status__field_descriptor
= Data.ProtoLens.FieldDescriptor
"status"
(Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor HTLCAttempt'HTLCStatus)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"status")) ::
Data.ProtoLens.FieldDescriptor HTLCAttempt
route__field_descriptor
= Data.ProtoLens.FieldDescriptor
"route"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Lnrpc.Ln0.Route)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'route")) ::
Data.ProtoLens.FieldDescriptor HTLCAttempt
attemptTimeNs__field_descriptor
= Data.ProtoLens.FieldDescriptor
"attempt_time_ns"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"attemptTimeNs")) ::
Data.ProtoLens.FieldDescriptor HTLCAttempt
resolveTimeNs__field_descriptor
= Data.ProtoLens.FieldDescriptor
"resolve_time_ns"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"resolveTimeNs")) ::
Data.ProtoLens.FieldDescriptor HTLCAttempt
failure__field_descriptor
= Data.ProtoLens.FieldDescriptor
"failure"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Failure)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'failure")) ::
Data.ProtoLens.FieldDescriptor HTLCAttempt
preimage__field_descriptor
= Data.ProtoLens.FieldDescriptor
"preimage"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"preimage")) ::
Data.ProtoLens.FieldDescriptor HTLCAttempt
in
Data.Map.fromList
[(Data.ProtoLens.Tag 7, attemptId__field_descriptor),
(Data.ProtoLens.Tag 1, status__field_descriptor),
(Data.ProtoLens.Tag 2, route__field_descriptor),
(Data.ProtoLens.Tag 3, attemptTimeNs__field_descriptor),
(Data.ProtoLens.Tag 4, resolveTimeNs__field_descriptor),
(Data.ProtoLens.Tag 5, failure__field_descriptor),
(Data.ProtoLens.Tag 6, preimage__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_HTLCAttempt'_unknownFields
(\ x__ y__ -> x__ {_HTLCAttempt'_unknownFields = y__})
defMessage
= HTLCAttempt'_constructor
{_HTLCAttempt'attemptId = Data.ProtoLens.fieldDefault,
_HTLCAttempt'status = Data.ProtoLens.fieldDefault,
_HTLCAttempt'route = Prelude.Nothing,
_HTLCAttempt'attemptTimeNs = Data.ProtoLens.fieldDefault,
_HTLCAttempt'resolveTimeNs = Data.ProtoLens.fieldDefault,
_HTLCAttempt'failure = Prelude.Nothing,
_HTLCAttempt'preimage = Data.ProtoLens.fieldDefault,
_HTLCAttempt'_unknownFields = []}
parseMessage
= let
loop ::
HTLCAttempt -> Data.ProtoLens.Encoding.Bytes.Parser HTLCAttempt
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
56
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "attempt_id"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"attemptId") y x)
8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.toEnum
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt))
"status"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"status") 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)
"route"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"route") y x)
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"attempt_time_ns"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"attemptTimeNs") y x)
32
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"resolve_time_ns"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"resolveTimeNs") y x)
42
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"failure"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"failure") y x)
50
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"preimage"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"preimage") 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) "HTLCAttempt"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"attemptId") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 56)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"status") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
((Prelude..)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral)
Prelude.fromEnum _v))
((Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'route") _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.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"attemptTimeNs") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"resolveTimeNs") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 32)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral
_v))
((Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'failure") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just _v)
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 42)
((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.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"preimage") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 50)
((\ 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 HTLCAttempt where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_HTLCAttempt'_unknownFields x__)
(Control.DeepSeq.deepseq
(_HTLCAttempt'attemptId x__)
(Control.DeepSeq.deepseq
(_HTLCAttempt'status x__)
(Control.DeepSeq.deepseq
(_HTLCAttempt'route x__)
(Control.DeepSeq.deepseq
(_HTLCAttempt'attemptTimeNs x__)
(Control.DeepSeq.deepseq
(_HTLCAttempt'resolveTimeNs x__)
(Control.DeepSeq.deepseq
(_HTLCAttempt'failure x__)
(Control.DeepSeq.deepseq (_HTLCAttempt'preimage x__) ())))))))
newtype HTLCAttempt'HTLCStatus'UnrecognizedValue
= HTLCAttempt'HTLCStatus'UnrecognizedValue Data.Int.Int32
deriving stock (Prelude.Eq,
Prelude.Ord,
Prelude.Show,
GHC.Generics.Generic)
instance Text.PrettyPrint.GenericPretty.Out HTLCAttempt'HTLCStatus'UnrecognizedValue
data HTLCAttempt'HTLCStatus
= HTLCAttempt'IN_FLIGHT |
HTLCAttempt'SUCCEEDED |
HTLCAttempt'FAILED |
HTLCAttempt'HTLCStatus'Unrecognized !HTLCAttempt'HTLCStatus'UnrecognizedValue
deriving stock (Prelude.Show,
Prelude.Eq,
Prelude.Ord,
GHC.Generics.Generic)
instance Data.ProtoLens.MessageEnum HTLCAttempt'HTLCStatus where
maybeToEnum 0 = Prelude.Just HTLCAttempt'IN_FLIGHT
maybeToEnum 1 = Prelude.Just HTLCAttempt'SUCCEEDED
maybeToEnum 2 = Prelude.Just HTLCAttempt'FAILED
maybeToEnum k
= Prelude.Just
(HTLCAttempt'HTLCStatus'Unrecognized
(HTLCAttempt'HTLCStatus'UnrecognizedValue
(Prelude.fromIntegral k)))
showEnum HTLCAttempt'IN_FLIGHT = "IN_FLIGHT"
showEnum HTLCAttempt'SUCCEEDED = "SUCCEEDED"
showEnum HTLCAttempt'FAILED = "FAILED"
showEnum
(HTLCAttempt'HTLCStatus'Unrecognized (HTLCAttempt'HTLCStatus'UnrecognizedValue k))
= Prelude.show k
readEnum k
| (Prelude.==) k "IN_FLIGHT" = Prelude.Just HTLCAttempt'IN_FLIGHT
| (Prelude.==) k "SUCCEEDED" = Prelude.Just HTLCAttempt'SUCCEEDED
| (Prelude.==) k "FAILED" = Prelude.Just HTLCAttempt'FAILED
| Prelude.otherwise
= (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum
instance Prelude.Bounded HTLCAttempt'HTLCStatus where
minBound = HTLCAttempt'IN_FLIGHT
maxBound = HTLCAttempt'FAILED
instance Prelude.Enum HTLCAttempt'HTLCStatus where
toEnum k__
= Prelude.maybe
(Prelude.error
((Prelude.++)
"toEnum: unknown value for enum HTLCStatus: " (Prelude.show k__)))
Prelude.id (Data.ProtoLens.maybeToEnum k__)
fromEnum HTLCAttempt'IN_FLIGHT = 0
fromEnum HTLCAttempt'SUCCEEDED = 1
fromEnum HTLCAttempt'FAILED = 2
fromEnum
(HTLCAttempt'HTLCStatus'Unrecognized (HTLCAttempt'HTLCStatus'UnrecognizedValue k))
= Prelude.fromIntegral k
succ HTLCAttempt'FAILED
= Prelude.error
"HTLCAttempt'HTLCStatus.succ: bad argument HTLCAttempt'FAILED. This value would be out of bounds."
succ HTLCAttempt'IN_FLIGHT = HTLCAttempt'SUCCEEDED
succ HTLCAttempt'SUCCEEDED = HTLCAttempt'FAILED
succ (HTLCAttempt'HTLCStatus'Unrecognized _)
= Prelude.error
"HTLCAttempt'HTLCStatus.succ: bad argument: unrecognized value"
pred HTLCAttempt'IN_FLIGHT
= Prelude.error
"HTLCAttempt'HTLCStatus.pred: bad argument HTLCAttempt'IN_FLIGHT. This value would be out of bounds."
pred HTLCAttempt'SUCCEEDED = HTLCAttempt'IN_FLIGHT
pred HTLCAttempt'FAILED = HTLCAttempt'SUCCEEDED
pred (HTLCAttempt'HTLCStatus'Unrecognized _)
= Prelude.error
"HTLCAttempt'HTLCStatus.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 HTLCAttempt'HTLCStatus where
fieldDefault = HTLCAttempt'IN_FLIGHT
instance Control.DeepSeq.NFData HTLCAttempt'HTLCStatus where
rnf x__ = Prelude.seq x__ ()
instance Text.PrettyPrint.GenericPretty.Out HTLCAttempt'HTLCStatus
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.error' @:: Lens' InterceptFeedback Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.replaceResponse' @:: Lens' InterceptFeedback Prelude.Bool@
* 'Proto.Lnrpc.Ln1_Fields.replacementSerialized' @:: Lens' InterceptFeedback Data.ByteString.ByteString@ -}
data InterceptFeedback
= InterceptFeedback'_constructor {_InterceptFeedback'error :: !Data.Text.Text,
_InterceptFeedback'replaceResponse :: !Prelude.Bool,
_InterceptFeedback'replacementSerialized :: !Data.ByteString.ByteString,
_InterceptFeedback'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show InterceptFeedback where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out InterceptFeedback
instance Data.ProtoLens.Field.HasField InterceptFeedback "error" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InterceptFeedback'error
(\ x__ y__ -> x__ {_InterceptFeedback'error = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField InterceptFeedback "replaceResponse" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InterceptFeedback'replaceResponse
(\ x__ y__ -> x__ {_InterceptFeedback'replaceResponse = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField InterceptFeedback "replacementSerialized" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InterceptFeedback'replacementSerialized
(\ x__ y__
-> x__ {_InterceptFeedback'replacementSerialized = y__}))
Prelude.id
instance Data.ProtoLens.Message InterceptFeedback where
messageName _ = Data.Text.pack "lnrpc.InterceptFeedback"
packedMessageDescriptor _
= "\n\
\\DC1InterceptFeedback\DC2\DC4\n\
\\ENQerror\CAN\SOH \SOH(\tR\ENQerror\DC2)\n\
\\DLEreplace_response\CAN\STX \SOH(\bR\SIreplaceResponse\DC25\n\
\\SYNreplacement_serialized\CAN\ETX \SOH(\fR\NAKreplacementSerialized"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
error__field_descriptor
= Data.ProtoLens.FieldDescriptor
"error"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"error")) ::
Data.ProtoLens.FieldDescriptor InterceptFeedback
replaceResponse__field_descriptor
= Data.ProtoLens.FieldDescriptor
"replace_response"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"replaceResponse")) ::
Data.ProtoLens.FieldDescriptor InterceptFeedback
replacementSerialized__field_descriptor
= Data.ProtoLens.FieldDescriptor
"replacement_serialized"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"replacementSerialized")) ::
Data.ProtoLens.FieldDescriptor InterceptFeedback
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, error__field_descriptor),
(Data.ProtoLens.Tag 2, replaceResponse__field_descriptor),
(Data.ProtoLens.Tag 3, replacementSerialized__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_InterceptFeedback'_unknownFields
(\ x__ y__ -> x__ {_InterceptFeedback'_unknownFields = y__})
defMessage
= InterceptFeedback'_constructor
{_InterceptFeedback'error = Data.ProtoLens.fieldDefault,
_InterceptFeedback'replaceResponse = Data.ProtoLens.fieldDefault,
_InterceptFeedback'replacementSerialized = Data.ProtoLens.fieldDefault,
_InterceptFeedback'_unknownFields = []}
parseMessage
= let
loop ::
InterceptFeedback
-> Data.ProtoLens.Encoding.Bytes.Parser InterceptFeedback
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))
"error"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"error") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"replace_response"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"replaceResponse") y x)
26
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"replacement_serialized"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"replacementSerialized") 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) "InterceptFeedback"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"error") _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.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"replaceResponse") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt (\ b -> if b then 1 else 0)
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"replacementSerialized") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((\ 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 InterceptFeedback where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_InterceptFeedback'_unknownFields x__)
(Control.DeepSeq.deepseq
(_InterceptFeedback'error x__)
(Control.DeepSeq.deepseq
(_InterceptFeedback'replaceResponse x__)
(Control.DeepSeq.deepseq
(_InterceptFeedback'replacementSerialized x__) ())))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.memo' @:: Lens' Invoice Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.rPreimage' @:: Lens' Invoice Data.ByteString.ByteString@
* 'Proto.Lnrpc.Ln1_Fields.rHash' @:: Lens' Invoice Data.ByteString.ByteString@
* 'Proto.Lnrpc.Ln1_Fields.value' @:: Lens' Invoice Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.valueMsat' @:: Lens' Invoice Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.settled' @:: Lens' Invoice Prelude.Bool@
* 'Proto.Lnrpc.Ln1_Fields.creationDate' @:: Lens' Invoice Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.settleDate' @:: Lens' Invoice Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.paymentRequest' @:: Lens' Invoice Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.descriptionHash' @:: Lens' Invoice Data.ByteString.ByteString@
* 'Proto.Lnrpc.Ln1_Fields.expiry' @:: Lens' Invoice Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.fallbackAddr' @:: Lens' Invoice Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.cltvExpiry' @:: Lens' Invoice Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.routeHints' @:: Lens' Invoice [Proto.Lnrpc.Ln0.RouteHint]@
* 'Proto.Lnrpc.Ln1_Fields.vec'routeHints' @:: Lens' Invoice (Data.Vector.Vector Proto.Lnrpc.Ln0.RouteHint)@
* 'Proto.Lnrpc.Ln1_Fields.private' @:: Lens' Invoice Prelude.Bool@
* 'Proto.Lnrpc.Ln1_Fields.addIndex' @:: Lens' Invoice Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.settleIndex' @:: Lens' Invoice Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.amtPaid' @:: Lens' Invoice Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.amtPaidSat' @:: Lens' Invoice Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.amtPaidMsat' @:: Lens' Invoice Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.state' @:: Lens' Invoice Invoice'InvoiceState@
* 'Proto.Lnrpc.Ln1_Fields.htlcs' @:: Lens' Invoice [InvoiceHTLC]@
* 'Proto.Lnrpc.Ln1_Fields.vec'htlcs' @:: Lens' Invoice (Data.Vector.Vector InvoiceHTLC)@
* 'Proto.Lnrpc.Ln1_Fields.features' @:: Lens' Invoice (Data.Map.Map Data.Word.Word32 Proto.Lnrpc.Ln0.Feature)@
* 'Proto.Lnrpc.Ln1_Fields.isKeysend' @:: Lens' Invoice Prelude.Bool@
* 'Proto.Lnrpc.Ln1_Fields.paymentAddr' @:: Lens' Invoice Data.ByteString.ByteString@
* 'Proto.Lnrpc.Ln1_Fields.isAmp' @:: Lens' Invoice Prelude.Bool@
* 'Proto.Lnrpc.Ln1_Fields.ampInvoiceState' @:: Lens' Invoice (Data.Map.Map Data.Text.Text AMPInvoiceState)@ -}
data Invoice
= Invoice'_constructor {_Invoice'memo :: !Data.Text.Text,
_Invoice'rPreimage :: !Data.ByteString.ByteString,
_Invoice'rHash :: !Data.ByteString.ByteString,
_Invoice'value :: !Data.Int.Int64,
_Invoice'valueMsat :: !Data.Int.Int64,
_Invoice'settled :: !Prelude.Bool,
_Invoice'creationDate :: !Data.Int.Int64,
_Invoice'settleDate :: !Data.Int.Int64,
_Invoice'paymentRequest :: !Data.Text.Text,
_Invoice'descriptionHash :: !Data.ByteString.ByteString,
_Invoice'expiry :: !Data.Int.Int64,
_Invoice'fallbackAddr :: !Data.Text.Text,
_Invoice'cltvExpiry :: !Data.Word.Word64,
_Invoice'routeHints :: !(Data.Vector.Vector Proto.Lnrpc.Ln0.RouteHint),
_Invoice'private :: !Prelude.Bool,
_Invoice'addIndex :: !Data.Word.Word64,
_Invoice'settleIndex :: !Data.Word.Word64,
_Invoice'amtPaid :: !Data.Int.Int64,
_Invoice'amtPaidSat :: !Data.Int.Int64,
_Invoice'amtPaidMsat :: !Data.Int.Int64,
_Invoice'state :: !Invoice'InvoiceState,
_Invoice'htlcs :: !(Data.Vector.Vector InvoiceHTLC),
_Invoice'features :: !(Data.Map.Map Data.Word.Word32 Proto.Lnrpc.Ln0.Feature),
_Invoice'isKeysend :: !Prelude.Bool,
_Invoice'paymentAddr :: !Data.ByteString.ByteString,
_Invoice'isAmp :: !Prelude.Bool,
_Invoice'ampInvoiceState :: !(Data.Map.Map Data.Text.Text AMPInvoiceState),
_Invoice'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show Invoice where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out Invoice
instance Data.ProtoLens.Field.HasField Invoice "memo" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'memo (\ x__ y__ -> x__ {_Invoice'memo = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "rPreimage" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'rPreimage (\ x__ y__ -> x__ {_Invoice'rPreimage = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "rHash" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'rHash (\ x__ y__ -> x__ {_Invoice'rHash = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "value" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'value (\ x__ y__ -> x__ {_Invoice'value = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "valueMsat" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'valueMsat (\ x__ y__ -> x__ {_Invoice'valueMsat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "settled" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'settled (\ x__ y__ -> x__ {_Invoice'settled = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "creationDate" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'creationDate
(\ x__ y__ -> x__ {_Invoice'creationDate = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "settleDate" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'settleDate (\ x__ y__ -> x__ {_Invoice'settleDate = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "paymentRequest" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'paymentRequest
(\ x__ y__ -> x__ {_Invoice'paymentRequest = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "descriptionHash" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'descriptionHash
(\ x__ y__ -> x__ {_Invoice'descriptionHash = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "expiry" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'expiry (\ x__ y__ -> x__ {_Invoice'expiry = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "fallbackAddr" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'fallbackAddr
(\ x__ y__ -> x__ {_Invoice'fallbackAddr = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "cltvExpiry" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'cltvExpiry (\ x__ y__ -> x__ {_Invoice'cltvExpiry = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "routeHints" [Proto.Lnrpc.Ln0.RouteHint] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'routeHints (\ x__ y__ -> x__ {_Invoice'routeHints = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField Invoice "vec'routeHints" (Data.Vector.Vector Proto.Lnrpc.Ln0.RouteHint) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'routeHints (\ x__ y__ -> x__ {_Invoice'routeHints = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "private" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'private (\ x__ y__ -> x__ {_Invoice'private = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "addIndex" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'addIndex (\ x__ y__ -> x__ {_Invoice'addIndex = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "settleIndex" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'settleIndex
(\ x__ y__ -> x__ {_Invoice'settleIndex = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "amtPaid" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'amtPaid (\ x__ y__ -> x__ {_Invoice'amtPaid = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "amtPaidSat" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'amtPaidSat (\ x__ y__ -> x__ {_Invoice'amtPaidSat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "amtPaidMsat" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'amtPaidMsat
(\ x__ y__ -> x__ {_Invoice'amtPaidMsat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "state" Invoice'InvoiceState where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'state (\ x__ y__ -> x__ {_Invoice'state = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "htlcs" [InvoiceHTLC] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'htlcs (\ x__ y__ -> x__ {_Invoice'htlcs = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField Invoice "vec'htlcs" (Data.Vector.Vector InvoiceHTLC) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'htlcs (\ x__ y__ -> x__ {_Invoice'htlcs = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "features" (Data.Map.Map Data.Word.Word32 Proto.Lnrpc.Ln0.Feature) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'features (\ x__ y__ -> x__ {_Invoice'features = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "isKeysend" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'isKeysend (\ x__ y__ -> x__ {_Invoice'isKeysend = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "paymentAddr" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'paymentAddr
(\ x__ y__ -> x__ {_Invoice'paymentAddr = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "isAmp" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'isAmp (\ x__ y__ -> x__ {_Invoice'isAmp = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice "ampInvoiceState" (Data.Map.Map Data.Text.Text AMPInvoiceState) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'ampInvoiceState
(\ x__ y__ -> x__ {_Invoice'ampInvoiceState = y__}))
Prelude.id
instance Data.ProtoLens.Message Invoice where
messageName _ = Data.Text.pack "lnrpc.Invoice"
packedMessageDescriptor _
= "\n\
\\aInvoice\DC2\DC2\n\
\\EOTmemo\CAN\SOH \SOH(\tR\EOTmemo\DC2\GS\n\
\\n\
\r_preimage\CAN\ETX \SOH(\fR\trPreimage\DC2\NAK\n\
\\ACKr_hash\CAN\EOT \SOH(\fR\ENQrHash\DC2\DC4\n\
\\ENQvalue\CAN\ENQ \SOH(\ETXR\ENQvalue\DC2\GS\n\
\\n\
\value_msat\CAN\ETB \SOH(\ETXR\tvalueMsat\DC2\FS\n\
\\asettled\CAN\ACK \SOH(\bR\asettledB\STX\CAN\SOH\DC2#\n\
\\rcreation_date\CAN\a \SOH(\ETXR\fcreationDate\DC2\US\n\
\\vsettle_date\CAN\b \SOH(\ETXR\n\
\settleDate\DC2'\n\
\\SIpayment_request\CAN\t \SOH(\tR\SOpaymentRequest\DC2)\n\
\\DLEdescription_hash\CAN\n\
\ \SOH(\fR\SIdescriptionHash\DC2\SYN\n\
\\ACKexpiry\CAN\v \SOH(\ETXR\ACKexpiry\DC2#\n\
\\rfallback_addr\CAN\f \SOH(\tR\ffallbackAddr\DC2\US\n\
\\vcltv_expiry\CAN\r \SOH(\EOTR\n\
\cltvExpiry\DC21\n\
\\vroute_hints\CAN\SO \ETX(\v2\DLE.lnrpc.RouteHintR\n\
\routeHints\DC2\CAN\n\
\\aprivate\CAN\SI \SOH(\bR\aprivate\DC2\ESC\n\
\\tadd_index\CAN\DLE \SOH(\EOTR\baddIndex\DC2!\n\
\\fsettle_index\CAN\DC1 \SOH(\EOTR\vsettleIndex\DC2\GS\n\
\\bamt_paid\CAN\DC2 \SOH(\ETXR\aamtPaidB\STX\CAN\SOH\DC2 \n\
\\famt_paid_sat\CAN\DC3 \SOH(\ETXR\n\
\amtPaidSat\DC2\"\n\
\\ramt_paid_msat\CAN\DC4 \SOH(\ETXR\vamtPaidMsat\DC21\n\
\\ENQstate\CAN\NAK \SOH(\SO2\ESC.lnrpc.Invoice.InvoiceStateR\ENQstate\DC2(\n\
\\ENQhtlcs\CAN\SYN \ETX(\v2\DC2.lnrpc.InvoiceHTLCR\ENQhtlcs\DC28\n\
\\bfeatures\CAN\CAN \ETX(\v2\FS.lnrpc.Invoice.FeaturesEntryR\bfeatures\DC2\GS\n\
\\n\
\is_keysend\CAN\EM \SOH(\bR\tisKeysend\DC2!\n\
\\fpayment_addr\CAN\SUB \SOH(\fR\vpaymentAddr\DC2\NAK\n\
\\ACKis_amp\CAN\ESC \SOH(\bR\ENQisAmp\DC2O\n\
\\DC1amp_invoice_state\CAN\FS \ETX(\v2#.lnrpc.Invoice.AmpInvoiceStateEntryR\SIampInvoiceState\SUBK\n\
\\rFeaturesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\rR\ETXkey\DC2$\n\
\\ENQvalue\CAN\STX \SOH(\v2\SO.lnrpc.FeatureR\ENQvalue:\STX8\SOH\SUBZ\n\
\\DC4AmpInvoiceStateEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2,\n\
\\ENQvalue\CAN\STX \SOH(\v2\SYN.lnrpc.AMPInvoiceStateR\ENQvalue:\STX8\SOH\"A\n\
\\fInvoiceState\DC2\b\n\
\\EOTOPEN\DLE\NUL\DC2\v\n\
\\aSETTLED\DLE\SOH\DC2\f\n\
\\bCANCELED\DLE\STX\DC2\f\n\
\\bACCEPTED\DLE\ETXJ\EOT\b\STX\DLE\ETX"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
memo__field_descriptor
= Data.ProtoLens.FieldDescriptor
"memo"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"memo")) ::
Data.ProtoLens.FieldDescriptor Invoice
rPreimage__field_descriptor
= Data.ProtoLens.FieldDescriptor
"r_preimage"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"rPreimage")) ::
Data.ProtoLens.FieldDescriptor Invoice
rHash__field_descriptor
= Data.ProtoLens.FieldDescriptor
"r_hash"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"rHash")) ::
Data.ProtoLens.FieldDescriptor Invoice
value__field_descriptor
= Data.ProtoLens.FieldDescriptor
"value"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) ::
Data.ProtoLens.FieldDescriptor Invoice
valueMsat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"value_msat"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"valueMsat")) ::
Data.ProtoLens.FieldDescriptor Invoice
settled__field_descriptor
= Data.ProtoLens.FieldDescriptor
"settled"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"settled")) ::
Data.ProtoLens.FieldDescriptor Invoice
creationDate__field_descriptor
= Data.ProtoLens.FieldDescriptor
"creation_date"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"creationDate")) ::
Data.ProtoLens.FieldDescriptor Invoice
settleDate__field_descriptor
= Data.ProtoLens.FieldDescriptor
"settle_date"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"settleDate")) ::
Data.ProtoLens.FieldDescriptor Invoice
paymentRequest__field_descriptor
= Data.ProtoLens.FieldDescriptor
"payment_request"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"paymentRequest")) ::
Data.ProtoLens.FieldDescriptor Invoice
descriptionHash__field_descriptor
= Data.ProtoLens.FieldDescriptor
"description_hash"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"descriptionHash")) ::
Data.ProtoLens.FieldDescriptor Invoice
expiry__field_descriptor
= Data.ProtoLens.FieldDescriptor
"expiry"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"expiry")) ::
Data.ProtoLens.FieldDescriptor Invoice
fallbackAddr__field_descriptor
= Data.ProtoLens.FieldDescriptor
"fallback_addr"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"fallbackAddr")) ::
Data.ProtoLens.FieldDescriptor Invoice
cltvExpiry__field_descriptor
= Data.ProtoLens.FieldDescriptor
"cltv_expiry"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"cltvExpiry")) ::
Data.ProtoLens.FieldDescriptor Invoice
routeHints__field_descriptor
= Data.ProtoLens.FieldDescriptor
"route_hints"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Lnrpc.Ln0.RouteHint)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"routeHints")) ::
Data.ProtoLens.FieldDescriptor Invoice
private__field_descriptor
= Data.ProtoLens.FieldDescriptor
"private"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"private")) ::
Data.ProtoLens.FieldDescriptor Invoice
addIndex__field_descriptor
= Data.ProtoLens.FieldDescriptor
"add_index"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"addIndex")) ::
Data.ProtoLens.FieldDescriptor Invoice
settleIndex__field_descriptor
= Data.ProtoLens.FieldDescriptor
"settle_index"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"settleIndex")) ::
Data.ProtoLens.FieldDescriptor Invoice
amtPaid__field_descriptor
= Data.ProtoLens.FieldDescriptor
"amt_paid"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"amtPaid")) ::
Data.ProtoLens.FieldDescriptor Invoice
amtPaidSat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"amt_paid_sat"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"amtPaidSat")) ::
Data.ProtoLens.FieldDescriptor Invoice
amtPaidMsat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"amt_paid_msat"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"amtPaidMsat")) ::
Data.ProtoLens.FieldDescriptor Invoice
state__field_descriptor
= Data.ProtoLens.FieldDescriptor
"state"
(Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Invoice'InvoiceState)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"state")) ::
Data.ProtoLens.FieldDescriptor Invoice
htlcs__field_descriptor
= Data.ProtoLens.FieldDescriptor
"htlcs"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor InvoiceHTLC)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"htlcs")) ::
Data.ProtoLens.FieldDescriptor Invoice
features__field_descriptor
= Data.ProtoLens.FieldDescriptor
"features"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Invoice'FeaturesEntry)
(Data.ProtoLens.MapField
(Data.ProtoLens.Field.field @"key")
(Data.ProtoLens.Field.field @"value")
(Data.ProtoLens.Field.field @"features")) ::
Data.ProtoLens.FieldDescriptor Invoice
isKeysend__field_descriptor
= Data.ProtoLens.FieldDescriptor
"is_keysend"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"isKeysend")) ::
Data.ProtoLens.FieldDescriptor Invoice
paymentAddr__field_descriptor
= Data.ProtoLens.FieldDescriptor
"payment_addr"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"paymentAddr")) ::
Data.ProtoLens.FieldDescriptor Invoice
isAmp__field_descriptor
= Data.ProtoLens.FieldDescriptor
"is_amp"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"isAmp")) ::
Data.ProtoLens.FieldDescriptor Invoice
ampInvoiceState__field_descriptor
= Data.ProtoLens.FieldDescriptor
"amp_invoice_state"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Invoice'AmpInvoiceStateEntry)
(Data.ProtoLens.MapField
(Data.ProtoLens.Field.field @"key")
(Data.ProtoLens.Field.field @"value")
(Data.ProtoLens.Field.field @"ampInvoiceState")) ::
Data.ProtoLens.FieldDescriptor Invoice
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, memo__field_descriptor),
(Data.ProtoLens.Tag 3, rPreimage__field_descriptor),
(Data.ProtoLens.Tag 4, rHash__field_descriptor),
(Data.ProtoLens.Tag 5, value__field_descriptor),
(Data.ProtoLens.Tag 23, valueMsat__field_descriptor),
(Data.ProtoLens.Tag 6, settled__field_descriptor),
(Data.ProtoLens.Tag 7, creationDate__field_descriptor),
(Data.ProtoLens.Tag 8, settleDate__field_descriptor),
(Data.ProtoLens.Tag 9, paymentRequest__field_descriptor),
(Data.ProtoLens.Tag 10, descriptionHash__field_descriptor),
(Data.ProtoLens.Tag 11, expiry__field_descriptor),
(Data.ProtoLens.Tag 12, fallbackAddr__field_descriptor),
(Data.ProtoLens.Tag 13, cltvExpiry__field_descriptor),
(Data.ProtoLens.Tag 14, routeHints__field_descriptor),
(Data.ProtoLens.Tag 15, private__field_descriptor),
(Data.ProtoLens.Tag 16, addIndex__field_descriptor),
(Data.ProtoLens.Tag 17, settleIndex__field_descriptor),
(Data.ProtoLens.Tag 18, amtPaid__field_descriptor),
(Data.ProtoLens.Tag 19, amtPaidSat__field_descriptor),
(Data.ProtoLens.Tag 20, amtPaidMsat__field_descriptor),
(Data.ProtoLens.Tag 21, state__field_descriptor),
(Data.ProtoLens.Tag 22, htlcs__field_descriptor),
(Data.ProtoLens.Tag 24, features__field_descriptor),
(Data.ProtoLens.Tag 25, isKeysend__field_descriptor),
(Data.ProtoLens.Tag 26, paymentAddr__field_descriptor),
(Data.ProtoLens.Tag 27, isAmp__field_descriptor),
(Data.ProtoLens.Tag 28, ampInvoiceState__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_Invoice'_unknownFields
(\ x__ y__ -> x__ {_Invoice'_unknownFields = y__})
defMessage
= Invoice'_constructor
{_Invoice'memo = Data.ProtoLens.fieldDefault,
_Invoice'rPreimage = Data.ProtoLens.fieldDefault,
_Invoice'rHash = Data.ProtoLens.fieldDefault,
_Invoice'value = Data.ProtoLens.fieldDefault,
_Invoice'valueMsat = Data.ProtoLens.fieldDefault,
_Invoice'settled = Data.ProtoLens.fieldDefault,
_Invoice'creationDate = Data.ProtoLens.fieldDefault,
_Invoice'settleDate = Data.ProtoLens.fieldDefault,
_Invoice'paymentRequest = Data.ProtoLens.fieldDefault,
_Invoice'descriptionHash = Data.ProtoLens.fieldDefault,
_Invoice'expiry = Data.ProtoLens.fieldDefault,
_Invoice'fallbackAddr = Data.ProtoLens.fieldDefault,
_Invoice'cltvExpiry = Data.ProtoLens.fieldDefault,
_Invoice'routeHints = Data.Vector.Generic.empty,
_Invoice'private = Data.ProtoLens.fieldDefault,
_Invoice'addIndex = Data.ProtoLens.fieldDefault,
_Invoice'settleIndex = Data.ProtoLens.fieldDefault,
_Invoice'amtPaid = Data.ProtoLens.fieldDefault,
_Invoice'amtPaidSat = Data.ProtoLens.fieldDefault,
_Invoice'amtPaidMsat = Data.ProtoLens.fieldDefault,
_Invoice'state = Data.ProtoLens.fieldDefault,
_Invoice'htlcs = Data.Vector.Generic.empty,
_Invoice'features = Data.Map.empty,
_Invoice'isKeysend = Data.ProtoLens.fieldDefault,
_Invoice'paymentAddr = Data.ProtoLens.fieldDefault,
_Invoice'isAmp = Data.ProtoLens.fieldDefault,
_Invoice'ampInvoiceState = Data.Map.empty,
_Invoice'_unknownFields = []}
parseMessage
= let
loop ::
Invoice
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld InvoiceHTLC
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Lnrpc.Ln0.RouteHint
-> Data.ProtoLens.Encoding.Bytes.Parser Invoice
loop x mutable'htlcs mutable'routeHints
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'htlcs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'htlcs)
frozen'routeHints <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'routeHints)
(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'htlcs") frozen'htlcs
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'routeHints") frozen'routeHints
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))
"memo"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"memo") y x)
mutable'htlcs mutable'routeHints
26
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"r_preimage"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"rPreimage") y x)
mutable'htlcs mutable'routeHints
34
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"r_hash"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"rHash") y x)
mutable'htlcs mutable'routeHints
40
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"value"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)
mutable'htlcs mutable'routeHints
184
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"value_msat"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"valueMsat") y x)
mutable'htlcs mutable'routeHints
48
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"settled"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"settled") y x)
mutable'htlcs mutable'routeHints
56
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"creation_date"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"creationDate") y x)
mutable'htlcs mutable'routeHints
64
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"settle_date"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"settleDate") y x)
mutable'htlcs mutable'routeHints
74
-> 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))
"payment_request"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"paymentRequest") y x)
mutable'htlcs mutable'routeHints
82
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"description_hash"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"descriptionHash") y x)
mutable'htlcs mutable'routeHints
88
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"expiry"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"expiry") y x)
mutable'htlcs mutable'routeHints
98
-> 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))
"fallback_addr"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"fallbackAddr") y x)
mutable'htlcs mutable'routeHints
104
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "cltv_expiry"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"cltvExpiry") y x)
mutable'htlcs mutable'routeHints
114
-> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
"route_hints"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'routeHints y)
loop x mutable'htlcs v
120
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"private"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"private") y x)
mutable'htlcs mutable'routeHints
128
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "add_index"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"addIndex") y x)
mutable'htlcs mutable'routeHints
136
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "settle_index"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"settleIndex") y x)
mutable'htlcs mutable'routeHints
144
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"amt_paid"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"amtPaid") y x)
mutable'htlcs mutable'routeHints
152
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"amt_paid_sat"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"amtPaidSat") y x)
mutable'htlcs mutable'routeHints
160
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"amt_paid_msat"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"amtPaidMsat") y x)
mutable'htlcs mutable'routeHints
168
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.toEnum
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt))
"state"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"state") y x)
mutable'htlcs mutable'routeHints
178
-> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
"htlcs"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'htlcs y)
loop x v mutable'routeHints
194
-> do !(entry :: Invoice'FeaturesEntry) <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral
len)
Data.ProtoLens.parseMessage)
"features"
(let
key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry
value
= Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry
in
loop
(Lens.Family2.over
(Data.ProtoLens.Field.field @"features")
(\ !t -> Data.Map.insert key value t) x)
mutable'htlcs mutable'routeHints)
200
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"is_keysend"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"isKeysend") y x)
mutable'htlcs mutable'routeHints
210
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"payment_addr"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"paymentAddr") y x)
mutable'htlcs mutable'routeHints
216
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"is_amp"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"isAmp") y x)
mutable'htlcs mutable'routeHints
226
-> do !(entry :: Invoice'AmpInvoiceStateEntry) <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral
len)
Data.ProtoLens.parseMessage)
"amp_invoice_state"
(let
key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry
value
= Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry
in
loop
(Lens.Family2.over
(Data.ProtoLens.Field.field @"ampInvoiceState")
(\ !t -> Data.Map.insert key value t) x)
mutable'htlcs mutable'routeHints)
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'htlcs mutable'routeHints
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'htlcs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
mutable'routeHints <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'htlcs mutable'routeHints)
"Invoice"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"memo") _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.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"rPreimage") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"rHash") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 40)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"valueMsat") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 184)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral
_v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"settled") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 48)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
(\ b -> if b then 1 else 0) _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"creationDate") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 56)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"settleDate") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 64)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"paymentRequest") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 74)
((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.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"descriptionHash") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 82)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral
(Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes
bs))
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"expiry") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 88)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"fallbackAddr")
_x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 98)
((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.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"cltvExpiry")
_x
in
if (Prelude.==)
_v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
104)
(Data.ProtoLens.Encoding.Bytes.putVarInt
_v))
((Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
114)
((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'routeHints")
_x))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field
@"private")
_x
in
if (Prelude.==)
_v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
120)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
(\ b -> if b then 1 else 0) _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field
@"addIndex")
_x
in
if (Prelude.==)
_v
Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
128)
(Data.ProtoLens.Encoding.Bytes.putVarInt
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field
@"settleIndex")
_x
in
if (Prelude.==)
_v
Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
136)
(Data.ProtoLens.Encoding.Bytes.putVarInt
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field
@"amtPaid")
_x
in
if (Prelude.==)
_v
Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
144)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field
@"amtPaidSat")
_x
in
if (Prelude.==)
_v
Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
152)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field
@"amtPaidMsat")
_x
in
if (Prelude.==)
_v
Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
160)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field
@"state")
_x
in
if (Prelude.==)
_v
Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
168)
((Prelude..)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral)
Prelude.fromEnum
_v))
((Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
178)
((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'htlcs")
_x))
((Data.Monoid.<>)
(Data.Monoid.mconcat
(Prelude.map
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
194)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral
(Data.ByteString.length
bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes
bs))
Data.ProtoLens.encodeMessage
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"key")
(Prelude.fst
_v)
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"value")
(Prelude.snd
_v)
(Data.ProtoLens.defMessage ::
Invoice'FeaturesEntry)))))
(Data.Map.toList
(Lens.Family2.view
(Data.ProtoLens.Field.field
@"features")
_x))))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field
@"isKeysend")
_x
in
if (Prelude.==)
_v
Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
200)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
(\ b
-> if b then
1
else
0)
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field
@"paymentAddr")
_x
in
if (Prelude.==)
_v
Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
210)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral
(Data.ByteString.length
bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes
bs))
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field
@"isAmp")
_x
in
if (Prelude.==)
_v
Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
216)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
(\ b
-> if b then
1
else
0)
_v))
((Data.Monoid.<>)
(Data.Monoid.mconcat
(Prelude.map
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
226)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral
(Data.ByteString.length
bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes
bs))
Data.ProtoLens.encodeMessage
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"key")
(Prelude.fst
_v)
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"value")
(Prelude.snd
_v)
(Data.ProtoLens.defMessage ::
Invoice'AmpInvoiceStateEntry)))))
(Data.Map.toList
(Lens.Family2.view
(Data.ProtoLens.Field.field
@"ampInvoiceState")
_x))))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view
Data.ProtoLens.unknownFields
_x))))))))))))))))))))))))))))
instance Control.DeepSeq.NFData Invoice where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_Invoice'_unknownFields x__)
(Control.DeepSeq.deepseq
(_Invoice'memo x__)
(Control.DeepSeq.deepseq
(_Invoice'rPreimage x__)
(Control.DeepSeq.deepseq
(_Invoice'rHash x__)
(Control.DeepSeq.deepseq
(_Invoice'value x__)
(Control.DeepSeq.deepseq
(_Invoice'valueMsat x__)
(Control.DeepSeq.deepseq
(_Invoice'settled x__)
(Control.DeepSeq.deepseq
(_Invoice'creationDate x__)
(Control.DeepSeq.deepseq
(_Invoice'settleDate x__)
(Control.DeepSeq.deepseq
(_Invoice'paymentRequest x__)
(Control.DeepSeq.deepseq
(_Invoice'descriptionHash x__)
(Control.DeepSeq.deepseq
(_Invoice'expiry x__)
(Control.DeepSeq.deepseq
(_Invoice'fallbackAddr x__)
(Control.DeepSeq.deepseq
(_Invoice'cltvExpiry x__)
(Control.DeepSeq.deepseq
(_Invoice'routeHints x__)
(Control.DeepSeq.deepseq
(_Invoice'private x__)
(Control.DeepSeq.deepseq
(_Invoice'addIndex x__)
(Control.DeepSeq.deepseq
(_Invoice'settleIndex x__)
(Control.DeepSeq.deepseq
(_Invoice'amtPaid x__)
(Control.DeepSeq.deepseq
(_Invoice'amtPaidSat x__)
(Control.DeepSeq.deepseq
(_Invoice'amtPaidMsat x__)
(Control.DeepSeq.deepseq
(_Invoice'state x__)
(Control.DeepSeq.deepseq
(_Invoice'htlcs x__)
(Control.DeepSeq.deepseq
(_Invoice'features
x__)
(Control.DeepSeq.deepseq
(_Invoice'isKeysend
x__)
(Control.DeepSeq.deepseq
(_Invoice'paymentAddr
x__)
(Control.DeepSeq.deepseq
(_Invoice'isAmp
x__)
(Control.DeepSeq.deepseq
(_Invoice'ampInvoiceState
x__)
())))))))))))))))))))))))))))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.key' @:: Lens' Invoice'AmpInvoiceStateEntry Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.value' @:: Lens' Invoice'AmpInvoiceStateEntry AMPInvoiceState@
* 'Proto.Lnrpc.Ln1_Fields.maybe'value' @:: Lens' Invoice'AmpInvoiceStateEntry (Prelude.Maybe AMPInvoiceState)@ -}
data Invoice'AmpInvoiceStateEntry
= Invoice'AmpInvoiceStateEntry'_constructor {_Invoice'AmpInvoiceStateEntry'key :: !Data.Text.Text,
_Invoice'AmpInvoiceStateEntry'value :: !(Prelude.Maybe AMPInvoiceState),
_Invoice'AmpInvoiceStateEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show Invoice'AmpInvoiceStateEntry where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out Invoice'AmpInvoiceStateEntry
instance Data.ProtoLens.Field.HasField Invoice'AmpInvoiceStateEntry "key" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'AmpInvoiceStateEntry'key
(\ x__ y__ -> x__ {_Invoice'AmpInvoiceStateEntry'key = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice'AmpInvoiceStateEntry "value" AMPInvoiceState where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'AmpInvoiceStateEntry'value
(\ x__ y__ -> x__ {_Invoice'AmpInvoiceStateEntry'value = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Invoice'AmpInvoiceStateEntry "maybe'value" (Prelude.Maybe AMPInvoiceState) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'AmpInvoiceStateEntry'value
(\ x__ y__ -> x__ {_Invoice'AmpInvoiceStateEntry'value = y__}))
Prelude.id
instance Data.ProtoLens.Message Invoice'AmpInvoiceStateEntry where
messageName _ = Data.Text.pack "lnrpc.Invoice.AmpInvoiceStateEntry"
packedMessageDescriptor _
= "\n\
\\DC4AmpInvoiceStateEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2,\n\
\\ENQvalue\CAN\STX \SOH(\v2\SYN.lnrpc.AMPInvoiceStateR\ENQvalue:\STX8\SOH"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
key__field_descriptor
= Data.ProtoLens.FieldDescriptor
"key"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) ::
Data.ProtoLens.FieldDescriptor Invoice'AmpInvoiceStateEntry
value__field_descriptor
= Data.ProtoLens.FieldDescriptor
"value"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor AMPInvoiceState)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'value")) ::
Data.ProtoLens.FieldDescriptor Invoice'AmpInvoiceStateEntry
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, key__field_descriptor),
(Data.ProtoLens.Tag 2, value__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_Invoice'AmpInvoiceStateEntry'_unknownFields
(\ x__ y__
-> x__ {_Invoice'AmpInvoiceStateEntry'_unknownFields = y__})
defMessage
= Invoice'AmpInvoiceStateEntry'_constructor
{_Invoice'AmpInvoiceStateEntry'key = Data.ProtoLens.fieldDefault,
_Invoice'AmpInvoiceStateEntry'value = Prelude.Nothing,
_Invoice'AmpInvoiceStateEntry'_unknownFields = []}
parseMessage
= let
loop ::
Invoice'AmpInvoiceStateEntry
-> Data.ProtoLens.Encoding.Bytes.Parser Invoice'AmpInvoiceStateEntry
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))
"key"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") 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)
"value"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") 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) "AmpInvoiceStateEntry"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _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.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _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 Invoice'AmpInvoiceStateEntry where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_Invoice'AmpInvoiceStateEntry'_unknownFields x__)
(Control.DeepSeq.deepseq
(_Invoice'AmpInvoiceStateEntry'key x__)
(Control.DeepSeq.deepseq
(_Invoice'AmpInvoiceStateEntry'value x__) ()))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.key' @:: Lens' Invoice'FeaturesEntry Data.Word.Word32@
* 'Proto.Lnrpc.Ln1_Fields.value' @:: Lens' Invoice'FeaturesEntry Proto.Lnrpc.Ln0.Feature@
* 'Proto.Lnrpc.Ln1_Fields.maybe'value' @:: Lens' Invoice'FeaturesEntry (Prelude.Maybe Proto.Lnrpc.Ln0.Feature)@ -}
data Invoice'FeaturesEntry
= Invoice'FeaturesEntry'_constructor {_Invoice'FeaturesEntry'key :: !Data.Word.Word32,
_Invoice'FeaturesEntry'value :: !(Prelude.Maybe Proto.Lnrpc.Ln0.Feature),
_Invoice'FeaturesEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show Invoice'FeaturesEntry where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out Invoice'FeaturesEntry
instance Data.ProtoLens.Field.HasField Invoice'FeaturesEntry "key" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'FeaturesEntry'key
(\ x__ y__ -> x__ {_Invoice'FeaturesEntry'key = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Invoice'FeaturesEntry "value" Proto.Lnrpc.Ln0.Feature where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'FeaturesEntry'value
(\ x__ y__ -> x__ {_Invoice'FeaturesEntry'value = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Invoice'FeaturesEntry "maybe'value" (Prelude.Maybe Proto.Lnrpc.Ln0.Feature) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Invoice'FeaturesEntry'value
(\ x__ y__ -> x__ {_Invoice'FeaturesEntry'value = y__}))
Prelude.id
instance Data.ProtoLens.Message Invoice'FeaturesEntry where
messageName _ = Data.Text.pack "lnrpc.Invoice.FeaturesEntry"
packedMessageDescriptor _
= "\n\
\\rFeaturesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\rR\ETXkey\DC2$\n\
\\ENQvalue\CAN\STX \SOH(\v2\SO.lnrpc.FeatureR\ENQvalue:\STX8\SOH"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
key__field_descriptor
= Data.ProtoLens.FieldDescriptor
"key"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) ::
Data.ProtoLens.FieldDescriptor Invoice'FeaturesEntry
value__field_descriptor
= Data.ProtoLens.FieldDescriptor
"value"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Lnrpc.Ln0.Feature)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'value")) ::
Data.ProtoLens.FieldDescriptor Invoice'FeaturesEntry
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, key__field_descriptor),
(Data.ProtoLens.Tag 2, value__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_Invoice'FeaturesEntry'_unknownFields
(\ x__ y__ -> x__ {_Invoice'FeaturesEntry'_unknownFields = y__})
defMessage
= Invoice'FeaturesEntry'_constructor
{_Invoice'FeaturesEntry'key = Data.ProtoLens.fieldDefault,
_Invoice'FeaturesEntry'value = Prelude.Nothing,
_Invoice'FeaturesEntry'_unknownFields = []}
parseMessage
= let
loop ::
Invoice'FeaturesEntry
-> Data.ProtoLens.Encoding.Bytes.Parser Invoice'FeaturesEntry
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)
"key"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") 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)
"value"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") 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) "FeaturesEntry"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _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.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _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 Invoice'FeaturesEntry where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_Invoice'FeaturesEntry'_unknownFields x__)
(Control.DeepSeq.deepseq
(_Invoice'FeaturesEntry'key x__)
(Control.DeepSeq.deepseq (_Invoice'FeaturesEntry'value x__) ()))
newtype Invoice'InvoiceState'UnrecognizedValue
= Invoice'InvoiceState'UnrecognizedValue Data.Int.Int32
deriving stock (Prelude.Eq,
Prelude.Ord,
Prelude.Show,
GHC.Generics.Generic)
instance Text.PrettyPrint.GenericPretty.Out Invoice'InvoiceState'UnrecognizedValue
data Invoice'InvoiceState
= Invoice'OPEN |
Invoice'SETTLED |
Invoice'CANCELED |
Invoice'ACCEPTED |
Invoice'InvoiceState'Unrecognized !Invoice'InvoiceState'UnrecognizedValue
deriving stock (Prelude.Show,
Prelude.Eq,
Prelude.Ord,
GHC.Generics.Generic)
instance Data.ProtoLens.MessageEnum Invoice'InvoiceState where
maybeToEnum 0 = Prelude.Just Invoice'OPEN
maybeToEnum 1 = Prelude.Just Invoice'SETTLED
maybeToEnum 2 = Prelude.Just Invoice'CANCELED
maybeToEnum 3 = Prelude.Just Invoice'ACCEPTED
maybeToEnum k
= Prelude.Just
(Invoice'InvoiceState'Unrecognized
(Invoice'InvoiceState'UnrecognizedValue (Prelude.fromIntegral k)))
showEnum Invoice'OPEN = "OPEN"
showEnum Invoice'SETTLED = "SETTLED"
showEnum Invoice'CANCELED = "CANCELED"
showEnum Invoice'ACCEPTED = "ACCEPTED"
showEnum
(Invoice'InvoiceState'Unrecognized (Invoice'InvoiceState'UnrecognizedValue k))
= Prelude.show k
readEnum k
| (Prelude.==) k "OPEN" = Prelude.Just Invoice'OPEN
| (Prelude.==) k "SETTLED" = Prelude.Just Invoice'SETTLED
| (Prelude.==) k "CANCELED" = Prelude.Just Invoice'CANCELED
| (Prelude.==) k "ACCEPTED" = Prelude.Just Invoice'ACCEPTED
| Prelude.otherwise
= (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum
instance Prelude.Bounded Invoice'InvoiceState where
minBound = Invoice'OPEN
maxBound = Invoice'ACCEPTED
instance Prelude.Enum Invoice'InvoiceState where
toEnum k__
= Prelude.maybe
(Prelude.error
((Prelude.++)
"toEnum: unknown value for enum InvoiceState: "
(Prelude.show k__)))
Prelude.id (Data.ProtoLens.maybeToEnum k__)
fromEnum Invoice'OPEN = 0
fromEnum Invoice'SETTLED = 1
fromEnum Invoice'CANCELED = 2
fromEnum Invoice'ACCEPTED = 3
fromEnum
(Invoice'InvoiceState'Unrecognized (Invoice'InvoiceState'UnrecognizedValue k))
= Prelude.fromIntegral k
succ Invoice'ACCEPTED
= Prelude.error
"Invoice'InvoiceState.succ: bad argument Invoice'ACCEPTED. This value would be out of bounds."
succ Invoice'OPEN = Invoice'SETTLED
succ Invoice'SETTLED = Invoice'CANCELED
succ Invoice'CANCELED = Invoice'ACCEPTED
succ (Invoice'InvoiceState'Unrecognized _)
= Prelude.error
"Invoice'InvoiceState.succ: bad argument: unrecognized value"
pred Invoice'OPEN
= Prelude.error
"Invoice'InvoiceState.pred: bad argument Invoice'OPEN. This value would be out of bounds."
pred Invoice'SETTLED = Invoice'OPEN
pred Invoice'CANCELED = Invoice'SETTLED
pred Invoice'ACCEPTED = Invoice'CANCELED
pred (Invoice'InvoiceState'Unrecognized _)
= Prelude.error
"Invoice'InvoiceState.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 Invoice'InvoiceState where
fieldDefault = Invoice'OPEN
instance Control.DeepSeq.NFData Invoice'InvoiceState where
rnf x__ = Prelude.seq x__ ()
instance Text.PrettyPrint.GenericPretty.Out Invoice'InvoiceState
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.chanId' @:: Lens' InvoiceHTLC Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.htlcIndex' @:: Lens' InvoiceHTLC Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.amtMsat' @:: Lens' InvoiceHTLC Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.acceptHeight' @:: Lens' InvoiceHTLC Data.Int.Int32@
* 'Proto.Lnrpc.Ln1_Fields.acceptTime' @:: Lens' InvoiceHTLC Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.resolveTime' @:: Lens' InvoiceHTLC Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.expiryHeight' @:: Lens' InvoiceHTLC Data.Int.Int32@
* 'Proto.Lnrpc.Ln1_Fields.state' @:: Lens' InvoiceHTLC InvoiceHTLCState@
* 'Proto.Lnrpc.Ln1_Fields.customRecords' @:: Lens' InvoiceHTLC (Data.Map.Map Data.Word.Word64 Data.ByteString.ByteString)@
* 'Proto.Lnrpc.Ln1_Fields.mppTotalAmtMsat' @:: Lens' InvoiceHTLC Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.amp' @:: Lens' InvoiceHTLC AMP@
* 'Proto.Lnrpc.Ln1_Fields.maybe'amp' @:: Lens' InvoiceHTLC (Prelude.Maybe AMP)@ -}
data InvoiceHTLC
= InvoiceHTLC'_constructor {_InvoiceHTLC'chanId :: !Data.Word.Word64,
_InvoiceHTLC'htlcIndex :: !Data.Word.Word64,
_InvoiceHTLC'amtMsat :: !Data.Word.Word64,
_InvoiceHTLC'acceptHeight :: !Data.Int.Int32,
_InvoiceHTLC'acceptTime :: !Data.Int.Int64,
_InvoiceHTLC'resolveTime :: !Data.Int.Int64,
_InvoiceHTLC'expiryHeight :: !Data.Int.Int32,
_InvoiceHTLC'state :: !InvoiceHTLCState,
_InvoiceHTLC'customRecords :: !(Data.Map.Map Data.Word.Word64 Data.ByteString.ByteString),
_InvoiceHTLC'mppTotalAmtMsat :: !Data.Word.Word64,
_InvoiceHTLC'amp :: !(Prelude.Maybe AMP),
_InvoiceHTLC'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show InvoiceHTLC where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out InvoiceHTLC
instance Data.ProtoLens.Field.HasField InvoiceHTLC "chanId" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InvoiceHTLC'chanId (\ x__ y__ -> x__ {_InvoiceHTLC'chanId = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField InvoiceHTLC "htlcIndex" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InvoiceHTLC'htlcIndex
(\ x__ y__ -> x__ {_InvoiceHTLC'htlcIndex = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField InvoiceHTLC "amtMsat" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InvoiceHTLC'amtMsat
(\ x__ y__ -> x__ {_InvoiceHTLC'amtMsat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField InvoiceHTLC "acceptHeight" Data.Int.Int32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InvoiceHTLC'acceptHeight
(\ x__ y__ -> x__ {_InvoiceHTLC'acceptHeight = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField InvoiceHTLC "acceptTime" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InvoiceHTLC'acceptTime
(\ x__ y__ -> x__ {_InvoiceHTLC'acceptTime = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField InvoiceHTLC "resolveTime" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InvoiceHTLC'resolveTime
(\ x__ y__ -> x__ {_InvoiceHTLC'resolveTime = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField InvoiceHTLC "expiryHeight" Data.Int.Int32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InvoiceHTLC'expiryHeight
(\ x__ y__ -> x__ {_InvoiceHTLC'expiryHeight = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField InvoiceHTLC "state" InvoiceHTLCState where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InvoiceHTLC'state (\ x__ y__ -> x__ {_InvoiceHTLC'state = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField InvoiceHTLC "customRecords" (Data.Map.Map Data.Word.Word64 Data.ByteString.ByteString) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InvoiceHTLC'customRecords
(\ x__ y__ -> x__ {_InvoiceHTLC'customRecords = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField InvoiceHTLC "mppTotalAmtMsat" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InvoiceHTLC'mppTotalAmtMsat
(\ x__ y__ -> x__ {_InvoiceHTLC'mppTotalAmtMsat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField InvoiceHTLC "amp" AMP where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InvoiceHTLC'amp (\ x__ y__ -> x__ {_InvoiceHTLC'amp = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField InvoiceHTLC "maybe'amp" (Prelude.Maybe AMP) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InvoiceHTLC'amp (\ x__ y__ -> x__ {_InvoiceHTLC'amp = y__}))
Prelude.id
instance Data.ProtoLens.Message InvoiceHTLC where
messageName _ = Data.Text.pack "lnrpc.InvoiceHTLC"
packedMessageDescriptor _
= "\n\
\\vInvoiceHTLC\DC2\ESC\n\
\\achan_id\CAN\SOH \SOH(\EOTR\ACKchanIdB\STX0\SOH\DC2\GS\n\
\\n\
\htlc_index\CAN\STX \SOH(\EOTR\thtlcIndex\DC2\EM\n\
\\bamt_msat\CAN\ETX \SOH(\EOTR\aamtMsat\DC2#\n\
\\raccept_height\CAN\EOT \SOH(\ENQR\facceptHeight\DC2\US\n\
\\vaccept_time\CAN\ENQ \SOH(\ETXR\n\
\acceptTime\DC2!\n\
\\fresolve_time\CAN\ACK \SOH(\ETXR\vresolveTime\DC2#\n\
\\rexpiry_height\CAN\a \SOH(\ENQR\fexpiryHeight\DC2-\n\
\\ENQstate\CAN\b \SOH(\SO2\ETB.lnrpc.InvoiceHTLCStateR\ENQstate\DC2L\n\
\\SOcustom_records\CAN\t \ETX(\v2%.lnrpc.InvoiceHTLC.CustomRecordsEntryR\rcustomRecords\DC2+\n\
\\DC2mpp_total_amt_msat\CAN\n\
\ \SOH(\EOTR\SImppTotalAmtMsat\DC2\FS\n\
\\ETXamp\CAN\v \SOH(\v2\n\
\.lnrpc.AMPR\ETXamp\SUB@\n\
\\DC2CustomRecordsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\EOTR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\fR\ENQvalue:\STX8\SOH"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
chanId__field_descriptor
= Data.ProtoLens.FieldDescriptor
"chan_id"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"chanId")) ::
Data.ProtoLens.FieldDescriptor InvoiceHTLC
htlcIndex__field_descriptor
= Data.ProtoLens.FieldDescriptor
"htlc_index"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"htlcIndex")) ::
Data.ProtoLens.FieldDescriptor InvoiceHTLC
amtMsat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"amt_msat"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"amtMsat")) ::
Data.ProtoLens.FieldDescriptor InvoiceHTLC
acceptHeight__field_descriptor
= Data.ProtoLens.FieldDescriptor
"accept_height"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"acceptHeight")) ::
Data.ProtoLens.FieldDescriptor InvoiceHTLC
acceptTime__field_descriptor
= Data.ProtoLens.FieldDescriptor
"accept_time"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"acceptTime")) ::
Data.ProtoLens.FieldDescriptor InvoiceHTLC
resolveTime__field_descriptor
= Data.ProtoLens.FieldDescriptor
"resolve_time"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"resolveTime")) ::
Data.ProtoLens.FieldDescriptor InvoiceHTLC
expiryHeight__field_descriptor
= Data.ProtoLens.FieldDescriptor
"expiry_height"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"expiryHeight")) ::
Data.ProtoLens.FieldDescriptor InvoiceHTLC
state__field_descriptor
= Data.ProtoLens.FieldDescriptor
"state"
(Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor InvoiceHTLCState)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"state")) ::
Data.ProtoLens.FieldDescriptor InvoiceHTLC
customRecords__field_descriptor
= Data.ProtoLens.FieldDescriptor
"custom_records"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor InvoiceHTLC'CustomRecordsEntry)
(Data.ProtoLens.MapField
(Data.ProtoLens.Field.field @"key")
(Data.ProtoLens.Field.field @"value")
(Data.ProtoLens.Field.field @"customRecords")) ::
Data.ProtoLens.FieldDescriptor InvoiceHTLC
mppTotalAmtMsat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"mpp_total_amt_msat"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"mppTotalAmtMsat")) ::
Data.ProtoLens.FieldDescriptor InvoiceHTLC
amp__field_descriptor
= Data.ProtoLens.FieldDescriptor
"amp"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor AMP)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'amp")) ::
Data.ProtoLens.FieldDescriptor InvoiceHTLC
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, chanId__field_descriptor),
(Data.ProtoLens.Tag 2, htlcIndex__field_descriptor),
(Data.ProtoLens.Tag 3, amtMsat__field_descriptor),
(Data.ProtoLens.Tag 4, acceptHeight__field_descriptor),
(Data.ProtoLens.Tag 5, acceptTime__field_descriptor),
(Data.ProtoLens.Tag 6, resolveTime__field_descriptor),
(Data.ProtoLens.Tag 7, expiryHeight__field_descriptor),
(Data.ProtoLens.Tag 8, state__field_descriptor),
(Data.ProtoLens.Tag 9, customRecords__field_descriptor),
(Data.ProtoLens.Tag 10, mppTotalAmtMsat__field_descriptor),
(Data.ProtoLens.Tag 11, amp__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_InvoiceHTLC'_unknownFields
(\ x__ y__ -> x__ {_InvoiceHTLC'_unknownFields = y__})
defMessage
= InvoiceHTLC'_constructor
{_InvoiceHTLC'chanId = Data.ProtoLens.fieldDefault,
_InvoiceHTLC'htlcIndex = Data.ProtoLens.fieldDefault,
_InvoiceHTLC'amtMsat = Data.ProtoLens.fieldDefault,
_InvoiceHTLC'acceptHeight = Data.ProtoLens.fieldDefault,
_InvoiceHTLC'acceptTime = Data.ProtoLens.fieldDefault,
_InvoiceHTLC'resolveTime = Data.ProtoLens.fieldDefault,
_InvoiceHTLC'expiryHeight = Data.ProtoLens.fieldDefault,
_InvoiceHTLC'state = Data.ProtoLens.fieldDefault,
_InvoiceHTLC'customRecords = Data.Map.empty,
_InvoiceHTLC'mppTotalAmtMsat = Data.ProtoLens.fieldDefault,
_InvoiceHTLC'amp = Prelude.Nothing,
_InvoiceHTLC'_unknownFields = []}
parseMessage
= let
loop ::
InvoiceHTLC -> Data.ProtoLens.Encoding.Bytes.Parser InvoiceHTLC
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 "chan_id"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"chanId") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "htlc_index"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"htlcIndex") y x)
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "amt_msat"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"amtMsat") y x)
32
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"accept_height"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"acceptHeight") y x)
40
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"accept_time"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"acceptTime") y x)
48
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"resolve_time"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"resolveTime") y x)
56
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"expiry_height"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"expiryHeight") y x)
64
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.toEnum
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt))
"state"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"state") y x)
74
-> do !(entry :: InvoiceHTLC'CustomRecordsEntry) <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral
len)
Data.ProtoLens.parseMessage)
"custom_records"
(let
key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry
value
= Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry
in
loop
(Lens.Family2.over
(Data.ProtoLens.Field.field @"customRecords")
(\ !t -> Data.Map.insert key value t) x))
80
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "mpp_total_amt_msat"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"mppTotalAmtMsat") y x)
90
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"amp"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"amp") 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) "InvoiceHTLC"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"chanId") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"htlcIndex") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"amtMsat") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"acceptHeight") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 32)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"acceptTime") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 40)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"resolveTime") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 48)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"expiryHeight") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 56)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"state") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 64)
((Prelude..)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral)
Prelude.fromEnum _v))
((Data.Monoid.<>)
(Data.Monoid.mconcat
(Prelude.map
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 74)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral
(Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes
bs))
Data.ProtoLens.encodeMessage
(Lens.Family2.set
(Data.ProtoLens.Field.field @"key")
(Prelude.fst _v)
(Lens.Family2.set
(Data.ProtoLens.Field.field @"value")
(Prelude.snd _v)
(Data.ProtoLens.defMessage ::
InvoiceHTLC'CustomRecordsEntry)))))
(Data.Map.toList
(Lens.Family2.view
(Data.ProtoLens.Field.field @"customRecords")
_x))))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"mppTotalAmtMsat") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 80)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(case
Lens.Family2.view
(Data.ProtoLens.Field.field @"maybe'amp") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just _v)
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 90)
((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 InvoiceHTLC where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_InvoiceHTLC'_unknownFields x__)
(Control.DeepSeq.deepseq
(_InvoiceHTLC'chanId x__)
(Control.DeepSeq.deepseq
(_InvoiceHTLC'htlcIndex x__)
(Control.DeepSeq.deepseq
(_InvoiceHTLC'amtMsat x__)
(Control.DeepSeq.deepseq
(_InvoiceHTLC'acceptHeight x__)
(Control.DeepSeq.deepseq
(_InvoiceHTLC'acceptTime x__)
(Control.DeepSeq.deepseq
(_InvoiceHTLC'resolveTime x__)
(Control.DeepSeq.deepseq
(_InvoiceHTLC'expiryHeight x__)
(Control.DeepSeq.deepseq
(_InvoiceHTLC'state x__)
(Control.DeepSeq.deepseq
(_InvoiceHTLC'customRecords x__)
(Control.DeepSeq.deepseq
(_InvoiceHTLC'mppTotalAmtMsat x__)
(Control.DeepSeq.deepseq
(_InvoiceHTLC'amp x__) ())))))))))))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.key' @:: Lens' InvoiceHTLC'CustomRecordsEntry Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.value' @:: Lens' InvoiceHTLC'CustomRecordsEntry Data.ByteString.ByteString@ -}
data InvoiceHTLC'CustomRecordsEntry
= InvoiceHTLC'CustomRecordsEntry'_constructor {_InvoiceHTLC'CustomRecordsEntry'key :: !Data.Word.Word64,
_InvoiceHTLC'CustomRecordsEntry'value :: !Data.ByteString.ByteString,
_InvoiceHTLC'CustomRecordsEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show InvoiceHTLC'CustomRecordsEntry where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out InvoiceHTLC'CustomRecordsEntry
instance Data.ProtoLens.Field.HasField InvoiceHTLC'CustomRecordsEntry "key" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InvoiceHTLC'CustomRecordsEntry'key
(\ x__ y__ -> x__ {_InvoiceHTLC'CustomRecordsEntry'key = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField InvoiceHTLC'CustomRecordsEntry "value" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InvoiceHTLC'CustomRecordsEntry'value
(\ x__ y__ -> x__ {_InvoiceHTLC'CustomRecordsEntry'value = y__}))
Prelude.id
instance Data.ProtoLens.Message InvoiceHTLC'CustomRecordsEntry where
messageName _
= Data.Text.pack "lnrpc.InvoiceHTLC.CustomRecordsEntry"
packedMessageDescriptor _
= "\n\
\\DC2CustomRecordsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\EOTR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\fR\ENQvalue:\STX8\SOH"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
key__field_descriptor
= Data.ProtoLens.FieldDescriptor
"key"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) ::
Data.ProtoLens.FieldDescriptor InvoiceHTLC'CustomRecordsEntry
value__field_descriptor
= Data.ProtoLens.FieldDescriptor
"value"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) ::
Data.ProtoLens.FieldDescriptor InvoiceHTLC'CustomRecordsEntry
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, key__field_descriptor),
(Data.ProtoLens.Tag 2, value__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_InvoiceHTLC'CustomRecordsEntry'_unknownFields
(\ x__ y__
-> x__ {_InvoiceHTLC'CustomRecordsEntry'_unknownFields = y__})
defMessage
= InvoiceHTLC'CustomRecordsEntry'_constructor
{_InvoiceHTLC'CustomRecordsEntry'key = Data.ProtoLens.fieldDefault,
_InvoiceHTLC'CustomRecordsEntry'value = Data.ProtoLens.fieldDefault,
_InvoiceHTLC'CustomRecordsEntry'_unknownFields = []}
parseMessage
= let
loop ::
InvoiceHTLC'CustomRecordsEntry
-> Data.ProtoLens.Encoding.Bytes.Parser InvoiceHTLC'CustomRecordsEntry
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 "key"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"value"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") 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) "CustomRecordsEntry"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData InvoiceHTLC'CustomRecordsEntry where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_InvoiceHTLC'CustomRecordsEntry'_unknownFields x__)
(Control.DeepSeq.deepseq
(_InvoiceHTLC'CustomRecordsEntry'key x__)
(Control.DeepSeq.deepseq
(_InvoiceHTLC'CustomRecordsEntry'value x__) ()))
newtype InvoiceHTLCState'UnrecognizedValue
= InvoiceHTLCState'UnrecognizedValue Data.Int.Int32
deriving stock (Prelude.Eq,
Prelude.Ord,
Prelude.Show,
GHC.Generics.Generic)
instance Text.PrettyPrint.GenericPretty.Out InvoiceHTLCState'UnrecognizedValue
data InvoiceHTLCState
= ACCEPTED |
SETTLED |
CANCELED |
InvoiceHTLCState'Unrecognized !InvoiceHTLCState'UnrecognizedValue
deriving stock (Prelude.Show,
Prelude.Eq,
Prelude.Ord,
GHC.Generics.Generic)
instance Data.ProtoLens.MessageEnum InvoiceHTLCState where
maybeToEnum 0 = Prelude.Just ACCEPTED
maybeToEnum 1 = Prelude.Just SETTLED
maybeToEnum 2 = Prelude.Just CANCELED
maybeToEnum k
= Prelude.Just
(InvoiceHTLCState'Unrecognized
(InvoiceHTLCState'UnrecognizedValue (Prelude.fromIntegral k)))
showEnum ACCEPTED = "ACCEPTED"
showEnum SETTLED = "SETTLED"
showEnum CANCELED = "CANCELED"
showEnum
(InvoiceHTLCState'Unrecognized (InvoiceHTLCState'UnrecognizedValue k))
= Prelude.show k
readEnum k
| (Prelude.==) k "ACCEPTED" = Prelude.Just ACCEPTED
| (Prelude.==) k "SETTLED" = Prelude.Just SETTLED
| (Prelude.==) k "CANCELED" = Prelude.Just CANCELED
| Prelude.otherwise
= (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum
instance Prelude.Bounded InvoiceHTLCState where
minBound = ACCEPTED
maxBound = CANCELED
instance Prelude.Enum InvoiceHTLCState where
toEnum k__
= Prelude.maybe
(Prelude.error
((Prelude.++)
"toEnum: unknown value for enum InvoiceHTLCState: "
(Prelude.show k__)))
Prelude.id (Data.ProtoLens.maybeToEnum k__)
fromEnum ACCEPTED = 0
fromEnum SETTLED = 1
fromEnum CANCELED = 2
fromEnum
(InvoiceHTLCState'Unrecognized (InvoiceHTLCState'UnrecognizedValue k))
= Prelude.fromIntegral k
succ CANCELED
= Prelude.error
"InvoiceHTLCState.succ: bad argument CANCELED. This value would be out of bounds."
succ ACCEPTED = SETTLED
succ SETTLED = CANCELED
succ (InvoiceHTLCState'Unrecognized _)
= Prelude.error
"InvoiceHTLCState.succ: bad argument: unrecognized value"
pred ACCEPTED
= Prelude.error
"InvoiceHTLCState.pred: bad argument ACCEPTED. This value would be out of bounds."
pred SETTLED = ACCEPTED
pred CANCELED = SETTLED
pred (InvoiceHTLCState'Unrecognized _)
= Prelude.error
"InvoiceHTLCState.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 InvoiceHTLCState where
fieldDefault = ACCEPTED
instance Control.DeepSeq.NFData InvoiceHTLCState where
rnf x__ = Prelude.seq x__ ()
instance Text.PrettyPrint.GenericPretty.Out InvoiceHTLCState
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.addIndex' @:: Lens' InvoiceSubscription Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.settleIndex' @:: Lens' InvoiceSubscription Data.Word.Word64@ -}
data InvoiceSubscription
= InvoiceSubscription'_constructor {_InvoiceSubscription'addIndex :: !Data.Word.Word64,
_InvoiceSubscription'settleIndex :: !Data.Word.Word64,
_InvoiceSubscription'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show InvoiceSubscription where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out InvoiceSubscription
instance Data.ProtoLens.Field.HasField InvoiceSubscription "addIndex" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InvoiceSubscription'addIndex
(\ x__ y__ -> x__ {_InvoiceSubscription'addIndex = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField InvoiceSubscription "settleIndex" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_InvoiceSubscription'settleIndex
(\ x__ y__ -> x__ {_InvoiceSubscription'settleIndex = y__}))
Prelude.id
instance Data.ProtoLens.Message InvoiceSubscription where
messageName _ = Data.Text.pack "lnrpc.InvoiceSubscription"
packedMessageDescriptor _
= "\n\
\\DC3InvoiceSubscription\DC2\ESC\n\
\\tadd_index\CAN\SOH \SOH(\EOTR\baddIndex\DC2!\n\
\\fsettle_index\CAN\STX \SOH(\EOTR\vsettleIndex"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
addIndex__field_descriptor
= Data.ProtoLens.FieldDescriptor
"add_index"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"addIndex")) ::
Data.ProtoLens.FieldDescriptor InvoiceSubscription
settleIndex__field_descriptor
= Data.ProtoLens.FieldDescriptor
"settle_index"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"settleIndex")) ::
Data.ProtoLens.FieldDescriptor InvoiceSubscription
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, addIndex__field_descriptor),
(Data.ProtoLens.Tag 2, settleIndex__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_InvoiceSubscription'_unknownFields
(\ x__ y__ -> x__ {_InvoiceSubscription'_unknownFields = y__})
defMessage
= InvoiceSubscription'_constructor
{_InvoiceSubscription'addIndex = Data.ProtoLens.fieldDefault,
_InvoiceSubscription'settleIndex = Data.ProtoLens.fieldDefault,
_InvoiceSubscription'_unknownFields = []}
parseMessage
= let
loop ::
InvoiceSubscription
-> Data.ProtoLens.Encoding.Bytes.Parser InvoiceSubscription
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 "add_index"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"addIndex") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "settle_index"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"settleIndex") 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) "InvoiceSubscription"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"addIndex") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"settleIndex") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData InvoiceSubscription where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_InvoiceSubscription'_unknownFields x__)
(Control.DeepSeq.deepseq
(_InvoiceSubscription'addIndex x__)
(Control.DeepSeq.deepseq
(_InvoiceSubscription'settleIndex x__) ()))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.pendingOnly' @:: Lens' ListInvoiceRequest Prelude.Bool@
* 'Proto.Lnrpc.Ln1_Fields.indexOffset' @:: Lens' ListInvoiceRequest Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.numMaxInvoices' @:: Lens' ListInvoiceRequest Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.reversed' @:: Lens' ListInvoiceRequest Prelude.Bool@ -}
data ListInvoiceRequest
= ListInvoiceRequest'_constructor {_ListInvoiceRequest'pendingOnly :: !Prelude.Bool,
_ListInvoiceRequest'indexOffset :: !Data.Word.Word64,
_ListInvoiceRequest'numMaxInvoices :: !Data.Word.Word64,
_ListInvoiceRequest'reversed :: !Prelude.Bool,
_ListInvoiceRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ListInvoiceRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ListInvoiceRequest
instance Data.ProtoLens.Field.HasField ListInvoiceRequest "pendingOnly" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListInvoiceRequest'pendingOnly
(\ x__ y__ -> x__ {_ListInvoiceRequest'pendingOnly = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ListInvoiceRequest "indexOffset" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListInvoiceRequest'indexOffset
(\ x__ y__ -> x__ {_ListInvoiceRequest'indexOffset = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ListInvoiceRequest "numMaxInvoices" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListInvoiceRequest'numMaxInvoices
(\ x__ y__ -> x__ {_ListInvoiceRequest'numMaxInvoices = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ListInvoiceRequest "reversed" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListInvoiceRequest'reversed
(\ x__ y__ -> x__ {_ListInvoiceRequest'reversed = y__}))
Prelude.id
instance Data.ProtoLens.Message ListInvoiceRequest where
messageName _ = Data.Text.pack "lnrpc.ListInvoiceRequest"
packedMessageDescriptor _
= "\n\
\\DC2ListInvoiceRequest\DC2!\n\
\\fpending_only\CAN\SOH \SOH(\bR\vpendingOnly\DC2!\n\
\\findex_offset\CAN\EOT \SOH(\EOTR\vindexOffset\DC2(\n\
\\DLEnum_max_invoices\CAN\ENQ \SOH(\EOTR\SOnumMaxInvoices\DC2\SUB\n\
\\breversed\CAN\ACK \SOH(\bR\breversed"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
pendingOnly__field_descriptor
= Data.ProtoLens.FieldDescriptor
"pending_only"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"pendingOnly")) ::
Data.ProtoLens.FieldDescriptor ListInvoiceRequest
indexOffset__field_descriptor
= Data.ProtoLens.FieldDescriptor
"index_offset"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"indexOffset")) ::
Data.ProtoLens.FieldDescriptor ListInvoiceRequest
numMaxInvoices__field_descriptor
= Data.ProtoLens.FieldDescriptor
"num_max_invoices"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"numMaxInvoices")) ::
Data.ProtoLens.FieldDescriptor ListInvoiceRequest
reversed__field_descriptor
= Data.ProtoLens.FieldDescriptor
"reversed"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"reversed")) ::
Data.ProtoLens.FieldDescriptor ListInvoiceRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, pendingOnly__field_descriptor),
(Data.ProtoLens.Tag 4, indexOffset__field_descriptor),
(Data.ProtoLens.Tag 5, numMaxInvoices__field_descriptor),
(Data.ProtoLens.Tag 6, reversed__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ListInvoiceRequest'_unknownFields
(\ x__ y__ -> x__ {_ListInvoiceRequest'_unknownFields = y__})
defMessage
= ListInvoiceRequest'_constructor
{_ListInvoiceRequest'pendingOnly = Data.ProtoLens.fieldDefault,
_ListInvoiceRequest'indexOffset = Data.ProtoLens.fieldDefault,
_ListInvoiceRequest'numMaxInvoices = Data.ProtoLens.fieldDefault,
_ListInvoiceRequest'reversed = Data.ProtoLens.fieldDefault,
_ListInvoiceRequest'_unknownFields = []}
parseMessage
= let
loop ::
ListInvoiceRequest
-> Data.ProtoLens.Encoding.Bytes.Parser ListInvoiceRequest
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)
"pending_only"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"pendingOnly") y x)
32
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "index_offset"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"indexOffset") y x)
40
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "num_max_invoices"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"numMaxInvoices") y x)
48
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"reversed"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"reversed") 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) "ListInvoiceRequest"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"pendingOnly") _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 (\ b -> if b then 1 else 0)
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"indexOffset") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 32)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"numMaxInvoices") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 40)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"reversed") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 48)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
(\ b -> if b then 1 else 0) _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))))
instance Control.DeepSeq.NFData ListInvoiceRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ListInvoiceRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_ListInvoiceRequest'pendingOnly x__)
(Control.DeepSeq.deepseq
(_ListInvoiceRequest'indexOffset x__)
(Control.DeepSeq.deepseq
(_ListInvoiceRequest'numMaxInvoices x__)
(Control.DeepSeq.deepseq (_ListInvoiceRequest'reversed x__) ()))))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.invoices' @:: Lens' ListInvoiceResponse [Invoice]@
* 'Proto.Lnrpc.Ln1_Fields.vec'invoices' @:: Lens' ListInvoiceResponse (Data.Vector.Vector Invoice)@
* 'Proto.Lnrpc.Ln1_Fields.lastIndexOffset' @:: Lens' ListInvoiceResponse Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.firstIndexOffset' @:: Lens' ListInvoiceResponse Data.Word.Word64@ -}
data ListInvoiceResponse
= ListInvoiceResponse'_constructor {_ListInvoiceResponse'invoices :: !(Data.Vector.Vector Invoice),
_ListInvoiceResponse'lastIndexOffset :: !Data.Word.Word64,
_ListInvoiceResponse'firstIndexOffset :: !Data.Word.Word64,
_ListInvoiceResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ListInvoiceResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ListInvoiceResponse
instance Data.ProtoLens.Field.HasField ListInvoiceResponse "invoices" [Invoice] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListInvoiceResponse'invoices
(\ x__ y__ -> x__ {_ListInvoiceResponse'invoices = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField ListInvoiceResponse "vec'invoices" (Data.Vector.Vector Invoice) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListInvoiceResponse'invoices
(\ x__ y__ -> x__ {_ListInvoiceResponse'invoices = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ListInvoiceResponse "lastIndexOffset" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListInvoiceResponse'lastIndexOffset
(\ x__ y__ -> x__ {_ListInvoiceResponse'lastIndexOffset = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ListInvoiceResponse "firstIndexOffset" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListInvoiceResponse'firstIndexOffset
(\ x__ y__ -> x__ {_ListInvoiceResponse'firstIndexOffset = y__}))
Prelude.id
instance Data.ProtoLens.Message ListInvoiceResponse where
messageName _ = Data.Text.pack "lnrpc.ListInvoiceResponse"
packedMessageDescriptor _
= "\n\
\\DC3ListInvoiceResponse\DC2*\n\
\\binvoices\CAN\SOH \ETX(\v2\SO.lnrpc.InvoiceR\binvoices\DC2*\n\
\\DC1last_index_offset\CAN\STX \SOH(\EOTR\SIlastIndexOffset\DC2,\n\
\\DC2first_index_offset\CAN\ETX \SOH(\EOTR\DLEfirstIndexOffset"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
invoices__field_descriptor
= Data.ProtoLens.FieldDescriptor
"invoices"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Invoice)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"invoices")) ::
Data.ProtoLens.FieldDescriptor ListInvoiceResponse
lastIndexOffset__field_descriptor
= Data.ProtoLens.FieldDescriptor
"last_index_offset"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"lastIndexOffset")) ::
Data.ProtoLens.FieldDescriptor ListInvoiceResponse
firstIndexOffset__field_descriptor
= Data.ProtoLens.FieldDescriptor
"first_index_offset"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"firstIndexOffset")) ::
Data.ProtoLens.FieldDescriptor ListInvoiceResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, invoices__field_descriptor),
(Data.ProtoLens.Tag 2, lastIndexOffset__field_descriptor),
(Data.ProtoLens.Tag 3, firstIndexOffset__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ListInvoiceResponse'_unknownFields
(\ x__ y__ -> x__ {_ListInvoiceResponse'_unknownFields = y__})
defMessage
= ListInvoiceResponse'_constructor
{_ListInvoiceResponse'invoices = Data.Vector.Generic.empty,
_ListInvoiceResponse'lastIndexOffset = Data.ProtoLens.fieldDefault,
_ListInvoiceResponse'firstIndexOffset = Data.ProtoLens.fieldDefault,
_ListInvoiceResponse'_unknownFields = []}
parseMessage
= let
loop ::
ListInvoiceResponse
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Invoice
-> Data.ProtoLens.Encoding.Bytes.Parser ListInvoiceResponse
loop x mutable'invoices
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'invoices <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'invoices)
(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'invoices") frozen'invoices 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)
"invoices"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'invoices y)
loop x v
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "last_index_offset"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"lastIndexOffset") y x)
mutable'invoices
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "first_index_offset"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"firstIndexOffset") y x)
mutable'invoices
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'invoices
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'invoices <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'invoices)
"ListInvoiceResponse"
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'invoices") _x))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"lastIndexOffset") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"firstIndexOffset") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))))
instance Control.DeepSeq.NFData ListInvoiceResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ListInvoiceResponse'_unknownFields x__)
(Control.DeepSeq.deepseq
(_ListInvoiceResponse'invoices x__)
(Control.DeepSeq.deepseq
(_ListInvoiceResponse'lastIndexOffset x__)
(Control.DeepSeq.deepseq
(_ListInvoiceResponse'firstIndexOffset x__) ())))
{- | Fields :
-}
data ListMacaroonIDsRequest
= ListMacaroonIDsRequest'_constructor {_ListMacaroonIDsRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ListMacaroonIDsRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ListMacaroonIDsRequest
instance Data.ProtoLens.Message ListMacaroonIDsRequest where
messageName _ = Data.Text.pack "lnrpc.ListMacaroonIDsRequest"
packedMessageDescriptor _
= "\n\
\\SYNListMacaroonIDsRequest"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag = let in Data.Map.fromList []
unknownFields
= Lens.Family2.Unchecked.lens
_ListMacaroonIDsRequest'_unknownFields
(\ x__ y__ -> x__ {_ListMacaroonIDsRequest'_unknownFields = y__})
defMessage
= ListMacaroonIDsRequest'_constructor
{_ListMacaroonIDsRequest'_unknownFields = []}
parseMessage
= let
loop ::
ListMacaroonIDsRequest
-> Data.ProtoLens.Encoding.Bytes.Parser ListMacaroonIDsRequest
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 {
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) "ListMacaroonIDsRequest"
buildMessage
= \ _x
-> Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
instance Control.DeepSeq.NFData ListMacaroonIDsRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ListMacaroonIDsRequest'_unknownFields x__) ()
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.rootKeyIds' @:: Lens' ListMacaroonIDsResponse [Data.Word.Word64]@
* 'Proto.Lnrpc.Ln1_Fields.vec'rootKeyIds' @:: Lens' ListMacaroonIDsResponse (Data.Vector.Unboxed.Vector Data.Word.Word64)@ -}
data ListMacaroonIDsResponse
= ListMacaroonIDsResponse'_constructor {_ListMacaroonIDsResponse'rootKeyIds :: !(Data.Vector.Unboxed.Vector Data.Word.Word64),
_ListMacaroonIDsResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ListMacaroonIDsResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ListMacaroonIDsResponse
instance Data.ProtoLens.Field.HasField ListMacaroonIDsResponse "rootKeyIds" [Data.Word.Word64] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListMacaroonIDsResponse'rootKeyIds
(\ x__ y__ -> x__ {_ListMacaroonIDsResponse'rootKeyIds = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField ListMacaroonIDsResponse "vec'rootKeyIds" (Data.Vector.Unboxed.Vector Data.Word.Word64) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListMacaroonIDsResponse'rootKeyIds
(\ x__ y__ -> x__ {_ListMacaroonIDsResponse'rootKeyIds = y__}))
Prelude.id
instance Data.ProtoLens.Message ListMacaroonIDsResponse where
messageName _ = Data.Text.pack "lnrpc.ListMacaroonIDsResponse"
packedMessageDescriptor _
= "\n\
\\ETBListMacaroonIDsResponse\DC2 \n\
\\froot_key_ids\CAN\SOH \ETX(\EOTR\n\
\rootKeyIds"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
rootKeyIds__field_descriptor
= Data.ProtoLens.FieldDescriptor
"root_key_ids"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Packed
(Data.ProtoLens.Field.field @"rootKeyIds")) ::
Data.ProtoLens.FieldDescriptor ListMacaroonIDsResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, rootKeyIds__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ListMacaroonIDsResponse'_unknownFields
(\ x__ y__ -> x__ {_ListMacaroonIDsResponse'_unknownFields = y__})
defMessage
= ListMacaroonIDsResponse'_constructor
{_ListMacaroonIDsResponse'rootKeyIds = Data.Vector.Generic.empty,
_ListMacaroonIDsResponse'_unknownFields = []}
parseMessage
= let
loop ::
ListMacaroonIDsResponse
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Word.Word64
-> Data.ProtoLens.Encoding.Bytes.Parser ListMacaroonIDsResponse
loop x mutable'rootKeyIds
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'rootKeyIds <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'rootKeyIds)
(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'rootKeyIds") frozen'rootKeyIds
x))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
8 -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "root_key_ids"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'rootKeyIds y)
loop x v
10
-> do y <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
((let
ploop qs
= do packedEnd <- Data.ProtoLens.Encoding.Bytes.atEnd
if packedEnd then
Prelude.return qs
else
do !q <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt
"root_key_ids"
qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
qs q)
ploop qs'
in ploop)
mutable'rootKeyIds)
loop x y
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'rootKeyIds
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'rootKeyIds <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'rootKeyIds)
"ListMacaroonIDsResponse"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
p = Lens.Family2.view
(Data.ProtoLens.Field.field @"vec'rootKeyIds") _x
in
if Data.Vector.Generic.null p 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))
(Data.ProtoLens.Encoding.Bytes.runBuilder
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
Data.ProtoLens.Encoding.Bytes.putVarInt p))))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData ListMacaroonIDsResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ListMacaroonIDsResponse'_unknownFields x__)
(Control.DeepSeq.deepseq
(_ListMacaroonIDsResponse'rootKeyIds x__) ())
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.includeIncomplete' @:: Lens' ListPaymentsRequest Prelude.Bool@
* 'Proto.Lnrpc.Ln1_Fields.indexOffset' @:: Lens' ListPaymentsRequest Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.maxPayments' @:: Lens' ListPaymentsRequest Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.reversed' @:: Lens' ListPaymentsRequest Prelude.Bool@ -}
data ListPaymentsRequest
= ListPaymentsRequest'_constructor {_ListPaymentsRequest'includeIncomplete :: !Prelude.Bool,
_ListPaymentsRequest'indexOffset :: !Data.Word.Word64,
_ListPaymentsRequest'maxPayments :: !Data.Word.Word64,
_ListPaymentsRequest'reversed :: !Prelude.Bool,
_ListPaymentsRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ListPaymentsRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ListPaymentsRequest
instance Data.ProtoLens.Field.HasField ListPaymentsRequest "includeIncomplete" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListPaymentsRequest'includeIncomplete
(\ x__ y__ -> x__ {_ListPaymentsRequest'includeIncomplete = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ListPaymentsRequest "indexOffset" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListPaymentsRequest'indexOffset
(\ x__ y__ -> x__ {_ListPaymentsRequest'indexOffset = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ListPaymentsRequest "maxPayments" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListPaymentsRequest'maxPayments
(\ x__ y__ -> x__ {_ListPaymentsRequest'maxPayments = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ListPaymentsRequest "reversed" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListPaymentsRequest'reversed
(\ x__ y__ -> x__ {_ListPaymentsRequest'reversed = y__}))
Prelude.id
instance Data.ProtoLens.Message ListPaymentsRequest where
messageName _ = Data.Text.pack "lnrpc.ListPaymentsRequest"
packedMessageDescriptor _
= "\n\
\\DC3ListPaymentsRequest\DC2-\n\
\\DC2include_incomplete\CAN\SOH \SOH(\bR\DC1includeIncomplete\DC2!\n\
\\findex_offset\CAN\STX \SOH(\EOTR\vindexOffset\DC2!\n\
\\fmax_payments\CAN\ETX \SOH(\EOTR\vmaxPayments\DC2\SUB\n\
\\breversed\CAN\EOT \SOH(\bR\breversed"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
includeIncomplete__field_descriptor
= Data.ProtoLens.FieldDescriptor
"include_incomplete"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"includeIncomplete")) ::
Data.ProtoLens.FieldDescriptor ListPaymentsRequest
indexOffset__field_descriptor
= Data.ProtoLens.FieldDescriptor
"index_offset"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"indexOffset")) ::
Data.ProtoLens.FieldDescriptor ListPaymentsRequest
maxPayments__field_descriptor
= Data.ProtoLens.FieldDescriptor
"max_payments"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"maxPayments")) ::
Data.ProtoLens.FieldDescriptor ListPaymentsRequest
reversed__field_descriptor
= Data.ProtoLens.FieldDescriptor
"reversed"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"reversed")) ::
Data.ProtoLens.FieldDescriptor ListPaymentsRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, includeIncomplete__field_descriptor),
(Data.ProtoLens.Tag 2, indexOffset__field_descriptor),
(Data.ProtoLens.Tag 3, maxPayments__field_descriptor),
(Data.ProtoLens.Tag 4, reversed__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ListPaymentsRequest'_unknownFields
(\ x__ y__ -> x__ {_ListPaymentsRequest'_unknownFields = y__})
defMessage
= ListPaymentsRequest'_constructor
{_ListPaymentsRequest'includeIncomplete = Data.ProtoLens.fieldDefault,
_ListPaymentsRequest'indexOffset = Data.ProtoLens.fieldDefault,
_ListPaymentsRequest'maxPayments = Data.ProtoLens.fieldDefault,
_ListPaymentsRequest'reversed = Data.ProtoLens.fieldDefault,
_ListPaymentsRequest'_unknownFields = []}
parseMessage
= let
loop ::
ListPaymentsRequest
-> Data.ProtoLens.Encoding.Bytes.Parser ListPaymentsRequest
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)
"include_incomplete"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"includeIncomplete") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "index_offset"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"indexOffset") y x)
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "max_payments"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"maxPayments") y x)
32
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"reversed"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"reversed") 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) "ListPaymentsRequest"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"includeIncomplete") _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 (\ b -> if b then 1 else 0)
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"indexOffset") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"maxPayments") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"reversed") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 32)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
(\ b -> if b then 1 else 0) _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))))
instance Control.DeepSeq.NFData ListPaymentsRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ListPaymentsRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_ListPaymentsRequest'includeIncomplete x__)
(Control.DeepSeq.deepseq
(_ListPaymentsRequest'indexOffset x__)
(Control.DeepSeq.deepseq
(_ListPaymentsRequest'maxPayments x__)
(Control.DeepSeq.deepseq (_ListPaymentsRequest'reversed x__) ()))))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.payments' @:: Lens' ListPaymentsResponse [Payment]@
* 'Proto.Lnrpc.Ln1_Fields.vec'payments' @:: Lens' ListPaymentsResponse (Data.Vector.Vector Payment)@
* 'Proto.Lnrpc.Ln1_Fields.firstIndexOffset' @:: Lens' ListPaymentsResponse Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.lastIndexOffset' @:: Lens' ListPaymentsResponse Data.Word.Word64@ -}
data ListPaymentsResponse
= ListPaymentsResponse'_constructor {_ListPaymentsResponse'payments :: !(Data.Vector.Vector Payment),
_ListPaymentsResponse'firstIndexOffset :: !Data.Word.Word64,
_ListPaymentsResponse'lastIndexOffset :: !Data.Word.Word64,
_ListPaymentsResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ListPaymentsResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ListPaymentsResponse
instance Data.ProtoLens.Field.HasField ListPaymentsResponse "payments" [Payment] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListPaymentsResponse'payments
(\ x__ y__ -> x__ {_ListPaymentsResponse'payments = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField ListPaymentsResponse "vec'payments" (Data.Vector.Vector Payment) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListPaymentsResponse'payments
(\ x__ y__ -> x__ {_ListPaymentsResponse'payments = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ListPaymentsResponse "firstIndexOffset" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListPaymentsResponse'firstIndexOffset
(\ x__ y__ -> x__ {_ListPaymentsResponse'firstIndexOffset = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ListPaymentsResponse "lastIndexOffset" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListPaymentsResponse'lastIndexOffset
(\ x__ y__ -> x__ {_ListPaymentsResponse'lastIndexOffset = y__}))
Prelude.id
instance Data.ProtoLens.Message ListPaymentsResponse where
messageName _ = Data.Text.pack "lnrpc.ListPaymentsResponse"
packedMessageDescriptor _
= "\n\
\\DC4ListPaymentsResponse\DC2*\n\
\\bpayments\CAN\SOH \ETX(\v2\SO.lnrpc.PaymentR\bpayments\DC2,\n\
\\DC2first_index_offset\CAN\STX \SOH(\EOTR\DLEfirstIndexOffset\DC2*\n\
\\DC1last_index_offset\CAN\ETX \SOH(\EOTR\SIlastIndexOffset"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
payments__field_descriptor
= Data.ProtoLens.FieldDescriptor
"payments"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Payment)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"payments")) ::
Data.ProtoLens.FieldDescriptor ListPaymentsResponse
firstIndexOffset__field_descriptor
= Data.ProtoLens.FieldDescriptor
"first_index_offset"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"firstIndexOffset")) ::
Data.ProtoLens.FieldDescriptor ListPaymentsResponse
lastIndexOffset__field_descriptor
= Data.ProtoLens.FieldDescriptor
"last_index_offset"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"lastIndexOffset")) ::
Data.ProtoLens.FieldDescriptor ListPaymentsResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, payments__field_descriptor),
(Data.ProtoLens.Tag 2, firstIndexOffset__field_descriptor),
(Data.ProtoLens.Tag 3, lastIndexOffset__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ListPaymentsResponse'_unknownFields
(\ x__ y__ -> x__ {_ListPaymentsResponse'_unknownFields = y__})
defMessage
= ListPaymentsResponse'_constructor
{_ListPaymentsResponse'payments = Data.Vector.Generic.empty,
_ListPaymentsResponse'firstIndexOffset = Data.ProtoLens.fieldDefault,
_ListPaymentsResponse'lastIndexOffset = Data.ProtoLens.fieldDefault,
_ListPaymentsResponse'_unknownFields = []}
parseMessage
= let
loop ::
ListPaymentsResponse
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Payment
-> Data.ProtoLens.Encoding.Bytes.Parser ListPaymentsResponse
loop x mutable'payments
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'payments <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'payments)
(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'payments") frozen'payments 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)
"payments"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'payments y)
loop x v
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "first_index_offset"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"firstIndexOffset") y x)
mutable'payments
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "last_index_offset"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"lastIndexOffset") y x)
mutable'payments
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'payments
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'payments <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'payments)
"ListPaymentsResponse"
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'payments") _x))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"firstIndexOffset") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"lastIndexOffset") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))))
instance Control.DeepSeq.NFData ListPaymentsResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ListPaymentsResponse'_unknownFields x__)
(Control.DeepSeq.deepseq
(_ListPaymentsResponse'payments x__)
(Control.DeepSeq.deepseq
(_ListPaymentsResponse'firstIndexOffset x__)
(Control.DeepSeq.deepseq
(_ListPaymentsResponse'lastIndexOffset x__) ())))
{- | Fields :
-}
data ListPermissionsRequest
= ListPermissionsRequest'_constructor {_ListPermissionsRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ListPermissionsRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ListPermissionsRequest
instance Data.ProtoLens.Message ListPermissionsRequest where
messageName _ = Data.Text.pack "lnrpc.ListPermissionsRequest"
packedMessageDescriptor _
= "\n\
\\SYNListPermissionsRequest"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag = let in Data.Map.fromList []
unknownFields
= Lens.Family2.Unchecked.lens
_ListPermissionsRequest'_unknownFields
(\ x__ y__ -> x__ {_ListPermissionsRequest'_unknownFields = y__})
defMessage
= ListPermissionsRequest'_constructor
{_ListPermissionsRequest'_unknownFields = []}
parseMessage
= let
loop ::
ListPermissionsRequest
-> Data.ProtoLens.Encoding.Bytes.Parser ListPermissionsRequest
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 {
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) "ListPermissionsRequest"
buildMessage
= \ _x
-> Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
instance Control.DeepSeq.NFData ListPermissionsRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ListPermissionsRequest'_unknownFields x__) ()
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.methodPermissions' @:: Lens' ListPermissionsResponse (Data.Map.Map Data.Text.Text MacaroonPermissionList)@ -}
data ListPermissionsResponse
= ListPermissionsResponse'_constructor {_ListPermissionsResponse'methodPermissions :: !(Data.Map.Map Data.Text.Text MacaroonPermissionList),
_ListPermissionsResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ListPermissionsResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ListPermissionsResponse
instance Data.ProtoLens.Field.HasField ListPermissionsResponse "methodPermissions" (Data.Map.Map Data.Text.Text MacaroonPermissionList) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListPermissionsResponse'methodPermissions
(\ x__ y__
-> x__ {_ListPermissionsResponse'methodPermissions = y__}))
Prelude.id
instance Data.ProtoLens.Message ListPermissionsResponse where
messageName _ = Data.Text.pack "lnrpc.ListPermissionsResponse"
packedMessageDescriptor _
= "\n\
\\ETBListPermissionsResponse\DC2d\n\
\\DC2method_permissions\CAN\SOH \ETX(\v25.lnrpc.ListPermissionsResponse.MethodPermissionsEntryR\DC1methodPermissions\SUBc\n\
\\SYNMethodPermissionsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC23\n\
\\ENQvalue\CAN\STX \SOH(\v2\GS.lnrpc.MacaroonPermissionListR\ENQvalue:\STX8\SOH"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
methodPermissions__field_descriptor
= Data.ProtoLens.FieldDescriptor
"method_permissions"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ListPermissionsResponse'MethodPermissionsEntry)
(Data.ProtoLens.MapField
(Data.ProtoLens.Field.field @"key")
(Data.ProtoLens.Field.field @"value")
(Data.ProtoLens.Field.field @"methodPermissions")) ::
Data.ProtoLens.FieldDescriptor ListPermissionsResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, methodPermissions__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ListPermissionsResponse'_unknownFields
(\ x__ y__ -> x__ {_ListPermissionsResponse'_unknownFields = y__})
defMessage
= ListPermissionsResponse'_constructor
{_ListPermissionsResponse'methodPermissions = Data.Map.empty,
_ListPermissionsResponse'_unknownFields = []}
parseMessage
= let
loop ::
ListPermissionsResponse
-> Data.ProtoLens.Encoding.Bytes.Parser ListPermissionsResponse
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 !(entry :: ListPermissionsResponse'MethodPermissionsEntry) <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral
len)
Data.ProtoLens.parseMessage)
"method_permissions"
(let
key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry
value
= Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry
in
loop
(Lens.Family2.over
(Data.ProtoLens.Field.field @"methodPermissions")
(\ !t -> Data.Map.insert key value t) 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) "ListPermissionsResponse"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(Data.Monoid.mconcat
(Prelude.map
(\ _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
(Lens.Family2.set
(Data.ProtoLens.Field.field @"key") (Prelude.fst _v)
(Lens.Family2.set
(Data.ProtoLens.Field.field @"value") (Prelude.snd _v)
(Data.ProtoLens.defMessage ::
ListPermissionsResponse'MethodPermissionsEntry)))))
(Data.Map.toList
(Lens.Family2.view
(Data.ProtoLens.Field.field @"methodPermissions") _x))))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData ListPermissionsResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ListPermissionsResponse'_unknownFields x__)
(Control.DeepSeq.deepseq
(_ListPermissionsResponse'methodPermissions x__) ())
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.key' @:: Lens' ListPermissionsResponse'MethodPermissionsEntry Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.value' @:: Lens' ListPermissionsResponse'MethodPermissionsEntry MacaroonPermissionList@
* 'Proto.Lnrpc.Ln1_Fields.maybe'value' @:: Lens' ListPermissionsResponse'MethodPermissionsEntry (Prelude.Maybe MacaroonPermissionList)@ -}
data ListPermissionsResponse'MethodPermissionsEntry
= ListPermissionsResponse'MethodPermissionsEntry'_constructor {_ListPermissionsResponse'MethodPermissionsEntry'key :: !Data.Text.Text,
_ListPermissionsResponse'MethodPermissionsEntry'value :: !(Prelude.Maybe MacaroonPermissionList),
_ListPermissionsResponse'MethodPermissionsEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ListPermissionsResponse'MethodPermissionsEntry where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ListPermissionsResponse'MethodPermissionsEntry
instance Data.ProtoLens.Field.HasField ListPermissionsResponse'MethodPermissionsEntry "key" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListPermissionsResponse'MethodPermissionsEntry'key
(\ x__ y__
-> x__
{_ListPermissionsResponse'MethodPermissionsEntry'key = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ListPermissionsResponse'MethodPermissionsEntry "value" MacaroonPermissionList where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListPermissionsResponse'MethodPermissionsEntry'value
(\ x__ y__
-> x__
{_ListPermissionsResponse'MethodPermissionsEntry'value = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ListPermissionsResponse'MethodPermissionsEntry "maybe'value" (Prelude.Maybe MacaroonPermissionList) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListPermissionsResponse'MethodPermissionsEntry'value
(\ x__ y__
-> x__
{_ListPermissionsResponse'MethodPermissionsEntry'value = y__}))
Prelude.id
instance Data.ProtoLens.Message ListPermissionsResponse'MethodPermissionsEntry where
messageName _
= Data.Text.pack
"lnrpc.ListPermissionsResponse.MethodPermissionsEntry"
packedMessageDescriptor _
= "\n\
\\SYNMethodPermissionsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC23\n\
\\ENQvalue\CAN\STX \SOH(\v2\GS.lnrpc.MacaroonPermissionListR\ENQvalue:\STX8\SOH"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
key__field_descriptor
= Data.ProtoLens.FieldDescriptor
"key"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) ::
Data.ProtoLens.FieldDescriptor ListPermissionsResponse'MethodPermissionsEntry
value__field_descriptor
= Data.ProtoLens.FieldDescriptor
"value"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor MacaroonPermissionList)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'value")) ::
Data.ProtoLens.FieldDescriptor ListPermissionsResponse'MethodPermissionsEntry
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, key__field_descriptor),
(Data.ProtoLens.Tag 2, value__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ListPermissionsResponse'MethodPermissionsEntry'_unknownFields
(\ x__ y__
-> x__
{_ListPermissionsResponse'MethodPermissionsEntry'_unknownFields = y__})
defMessage
= ListPermissionsResponse'MethodPermissionsEntry'_constructor
{_ListPermissionsResponse'MethodPermissionsEntry'key = Data.ProtoLens.fieldDefault,
_ListPermissionsResponse'MethodPermissionsEntry'value = Prelude.Nothing,
_ListPermissionsResponse'MethodPermissionsEntry'_unknownFields = []}
parseMessage
= let
loop ::
ListPermissionsResponse'MethodPermissionsEntry
-> Data.ProtoLens.Encoding.Bytes.Parser ListPermissionsResponse'MethodPermissionsEntry
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))
"key"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") 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)
"value"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") 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) "MethodPermissionsEntry"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _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.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _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 ListPermissionsResponse'MethodPermissionsEntry where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ListPermissionsResponse'MethodPermissionsEntry'_unknownFields
x__)
(Control.DeepSeq.deepseq
(_ListPermissionsResponse'MethodPermissionsEntry'key x__)
(Control.DeepSeq.deepseq
(_ListPermissionsResponse'MethodPermissionsEntry'value x__) ()))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.nonce' @:: Lens' MacaroonId Data.ByteString.ByteString@
* 'Proto.Lnrpc.Ln1_Fields.storageId' @:: Lens' MacaroonId Data.ByteString.ByteString@
* 'Proto.Lnrpc.Ln1_Fields.ops' @:: Lens' MacaroonId [Op]@
* 'Proto.Lnrpc.Ln1_Fields.vec'ops' @:: Lens' MacaroonId (Data.Vector.Vector Op)@ -}
data MacaroonId
= MacaroonId'_constructor {_MacaroonId'nonce :: !Data.ByteString.ByteString,
_MacaroonId'storageId :: !Data.ByteString.ByteString,
_MacaroonId'ops :: !(Data.Vector.Vector Op),
_MacaroonId'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show MacaroonId where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out MacaroonId
instance Data.ProtoLens.Field.HasField MacaroonId "nonce" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_MacaroonId'nonce (\ x__ y__ -> x__ {_MacaroonId'nonce = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField MacaroonId "storageId" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_MacaroonId'storageId
(\ x__ y__ -> x__ {_MacaroonId'storageId = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField MacaroonId "ops" [Op] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_MacaroonId'ops (\ x__ y__ -> x__ {_MacaroonId'ops = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField MacaroonId "vec'ops" (Data.Vector.Vector Op) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_MacaroonId'ops (\ x__ y__ -> x__ {_MacaroonId'ops = y__}))
Prelude.id
instance Data.ProtoLens.Message MacaroonId where
messageName _ = Data.Text.pack "lnrpc.MacaroonId"
packedMessageDescriptor _
= "\n\
\\n\
\MacaroonId\DC2\DC4\n\
\\ENQnonce\CAN\SOH \SOH(\fR\ENQnonce\DC2\FS\n\
\\tstorageId\CAN\STX \SOH(\fR\tstorageId\DC2\ESC\n\
\\ETXops\CAN\ETX \ETX(\v2\t.lnrpc.OpR\ETXops"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
nonce__field_descriptor
= Data.ProtoLens.FieldDescriptor
"nonce"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"nonce")) ::
Data.ProtoLens.FieldDescriptor MacaroonId
storageId__field_descriptor
= Data.ProtoLens.FieldDescriptor
"storageId"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"storageId")) ::
Data.ProtoLens.FieldDescriptor MacaroonId
ops__field_descriptor
= Data.ProtoLens.FieldDescriptor
"ops"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Op)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"ops")) ::
Data.ProtoLens.FieldDescriptor MacaroonId
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, nonce__field_descriptor),
(Data.ProtoLens.Tag 2, storageId__field_descriptor),
(Data.ProtoLens.Tag 3, ops__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_MacaroonId'_unknownFields
(\ x__ y__ -> x__ {_MacaroonId'_unknownFields = y__})
defMessage
= MacaroonId'_constructor
{_MacaroonId'nonce = Data.ProtoLens.fieldDefault,
_MacaroonId'storageId = Data.ProtoLens.fieldDefault,
_MacaroonId'ops = Data.Vector.Generic.empty,
_MacaroonId'_unknownFields = []}
parseMessage
= let
loop ::
MacaroonId
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Op
-> Data.ProtoLens.Encoding.Bytes.Parser MacaroonId
loop x mutable'ops
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'ops <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'ops)
(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'ops") frozen'ops 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))
"nonce"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"nonce") y x)
mutable'ops
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"storageId"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"storageId") y x)
mutable'ops
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)
"ops"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'ops y)
loop x v
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'ops
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'ops <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'ops)
"MacaroonId"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"nonce") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"storageId") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
((Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage _v))
(Lens.Family2.view (Data.ProtoLens.Field.field @"vec'ops") _x))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))))
instance Control.DeepSeq.NFData MacaroonId where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_MacaroonId'_unknownFields x__)
(Control.DeepSeq.deepseq
(_MacaroonId'nonce x__)
(Control.DeepSeq.deepseq
(_MacaroonId'storageId x__)
(Control.DeepSeq.deepseq (_MacaroonId'ops x__) ())))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.entity' @:: Lens' MacaroonPermission Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.action' @:: Lens' MacaroonPermission Data.Text.Text@ -}
data MacaroonPermission
= MacaroonPermission'_constructor {_MacaroonPermission'entity :: !Data.Text.Text,
_MacaroonPermission'action :: !Data.Text.Text,
_MacaroonPermission'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show MacaroonPermission where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out MacaroonPermission
instance Data.ProtoLens.Field.HasField MacaroonPermission "entity" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_MacaroonPermission'entity
(\ x__ y__ -> x__ {_MacaroonPermission'entity = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField MacaroonPermission "action" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_MacaroonPermission'action
(\ x__ y__ -> x__ {_MacaroonPermission'action = y__}))
Prelude.id
instance Data.ProtoLens.Message MacaroonPermission where
messageName _ = Data.Text.pack "lnrpc.MacaroonPermission"
packedMessageDescriptor _
= "\n\
\\DC2MacaroonPermission\DC2\SYN\n\
\\ACKentity\CAN\SOH \SOH(\tR\ACKentity\DC2\SYN\n\
\\ACKaction\CAN\STX \SOH(\tR\ACKaction"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
entity__field_descriptor
= Data.ProtoLens.FieldDescriptor
"entity"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"entity")) ::
Data.ProtoLens.FieldDescriptor MacaroonPermission
action__field_descriptor
= Data.ProtoLens.FieldDescriptor
"action"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"action")) ::
Data.ProtoLens.FieldDescriptor MacaroonPermission
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, entity__field_descriptor),
(Data.ProtoLens.Tag 2, action__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_MacaroonPermission'_unknownFields
(\ x__ y__ -> x__ {_MacaroonPermission'_unknownFields = y__})
defMessage
= MacaroonPermission'_constructor
{_MacaroonPermission'entity = Data.ProtoLens.fieldDefault,
_MacaroonPermission'action = Data.ProtoLens.fieldDefault,
_MacaroonPermission'_unknownFields = []}
parseMessage
= let
loop ::
MacaroonPermission
-> Data.ProtoLens.Encoding.Bytes.Parser MacaroonPermission
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))
"entity"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"entity") 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))
"action"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"action") 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) "MacaroonPermission"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"entity") _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.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"action") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(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))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData MacaroonPermission where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_MacaroonPermission'_unknownFields x__)
(Control.DeepSeq.deepseq
(_MacaroonPermission'entity x__)
(Control.DeepSeq.deepseq (_MacaroonPermission'action x__) ()))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.permissions' @:: Lens' MacaroonPermissionList [MacaroonPermission]@
* 'Proto.Lnrpc.Ln1_Fields.vec'permissions' @:: Lens' MacaroonPermissionList (Data.Vector.Vector MacaroonPermission)@ -}
data MacaroonPermissionList
= MacaroonPermissionList'_constructor {_MacaroonPermissionList'permissions :: !(Data.Vector.Vector MacaroonPermission),
_MacaroonPermissionList'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show MacaroonPermissionList where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out MacaroonPermissionList
instance Data.ProtoLens.Field.HasField MacaroonPermissionList "permissions" [MacaroonPermission] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_MacaroonPermissionList'permissions
(\ x__ y__ -> x__ {_MacaroonPermissionList'permissions = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField MacaroonPermissionList "vec'permissions" (Data.Vector.Vector MacaroonPermission) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_MacaroonPermissionList'permissions
(\ x__ y__ -> x__ {_MacaroonPermissionList'permissions = y__}))
Prelude.id
instance Data.ProtoLens.Message MacaroonPermissionList where
messageName _ = Data.Text.pack "lnrpc.MacaroonPermissionList"
packedMessageDescriptor _
= "\n\
\\SYNMacaroonPermissionList\DC2;\n\
\\vpermissions\CAN\SOH \ETX(\v2\EM.lnrpc.MacaroonPermissionR\vpermissions"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
permissions__field_descriptor
= Data.ProtoLens.FieldDescriptor
"permissions"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor MacaroonPermission)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"permissions")) ::
Data.ProtoLens.FieldDescriptor MacaroonPermissionList
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, permissions__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_MacaroonPermissionList'_unknownFields
(\ x__ y__ -> x__ {_MacaroonPermissionList'_unknownFields = y__})
defMessage
= MacaroonPermissionList'_constructor
{_MacaroonPermissionList'permissions = Data.Vector.Generic.empty,
_MacaroonPermissionList'_unknownFields = []}
parseMessage
= let
loop ::
MacaroonPermissionList
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MacaroonPermission
-> Data.ProtoLens.Encoding.Bytes.Parser MacaroonPermissionList
loop x mutable'permissions
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'permissions <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'permissions)
(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'permissions") frozen'permissions
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)
"permissions"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'permissions y)
loop x v
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'permissions
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'permissions <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'permissions)
"MacaroonPermissionList"
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'permissions") _x))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData MacaroonPermissionList where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_MacaroonPermissionList'_unknownFields x__)
(Control.DeepSeq.deepseq
(_MacaroonPermissionList'permissions x__) ())
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.middlewareName' @:: Lens' MiddlewareRegistration Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.customMacaroonCaveatName' @:: Lens' MiddlewareRegistration Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.readOnlyMode' @:: Lens' MiddlewareRegistration Prelude.Bool@ -}
data MiddlewareRegistration
= MiddlewareRegistration'_constructor {_MiddlewareRegistration'middlewareName :: !Data.Text.Text,
_MiddlewareRegistration'customMacaroonCaveatName :: !Data.Text.Text,
_MiddlewareRegistration'readOnlyMode :: !Prelude.Bool,
_MiddlewareRegistration'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show MiddlewareRegistration where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out MiddlewareRegistration
instance Data.ProtoLens.Field.HasField MiddlewareRegistration "middlewareName" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_MiddlewareRegistration'middlewareName
(\ x__ y__ -> x__ {_MiddlewareRegistration'middlewareName = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField MiddlewareRegistration "customMacaroonCaveatName" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_MiddlewareRegistration'customMacaroonCaveatName
(\ x__ y__
-> x__ {_MiddlewareRegistration'customMacaroonCaveatName = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField MiddlewareRegistration "readOnlyMode" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_MiddlewareRegistration'readOnlyMode
(\ x__ y__ -> x__ {_MiddlewareRegistration'readOnlyMode = y__}))
Prelude.id
instance Data.ProtoLens.Message MiddlewareRegistration where
messageName _ = Data.Text.pack "lnrpc.MiddlewareRegistration"
packedMessageDescriptor _
= "\n\
\\SYNMiddlewareRegistration\DC2'\n\
\\SImiddleware_name\CAN\SOH \SOH(\tR\SOmiddlewareName\DC2=\n\
\\ESCcustom_macaroon_caveat_name\CAN\STX \SOH(\tR\CANcustomMacaroonCaveatName\DC2$\n\
\\SOread_only_mode\CAN\ETX \SOH(\bR\freadOnlyMode"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
middlewareName__field_descriptor
= Data.ProtoLens.FieldDescriptor
"middleware_name"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"middlewareName")) ::
Data.ProtoLens.FieldDescriptor MiddlewareRegistration
customMacaroonCaveatName__field_descriptor
= Data.ProtoLens.FieldDescriptor
"custom_macaroon_caveat_name"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"customMacaroonCaveatName")) ::
Data.ProtoLens.FieldDescriptor MiddlewareRegistration
readOnlyMode__field_descriptor
= Data.ProtoLens.FieldDescriptor
"read_only_mode"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"readOnlyMode")) ::
Data.ProtoLens.FieldDescriptor MiddlewareRegistration
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, middlewareName__field_descriptor),
(Data.ProtoLens.Tag 2, customMacaroonCaveatName__field_descriptor),
(Data.ProtoLens.Tag 3, readOnlyMode__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_MiddlewareRegistration'_unknownFields
(\ x__ y__ -> x__ {_MiddlewareRegistration'_unknownFields = y__})
defMessage
= MiddlewareRegistration'_constructor
{_MiddlewareRegistration'middlewareName = Data.ProtoLens.fieldDefault,
_MiddlewareRegistration'customMacaroonCaveatName = Data.ProtoLens.fieldDefault,
_MiddlewareRegistration'readOnlyMode = Data.ProtoLens.fieldDefault,
_MiddlewareRegistration'_unknownFields = []}
parseMessage
= let
loop ::
MiddlewareRegistration
-> Data.ProtoLens.Encoding.Bytes.Parser MiddlewareRegistration
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))
"middleware_name"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"middlewareName") 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))
"custom_macaroon_caveat_name"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"customMacaroonCaveatName") y x)
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"read_only_mode"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"readOnlyMode") 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) "MiddlewareRegistration"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"middlewareName") _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.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"customMacaroonCaveatName") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(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))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"readOnlyMode") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt (\ b -> if b then 1 else 0)
_v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))))
instance Control.DeepSeq.NFData MiddlewareRegistration where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_MiddlewareRegistration'_unknownFields x__)
(Control.DeepSeq.deepseq
(_MiddlewareRegistration'middlewareName x__)
(Control.DeepSeq.deepseq
(_MiddlewareRegistration'customMacaroonCaveatName x__)
(Control.DeepSeq.deepseq
(_MiddlewareRegistration'readOnlyMode x__) ())))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.chanPoints' @:: Lens' MultiChanBackup [Proto.Lnrpc.Ln0.ChannelPoint]@
* 'Proto.Lnrpc.Ln1_Fields.vec'chanPoints' @:: Lens' MultiChanBackup (Data.Vector.Vector Proto.Lnrpc.Ln0.ChannelPoint)@
* 'Proto.Lnrpc.Ln1_Fields.multiChanBackup' @:: Lens' MultiChanBackup Data.ByteString.ByteString@ -}
data MultiChanBackup
= MultiChanBackup'_constructor {_MultiChanBackup'chanPoints :: !(Data.Vector.Vector Proto.Lnrpc.Ln0.ChannelPoint),
_MultiChanBackup'multiChanBackup :: !Data.ByteString.ByteString,
_MultiChanBackup'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show MultiChanBackup where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out MultiChanBackup
instance Data.ProtoLens.Field.HasField MultiChanBackup "chanPoints" [Proto.Lnrpc.Ln0.ChannelPoint] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_MultiChanBackup'chanPoints
(\ x__ y__ -> x__ {_MultiChanBackup'chanPoints = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField MultiChanBackup "vec'chanPoints" (Data.Vector.Vector Proto.Lnrpc.Ln0.ChannelPoint) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_MultiChanBackup'chanPoints
(\ x__ y__ -> x__ {_MultiChanBackup'chanPoints = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField MultiChanBackup "multiChanBackup" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_MultiChanBackup'multiChanBackup
(\ x__ y__ -> x__ {_MultiChanBackup'multiChanBackup = y__}))
Prelude.id
instance Data.ProtoLens.Message MultiChanBackup where
messageName _ = Data.Text.pack "lnrpc.MultiChanBackup"
packedMessageDescriptor _
= "\n\
\\SIMultiChanBackup\DC24\n\
\\vchan_points\CAN\SOH \ETX(\v2\DC3.lnrpc.ChannelPointR\n\
\chanPoints\DC2*\n\
\\DC1multi_chan_backup\CAN\STX \SOH(\fR\SImultiChanBackup"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
chanPoints__field_descriptor
= Data.ProtoLens.FieldDescriptor
"chan_points"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Lnrpc.Ln0.ChannelPoint)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"chanPoints")) ::
Data.ProtoLens.FieldDescriptor MultiChanBackup
multiChanBackup__field_descriptor
= Data.ProtoLens.FieldDescriptor
"multi_chan_backup"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"multiChanBackup")) ::
Data.ProtoLens.FieldDescriptor MultiChanBackup
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, chanPoints__field_descriptor),
(Data.ProtoLens.Tag 2, multiChanBackup__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_MultiChanBackup'_unknownFields
(\ x__ y__ -> x__ {_MultiChanBackup'_unknownFields = y__})
defMessage
= MultiChanBackup'_constructor
{_MultiChanBackup'chanPoints = Data.Vector.Generic.empty,
_MultiChanBackup'multiChanBackup = Data.ProtoLens.fieldDefault,
_MultiChanBackup'_unknownFields = []}
parseMessage
= let
loop ::
MultiChanBackup
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Lnrpc.Ln0.ChannelPoint
-> Data.ProtoLens.Encoding.Bytes.Parser MultiChanBackup
loop x mutable'chanPoints
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'chanPoints <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'chanPoints)
(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'chanPoints") frozen'chanPoints
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)
"chan_points"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'chanPoints y)
loop x v
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"multi_chan_backup"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"multiChanBackup") y x)
mutable'chanPoints
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'chanPoints
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'chanPoints <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'chanPoints)
"MultiChanBackup"
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'chanPoints") _x))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"multiChanBackup") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData MultiChanBackup where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_MultiChanBackup'_unknownFields x__)
(Control.DeepSeq.deepseq
(_MultiChanBackup'chanPoints x__)
(Control.DeepSeq.deepseq
(_MultiChanBackup'multiChanBackup x__) ()))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.entity' @:: Lens' Op Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.actions' @:: Lens' Op [Data.Text.Text]@
* 'Proto.Lnrpc.Ln1_Fields.vec'actions' @:: Lens' Op (Data.Vector.Vector Data.Text.Text)@ -}
data Op
= Op'_constructor {_Op'entity :: !Data.Text.Text,
_Op'actions :: !(Data.Vector.Vector Data.Text.Text),
_Op'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show Op where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out Op
instance Data.ProtoLens.Field.HasField Op "entity" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Op'entity (\ x__ y__ -> x__ {_Op'entity = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Op "actions" [Data.Text.Text] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Op'actions (\ x__ y__ -> x__ {_Op'actions = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField Op "vec'actions" (Data.Vector.Vector Data.Text.Text) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Op'actions (\ x__ y__ -> x__ {_Op'actions = y__}))
Prelude.id
instance Data.ProtoLens.Message Op where
messageName _ = Data.Text.pack "lnrpc.Op"
packedMessageDescriptor _
= "\n\
\\STXOp\DC2\SYN\n\
\\ACKentity\CAN\SOH \SOH(\tR\ACKentity\DC2\CAN\n\
\\aactions\CAN\STX \ETX(\tR\aactions"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
entity__field_descriptor
= Data.ProtoLens.FieldDescriptor
"entity"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"entity")) ::
Data.ProtoLens.FieldDescriptor Op
actions__field_descriptor
= Data.ProtoLens.FieldDescriptor
"actions"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"actions")) ::
Data.ProtoLens.FieldDescriptor Op
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, entity__field_descriptor),
(Data.ProtoLens.Tag 2, actions__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_Op'_unknownFields (\ x__ y__ -> x__ {_Op'_unknownFields = y__})
defMessage
= Op'_constructor
{_Op'entity = Data.ProtoLens.fieldDefault,
_Op'actions = Data.Vector.Generic.empty, _Op'_unknownFields = []}
parseMessage
= let
loop ::
Op
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
-> Data.ProtoLens.Encoding.Bytes.Parser Op
loop x mutable'actions
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'actions <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'actions)
(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'actions") frozen'actions 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))
"entity"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"entity") y x)
mutable'actions
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))
"actions"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'actions y)
loop x v
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'actions
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'actions <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'actions)
"Op"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"entity") _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.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.Text.Encoding.encodeUtf8 _v))
(Lens.Family2.view (Data.ProtoLens.Field.field @"vec'actions") _x))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData Op where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_Op'_unknownFields x__)
(Control.DeepSeq.deepseq
(_Op'entity x__) (Control.DeepSeq.deepseq (_Op'actions x__) ()))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.destination' @:: Lens' PayReq Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.paymentHash' @:: Lens' PayReq Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.numSatoshis' @:: Lens' PayReq Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.timestamp' @:: Lens' PayReq Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.expiry' @:: Lens' PayReq Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.description' @:: Lens' PayReq Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.descriptionHash' @:: Lens' PayReq Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.fallbackAddr' @:: Lens' PayReq Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.cltvExpiry' @:: Lens' PayReq Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.routeHints' @:: Lens' PayReq [Proto.Lnrpc.Ln0.RouteHint]@
* 'Proto.Lnrpc.Ln1_Fields.vec'routeHints' @:: Lens' PayReq (Data.Vector.Vector Proto.Lnrpc.Ln0.RouteHint)@
* 'Proto.Lnrpc.Ln1_Fields.paymentAddr' @:: Lens' PayReq Data.ByteString.ByteString@
* 'Proto.Lnrpc.Ln1_Fields.numMsat' @:: Lens' PayReq Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.features' @:: Lens' PayReq (Data.Map.Map Data.Word.Word32 Proto.Lnrpc.Ln0.Feature)@ -}
data PayReq
= PayReq'_constructor {_PayReq'destination :: !Data.Text.Text,
_PayReq'paymentHash :: !Data.Text.Text,
_PayReq'numSatoshis :: !Data.Int.Int64,
_PayReq'timestamp :: !Data.Int.Int64,
_PayReq'expiry :: !Data.Int.Int64,
_PayReq'description :: !Data.Text.Text,
_PayReq'descriptionHash :: !Data.Text.Text,
_PayReq'fallbackAddr :: !Data.Text.Text,
_PayReq'cltvExpiry :: !Data.Int.Int64,
_PayReq'routeHints :: !(Data.Vector.Vector Proto.Lnrpc.Ln0.RouteHint),
_PayReq'paymentAddr :: !Data.ByteString.ByteString,
_PayReq'numMsat :: !Data.Int.Int64,
_PayReq'features :: !(Data.Map.Map Data.Word.Word32 Proto.Lnrpc.Ln0.Feature),
_PayReq'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show PayReq where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out PayReq
instance Data.ProtoLens.Field.HasField PayReq "destination" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PayReq'destination (\ x__ y__ -> x__ {_PayReq'destination = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PayReq "paymentHash" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PayReq'paymentHash (\ x__ y__ -> x__ {_PayReq'paymentHash = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PayReq "numSatoshis" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PayReq'numSatoshis (\ x__ y__ -> x__ {_PayReq'numSatoshis = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PayReq "timestamp" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PayReq'timestamp (\ x__ y__ -> x__ {_PayReq'timestamp = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PayReq "expiry" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PayReq'expiry (\ x__ y__ -> x__ {_PayReq'expiry = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PayReq "description" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PayReq'description (\ x__ y__ -> x__ {_PayReq'description = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PayReq "descriptionHash" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PayReq'descriptionHash
(\ x__ y__ -> x__ {_PayReq'descriptionHash = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PayReq "fallbackAddr" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PayReq'fallbackAddr
(\ x__ y__ -> x__ {_PayReq'fallbackAddr = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PayReq "cltvExpiry" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PayReq'cltvExpiry (\ x__ y__ -> x__ {_PayReq'cltvExpiry = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PayReq "routeHints" [Proto.Lnrpc.Ln0.RouteHint] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PayReq'routeHints (\ x__ y__ -> x__ {_PayReq'routeHints = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField PayReq "vec'routeHints" (Data.Vector.Vector Proto.Lnrpc.Ln0.RouteHint) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PayReq'routeHints (\ x__ y__ -> x__ {_PayReq'routeHints = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PayReq "paymentAddr" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PayReq'paymentAddr (\ x__ y__ -> x__ {_PayReq'paymentAddr = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PayReq "numMsat" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PayReq'numMsat (\ x__ y__ -> x__ {_PayReq'numMsat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PayReq "features" (Data.Map.Map Data.Word.Word32 Proto.Lnrpc.Ln0.Feature) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PayReq'features (\ x__ y__ -> x__ {_PayReq'features = y__}))
Prelude.id
instance Data.ProtoLens.Message PayReq where
messageName _ = Data.Text.pack "lnrpc.PayReq"
packedMessageDescriptor _
= "\n\
\\ACKPayReq\DC2 \n\
\\vdestination\CAN\SOH \SOH(\tR\vdestination\DC2!\n\
\\fpayment_hash\CAN\STX \SOH(\tR\vpaymentHash\DC2!\n\
\\fnum_satoshis\CAN\ETX \SOH(\ETXR\vnumSatoshis\DC2\FS\n\
\\ttimestamp\CAN\EOT \SOH(\ETXR\ttimestamp\DC2\SYN\n\
\\ACKexpiry\CAN\ENQ \SOH(\ETXR\ACKexpiry\DC2 \n\
\\vdescription\CAN\ACK \SOH(\tR\vdescription\DC2)\n\
\\DLEdescription_hash\CAN\a \SOH(\tR\SIdescriptionHash\DC2#\n\
\\rfallback_addr\CAN\b \SOH(\tR\ffallbackAddr\DC2\US\n\
\\vcltv_expiry\CAN\t \SOH(\ETXR\n\
\cltvExpiry\DC21\n\
\\vroute_hints\CAN\n\
\ \ETX(\v2\DLE.lnrpc.RouteHintR\n\
\routeHints\DC2!\n\
\\fpayment_addr\CAN\v \SOH(\fR\vpaymentAddr\DC2\EM\n\
\\bnum_msat\CAN\f \SOH(\ETXR\anumMsat\DC27\n\
\\bfeatures\CAN\r \ETX(\v2\ESC.lnrpc.PayReq.FeaturesEntryR\bfeatures\SUBK\n\
\\rFeaturesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\rR\ETXkey\DC2$\n\
\\ENQvalue\CAN\STX \SOH(\v2\SO.lnrpc.FeatureR\ENQvalue:\STX8\SOH"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
destination__field_descriptor
= Data.ProtoLens.FieldDescriptor
"destination"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"destination")) ::
Data.ProtoLens.FieldDescriptor PayReq
paymentHash__field_descriptor
= Data.ProtoLens.FieldDescriptor
"payment_hash"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"paymentHash")) ::
Data.ProtoLens.FieldDescriptor PayReq
numSatoshis__field_descriptor
= Data.ProtoLens.FieldDescriptor
"num_satoshis"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"numSatoshis")) ::
Data.ProtoLens.FieldDescriptor PayReq
timestamp__field_descriptor
= Data.ProtoLens.FieldDescriptor
"timestamp"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"timestamp")) ::
Data.ProtoLens.FieldDescriptor PayReq
expiry__field_descriptor
= Data.ProtoLens.FieldDescriptor
"expiry"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"expiry")) ::
Data.ProtoLens.FieldDescriptor PayReq
description__field_descriptor
= Data.ProtoLens.FieldDescriptor
"description"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"description")) ::
Data.ProtoLens.FieldDescriptor PayReq
descriptionHash__field_descriptor
= Data.ProtoLens.FieldDescriptor
"description_hash"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"descriptionHash")) ::
Data.ProtoLens.FieldDescriptor PayReq
fallbackAddr__field_descriptor
= Data.ProtoLens.FieldDescriptor
"fallback_addr"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"fallbackAddr")) ::
Data.ProtoLens.FieldDescriptor PayReq
cltvExpiry__field_descriptor
= Data.ProtoLens.FieldDescriptor
"cltv_expiry"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"cltvExpiry")) ::
Data.ProtoLens.FieldDescriptor PayReq
routeHints__field_descriptor
= Data.ProtoLens.FieldDescriptor
"route_hints"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Lnrpc.Ln0.RouteHint)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"routeHints")) ::
Data.ProtoLens.FieldDescriptor PayReq
paymentAddr__field_descriptor
= Data.ProtoLens.FieldDescriptor
"payment_addr"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"paymentAddr")) ::
Data.ProtoLens.FieldDescriptor PayReq
numMsat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"num_msat"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"numMsat")) ::
Data.ProtoLens.FieldDescriptor PayReq
features__field_descriptor
= Data.ProtoLens.FieldDescriptor
"features"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor PayReq'FeaturesEntry)
(Data.ProtoLens.MapField
(Data.ProtoLens.Field.field @"key")
(Data.ProtoLens.Field.field @"value")
(Data.ProtoLens.Field.field @"features")) ::
Data.ProtoLens.FieldDescriptor PayReq
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, destination__field_descriptor),
(Data.ProtoLens.Tag 2, paymentHash__field_descriptor),
(Data.ProtoLens.Tag 3, numSatoshis__field_descriptor),
(Data.ProtoLens.Tag 4, timestamp__field_descriptor),
(Data.ProtoLens.Tag 5, expiry__field_descriptor),
(Data.ProtoLens.Tag 6, description__field_descriptor),
(Data.ProtoLens.Tag 7, descriptionHash__field_descriptor),
(Data.ProtoLens.Tag 8, fallbackAddr__field_descriptor),
(Data.ProtoLens.Tag 9, cltvExpiry__field_descriptor),
(Data.ProtoLens.Tag 10, routeHints__field_descriptor),
(Data.ProtoLens.Tag 11, paymentAddr__field_descriptor),
(Data.ProtoLens.Tag 12, numMsat__field_descriptor),
(Data.ProtoLens.Tag 13, features__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_PayReq'_unknownFields
(\ x__ y__ -> x__ {_PayReq'_unknownFields = y__})
defMessage
= PayReq'_constructor
{_PayReq'destination = Data.ProtoLens.fieldDefault,
_PayReq'paymentHash = Data.ProtoLens.fieldDefault,
_PayReq'numSatoshis = Data.ProtoLens.fieldDefault,
_PayReq'timestamp = Data.ProtoLens.fieldDefault,
_PayReq'expiry = Data.ProtoLens.fieldDefault,
_PayReq'description = Data.ProtoLens.fieldDefault,
_PayReq'descriptionHash = Data.ProtoLens.fieldDefault,
_PayReq'fallbackAddr = Data.ProtoLens.fieldDefault,
_PayReq'cltvExpiry = Data.ProtoLens.fieldDefault,
_PayReq'routeHints = Data.Vector.Generic.empty,
_PayReq'paymentAddr = Data.ProtoLens.fieldDefault,
_PayReq'numMsat = Data.ProtoLens.fieldDefault,
_PayReq'features = Data.Map.empty, _PayReq'_unknownFields = []}
parseMessage
= let
loop ::
PayReq
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Lnrpc.Ln0.RouteHint
-> Data.ProtoLens.Encoding.Bytes.Parser PayReq
loop x mutable'routeHints
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'routeHints <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'routeHints)
(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'routeHints") frozen'routeHints
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))
"destination"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"destination") y x)
mutable'routeHints
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))
"payment_hash"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"paymentHash") y x)
mutable'routeHints
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"num_satoshis"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"numSatoshis") y x)
mutable'routeHints
32
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"timestamp"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"timestamp") y x)
mutable'routeHints
40
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"expiry"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"expiry") y x)
mutable'routeHints
50
-> 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))
"description"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"description") y x)
mutable'routeHints
58
-> 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))
"description_hash"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"descriptionHash") y x)
mutable'routeHints
66
-> 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))
"fallback_addr"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"fallbackAddr") y x)
mutable'routeHints
72
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"cltv_expiry"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"cltvExpiry") y x)
mutable'routeHints
82
-> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
"route_hints"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'routeHints y)
loop x v
90
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"payment_addr"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"paymentAddr") y x)
mutable'routeHints
96
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"num_msat"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"numMsat") y x)
mutable'routeHints
106
-> do !(entry :: PayReq'FeaturesEntry) <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral
len)
Data.ProtoLens.parseMessage)
"features"
(let
key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry
value
= Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry
in
loop
(Lens.Family2.over
(Data.ProtoLens.Field.field @"features")
(\ !t -> Data.Map.insert key value t) x)
mutable'routeHints)
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'routeHints
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'routeHints <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'routeHints)
"PayReq"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"destination") _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.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"paymentHash") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(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))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"numSatoshis") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"timestamp") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 32)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"expiry") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 40)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"description") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 50)
((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.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"descriptionHash") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 58)
((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.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"fallbackAddr") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 66)
((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.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"cltvExpiry") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 72)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral _v))
((Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 82)
((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'routeHints") _x))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"paymentAddr") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 90)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral
(Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes
bs))
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"numMsat") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 96)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral _v))
((Data.Monoid.<>)
(Data.Monoid.mconcat
(Prelude.map
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
106)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral
(Data.ByteString.length
bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes
bs))
Data.ProtoLens.encodeMessage
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"key")
(Prelude.fst _v)
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"value")
(Prelude.snd _v)
(Data.ProtoLens.defMessage ::
PayReq'FeaturesEntry)))))
(Data.Map.toList
(Lens.Family2.view
(Data.ProtoLens.Field.field
@"features")
_x))))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view
Data.ProtoLens.unknownFields _x))))))))))))))
instance Control.DeepSeq.NFData PayReq where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_PayReq'_unknownFields x__)
(Control.DeepSeq.deepseq
(_PayReq'destination x__)
(Control.DeepSeq.deepseq
(_PayReq'paymentHash x__)
(Control.DeepSeq.deepseq
(_PayReq'numSatoshis x__)
(Control.DeepSeq.deepseq
(_PayReq'timestamp x__)
(Control.DeepSeq.deepseq
(_PayReq'expiry x__)
(Control.DeepSeq.deepseq
(_PayReq'description x__)
(Control.DeepSeq.deepseq
(_PayReq'descriptionHash x__)
(Control.DeepSeq.deepseq
(_PayReq'fallbackAddr x__)
(Control.DeepSeq.deepseq
(_PayReq'cltvExpiry x__)
(Control.DeepSeq.deepseq
(_PayReq'routeHints x__)
(Control.DeepSeq.deepseq
(_PayReq'paymentAddr x__)
(Control.DeepSeq.deepseq
(_PayReq'numMsat x__)
(Control.DeepSeq.deepseq
(_PayReq'features x__) ())))))))))))))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.key' @:: Lens' PayReq'FeaturesEntry Data.Word.Word32@
* 'Proto.Lnrpc.Ln1_Fields.value' @:: Lens' PayReq'FeaturesEntry Proto.Lnrpc.Ln0.Feature@
* 'Proto.Lnrpc.Ln1_Fields.maybe'value' @:: Lens' PayReq'FeaturesEntry (Prelude.Maybe Proto.Lnrpc.Ln0.Feature)@ -}
data PayReq'FeaturesEntry
= PayReq'FeaturesEntry'_constructor {_PayReq'FeaturesEntry'key :: !Data.Word.Word32,
_PayReq'FeaturesEntry'value :: !(Prelude.Maybe Proto.Lnrpc.Ln0.Feature),
_PayReq'FeaturesEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show PayReq'FeaturesEntry where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out PayReq'FeaturesEntry
instance Data.ProtoLens.Field.HasField PayReq'FeaturesEntry "key" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PayReq'FeaturesEntry'key
(\ x__ y__ -> x__ {_PayReq'FeaturesEntry'key = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PayReq'FeaturesEntry "value" Proto.Lnrpc.Ln0.Feature where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PayReq'FeaturesEntry'value
(\ x__ y__ -> x__ {_PayReq'FeaturesEntry'value = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PayReq'FeaturesEntry "maybe'value" (Prelude.Maybe Proto.Lnrpc.Ln0.Feature) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PayReq'FeaturesEntry'value
(\ x__ y__ -> x__ {_PayReq'FeaturesEntry'value = y__}))
Prelude.id
instance Data.ProtoLens.Message PayReq'FeaturesEntry where
messageName _ = Data.Text.pack "lnrpc.PayReq.FeaturesEntry"
packedMessageDescriptor _
= "\n\
\\rFeaturesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\rR\ETXkey\DC2$\n\
\\ENQvalue\CAN\STX \SOH(\v2\SO.lnrpc.FeatureR\ENQvalue:\STX8\SOH"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
key__field_descriptor
= Data.ProtoLens.FieldDescriptor
"key"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) ::
Data.ProtoLens.FieldDescriptor PayReq'FeaturesEntry
value__field_descriptor
= Data.ProtoLens.FieldDescriptor
"value"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Lnrpc.Ln0.Feature)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'value")) ::
Data.ProtoLens.FieldDescriptor PayReq'FeaturesEntry
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, key__field_descriptor),
(Data.ProtoLens.Tag 2, value__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_PayReq'FeaturesEntry'_unknownFields
(\ x__ y__ -> x__ {_PayReq'FeaturesEntry'_unknownFields = y__})
defMessage
= PayReq'FeaturesEntry'_constructor
{_PayReq'FeaturesEntry'key = Data.ProtoLens.fieldDefault,
_PayReq'FeaturesEntry'value = Prelude.Nothing,
_PayReq'FeaturesEntry'_unknownFields = []}
parseMessage
= let
loop ::
PayReq'FeaturesEntry
-> Data.ProtoLens.Encoding.Bytes.Parser PayReq'FeaturesEntry
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)
"key"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") 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)
"value"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") 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) "FeaturesEntry"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _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.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _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 PayReq'FeaturesEntry where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_PayReq'FeaturesEntry'_unknownFields x__)
(Control.DeepSeq.deepseq
(_PayReq'FeaturesEntry'key x__)
(Control.DeepSeq.deepseq (_PayReq'FeaturesEntry'value x__) ()))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.payReq' @:: Lens' PayReqString Data.Text.Text@ -}
data PayReqString
= PayReqString'_constructor {_PayReqString'payReq :: !Data.Text.Text,
_PayReqString'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show PayReqString where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out PayReqString
instance Data.ProtoLens.Field.HasField PayReqString "payReq" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PayReqString'payReq
(\ x__ y__ -> x__ {_PayReqString'payReq = y__}))
Prelude.id
instance Data.ProtoLens.Message PayReqString where
messageName _ = Data.Text.pack "lnrpc.PayReqString"
packedMessageDescriptor _
= "\n\
\\fPayReqString\DC2\ETB\n\
\\apay_req\CAN\SOH \SOH(\tR\ACKpayReq"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
payReq__field_descriptor
= Data.ProtoLens.FieldDescriptor
"pay_req"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"payReq")) ::
Data.ProtoLens.FieldDescriptor PayReqString
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, payReq__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_PayReqString'_unknownFields
(\ x__ y__ -> x__ {_PayReqString'_unknownFields = y__})
defMessage
= PayReqString'_constructor
{_PayReqString'payReq = Data.ProtoLens.fieldDefault,
_PayReqString'_unknownFields = []}
parseMessage
= let
loop ::
PayReqString -> Data.ProtoLens.Encoding.Bytes.Parser PayReqString
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))
"pay_req"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"payReq") 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) "PayReqString"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"payReq") _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 PayReqString where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_PayReqString'_unknownFields x__)
(Control.DeepSeq.deepseq (_PayReqString'payReq x__) ())
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.paymentHash' @:: Lens' Payment Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.value' @:: Lens' Payment Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.creationDate' @:: Lens' Payment Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.fee' @:: Lens' Payment Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.paymentPreimage' @:: Lens' Payment Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.valueSat' @:: Lens' Payment Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.valueMsat' @:: Lens' Payment Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.paymentRequest' @:: Lens' Payment Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.status' @:: Lens' Payment Payment'PaymentStatus@
* 'Proto.Lnrpc.Ln1_Fields.feeSat' @:: Lens' Payment Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.feeMsat' @:: Lens' Payment Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.creationTimeNs' @:: Lens' Payment Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.htlcs' @:: Lens' Payment [HTLCAttempt]@
* 'Proto.Lnrpc.Ln1_Fields.vec'htlcs' @:: Lens' Payment (Data.Vector.Vector HTLCAttempt)@
* 'Proto.Lnrpc.Ln1_Fields.paymentIndex' @:: Lens' Payment Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.failureReason' @:: Lens' Payment PaymentFailureReason@ -}
data Payment
= Payment'_constructor {_Payment'paymentHash :: !Data.Text.Text,
_Payment'value :: !Data.Int.Int64,
_Payment'creationDate :: !Data.Int.Int64,
_Payment'fee :: !Data.Int.Int64,
_Payment'paymentPreimage :: !Data.Text.Text,
_Payment'valueSat :: !Data.Int.Int64,
_Payment'valueMsat :: !Data.Int.Int64,
_Payment'paymentRequest :: !Data.Text.Text,
_Payment'status :: !Payment'PaymentStatus,
_Payment'feeSat :: !Data.Int.Int64,
_Payment'feeMsat :: !Data.Int.Int64,
_Payment'creationTimeNs :: !Data.Int.Int64,
_Payment'htlcs :: !(Data.Vector.Vector HTLCAttempt),
_Payment'paymentIndex :: !Data.Word.Word64,
_Payment'failureReason :: !PaymentFailureReason,
_Payment'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show Payment where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out Payment
instance Data.ProtoLens.Field.HasField Payment "paymentHash" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Payment'paymentHash
(\ x__ y__ -> x__ {_Payment'paymentHash = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Payment "value" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Payment'value (\ x__ y__ -> x__ {_Payment'value = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Payment "creationDate" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Payment'creationDate
(\ x__ y__ -> x__ {_Payment'creationDate = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Payment "fee" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Payment'fee (\ x__ y__ -> x__ {_Payment'fee = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Payment "paymentPreimage" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Payment'paymentPreimage
(\ x__ y__ -> x__ {_Payment'paymentPreimage = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Payment "valueSat" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Payment'valueSat (\ x__ y__ -> x__ {_Payment'valueSat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Payment "valueMsat" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Payment'valueMsat (\ x__ y__ -> x__ {_Payment'valueMsat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Payment "paymentRequest" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Payment'paymentRequest
(\ x__ y__ -> x__ {_Payment'paymentRequest = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Payment "status" Payment'PaymentStatus where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Payment'status (\ x__ y__ -> x__ {_Payment'status = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Payment "feeSat" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Payment'feeSat (\ x__ y__ -> x__ {_Payment'feeSat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Payment "feeMsat" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Payment'feeMsat (\ x__ y__ -> x__ {_Payment'feeMsat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Payment "creationTimeNs" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Payment'creationTimeNs
(\ x__ y__ -> x__ {_Payment'creationTimeNs = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Payment "htlcs" [HTLCAttempt] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Payment'htlcs (\ x__ y__ -> x__ {_Payment'htlcs = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField Payment "vec'htlcs" (Data.Vector.Vector HTLCAttempt) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Payment'htlcs (\ x__ y__ -> x__ {_Payment'htlcs = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Payment "paymentIndex" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Payment'paymentIndex
(\ x__ y__ -> x__ {_Payment'paymentIndex = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Payment "failureReason" PaymentFailureReason where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Payment'failureReason
(\ x__ y__ -> x__ {_Payment'failureReason = y__}))
Prelude.id
instance Data.ProtoLens.Message Payment where
messageName _ = Data.Text.pack "lnrpc.Payment"
packedMessageDescriptor _
= "\n\
\\aPayment\DC2!\n\
\\fpayment_hash\CAN\SOH \SOH(\tR\vpaymentHash\DC2\CAN\n\
\\ENQvalue\CAN\STX \SOH(\ETXR\ENQvalueB\STX\CAN\SOH\DC2'\n\
\\rcreation_date\CAN\ETX \SOH(\ETXR\fcreationDateB\STX\CAN\SOH\DC2\DC4\n\
\\ETXfee\CAN\ENQ \SOH(\ETXR\ETXfeeB\STX\CAN\SOH\DC2)\n\
\\DLEpayment_preimage\CAN\ACK \SOH(\tR\SIpaymentPreimage\DC2\ESC\n\
\\tvalue_sat\CAN\a \SOH(\ETXR\bvalueSat\DC2\GS\n\
\\n\
\value_msat\CAN\b \SOH(\ETXR\tvalueMsat\DC2'\n\
\\SIpayment_request\CAN\t \SOH(\tR\SOpaymentRequest\DC24\n\
\\ACKstatus\CAN\n\
\ \SOH(\SO2\FS.lnrpc.Payment.PaymentStatusR\ACKstatus\DC2\ETB\n\
\\afee_sat\CAN\v \SOH(\ETXR\ACKfeeSat\DC2\EM\n\
\\bfee_msat\CAN\f \SOH(\ETXR\afeeMsat\DC2(\n\
\\DLEcreation_time_ns\CAN\r \SOH(\ETXR\SOcreationTimeNs\DC2(\n\
\\ENQhtlcs\CAN\SO \ETX(\v2\DC2.lnrpc.HTLCAttemptR\ENQhtlcs\DC2#\n\
\\rpayment_index\CAN\SI \SOH(\EOTR\fpaymentIndex\DC2B\n\
\\SOfailure_reason\CAN\DLE \SOH(\SO2\ESC.lnrpc.PaymentFailureReasonR\rfailureReason\"F\n\
\\rPaymentStatus\DC2\v\n\
\\aUNKNOWN\DLE\NUL\DC2\r\n\
\\tIN_FLIGHT\DLE\SOH\DC2\r\n\
\\tSUCCEEDED\DLE\STX\DC2\n\
\\n\
\\ACKFAILED\DLE\ETXJ\EOT\b\EOT\DLE\ENQ"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
paymentHash__field_descriptor
= Data.ProtoLens.FieldDescriptor
"payment_hash"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"paymentHash")) ::
Data.ProtoLens.FieldDescriptor Payment
value__field_descriptor
= Data.ProtoLens.FieldDescriptor
"value"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) ::
Data.ProtoLens.FieldDescriptor Payment
creationDate__field_descriptor
= Data.ProtoLens.FieldDescriptor
"creation_date"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"creationDate")) ::
Data.ProtoLens.FieldDescriptor Payment
fee__field_descriptor
= Data.ProtoLens.FieldDescriptor
"fee"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"fee")) ::
Data.ProtoLens.FieldDescriptor Payment
paymentPreimage__field_descriptor
= Data.ProtoLens.FieldDescriptor
"payment_preimage"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"paymentPreimage")) ::
Data.ProtoLens.FieldDescriptor Payment
valueSat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"value_sat"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"valueSat")) ::
Data.ProtoLens.FieldDescriptor Payment
valueMsat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"value_msat"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"valueMsat")) ::
Data.ProtoLens.FieldDescriptor Payment
paymentRequest__field_descriptor
= Data.ProtoLens.FieldDescriptor
"payment_request"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"paymentRequest")) ::
Data.ProtoLens.FieldDescriptor Payment
status__field_descriptor
= Data.ProtoLens.FieldDescriptor
"status"
(Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Payment'PaymentStatus)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"status")) ::
Data.ProtoLens.FieldDescriptor Payment
feeSat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"fee_sat"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"feeSat")) ::
Data.ProtoLens.FieldDescriptor Payment
feeMsat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"fee_msat"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"feeMsat")) ::
Data.ProtoLens.FieldDescriptor Payment
creationTimeNs__field_descriptor
= Data.ProtoLens.FieldDescriptor
"creation_time_ns"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"creationTimeNs")) ::
Data.ProtoLens.FieldDescriptor Payment
htlcs__field_descriptor
= Data.ProtoLens.FieldDescriptor
"htlcs"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor HTLCAttempt)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"htlcs")) ::
Data.ProtoLens.FieldDescriptor Payment
paymentIndex__field_descriptor
= Data.ProtoLens.FieldDescriptor
"payment_index"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"paymentIndex")) ::
Data.ProtoLens.FieldDescriptor Payment
failureReason__field_descriptor
= Data.ProtoLens.FieldDescriptor
"failure_reason"
(Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor PaymentFailureReason)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"failureReason")) ::
Data.ProtoLens.FieldDescriptor Payment
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, paymentHash__field_descriptor),
(Data.ProtoLens.Tag 2, value__field_descriptor),
(Data.ProtoLens.Tag 3, creationDate__field_descriptor),
(Data.ProtoLens.Tag 5, fee__field_descriptor),
(Data.ProtoLens.Tag 6, paymentPreimage__field_descriptor),
(Data.ProtoLens.Tag 7, valueSat__field_descriptor),
(Data.ProtoLens.Tag 8, valueMsat__field_descriptor),
(Data.ProtoLens.Tag 9, paymentRequest__field_descriptor),
(Data.ProtoLens.Tag 10, status__field_descriptor),
(Data.ProtoLens.Tag 11, feeSat__field_descriptor),
(Data.ProtoLens.Tag 12, feeMsat__field_descriptor),
(Data.ProtoLens.Tag 13, creationTimeNs__field_descriptor),
(Data.ProtoLens.Tag 14, htlcs__field_descriptor),
(Data.ProtoLens.Tag 15, paymentIndex__field_descriptor),
(Data.ProtoLens.Tag 16, failureReason__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_Payment'_unknownFields
(\ x__ y__ -> x__ {_Payment'_unknownFields = y__})
defMessage
= Payment'_constructor
{_Payment'paymentHash = Data.ProtoLens.fieldDefault,
_Payment'value = Data.ProtoLens.fieldDefault,
_Payment'creationDate = Data.ProtoLens.fieldDefault,
_Payment'fee = Data.ProtoLens.fieldDefault,
_Payment'paymentPreimage = Data.ProtoLens.fieldDefault,
_Payment'valueSat = Data.ProtoLens.fieldDefault,
_Payment'valueMsat = Data.ProtoLens.fieldDefault,
_Payment'paymentRequest = Data.ProtoLens.fieldDefault,
_Payment'status = Data.ProtoLens.fieldDefault,
_Payment'feeSat = Data.ProtoLens.fieldDefault,
_Payment'feeMsat = Data.ProtoLens.fieldDefault,
_Payment'creationTimeNs = Data.ProtoLens.fieldDefault,
_Payment'htlcs = Data.Vector.Generic.empty,
_Payment'paymentIndex = Data.ProtoLens.fieldDefault,
_Payment'failureReason = Data.ProtoLens.fieldDefault,
_Payment'_unknownFields = []}
parseMessage
= let
loop ::
Payment
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld HTLCAttempt
-> Data.ProtoLens.Encoding.Bytes.Parser Payment
loop x mutable'htlcs
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'htlcs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'htlcs)
(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'htlcs") frozen'htlcs 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))
"payment_hash"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"paymentHash") y x)
mutable'htlcs
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"value"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)
mutable'htlcs
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"creation_date"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"creationDate") y x)
mutable'htlcs
40
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"fee"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"fee") y x)
mutable'htlcs
50
-> 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))
"payment_preimage"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"paymentPreimage") y x)
mutable'htlcs
56
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"value_sat"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"valueSat") y x)
mutable'htlcs
64
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"value_msat"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"valueMsat") y x)
mutable'htlcs
74
-> 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))
"payment_request"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"paymentRequest") y x)
mutable'htlcs
80
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.toEnum
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt))
"status"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"status") y x)
mutable'htlcs
88
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"fee_sat"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"feeSat") y x)
mutable'htlcs
96
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"fee_msat"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"feeMsat") y x)
mutable'htlcs
104
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"creation_time_ns"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"creationTimeNs") y x)
mutable'htlcs
114
-> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
"htlcs"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'htlcs y)
loop x v
120
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "payment_index"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"paymentIndex") y x)
mutable'htlcs
128
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.toEnum
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt))
"failure_reason"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"failureReason") y x)
mutable'htlcs
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'htlcs
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'htlcs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'htlcs)
"Payment"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"paymentHash") _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.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"creationDate") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"fee") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 40)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"paymentPreimage") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 50)
((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.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"valueSat") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 56)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"valueMsat") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 64)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"paymentRequest") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 74)
((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.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"status") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 80)
((Prelude..)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral)
Prelude.fromEnum _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"feeSat") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 88)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"feeMsat") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 96)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field
@"creationTimeNs")
_x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 104)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral _v))
((Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
114)
((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'htlcs")
_x))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field
@"paymentIndex")
_x
in
if (Prelude.==)
_v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
120)
(Data.ProtoLens.Encoding.Bytes.putVarInt
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field
@"failureReason")
_x
in
if (Prelude.==)
_v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
128)
((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 Payment where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_Payment'_unknownFields x__)
(Control.DeepSeq.deepseq
(_Payment'paymentHash x__)
(Control.DeepSeq.deepseq
(_Payment'value x__)
(Control.DeepSeq.deepseq
(_Payment'creationDate x__)
(Control.DeepSeq.deepseq
(_Payment'fee x__)
(Control.DeepSeq.deepseq
(_Payment'paymentPreimage x__)
(Control.DeepSeq.deepseq
(_Payment'valueSat x__)
(Control.DeepSeq.deepseq
(_Payment'valueMsat x__)
(Control.DeepSeq.deepseq
(_Payment'paymentRequest x__)
(Control.DeepSeq.deepseq
(_Payment'status x__)
(Control.DeepSeq.deepseq
(_Payment'feeSat x__)
(Control.DeepSeq.deepseq
(_Payment'feeMsat x__)
(Control.DeepSeq.deepseq
(_Payment'creationTimeNs x__)
(Control.DeepSeq.deepseq
(_Payment'htlcs x__)
(Control.DeepSeq.deepseq
(_Payment'paymentIndex x__)
(Control.DeepSeq.deepseq
(_Payment'failureReason x__)
())))))))))))))))
newtype Payment'PaymentStatus'UnrecognizedValue
= Payment'PaymentStatus'UnrecognizedValue Data.Int.Int32
deriving stock (Prelude.Eq,
Prelude.Ord,
Prelude.Show,
GHC.Generics.Generic)
instance Text.PrettyPrint.GenericPretty.Out Payment'PaymentStatus'UnrecognizedValue
data Payment'PaymentStatus
= Payment'UNKNOWN |
Payment'IN_FLIGHT |
Payment'SUCCEEDED |
Payment'FAILED |
Payment'PaymentStatus'Unrecognized !Payment'PaymentStatus'UnrecognizedValue
deriving stock (Prelude.Show,
Prelude.Eq,
Prelude.Ord,
GHC.Generics.Generic)
instance Data.ProtoLens.MessageEnum Payment'PaymentStatus where
maybeToEnum 0 = Prelude.Just Payment'UNKNOWN
maybeToEnum 1 = Prelude.Just Payment'IN_FLIGHT
maybeToEnum 2 = Prelude.Just Payment'SUCCEEDED
maybeToEnum 3 = Prelude.Just Payment'FAILED
maybeToEnum k
= Prelude.Just
(Payment'PaymentStatus'Unrecognized
(Payment'PaymentStatus'UnrecognizedValue (Prelude.fromIntegral k)))
showEnum Payment'UNKNOWN = "UNKNOWN"
showEnum Payment'IN_FLIGHT = "IN_FLIGHT"
showEnum Payment'SUCCEEDED = "SUCCEEDED"
showEnum Payment'FAILED = "FAILED"
showEnum
(Payment'PaymentStatus'Unrecognized (Payment'PaymentStatus'UnrecognizedValue k))
= Prelude.show k
readEnum k
| (Prelude.==) k "UNKNOWN" = Prelude.Just Payment'UNKNOWN
| (Prelude.==) k "IN_FLIGHT" = Prelude.Just Payment'IN_FLIGHT
| (Prelude.==) k "SUCCEEDED" = Prelude.Just Payment'SUCCEEDED
| (Prelude.==) k "FAILED" = Prelude.Just Payment'FAILED
| Prelude.otherwise
= (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum
instance Prelude.Bounded Payment'PaymentStatus where
minBound = Payment'UNKNOWN
maxBound = Payment'FAILED
instance Prelude.Enum Payment'PaymentStatus where
toEnum k__
= Prelude.maybe
(Prelude.error
((Prelude.++)
"toEnum: unknown value for enum PaymentStatus: "
(Prelude.show k__)))
Prelude.id (Data.ProtoLens.maybeToEnum k__)
fromEnum Payment'UNKNOWN = 0
fromEnum Payment'IN_FLIGHT = 1
fromEnum Payment'SUCCEEDED = 2
fromEnum Payment'FAILED = 3
fromEnum
(Payment'PaymentStatus'Unrecognized (Payment'PaymentStatus'UnrecognizedValue k))
= Prelude.fromIntegral k
succ Payment'FAILED
= Prelude.error
"Payment'PaymentStatus.succ: bad argument Payment'FAILED. This value would be out of bounds."
succ Payment'UNKNOWN = Payment'IN_FLIGHT
succ Payment'IN_FLIGHT = Payment'SUCCEEDED
succ Payment'SUCCEEDED = Payment'FAILED
succ (Payment'PaymentStatus'Unrecognized _)
= Prelude.error
"Payment'PaymentStatus.succ: bad argument: unrecognized value"
pred Payment'UNKNOWN
= Prelude.error
"Payment'PaymentStatus.pred: bad argument Payment'UNKNOWN. This value would be out of bounds."
pred Payment'IN_FLIGHT = Payment'UNKNOWN
pred Payment'SUCCEEDED = Payment'IN_FLIGHT
pred Payment'FAILED = Payment'SUCCEEDED
pred (Payment'PaymentStatus'Unrecognized _)
= Prelude.error
"Payment'PaymentStatus.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 Payment'PaymentStatus where
fieldDefault = Payment'UNKNOWN
instance Control.DeepSeq.NFData Payment'PaymentStatus where
rnf x__ = Prelude.seq x__ ()
instance Text.PrettyPrint.GenericPretty.Out Payment'PaymentStatus
newtype PaymentFailureReason'UnrecognizedValue
= PaymentFailureReason'UnrecognizedValue Data.Int.Int32
deriving stock (Prelude.Eq,
Prelude.Ord,
Prelude.Show,
GHC.Generics.Generic)
instance Text.PrettyPrint.GenericPretty.Out PaymentFailureReason'UnrecognizedValue
data PaymentFailureReason
= FAILURE_REASON_NONE |
FAILURE_REASON_TIMEOUT |
FAILURE_REASON_NO_ROUTE |
FAILURE_REASON_ERROR |
FAILURE_REASON_INCORRECT_PAYMENT_DETAILS |
FAILURE_REASON_INSUFFICIENT_BALANCE |
PaymentFailureReason'Unrecognized !PaymentFailureReason'UnrecognizedValue
deriving stock (Prelude.Show,
Prelude.Eq,
Prelude.Ord,
GHC.Generics.Generic)
instance Data.ProtoLens.MessageEnum PaymentFailureReason where
maybeToEnum 0 = Prelude.Just FAILURE_REASON_NONE
maybeToEnum 1 = Prelude.Just FAILURE_REASON_TIMEOUT
maybeToEnum 2 = Prelude.Just FAILURE_REASON_NO_ROUTE
maybeToEnum 3 = Prelude.Just FAILURE_REASON_ERROR
maybeToEnum 4
= Prelude.Just FAILURE_REASON_INCORRECT_PAYMENT_DETAILS
maybeToEnum 5 = Prelude.Just FAILURE_REASON_INSUFFICIENT_BALANCE
maybeToEnum k
= Prelude.Just
(PaymentFailureReason'Unrecognized
(PaymentFailureReason'UnrecognizedValue (Prelude.fromIntegral k)))
showEnum FAILURE_REASON_NONE = "FAILURE_REASON_NONE"
showEnum FAILURE_REASON_TIMEOUT = "FAILURE_REASON_TIMEOUT"
showEnum FAILURE_REASON_NO_ROUTE = "FAILURE_REASON_NO_ROUTE"
showEnum FAILURE_REASON_ERROR = "FAILURE_REASON_ERROR"
showEnum FAILURE_REASON_INCORRECT_PAYMENT_DETAILS
= "FAILURE_REASON_INCORRECT_PAYMENT_DETAILS"
showEnum FAILURE_REASON_INSUFFICIENT_BALANCE
= "FAILURE_REASON_INSUFFICIENT_BALANCE"
showEnum
(PaymentFailureReason'Unrecognized (PaymentFailureReason'UnrecognizedValue k))
= Prelude.show k
readEnum k
| (Prelude.==) k "FAILURE_REASON_NONE"
= Prelude.Just FAILURE_REASON_NONE
| (Prelude.==) k "FAILURE_REASON_TIMEOUT"
= Prelude.Just FAILURE_REASON_TIMEOUT
| (Prelude.==) k "FAILURE_REASON_NO_ROUTE"
= Prelude.Just FAILURE_REASON_NO_ROUTE
| (Prelude.==) k "FAILURE_REASON_ERROR"
= Prelude.Just FAILURE_REASON_ERROR
| (Prelude.==) k "FAILURE_REASON_INCORRECT_PAYMENT_DETAILS"
= Prelude.Just FAILURE_REASON_INCORRECT_PAYMENT_DETAILS
| (Prelude.==) k "FAILURE_REASON_INSUFFICIENT_BALANCE"
= Prelude.Just FAILURE_REASON_INSUFFICIENT_BALANCE
| Prelude.otherwise
= (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum
instance Prelude.Bounded PaymentFailureReason where
minBound = FAILURE_REASON_NONE
maxBound = FAILURE_REASON_INSUFFICIENT_BALANCE
instance Prelude.Enum PaymentFailureReason where
toEnum k__
= Prelude.maybe
(Prelude.error
((Prelude.++)
"toEnum: unknown value for enum PaymentFailureReason: "
(Prelude.show k__)))
Prelude.id (Data.ProtoLens.maybeToEnum k__)
fromEnum FAILURE_REASON_NONE = 0
fromEnum FAILURE_REASON_TIMEOUT = 1
fromEnum FAILURE_REASON_NO_ROUTE = 2
fromEnum FAILURE_REASON_ERROR = 3
fromEnum FAILURE_REASON_INCORRECT_PAYMENT_DETAILS = 4
fromEnum FAILURE_REASON_INSUFFICIENT_BALANCE = 5
fromEnum
(PaymentFailureReason'Unrecognized (PaymentFailureReason'UnrecognizedValue k))
= Prelude.fromIntegral k
succ FAILURE_REASON_INSUFFICIENT_BALANCE
= Prelude.error
"PaymentFailureReason.succ: bad argument FAILURE_REASON_INSUFFICIENT_BALANCE. This value would be out of bounds."
succ FAILURE_REASON_NONE = FAILURE_REASON_TIMEOUT
succ FAILURE_REASON_TIMEOUT = FAILURE_REASON_NO_ROUTE
succ FAILURE_REASON_NO_ROUTE = FAILURE_REASON_ERROR
succ FAILURE_REASON_ERROR
= FAILURE_REASON_INCORRECT_PAYMENT_DETAILS
succ FAILURE_REASON_INCORRECT_PAYMENT_DETAILS
= FAILURE_REASON_INSUFFICIENT_BALANCE
succ (PaymentFailureReason'Unrecognized _)
= Prelude.error
"PaymentFailureReason.succ: bad argument: unrecognized value"
pred FAILURE_REASON_NONE
= Prelude.error
"PaymentFailureReason.pred: bad argument FAILURE_REASON_NONE. This value would be out of bounds."
pred FAILURE_REASON_TIMEOUT = FAILURE_REASON_NONE
pred FAILURE_REASON_NO_ROUTE = FAILURE_REASON_TIMEOUT
pred FAILURE_REASON_ERROR = FAILURE_REASON_NO_ROUTE
pred FAILURE_REASON_INCORRECT_PAYMENT_DETAILS
= FAILURE_REASON_ERROR
pred FAILURE_REASON_INSUFFICIENT_BALANCE
= FAILURE_REASON_INCORRECT_PAYMENT_DETAILS
pred (PaymentFailureReason'Unrecognized _)
= Prelude.error
"PaymentFailureReason.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 PaymentFailureReason where
fieldDefault = FAILURE_REASON_NONE
instance Control.DeepSeq.NFData PaymentFailureReason where
rnf x__ = Prelude.seq x__ ()
instance Text.PrettyPrint.GenericPretty.Out PaymentFailureReason
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.rHashStr' @:: Lens' PaymentHash Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.rHash' @:: Lens' PaymentHash Data.ByteString.ByteString@ -}
data PaymentHash
= PaymentHash'_constructor {_PaymentHash'rHashStr :: !Data.Text.Text,
_PaymentHash'rHash :: !Data.ByteString.ByteString,
_PaymentHash'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show PaymentHash where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out PaymentHash
instance Data.ProtoLens.Field.HasField PaymentHash "rHashStr" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PaymentHash'rHashStr
(\ x__ y__ -> x__ {_PaymentHash'rHashStr = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PaymentHash "rHash" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PaymentHash'rHash (\ x__ y__ -> x__ {_PaymentHash'rHash = y__}))
Prelude.id
instance Data.ProtoLens.Message PaymentHash where
messageName _ = Data.Text.pack "lnrpc.PaymentHash"
packedMessageDescriptor _
= "\n\
\\vPaymentHash\DC2 \n\
\\n\
\r_hash_str\CAN\SOH \SOH(\tR\brHashStrB\STX\CAN\SOH\DC2\NAK\n\
\\ACKr_hash\CAN\STX \SOH(\fR\ENQrHash"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
rHashStr__field_descriptor
= Data.ProtoLens.FieldDescriptor
"r_hash_str"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"rHashStr")) ::
Data.ProtoLens.FieldDescriptor PaymentHash
rHash__field_descriptor
= Data.ProtoLens.FieldDescriptor
"r_hash"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"rHash")) ::
Data.ProtoLens.FieldDescriptor PaymentHash
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, rHashStr__field_descriptor),
(Data.ProtoLens.Tag 2, rHash__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_PaymentHash'_unknownFields
(\ x__ y__ -> x__ {_PaymentHash'_unknownFields = y__})
defMessage
= PaymentHash'_constructor
{_PaymentHash'rHashStr = Data.ProtoLens.fieldDefault,
_PaymentHash'rHash = Data.ProtoLens.fieldDefault,
_PaymentHash'_unknownFields = []}
parseMessage
= let
loop ::
PaymentHash -> Data.ProtoLens.Encoding.Bytes.Parser PaymentHash
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))
"r_hash_str"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"rHashStr") y x)
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"r_hash"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"rHash") 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) "PaymentHash"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"rHashStr") _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.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"rHash") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData PaymentHash where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_PaymentHash'_unknownFields x__)
(Control.DeepSeq.deepseq
(_PaymentHash'rHashStr x__)
(Control.DeepSeq.deepseq (_PaymentHash'rHash x__) ()))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.baseFeeMsat' @:: Lens' PolicyUpdateRequest Data.Int.Int64@
* 'Proto.Lnrpc.Ln1_Fields.feeRate' @:: Lens' PolicyUpdateRequest Prelude.Double@
* 'Proto.Lnrpc.Ln1_Fields.timeLockDelta' @:: Lens' PolicyUpdateRequest Data.Word.Word32@
* 'Proto.Lnrpc.Ln1_Fields.maxHtlcMsat' @:: Lens' PolicyUpdateRequest Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.minHtlcMsat' @:: Lens' PolicyUpdateRequest Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.minHtlcMsatSpecified' @:: Lens' PolicyUpdateRequest Prelude.Bool@
* 'Proto.Lnrpc.Ln1_Fields.maybe'scope' @:: Lens' PolicyUpdateRequest (Prelude.Maybe PolicyUpdateRequest'Scope)@
* 'Proto.Lnrpc.Ln1_Fields.maybe'global' @:: Lens' PolicyUpdateRequest (Prelude.Maybe Prelude.Bool)@
* 'Proto.Lnrpc.Ln1_Fields.global' @:: Lens' PolicyUpdateRequest Prelude.Bool@
* 'Proto.Lnrpc.Ln1_Fields.maybe'chanPoint' @:: Lens' PolicyUpdateRequest (Prelude.Maybe Proto.Lnrpc.Ln0.ChannelPoint)@
* 'Proto.Lnrpc.Ln1_Fields.chanPoint' @:: Lens' PolicyUpdateRequest Proto.Lnrpc.Ln0.ChannelPoint@ -}
data PolicyUpdateRequest
= PolicyUpdateRequest'_constructor {_PolicyUpdateRequest'baseFeeMsat :: !Data.Int.Int64,
_PolicyUpdateRequest'feeRate :: !Prelude.Double,
_PolicyUpdateRequest'timeLockDelta :: !Data.Word.Word32,
_PolicyUpdateRequest'maxHtlcMsat :: !Data.Word.Word64,
_PolicyUpdateRequest'minHtlcMsat :: !Data.Word.Word64,
_PolicyUpdateRequest'minHtlcMsatSpecified :: !Prelude.Bool,
_PolicyUpdateRequest'scope :: !(Prelude.Maybe PolicyUpdateRequest'Scope),
_PolicyUpdateRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show PolicyUpdateRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out PolicyUpdateRequest
data PolicyUpdateRequest'Scope
= PolicyUpdateRequest'Global !Prelude.Bool |
PolicyUpdateRequest'ChanPoint !Proto.Lnrpc.Ln0.ChannelPoint
deriving stock (Prelude.Show,
Prelude.Eq,
Prelude.Ord,
GHC.Generics.Generic)
instance Text.PrettyPrint.GenericPretty.Out PolicyUpdateRequest'Scope
instance Data.ProtoLens.Field.HasField PolicyUpdateRequest "baseFeeMsat" Data.Int.Int64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PolicyUpdateRequest'baseFeeMsat
(\ x__ y__ -> x__ {_PolicyUpdateRequest'baseFeeMsat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PolicyUpdateRequest "feeRate" Prelude.Double where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PolicyUpdateRequest'feeRate
(\ x__ y__ -> x__ {_PolicyUpdateRequest'feeRate = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PolicyUpdateRequest "timeLockDelta" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PolicyUpdateRequest'timeLockDelta
(\ x__ y__ -> x__ {_PolicyUpdateRequest'timeLockDelta = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PolicyUpdateRequest "maxHtlcMsat" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PolicyUpdateRequest'maxHtlcMsat
(\ x__ y__ -> x__ {_PolicyUpdateRequest'maxHtlcMsat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PolicyUpdateRequest "minHtlcMsat" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PolicyUpdateRequest'minHtlcMsat
(\ x__ y__ -> x__ {_PolicyUpdateRequest'minHtlcMsat = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PolicyUpdateRequest "minHtlcMsatSpecified" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PolicyUpdateRequest'minHtlcMsatSpecified
(\ x__ y__
-> x__ {_PolicyUpdateRequest'minHtlcMsatSpecified = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PolicyUpdateRequest "maybe'scope" (Prelude.Maybe PolicyUpdateRequest'Scope) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PolicyUpdateRequest'scope
(\ x__ y__ -> x__ {_PolicyUpdateRequest'scope = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PolicyUpdateRequest "maybe'global" (Prelude.Maybe Prelude.Bool) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PolicyUpdateRequest'scope
(\ x__ y__ -> x__ {_PolicyUpdateRequest'scope = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (PolicyUpdateRequest'Global x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap PolicyUpdateRequest'Global y__))
instance Data.ProtoLens.Field.HasField PolicyUpdateRequest "global" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PolicyUpdateRequest'scope
(\ x__ y__ -> x__ {_PolicyUpdateRequest'scope = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (PolicyUpdateRequest'Global x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap PolicyUpdateRequest'Global y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField PolicyUpdateRequest "maybe'chanPoint" (Prelude.Maybe Proto.Lnrpc.Ln0.ChannelPoint) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PolicyUpdateRequest'scope
(\ x__ y__ -> x__ {_PolicyUpdateRequest'scope = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (PolicyUpdateRequest'ChanPoint x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap PolicyUpdateRequest'ChanPoint y__))
instance Data.ProtoLens.Field.HasField PolicyUpdateRequest "chanPoint" Proto.Lnrpc.Ln0.ChannelPoint where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PolicyUpdateRequest'scope
(\ x__ y__ -> x__ {_PolicyUpdateRequest'scope = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (PolicyUpdateRequest'ChanPoint x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap PolicyUpdateRequest'ChanPoint y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message PolicyUpdateRequest where
messageName _ = Data.Text.pack "lnrpc.PolicyUpdateRequest"
packedMessageDescriptor _
= "\n\
\\DC3PolicyUpdateRequest\DC2\CAN\n\
\\ACKglobal\CAN\SOH \SOH(\bH\NULR\ACKglobal\DC24\n\
\\n\
\chan_point\CAN\STX \SOH(\v2\DC3.lnrpc.ChannelPointH\NULR\tchanPoint\DC2\"\n\
\\rbase_fee_msat\CAN\ETX \SOH(\ETXR\vbaseFeeMsat\DC2\EM\n\
\\bfee_rate\CAN\EOT \SOH(\SOHR\afeeRate\DC2&\n\
\\SItime_lock_delta\CAN\ENQ \SOH(\rR\rtimeLockDelta\DC2\"\n\
\\rmax_htlc_msat\CAN\ACK \SOH(\EOTR\vmaxHtlcMsat\DC2\"\n\
\\rmin_htlc_msat\CAN\a \SOH(\EOTR\vminHtlcMsat\DC25\n\
\\ETBmin_htlc_msat_specified\CAN\b \SOH(\bR\DC4minHtlcMsatSpecifiedB\a\n\
\\ENQscope"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
baseFeeMsat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"base_fee_msat"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"baseFeeMsat")) ::
Data.ProtoLens.FieldDescriptor PolicyUpdateRequest
feeRate__field_descriptor
= Data.ProtoLens.FieldDescriptor
"fee_rate"
(Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"feeRate")) ::
Data.ProtoLens.FieldDescriptor PolicyUpdateRequest
timeLockDelta__field_descriptor
= Data.ProtoLens.FieldDescriptor
"time_lock_delta"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"timeLockDelta")) ::
Data.ProtoLens.FieldDescriptor PolicyUpdateRequest
maxHtlcMsat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"max_htlc_msat"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"maxHtlcMsat")) ::
Data.ProtoLens.FieldDescriptor PolicyUpdateRequest
minHtlcMsat__field_descriptor
= Data.ProtoLens.FieldDescriptor
"min_htlc_msat"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"minHtlcMsat")) ::
Data.ProtoLens.FieldDescriptor PolicyUpdateRequest
minHtlcMsatSpecified__field_descriptor
= Data.ProtoLens.FieldDescriptor
"min_htlc_msat_specified"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"minHtlcMsatSpecified")) ::
Data.ProtoLens.FieldDescriptor PolicyUpdateRequest
global__field_descriptor
= Data.ProtoLens.FieldDescriptor
"global"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'global")) ::
Data.ProtoLens.FieldDescriptor PolicyUpdateRequest
chanPoint__field_descriptor
= Data.ProtoLens.FieldDescriptor
"chan_point"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Lnrpc.Ln0.ChannelPoint)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'chanPoint")) ::
Data.ProtoLens.FieldDescriptor PolicyUpdateRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 3, baseFeeMsat__field_descriptor),
(Data.ProtoLens.Tag 4, feeRate__field_descriptor),
(Data.ProtoLens.Tag 5, timeLockDelta__field_descriptor),
(Data.ProtoLens.Tag 6, maxHtlcMsat__field_descriptor),
(Data.ProtoLens.Tag 7, minHtlcMsat__field_descriptor),
(Data.ProtoLens.Tag 8, minHtlcMsatSpecified__field_descriptor),
(Data.ProtoLens.Tag 1, global__field_descriptor),
(Data.ProtoLens.Tag 2, chanPoint__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_PolicyUpdateRequest'_unknownFields
(\ x__ y__ -> x__ {_PolicyUpdateRequest'_unknownFields = y__})
defMessage
= PolicyUpdateRequest'_constructor
{_PolicyUpdateRequest'baseFeeMsat = Data.ProtoLens.fieldDefault,
_PolicyUpdateRequest'feeRate = Data.ProtoLens.fieldDefault,
_PolicyUpdateRequest'timeLockDelta = Data.ProtoLens.fieldDefault,
_PolicyUpdateRequest'maxHtlcMsat = Data.ProtoLens.fieldDefault,
_PolicyUpdateRequest'minHtlcMsat = Data.ProtoLens.fieldDefault,
_PolicyUpdateRequest'minHtlcMsatSpecified = Data.ProtoLens.fieldDefault,
_PolicyUpdateRequest'scope = Prelude.Nothing,
_PolicyUpdateRequest'_unknownFields = []}
parseMessage
= let
loop ::
PolicyUpdateRequest
-> Data.ProtoLens.Encoding.Bytes.Parser PolicyUpdateRequest
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
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"base_fee_msat"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"baseFeeMsat") y x)
33
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Data.ProtoLens.Encoding.Bytes.wordToDouble
Data.ProtoLens.Encoding.Bytes.getFixed64)
"fee_rate"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"feeRate") y x)
40
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"time_lock_delta"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"timeLockDelta") y x)
48
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "max_htlc_msat"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"maxHtlcMsat") y x)
56
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "min_htlc_msat"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"minHtlcMsat") y x)
64
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"min_htlc_msat_specified"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"minHtlcMsatSpecified") y x)
8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"global"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"global") 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)
"chan_point"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"chanPoint") 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) "PolicyUpdateRequest"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"baseFeeMsat") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"feeRate") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 33)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putFixed64
Data.ProtoLens.Encoding.Bytes.doubleToWord _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"timeLockDelta") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 40)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"maxHtlcMsat") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 48)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"minHtlcMsat") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 56)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"minHtlcMsatSpecified") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 64)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
(\ b -> if b then 1 else 0) _v))
((Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'scope") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just (PolicyUpdateRequest'Global 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 (PolicyUpdateRequest'ChanPoint 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 PolicyUpdateRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_PolicyUpdateRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_PolicyUpdateRequest'baseFeeMsat x__)
(Control.DeepSeq.deepseq
(_PolicyUpdateRequest'feeRate x__)
(Control.DeepSeq.deepseq
(_PolicyUpdateRequest'timeLockDelta x__)
(Control.DeepSeq.deepseq
(_PolicyUpdateRequest'maxHtlcMsat x__)
(Control.DeepSeq.deepseq
(_PolicyUpdateRequest'minHtlcMsat x__)
(Control.DeepSeq.deepseq
(_PolicyUpdateRequest'minHtlcMsatSpecified x__)
(Control.DeepSeq.deepseq (_PolicyUpdateRequest'scope x__) ())))))))
instance Control.DeepSeq.NFData PolicyUpdateRequest'Scope where
rnf (PolicyUpdateRequest'Global x__) = Control.DeepSeq.rnf x__
rnf (PolicyUpdateRequest'ChanPoint x__) = Control.DeepSeq.rnf x__
_PolicyUpdateRequest'Global ::
Data.ProtoLens.Prism.Prism' PolicyUpdateRequest'Scope Prelude.Bool
_PolicyUpdateRequest'Global
= Data.ProtoLens.Prism.prism'
PolicyUpdateRequest'Global
(\ p__
-> case p__ of
(PolicyUpdateRequest'Global p__val) -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
_PolicyUpdateRequest'ChanPoint ::
Data.ProtoLens.Prism.Prism' PolicyUpdateRequest'Scope Proto.Lnrpc.Ln0.ChannelPoint
_PolicyUpdateRequest'ChanPoint
= Data.ProtoLens.Prism.prism'
PolicyUpdateRequest'ChanPoint
(\ p__
-> case p__ of
(PolicyUpdateRequest'ChanPoint p__val) -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.failedUpdates' @:: Lens' PolicyUpdateResponse [FailedUpdate]@
* 'Proto.Lnrpc.Ln1_Fields.vec'failedUpdates' @:: Lens' PolicyUpdateResponse (Data.Vector.Vector FailedUpdate)@ -}
data PolicyUpdateResponse
= PolicyUpdateResponse'_constructor {_PolicyUpdateResponse'failedUpdates :: !(Data.Vector.Vector FailedUpdate),
_PolicyUpdateResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show PolicyUpdateResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out PolicyUpdateResponse
instance Data.ProtoLens.Field.HasField PolicyUpdateResponse "failedUpdates" [FailedUpdate] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PolicyUpdateResponse'failedUpdates
(\ x__ y__ -> x__ {_PolicyUpdateResponse'failedUpdates = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField PolicyUpdateResponse "vec'failedUpdates" (Data.Vector.Vector FailedUpdate) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PolicyUpdateResponse'failedUpdates
(\ x__ y__ -> x__ {_PolicyUpdateResponse'failedUpdates = y__}))
Prelude.id
instance Data.ProtoLens.Message PolicyUpdateResponse where
messageName _ = Data.Text.pack "lnrpc.PolicyUpdateResponse"
packedMessageDescriptor _
= "\n\
\\DC4PolicyUpdateResponse\DC2:\n\
\\SOfailed_updates\CAN\SOH \ETX(\v2\DC3.lnrpc.FailedUpdateR\rfailedUpdates"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
failedUpdates__field_descriptor
= Data.ProtoLens.FieldDescriptor
"failed_updates"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor FailedUpdate)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"failedUpdates")) ::
Data.ProtoLens.FieldDescriptor PolicyUpdateResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, failedUpdates__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_PolicyUpdateResponse'_unknownFields
(\ x__ y__ -> x__ {_PolicyUpdateResponse'_unknownFields = y__})
defMessage
= PolicyUpdateResponse'_constructor
{_PolicyUpdateResponse'failedUpdates = Data.Vector.Generic.empty,
_PolicyUpdateResponse'_unknownFields = []}
parseMessage
= let
loop ::
PolicyUpdateResponse
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld FailedUpdate
-> Data.ProtoLens.Encoding.Bytes.Parser PolicyUpdateResponse
loop x mutable'failedUpdates
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'failedUpdates <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'failedUpdates)
(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'failedUpdates")
frozen'failedUpdates 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)
"failed_updates"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'failedUpdates y)
loop x v
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'failedUpdates
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'failedUpdates <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'failedUpdates)
"PolicyUpdateResponse"
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'failedUpdates") _x))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData PolicyUpdateResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_PolicyUpdateResponse'_unknownFields x__)
(Control.DeepSeq.deepseq
(_PolicyUpdateResponse'failedUpdates x__) ())
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.methodFullUri' @:: Lens' RPCMessage Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.streamRpc' @:: Lens' RPCMessage Prelude.Bool@
* 'Proto.Lnrpc.Ln1_Fields.typeName' @:: Lens' RPCMessage Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.serialized' @:: Lens' RPCMessage Data.ByteString.ByteString@ -}
data RPCMessage
= RPCMessage'_constructor {_RPCMessage'methodFullUri :: !Data.Text.Text,
_RPCMessage'streamRpc :: !Prelude.Bool,
_RPCMessage'typeName :: !Data.Text.Text,
_RPCMessage'serialized :: !Data.ByteString.ByteString,
_RPCMessage'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show RPCMessage where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out RPCMessage
instance Data.ProtoLens.Field.HasField RPCMessage "methodFullUri" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMessage'methodFullUri
(\ x__ y__ -> x__ {_RPCMessage'methodFullUri = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField RPCMessage "streamRpc" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMessage'streamRpc
(\ x__ y__ -> x__ {_RPCMessage'streamRpc = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField RPCMessage "typeName" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMessage'typeName
(\ x__ y__ -> x__ {_RPCMessage'typeName = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField RPCMessage "serialized" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMessage'serialized
(\ x__ y__ -> x__ {_RPCMessage'serialized = y__}))
Prelude.id
instance Data.ProtoLens.Message RPCMessage where
messageName _ = Data.Text.pack "lnrpc.RPCMessage"
packedMessageDescriptor _
= "\n\
\\n\
\RPCMessage\DC2&\n\
\\SImethod_full_uri\CAN\SOH \SOH(\tR\rmethodFullUri\DC2\GS\n\
\\n\
\stream_rpc\CAN\STX \SOH(\bR\tstreamRpc\DC2\ESC\n\
\\ttype_name\CAN\ETX \SOH(\tR\btypeName\DC2\RS\n\
\\n\
\serialized\CAN\EOT \SOH(\fR\n\
\serialized"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
methodFullUri__field_descriptor
= Data.ProtoLens.FieldDescriptor
"method_full_uri"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"methodFullUri")) ::
Data.ProtoLens.FieldDescriptor RPCMessage
streamRpc__field_descriptor
= Data.ProtoLens.FieldDescriptor
"stream_rpc"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"streamRpc")) ::
Data.ProtoLens.FieldDescriptor RPCMessage
typeName__field_descriptor
= Data.ProtoLens.FieldDescriptor
"type_name"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"typeName")) ::
Data.ProtoLens.FieldDescriptor RPCMessage
serialized__field_descriptor
= Data.ProtoLens.FieldDescriptor
"serialized"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"serialized")) ::
Data.ProtoLens.FieldDescriptor RPCMessage
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, methodFullUri__field_descriptor),
(Data.ProtoLens.Tag 2, streamRpc__field_descriptor),
(Data.ProtoLens.Tag 3, typeName__field_descriptor),
(Data.ProtoLens.Tag 4, serialized__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_RPCMessage'_unknownFields
(\ x__ y__ -> x__ {_RPCMessage'_unknownFields = y__})
defMessage
= RPCMessage'_constructor
{_RPCMessage'methodFullUri = Data.ProtoLens.fieldDefault,
_RPCMessage'streamRpc = Data.ProtoLens.fieldDefault,
_RPCMessage'typeName = Data.ProtoLens.fieldDefault,
_RPCMessage'serialized = Data.ProtoLens.fieldDefault,
_RPCMessage'_unknownFields = []}
parseMessage
= let
loop ::
RPCMessage -> Data.ProtoLens.Encoding.Bytes.Parser RPCMessage
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))
"method_full_uri"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"methodFullUri") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"stream_rpc"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"streamRpc") 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))
"type_name"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"typeName") y x)
34
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"serialized"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"serialized") 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) "RPCMessage"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"methodFullUri") _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.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"streamRpc") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt (\ b -> if b then 1 else 0)
_v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"typeName") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(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.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"serialized") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((\ 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 RPCMessage where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_RPCMessage'_unknownFields x__)
(Control.DeepSeq.deepseq
(_RPCMessage'methodFullUri x__)
(Control.DeepSeq.deepseq
(_RPCMessage'streamRpc x__)
(Control.DeepSeq.deepseq
(_RPCMessage'typeName x__)
(Control.DeepSeq.deepseq (_RPCMessage'serialized x__) ()))))
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.requestId' @:: Lens' RPCMiddlewareRequest Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.rawMacaroon' @:: Lens' RPCMiddlewareRequest Data.ByteString.ByteString@
* 'Proto.Lnrpc.Ln1_Fields.customCaveatCondition' @:: Lens' RPCMiddlewareRequest Data.Text.Text@
* 'Proto.Lnrpc.Ln1_Fields.msgId' @:: Lens' RPCMiddlewareRequest Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.maybe'interceptType' @:: Lens' RPCMiddlewareRequest (Prelude.Maybe RPCMiddlewareRequest'InterceptType)@
* 'Proto.Lnrpc.Ln1_Fields.maybe'streamAuth' @:: Lens' RPCMiddlewareRequest (Prelude.Maybe StreamAuth)@
* 'Proto.Lnrpc.Ln1_Fields.streamAuth' @:: Lens' RPCMiddlewareRequest StreamAuth@
* 'Proto.Lnrpc.Ln1_Fields.maybe'request' @:: Lens' RPCMiddlewareRequest (Prelude.Maybe RPCMessage)@
* 'Proto.Lnrpc.Ln1_Fields.request' @:: Lens' RPCMiddlewareRequest RPCMessage@
* 'Proto.Lnrpc.Ln1_Fields.maybe'response' @:: Lens' RPCMiddlewareRequest (Prelude.Maybe RPCMessage)@
* 'Proto.Lnrpc.Ln1_Fields.response' @:: Lens' RPCMiddlewareRequest RPCMessage@ -}
data RPCMiddlewareRequest
= RPCMiddlewareRequest'_constructor {_RPCMiddlewareRequest'requestId :: !Data.Word.Word64,
_RPCMiddlewareRequest'rawMacaroon :: !Data.ByteString.ByteString,
_RPCMiddlewareRequest'customCaveatCondition :: !Data.Text.Text,
_RPCMiddlewareRequest'msgId :: !Data.Word.Word64,
_RPCMiddlewareRequest'interceptType :: !(Prelude.Maybe RPCMiddlewareRequest'InterceptType),
_RPCMiddlewareRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show RPCMiddlewareRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out RPCMiddlewareRequest
data RPCMiddlewareRequest'InterceptType
= RPCMiddlewareRequest'StreamAuth !StreamAuth |
RPCMiddlewareRequest'Request !RPCMessage |
RPCMiddlewareRequest'Response !RPCMessage
deriving stock (Prelude.Show,
Prelude.Eq,
Prelude.Ord,
GHC.Generics.Generic)
instance Text.PrettyPrint.GenericPretty.Out RPCMiddlewareRequest'InterceptType
instance Data.ProtoLens.Field.HasField RPCMiddlewareRequest "requestId" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMiddlewareRequest'requestId
(\ x__ y__ -> x__ {_RPCMiddlewareRequest'requestId = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField RPCMiddlewareRequest "rawMacaroon" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMiddlewareRequest'rawMacaroon
(\ x__ y__ -> x__ {_RPCMiddlewareRequest'rawMacaroon = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField RPCMiddlewareRequest "customCaveatCondition" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMiddlewareRequest'customCaveatCondition
(\ x__ y__
-> x__ {_RPCMiddlewareRequest'customCaveatCondition = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField RPCMiddlewareRequest "msgId" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMiddlewareRequest'msgId
(\ x__ y__ -> x__ {_RPCMiddlewareRequest'msgId = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField RPCMiddlewareRequest "maybe'interceptType" (Prelude.Maybe RPCMiddlewareRequest'InterceptType) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMiddlewareRequest'interceptType
(\ x__ y__ -> x__ {_RPCMiddlewareRequest'interceptType = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField RPCMiddlewareRequest "maybe'streamAuth" (Prelude.Maybe StreamAuth) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMiddlewareRequest'interceptType
(\ x__ y__ -> x__ {_RPCMiddlewareRequest'interceptType = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (RPCMiddlewareRequest'StreamAuth x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap RPCMiddlewareRequest'StreamAuth y__))
instance Data.ProtoLens.Field.HasField RPCMiddlewareRequest "streamAuth" StreamAuth where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMiddlewareRequest'interceptType
(\ x__ y__ -> x__ {_RPCMiddlewareRequest'interceptType = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (RPCMiddlewareRequest'StreamAuth x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap RPCMiddlewareRequest'StreamAuth y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField RPCMiddlewareRequest "maybe'request" (Prelude.Maybe RPCMessage) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMiddlewareRequest'interceptType
(\ x__ y__ -> x__ {_RPCMiddlewareRequest'interceptType = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (RPCMiddlewareRequest'Request x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap RPCMiddlewareRequest'Request y__))
instance Data.ProtoLens.Field.HasField RPCMiddlewareRequest "request" RPCMessage where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMiddlewareRequest'interceptType
(\ x__ y__ -> x__ {_RPCMiddlewareRequest'interceptType = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (RPCMiddlewareRequest'Request x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap RPCMiddlewareRequest'Request y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField RPCMiddlewareRequest "maybe'response" (Prelude.Maybe RPCMessage) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMiddlewareRequest'interceptType
(\ x__ y__ -> x__ {_RPCMiddlewareRequest'interceptType = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (RPCMiddlewareRequest'Response x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap RPCMiddlewareRequest'Response y__))
instance Data.ProtoLens.Field.HasField RPCMiddlewareRequest "response" RPCMessage where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMiddlewareRequest'interceptType
(\ x__ y__ -> x__ {_RPCMiddlewareRequest'interceptType = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (RPCMiddlewareRequest'Response x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap RPCMiddlewareRequest'Response y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message RPCMiddlewareRequest where
messageName _ = Data.Text.pack "lnrpc.RPCMiddlewareRequest"
packedMessageDescriptor _
= "\n\
\\DC4RPCMiddlewareRequest\DC2\GS\n\
\\n\
\request_id\CAN\SOH \SOH(\EOTR\trequestId\DC2!\n\
\\fraw_macaroon\CAN\STX \SOH(\fR\vrawMacaroon\DC26\n\
\\ETBcustom_caveat_condition\CAN\ETX \SOH(\tR\NAKcustomCaveatCondition\DC24\n\
\\vstream_auth\CAN\EOT \SOH(\v2\DC1.lnrpc.StreamAuthH\NULR\n\
\streamAuth\DC2-\n\
\\arequest\CAN\ENQ \SOH(\v2\DC1.lnrpc.RPCMessageH\NULR\arequest\DC2/\n\
\\bresponse\CAN\ACK \SOH(\v2\DC1.lnrpc.RPCMessageH\NULR\bresponse\DC2\NAK\n\
\\ACKmsg_id\CAN\a \SOH(\EOTR\ENQmsgIdB\DLE\n\
\\SOintercept_type"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
requestId__field_descriptor
= Data.ProtoLens.FieldDescriptor
"request_id"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"requestId")) ::
Data.ProtoLens.FieldDescriptor RPCMiddlewareRequest
rawMacaroon__field_descriptor
= Data.ProtoLens.FieldDescriptor
"raw_macaroon"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"rawMacaroon")) ::
Data.ProtoLens.FieldDescriptor RPCMiddlewareRequest
customCaveatCondition__field_descriptor
= Data.ProtoLens.FieldDescriptor
"custom_caveat_condition"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"customCaveatCondition")) ::
Data.ProtoLens.FieldDescriptor RPCMiddlewareRequest
msgId__field_descriptor
= Data.ProtoLens.FieldDescriptor
"msg_id"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"msgId")) ::
Data.ProtoLens.FieldDescriptor RPCMiddlewareRequest
streamAuth__field_descriptor
= Data.ProtoLens.FieldDescriptor
"stream_auth"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor StreamAuth)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'streamAuth")) ::
Data.ProtoLens.FieldDescriptor RPCMiddlewareRequest
request__field_descriptor
= Data.ProtoLens.FieldDescriptor
"request"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor RPCMessage)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'request")) ::
Data.ProtoLens.FieldDescriptor RPCMiddlewareRequest
response__field_descriptor
= Data.ProtoLens.FieldDescriptor
"response"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor RPCMessage)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'response")) ::
Data.ProtoLens.FieldDescriptor RPCMiddlewareRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, requestId__field_descriptor),
(Data.ProtoLens.Tag 2, rawMacaroon__field_descriptor),
(Data.ProtoLens.Tag 3, customCaveatCondition__field_descriptor),
(Data.ProtoLens.Tag 7, msgId__field_descriptor),
(Data.ProtoLens.Tag 4, streamAuth__field_descriptor),
(Data.ProtoLens.Tag 5, request__field_descriptor),
(Data.ProtoLens.Tag 6, response__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_RPCMiddlewareRequest'_unknownFields
(\ x__ y__ -> x__ {_RPCMiddlewareRequest'_unknownFields = y__})
defMessage
= RPCMiddlewareRequest'_constructor
{_RPCMiddlewareRequest'requestId = Data.ProtoLens.fieldDefault,
_RPCMiddlewareRequest'rawMacaroon = Data.ProtoLens.fieldDefault,
_RPCMiddlewareRequest'customCaveatCondition = Data.ProtoLens.fieldDefault,
_RPCMiddlewareRequest'msgId = Data.ProtoLens.fieldDefault,
_RPCMiddlewareRequest'interceptType = Prelude.Nothing,
_RPCMiddlewareRequest'_unknownFields = []}
parseMessage
= let
loop ::
RPCMiddlewareRequest
-> Data.ProtoLens.Encoding.Bytes.Parser RPCMiddlewareRequest
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 "request_id"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"requestId") y x)
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"raw_macaroon"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"rawMacaroon") 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))
"custom_caveat_condition"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"customCaveatCondition") y x)
56
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "msg_id"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"msgId") y x)
34
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"stream_auth"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"streamAuth") y x)
42
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"request"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"request") y x)
50
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"response"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"response") 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) "RPCMiddlewareRequest"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"requestId") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"rawMacaroon") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"customCaveatCondition") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(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.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"msgId") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 56)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(case
Lens.Family2.view
(Data.ProtoLens.Field.field @"maybe'interceptType") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just (RPCMiddlewareRequest'StreamAuth v))
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage v)
(Prelude.Just (RPCMiddlewareRequest'Request v))
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 42)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage v)
(Prelude.Just (RPCMiddlewareRequest'Response v))
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 50)
((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 RPCMiddlewareRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_RPCMiddlewareRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_RPCMiddlewareRequest'requestId x__)
(Control.DeepSeq.deepseq
(_RPCMiddlewareRequest'rawMacaroon x__)
(Control.DeepSeq.deepseq
(_RPCMiddlewareRequest'customCaveatCondition x__)
(Control.DeepSeq.deepseq
(_RPCMiddlewareRequest'msgId x__)
(Control.DeepSeq.deepseq
(_RPCMiddlewareRequest'interceptType x__) ())))))
instance Control.DeepSeq.NFData RPCMiddlewareRequest'InterceptType where
rnf (RPCMiddlewareRequest'StreamAuth x__) = Control.DeepSeq.rnf x__
rnf (RPCMiddlewareRequest'Request x__) = Control.DeepSeq.rnf x__
rnf (RPCMiddlewareRequest'Response x__) = Control.DeepSeq.rnf x__
_RPCMiddlewareRequest'StreamAuth ::
Data.ProtoLens.Prism.Prism' RPCMiddlewareRequest'InterceptType StreamAuth
_RPCMiddlewareRequest'StreamAuth
= Data.ProtoLens.Prism.prism'
RPCMiddlewareRequest'StreamAuth
(\ p__
-> case p__ of
(RPCMiddlewareRequest'StreamAuth p__val) -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
_RPCMiddlewareRequest'Request ::
Data.ProtoLens.Prism.Prism' RPCMiddlewareRequest'InterceptType RPCMessage
_RPCMiddlewareRequest'Request
= Data.ProtoLens.Prism.prism'
RPCMiddlewareRequest'Request
(\ p__
-> case p__ of
(RPCMiddlewareRequest'Request p__val) -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
_RPCMiddlewareRequest'Response ::
Data.ProtoLens.Prism.Prism' RPCMiddlewareRequest'InterceptType RPCMessage
_RPCMiddlewareRequest'Response
= Data.ProtoLens.Prism.prism'
RPCMiddlewareRequest'Response
(\ p__
-> case p__ of
(RPCMiddlewareRequest'Response p__val) -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.refMsgId' @:: Lens' RPCMiddlewareResponse Data.Word.Word64@
* 'Proto.Lnrpc.Ln1_Fields.maybe'middlewareMessage' @:: Lens' RPCMiddlewareResponse (Prelude.Maybe RPCMiddlewareResponse'MiddlewareMessage)@
* 'Proto.Lnrpc.Ln1_Fields.maybe'register' @:: Lens' RPCMiddlewareResponse (Prelude.Maybe MiddlewareRegistration)@
* 'Proto.Lnrpc.Ln1_Fields.register' @:: Lens' RPCMiddlewareResponse MiddlewareRegistration@
* 'Proto.Lnrpc.Ln1_Fields.maybe'feedback' @:: Lens' RPCMiddlewareResponse (Prelude.Maybe InterceptFeedback)@
* 'Proto.Lnrpc.Ln1_Fields.feedback' @:: Lens' RPCMiddlewareResponse InterceptFeedback@ -}
data RPCMiddlewareResponse
= RPCMiddlewareResponse'_constructor {_RPCMiddlewareResponse'refMsgId :: !Data.Word.Word64,
_RPCMiddlewareResponse'middlewareMessage :: !(Prelude.Maybe RPCMiddlewareResponse'MiddlewareMessage),
_RPCMiddlewareResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show RPCMiddlewareResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out RPCMiddlewareResponse
data RPCMiddlewareResponse'MiddlewareMessage
= RPCMiddlewareResponse'Register !MiddlewareRegistration |
RPCMiddlewareResponse'Feedback !InterceptFeedback
deriving stock (Prelude.Show,
Prelude.Eq,
Prelude.Ord,
GHC.Generics.Generic)
instance Text.PrettyPrint.GenericPretty.Out RPCMiddlewareResponse'MiddlewareMessage
instance Data.ProtoLens.Field.HasField RPCMiddlewareResponse "refMsgId" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMiddlewareResponse'refMsgId
(\ x__ y__ -> x__ {_RPCMiddlewareResponse'refMsgId = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField RPCMiddlewareResponse "maybe'middlewareMessage" (Prelude.Maybe RPCMiddlewareResponse'MiddlewareMessage) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMiddlewareResponse'middlewareMessage
(\ x__ y__
-> x__ {_RPCMiddlewareResponse'middlewareMessage = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField RPCMiddlewareResponse "maybe'register" (Prelude.Maybe MiddlewareRegistration) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMiddlewareResponse'middlewareMessage
(\ x__ y__
-> x__ {_RPCMiddlewareResponse'middlewareMessage = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (RPCMiddlewareResponse'Register x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap RPCMiddlewareResponse'Register y__))
instance Data.ProtoLens.Field.HasField RPCMiddlewareResponse "register" MiddlewareRegistration where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMiddlewareResponse'middlewareMessage
(\ x__ y__
-> x__ {_RPCMiddlewareResponse'middlewareMessage = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (RPCMiddlewareResponse'Register x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap RPCMiddlewareResponse'Register y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField RPCMiddlewareResponse "maybe'feedback" (Prelude.Maybe InterceptFeedback) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMiddlewareResponse'middlewareMessage
(\ x__ y__
-> x__ {_RPCMiddlewareResponse'middlewareMessage = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (RPCMiddlewareResponse'Feedback x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap RPCMiddlewareResponse'Feedback y__))
instance Data.ProtoLens.Field.HasField RPCMiddlewareResponse "feedback" InterceptFeedback where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RPCMiddlewareResponse'middlewareMessage
(\ x__ y__
-> x__ {_RPCMiddlewareResponse'middlewareMessage = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (RPCMiddlewareResponse'Feedback x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap RPCMiddlewareResponse'Feedback y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message RPCMiddlewareResponse where
messageName _ = Data.Text.pack "lnrpc.RPCMiddlewareResponse"
packedMessageDescriptor _
= "\n\
\\NAKRPCMiddlewareResponse\DC2\FS\n\
\\n\
\ref_msg_id\CAN\SOH \SOH(\EOTR\brefMsgId\DC2;\n\
\\bregister\CAN\STX \SOH(\v2\GS.lnrpc.MiddlewareRegistrationH\NULR\bregister\DC26\n\
\\bfeedback\CAN\ETX \SOH(\v2\CAN.lnrpc.InterceptFeedbackH\NULR\bfeedbackB\DC4\n\
\\DC2middleware_message"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
refMsgId__field_descriptor
= Data.ProtoLens.FieldDescriptor
"ref_msg_id"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"refMsgId")) ::
Data.ProtoLens.FieldDescriptor RPCMiddlewareResponse
register__field_descriptor
= Data.ProtoLens.FieldDescriptor
"register"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor MiddlewareRegistration)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'register")) ::
Data.ProtoLens.FieldDescriptor RPCMiddlewareResponse
feedback__field_descriptor
= Data.ProtoLens.FieldDescriptor
"feedback"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor InterceptFeedback)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'feedback")) ::
Data.ProtoLens.FieldDescriptor RPCMiddlewareResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, refMsgId__field_descriptor),
(Data.ProtoLens.Tag 2, register__field_descriptor),
(Data.ProtoLens.Tag 3, feedback__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_RPCMiddlewareResponse'_unknownFields
(\ x__ y__ -> x__ {_RPCMiddlewareResponse'_unknownFields = y__})
defMessage
= RPCMiddlewareResponse'_constructor
{_RPCMiddlewareResponse'refMsgId = Data.ProtoLens.fieldDefault,
_RPCMiddlewareResponse'middlewareMessage = Prelude.Nothing,
_RPCMiddlewareResponse'_unknownFields = []}
parseMessage
= let
loop ::
RPCMiddlewareResponse
-> Data.ProtoLens.Encoding.Bytes.Parser RPCMiddlewareResponse
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 "ref_msg_id"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"refMsgId") 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)
"register"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"register") 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)
"feedback"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"feedback") 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) "RPCMiddlewareResponse"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"refMsgId") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(case
Lens.Family2.view
(Data.ProtoLens.Field.field @"maybe'middlewareMessage") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just (RPCMiddlewareResponse'Register v))
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage v)
(Prelude.Just (RPCMiddlewareResponse'Feedback 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 RPCMiddlewareResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_RPCMiddlewareResponse'_unknownFields x__)
(Control.DeepSeq.deepseq
(_RPCMiddlewareResponse'refMsgId x__)
(Control.DeepSeq.deepseq
(_RPCMiddlewareResponse'middlewareMessage x__) ()))
instance Control.DeepSeq.NFData RPCMiddlewareResponse'MiddlewareMessage where
rnf (RPCMiddlewareResponse'Register x__) = Control.DeepSeq.rnf x__
rnf (RPCMiddlewareResponse'Feedback x__) = Control.DeepSeq.rnf x__
_RPCMiddlewareResponse'Register ::
Data.ProtoLens.Prism.Prism' RPCMiddlewareResponse'MiddlewareMessage MiddlewareRegistration
_RPCMiddlewareResponse'Register
= Data.ProtoLens.Prism.prism'
RPCMiddlewareResponse'Register
(\ p__
-> case p__ of
(RPCMiddlewareResponse'Register p__val) -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
_RPCMiddlewareResponse'Feedback ::
Data.ProtoLens.Prism.Prism' RPCMiddlewareResponse'MiddlewareMessage InterceptFeedback
_RPCMiddlewareResponse'Feedback
= Data.ProtoLens.Prism.prism'
RPCMiddlewareResponse'Feedback
(\ p__
-> case p__ of
(RPCMiddlewareResponse'Feedback p__val) -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
{- | Fields :
-}
data RestoreBackupResponse
= RestoreBackupResponse'_constructor {_RestoreBackupResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show RestoreBackupResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out RestoreBackupResponse
instance Data.ProtoLens.Message RestoreBackupResponse where
messageName _ = Data.Text.pack "lnrpc.RestoreBackupResponse"
packedMessageDescriptor _
= "\n\
\\NAKRestoreBackupResponse"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag = let in Data.Map.fromList []
unknownFields
= Lens.Family2.Unchecked.lens
_RestoreBackupResponse'_unknownFields
(\ x__ y__ -> x__ {_RestoreBackupResponse'_unknownFields = y__})
defMessage
= RestoreBackupResponse'_constructor
{_RestoreBackupResponse'_unknownFields = []}
parseMessage
= let
loop ::
RestoreBackupResponse
-> Data.ProtoLens.Encoding.Bytes.Parser RestoreBackupResponse
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 {
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) "RestoreBackupResponse"
buildMessage
= \ _x
-> Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
instance Control.DeepSeq.NFData RestoreBackupResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_RestoreBackupResponse'_unknownFields x__) ()
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.maybe'backup' @:: Lens' RestoreChanBackupRequest (Prelude.Maybe RestoreChanBackupRequest'Backup)@
* 'Proto.Lnrpc.Ln1_Fields.maybe'chanBackups' @:: Lens' RestoreChanBackupRequest (Prelude.Maybe ChannelBackups)@
* 'Proto.Lnrpc.Ln1_Fields.chanBackups' @:: Lens' RestoreChanBackupRequest ChannelBackups@
* 'Proto.Lnrpc.Ln1_Fields.maybe'multiChanBackup' @:: Lens' RestoreChanBackupRequest (Prelude.Maybe Data.ByteString.ByteString)@
* 'Proto.Lnrpc.Ln1_Fields.multiChanBackup' @:: Lens' RestoreChanBackupRequest Data.ByteString.ByteString@ -}
data RestoreChanBackupRequest
= RestoreChanBackupRequest'_constructor {_RestoreChanBackupRequest'backup :: !(Prelude.Maybe RestoreChanBackupRequest'Backup),
_RestoreChanBackupRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show RestoreChanBackupRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out RestoreChanBackupRequest
data RestoreChanBackupRequest'Backup
= RestoreChanBackupRequest'ChanBackups !ChannelBackups |
RestoreChanBackupRequest'MultiChanBackup !Data.ByteString.ByteString
deriving stock (Prelude.Show,
Prelude.Eq,
Prelude.Ord,
GHC.Generics.Generic)
instance Text.PrettyPrint.GenericPretty.Out RestoreChanBackupRequest'Backup
instance Data.ProtoLens.Field.HasField RestoreChanBackupRequest "maybe'backup" (Prelude.Maybe RestoreChanBackupRequest'Backup) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RestoreChanBackupRequest'backup
(\ x__ y__ -> x__ {_RestoreChanBackupRequest'backup = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField RestoreChanBackupRequest "maybe'chanBackups" (Prelude.Maybe ChannelBackups) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RestoreChanBackupRequest'backup
(\ x__ y__ -> x__ {_RestoreChanBackupRequest'backup = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (RestoreChanBackupRequest'ChanBackups x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap RestoreChanBackupRequest'ChanBackups y__))
instance Data.ProtoLens.Field.HasField RestoreChanBackupRequest "chanBackups" ChannelBackups where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RestoreChanBackupRequest'backup
(\ x__ y__ -> x__ {_RestoreChanBackupRequest'backup = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (RestoreChanBackupRequest'ChanBackups x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap RestoreChanBackupRequest'ChanBackups y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField RestoreChanBackupRequest "maybe'multiChanBackup" (Prelude.Maybe Data.ByteString.ByteString) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RestoreChanBackupRequest'backup
(\ x__ y__ -> x__ {_RestoreChanBackupRequest'backup = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (RestoreChanBackupRequest'MultiChanBackup x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__
-> Prelude.fmap RestoreChanBackupRequest'MultiChanBackup y__))
instance Data.ProtoLens.Field.HasField RestoreChanBackupRequest "multiChanBackup" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RestoreChanBackupRequest'backup
(\ x__ y__ -> x__ {_RestoreChanBackupRequest'backup = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (RestoreChanBackupRequest'MultiChanBackup x__val))
-> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__
-> Prelude.fmap RestoreChanBackupRequest'MultiChanBackup y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Message RestoreChanBackupRequest where
messageName _ = Data.Text.pack "lnrpc.RestoreChanBackupRequest"
packedMessageDescriptor _
= "\n\
\\CANRestoreChanBackupRequest\DC2:\n\
\\fchan_backups\CAN\SOH \SOH(\v2\NAK.lnrpc.ChannelBackupsH\NULR\vchanBackups\DC2,\n\
\\DC1multi_chan_backup\CAN\STX \SOH(\fH\NULR\SImultiChanBackupB\b\n\
\\ACKbackup"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
chanBackups__field_descriptor
= Data.ProtoLens.FieldDescriptor
"chan_backups"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ChannelBackups)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'chanBackups")) ::
Data.ProtoLens.FieldDescriptor RestoreChanBackupRequest
multiChanBackup__field_descriptor
= Data.ProtoLens.FieldDescriptor
"multi_chan_backup"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'multiChanBackup")) ::
Data.ProtoLens.FieldDescriptor RestoreChanBackupRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, chanBackups__field_descriptor),
(Data.ProtoLens.Tag 2, multiChanBackup__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_RestoreChanBackupRequest'_unknownFields
(\ x__ y__ -> x__ {_RestoreChanBackupRequest'_unknownFields = y__})
defMessage
= RestoreChanBackupRequest'_constructor
{_RestoreChanBackupRequest'backup = Prelude.Nothing,
_RestoreChanBackupRequest'_unknownFields = []}
parseMessage
= let
loop ::
RestoreChanBackupRequest
-> Data.ProtoLens.Encoding.Bytes.Parser RestoreChanBackupRequest
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)
"chan_backups"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"chanBackups") y x)
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"multi_chan_backup"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"multiChanBackup") 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) "RestoreChanBackupRequest"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'backup") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just (RestoreChanBackupRequest'ChanBackups v))
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage v)
(Prelude.Just (RestoreChanBackupRequest'MultiChanBackup v))
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData RestoreChanBackupRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_RestoreChanBackupRequest'_unknownFields x__)
(Control.DeepSeq.deepseq (_RestoreChanBackupRequest'backup x__) ())
instance Control.DeepSeq.NFData RestoreChanBackupRequest'Backup where
rnf (RestoreChanBackupRequest'ChanBackups x__)
= Control.DeepSeq.rnf x__
rnf (RestoreChanBackupRequest'MultiChanBackup x__)
= Control.DeepSeq.rnf x__
_RestoreChanBackupRequest'ChanBackups ::
Data.ProtoLens.Prism.Prism' RestoreChanBackupRequest'Backup ChannelBackups
_RestoreChanBackupRequest'ChanBackups
= Data.ProtoLens.Prism.prism'
RestoreChanBackupRequest'ChanBackups
(\ p__
-> case p__ of
(RestoreChanBackupRequest'ChanBackups p__val)
-> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
_RestoreChanBackupRequest'MultiChanBackup ::
Data.ProtoLens.Prism.Prism' RestoreChanBackupRequest'Backup Data.ByteString.ByteString
_RestoreChanBackupRequest'MultiChanBackup
= Data.ProtoLens.Prism.prism'
RestoreChanBackupRequest'MultiChanBackup
(\ p__
-> case p__ of
(RestoreChanBackupRequest'MultiChanBackup p__val)
-> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.setId' @:: Lens' SetID Data.ByteString.ByteString@ -}
data SetID
= SetID'_constructor {_SetID'setId :: !Data.ByteString.ByteString,
_SetID'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show SetID where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out SetID
instance Data.ProtoLens.Field.HasField SetID "setId" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_SetID'setId (\ x__ y__ -> x__ {_SetID'setId = y__}))
Prelude.id
instance Data.ProtoLens.Message SetID where
messageName _ = Data.Text.pack "lnrpc.SetID"
packedMessageDescriptor _
= "\n\
\\ENQSetID\DC2\NAK\n\
\\ACKset_id\CAN\SOH \SOH(\fR\ENQsetId"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
setId__field_descriptor
= Data.ProtoLens.FieldDescriptor
"set_id"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"setId")) ::
Data.ProtoLens.FieldDescriptor SetID
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, setId__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_SetID'_unknownFields
(\ x__ y__ -> x__ {_SetID'_unknownFields = y__})
defMessage
= SetID'_constructor
{_SetID'setId = Data.ProtoLens.fieldDefault,
_SetID'_unknownFields = []}
parseMessage
= let
loop :: SetID -> Data.ProtoLens.Encoding.Bytes.Parser SetID
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))
"set_id"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"setId") 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) "SetID"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"setId") _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 SetID where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_SetID'_unknownFields x__)
(Control.DeepSeq.deepseq (_SetID'setId x__) ())
{- | Fields :
* 'Proto.Lnrpc.Ln1_Fields.methodFullUri' @:: Lens' StreamAuth Data.Text.Text@ -}
data StreamAuth
= StreamAuth'_constructor {_StreamAuth'methodFullUri :: !Data.Text.Text,
_StreamAuth'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show StreamAuth where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out StreamAuth
instance Data.ProtoLens.Field.HasField StreamAuth "methodFullUri" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_StreamAuth'methodFullUri
(\ x__ y__ -> x__ {_StreamAuth'methodFullUri = y__}))
Prelude.id
instance Data.ProtoLens.Message StreamAuth where
messageName _ = Data.Text.pack "lnrpc.StreamAuth"
packedMessageDescriptor _
= "\n\
\\n\
\StreamAuth\DC2&\n\
\\SImethod_full_uri\CAN\SOH \SOH(\tR\rmethodFullUri"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
methodFullUri__field_descriptor
= Data.ProtoLens.FieldDescriptor
"method_full_uri"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"methodFullUri")) ::
Data.ProtoLens.FieldDescriptor StreamAuth
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, methodFullUri__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_StreamAuth'_unknownFields
(\ x__ y__ -> x__ {_StreamAuth'_unknownFields = y__})
defMessage
= StreamAuth'_constructor
{_StreamAuth'methodFullUri = Data.ProtoLens.fieldDefault,
_StreamAuth'_unknownFields = []}
parseMessage
= let
loop ::
StreamAuth -> Data.ProtoLens.Encoding.Bytes.Parser StreamAuth
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))
"method_full_uri"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"methodFullUri") 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) "StreamAuth"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"methodFullUri") _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 StreamAuth where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_StreamAuth'_unknownFields x__)
(Control.DeepSeq.deepseq (_StreamAuth'methodFullUri x__) ())
newtype UpdateFailure'UnrecognizedValue
= UpdateFailure'UnrecognizedValue Data.Int.Int32
deriving stock (Prelude.Eq,
Prelude.Ord,
Prelude.Show,
GHC.Generics.Generic)
instance Text.PrettyPrint.GenericPretty.Out UpdateFailure'UnrecognizedValue
data UpdateFailure
= UPDATE_FAILURE_UNKNOWN |
UPDATE_FAILURE_PENDING |
UPDATE_FAILURE_NOT_FOUND |
UPDATE_FAILURE_INTERNAL_ERR |
UPDATE_FAILURE_INVALID_PARAMETER |
UpdateFailure'Unrecognized !UpdateFailure'UnrecognizedValue
deriving stock (Prelude.Show,
Prelude.Eq,
Prelude.Ord,
GHC.Generics.Generic)
instance Data.ProtoLens.MessageEnum UpdateFailure where
maybeToEnum 0 = Prelude.Just UPDATE_FAILURE_UNKNOWN
maybeToEnum 1 = Prelude.Just UPDATE_FAILURE_PENDING
maybeToEnum 2 = Prelude.Just UPDATE_FAILURE_NOT_FOUND
maybeToEnum 3 = Prelude.Just UPDATE_FAILURE_INTERNAL_ERR
maybeToEnum 4 = Prelude.Just UPDATE_FAILURE_INVALID_PARAMETER
maybeToEnum k
= Prelude.Just
(UpdateFailure'Unrecognized
(UpdateFailure'UnrecognizedValue (Prelude.fromIntegral k)))
showEnum UPDATE_FAILURE_UNKNOWN = "UPDATE_FAILURE_UNKNOWN"
showEnum UPDATE_FAILURE_PENDING = "UPDATE_FAILURE_PENDING"
showEnum UPDATE_FAILURE_NOT_FOUND = "UPDATE_FAILURE_NOT_FOUND"
showEnum UPDATE_FAILURE_INTERNAL_ERR
= "UPDATE_FAILURE_INTERNAL_ERR"
showEnum UPDATE_FAILURE_INVALID_PARAMETER
= "UPDATE_FAILURE_INVALID_PARAMETER"
showEnum
(UpdateFailure'Unrecognized (UpdateFailure'UnrecognizedValue k))
= Prelude.show k
readEnum k
| (Prelude.==) k "UPDATE_FAILURE_UNKNOWN"
= Prelude.Just UPDATE_FAILURE_UNKNOWN
| (Prelude.==) k "UPDATE_FAILURE_PENDING"
= Prelude.Just UPDATE_FAILURE_PENDING
| (Prelude.==) k "UPDATE_FAILURE_NOT_FOUND"
= Prelude.Just UPDATE_FAILURE_NOT_FOUND
| (Prelude.==) k "UPDATE_FAILURE_INTERNAL_ERR"
= Prelude.Just UPDATE_FAILURE_INTERNAL_ERR
| (Prelude.==) k "UPDATE_FAILURE_INVALID_PARAMETER"
= Prelude.Just UPDATE_FAILURE_INVALID_PARAMETER
| Prelude.otherwise
= (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum
instance Prelude.Bounded UpdateFailure where
minBound = UPDATE_FAILURE_UNKNOWN
maxBound = UPDATE_FAILURE_INVALID_PARAMETER
instance Prelude.Enum UpdateFailure where
toEnum k__
= Prelude.maybe
(Prelude.error
((Prelude.++)
"toEnum: unknown value for enum UpdateFailure: "
(Prelude.show k__)))
Prelude.id (Data.ProtoLens.maybeToEnum k__)
fromEnum UPDATE_FAILURE_UNKNOWN = 0
fromEnum UPDATE_FAILURE_PENDING = 1
fromEnum UPDATE_FAILURE_NOT_FOUND = 2
fromEnum UPDATE_FAILURE_INTERNAL_ERR = 3
fromEnum UPDATE_FAILURE_INVALID_PARAMETER = 4
fromEnum
(UpdateFailure'Unrecognized (UpdateFailure'UnrecognizedValue k))
= Prelude.fromIntegral k
succ UPDATE_FAILURE_INVALID_PARAMETER
= Prelude.error
"UpdateFailure.succ: bad argument UPDATE_FAILURE_INVALID_PARAMETER. This value would be out of bounds."
succ UPDATE_FAILURE_UNKNOWN = UPDATE_FAILURE_PENDING
succ UPDATE_FAILURE_PENDING = UPDATE_FAILURE_NOT_FOUND
succ UPDATE_FAILURE_NOT_FOUND = UPDATE_FAILURE_INTERNAL_ERR
succ UPDATE_FAILURE_INTERNAL_ERR = UPDATE_FAILURE_INVALID_PARAMETER
succ (UpdateFailure'Unrecognized _)
= Prelude.error
"UpdateFailure.succ: bad argument: unrecognized value"
pred UPDATE_FAILURE_UNKNOWN
= Prelude.error
"UpdateFailure.pred: bad argument UPDATE_FAILURE_UNKNOWN. This value would be out of bounds."
pred UPDATE_FAILURE_PENDING = UPDATE_FAILURE_UNKNOWN
pred UPDATE_FAILURE_NOT_FOUND = UPDATE_FAILURE_PENDING
pred UPDATE_FAILURE_INTERNAL_ERR = UPDATE_FAILURE_NOT_FOUND
pred UPDATE_FAILURE_INVALID_PARAMETER = UPDATE_FAILURE_INTERNAL_ERR
pred (UpdateFailure'Unrecognized _)
= Prelude.error
"UpdateFailure.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 UpdateFailure where
fieldDefault = UPDATE_FAILURE_UNKNOWN
instance Control.DeepSeq.NFData UpdateFailure where
rnf x__ = Prelude.seq x__ ()
instance Text.PrettyPrint.GenericPretty.Out UpdateFailure
{- | Fields :
-}
data VerifyChanBackupResponse
= VerifyChanBackupResponse'_constructor {_VerifyChanBackupResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show VerifyChanBackupResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out VerifyChanBackupResponse
instance Data.ProtoLens.Message VerifyChanBackupResponse where
messageName _ = Data.Text.pack "lnrpc.VerifyChanBackupResponse"
packedMessageDescriptor _
= "\n\
\\CANVerifyChanBackupResponse"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag = let in Data.Map.fromList []
unknownFields
= Lens.Family2.Unchecked.lens
_VerifyChanBackupResponse'_unknownFields
(\ x__ y__ -> x__ {_VerifyChanBackupResponse'_unknownFields = y__})
defMessage
= VerifyChanBackupResponse'_constructor
{_VerifyChanBackupResponse'_unknownFields = []}
parseMessage
= let
loop ::
VerifyChanBackupResponse
-> Data.ProtoLens.Encoding.Bytes.Parser VerifyChanBackupResponse
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 {
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) "VerifyChanBackupResponse"
buildMessage
= \ _x
-> Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
instance Control.DeepSeq.NFData VerifyChanBackupResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_VerifyChanBackupResponse'_unknownFields x__) ()
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor
= "\n\
\\SIlnrpc/ln1.proto\DC2\ENQlnrpc\SUB\SIlnrpc/ln0.proto\"\RS\n\
\\ENQSetID\DC2\NAK\n\
\\ACKset_id\CAN\SOH \SOH(\fR\ENQsetId\"\168\SOH\n\
\\SIAMPInvoiceState\DC2-\n\
\\ENQstate\CAN\SOH \SOH(\SO2\ETB.lnrpc.InvoiceHTLCStateR\ENQstate\DC2!\n\
\\fsettle_index\CAN\STX \SOH(\EOTR\vsettleIndex\DC2\US\n\
\\vsettle_time\CAN\ETX \SOH(\ETXR\n\
\settleTime\DC2\"\n\
\\ramt_paid_msat\CAN\ENQ \SOH(\ETXR\vamtPaidMsat\"\195\t\n\
\\aInvoice\DC2\DC2\n\
\\EOTmemo\CAN\SOH \SOH(\tR\EOTmemo\DC2\GS\n\
\\n\
\r_preimage\CAN\ETX \SOH(\fR\trPreimage\DC2\NAK\n\
\\ACKr_hash\CAN\EOT \SOH(\fR\ENQrHash\DC2\DC4\n\
\\ENQvalue\CAN\ENQ \SOH(\ETXR\ENQvalue\DC2\GS\n\
\\n\
\value_msat\CAN\ETB \SOH(\ETXR\tvalueMsat\DC2\FS\n\
\\asettled\CAN\ACK \SOH(\bR\asettledB\STX\CAN\SOH\DC2#\n\
\\rcreation_date\CAN\a \SOH(\ETXR\fcreationDate\DC2\US\n\
\\vsettle_date\CAN\b \SOH(\ETXR\n\
\settleDate\DC2'\n\
\\SIpayment_request\CAN\t \SOH(\tR\SOpaymentRequest\DC2)\n\
\\DLEdescription_hash\CAN\n\
\ \SOH(\fR\SIdescriptionHash\DC2\SYN\n\
\\ACKexpiry\CAN\v \SOH(\ETXR\ACKexpiry\DC2#\n\
\\rfallback_addr\CAN\f \SOH(\tR\ffallbackAddr\DC2\US\n\
\\vcltv_expiry\CAN\r \SOH(\EOTR\n\
\cltvExpiry\DC21\n\
\\vroute_hints\CAN\SO \ETX(\v2\DLE.lnrpc.RouteHintR\n\
\routeHints\DC2\CAN\n\
\\aprivate\CAN\SI \SOH(\bR\aprivate\DC2\ESC\n\
\\tadd_index\CAN\DLE \SOH(\EOTR\baddIndex\DC2!\n\
\\fsettle_index\CAN\DC1 \SOH(\EOTR\vsettleIndex\DC2\GS\n\
\\bamt_paid\CAN\DC2 \SOH(\ETXR\aamtPaidB\STX\CAN\SOH\DC2 \n\
\\famt_paid_sat\CAN\DC3 \SOH(\ETXR\n\
\amtPaidSat\DC2\"\n\
\\ramt_paid_msat\CAN\DC4 \SOH(\ETXR\vamtPaidMsat\DC21\n\
\\ENQstate\CAN\NAK \SOH(\SO2\ESC.lnrpc.Invoice.InvoiceStateR\ENQstate\DC2(\n\
\\ENQhtlcs\CAN\SYN \ETX(\v2\DC2.lnrpc.InvoiceHTLCR\ENQhtlcs\DC28\n\
\\bfeatures\CAN\CAN \ETX(\v2\FS.lnrpc.Invoice.FeaturesEntryR\bfeatures\DC2\GS\n\
\\n\
\is_keysend\CAN\EM \SOH(\bR\tisKeysend\DC2!\n\
\\fpayment_addr\CAN\SUB \SOH(\fR\vpaymentAddr\DC2\NAK\n\
\\ACKis_amp\CAN\ESC \SOH(\bR\ENQisAmp\DC2O\n\
\\DC1amp_invoice_state\CAN\FS \ETX(\v2#.lnrpc.Invoice.AmpInvoiceStateEntryR\SIampInvoiceState\SUBK\n\
\\rFeaturesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\rR\ETXkey\DC2$\n\
\\ENQvalue\CAN\STX \SOH(\v2\SO.lnrpc.FeatureR\ENQvalue:\STX8\SOH\SUBZ\n\
\\DC4AmpInvoiceStateEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2,\n\
\\ENQvalue\CAN\STX \SOH(\v2\SYN.lnrpc.AMPInvoiceStateR\ENQvalue:\STX8\SOH\"A\n\
\\fInvoiceState\DC2\b\n\
\\EOTOPEN\DLE\NUL\DC2\v\n\
\\aSETTLED\DLE\SOH\DC2\f\n\
\\bCANCELED\DLE\STX\DC2\f\n\
\\bACCEPTED\DLE\ETXJ\EOT\b\STX\DLE\ETX\"\252\ETX\n\
\\vInvoiceHTLC\DC2\ESC\n\
\\achan_id\CAN\SOH \SOH(\EOTR\ACKchanIdB\STX0\SOH\DC2\GS\n\
\\n\
\htlc_index\CAN\STX \SOH(\EOTR\thtlcIndex\DC2\EM\n\
\\bamt_msat\CAN\ETX \SOH(\EOTR\aamtMsat\DC2#\n\
\\raccept_height\CAN\EOT \SOH(\ENQR\facceptHeight\DC2\US\n\
\\vaccept_time\CAN\ENQ \SOH(\ETXR\n\
\acceptTime\DC2!\n\
\\fresolve_time\CAN\ACK \SOH(\ETXR\vresolveTime\DC2#\n\
\\rexpiry_height\CAN\a \SOH(\ENQR\fexpiryHeight\DC2-\n\
\\ENQstate\CAN\b \SOH(\SO2\ETB.lnrpc.InvoiceHTLCStateR\ENQstate\DC2L\n\
\\SOcustom_records\CAN\t \ETX(\v2%.lnrpc.InvoiceHTLC.CustomRecordsEntryR\rcustomRecords\DC2+\n\
\\DC2mpp_total_amt_msat\CAN\n\
\ \SOH(\EOTR\SImppTotalAmtMsat\DC2\FS\n\
\\ETXamp\CAN\v \SOH(\v2\n\
\.lnrpc.AMPR\ETXamp\SUB@\n\
\\DC2CustomRecordsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\EOTR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\fR\ENQvalue:\STX8\SOH\"\140\SOH\n\
\\ETXAMP\DC2\GS\n\
\\n\
\root_share\CAN\SOH \SOH(\fR\trootShare\DC2\NAK\n\
\\ACKset_id\CAN\STX \SOH(\fR\ENQsetId\DC2\US\n\
\\vchild_index\CAN\ETX \SOH(\rR\n\
\childIndex\DC2\DC2\n\
\\EOThash\CAN\EOT \SOH(\fR\EOThash\DC2\SUB\n\
\\bpreimage\CAN\ENQ \SOH(\fR\bpreimage\"\148\SOH\n\
\\DC2AddInvoiceResponse\DC2\NAK\n\
\\ACKr_hash\CAN\SOH \SOH(\fR\ENQrHash\DC2'\n\
\\SIpayment_request\CAN\STX \SOH(\tR\SOpaymentRequest\DC2\ESC\n\
\\tadd_index\CAN\DLE \SOH(\EOTR\baddIndex\DC2!\n\
\\fpayment_addr\CAN\DC1 \SOH(\fR\vpaymentAddr\"F\n\
\\vPaymentHash\DC2 \n\
\\n\
\r_hash_str\CAN\SOH \SOH(\tR\brHashStrB\STX\CAN\SOH\DC2\NAK\n\
\\ACKr_hash\CAN\STX \SOH(\fR\ENQrHash\"\160\SOH\n\
\\DC2ListInvoiceRequest\DC2!\n\
\\fpending_only\CAN\SOH \SOH(\bR\vpendingOnly\DC2!\n\
\\findex_offset\CAN\EOT \SOH(\EOTR\vindexOffset\DC2(\n\
\\DLEnum_max_invoices\CAN\ENQ \SOH(\EOTR\SOnumMaxInvoices\DC2\SUB\n\
\\breversed\CAN\ACK \SOH(\bR\breversed\"\155\SOH\n\
\\DC3ListInvoiceResponse\DC2*\n\
\\binvoices\CAN\SOH \ETX(\v2\SO.lnrpc.InvoiceR\binvoices\DC2*\n\
\\DC1last_index_offset\CAN\STX \SOH(\EOTR\SIlastIndexOffset\DC2,\n\
\\DC2first_index_offset\CAN\ETX \SOH(\EOTR\DLEfirstIndexOffset\"U\n\
\\DC3InvoiceSubscription\DC2\ESC\n\
\\tadd_index\CAN\SOH \SOH(\EOTR\baddIndex\DC2!\n\
\\fsettle_index\CAN\STX \SOH(\EOTR\vsettleIndex\"\138\ENQ\n\
\\aPayment\DC2!\n\
\\fpayment_hash\CAN\SOH \SOH(\tR\vpaymentHash\DC2\CAN\n\
\\ENQvalue\CAN\STX \SOH(\ETXR\ENQvalueB\STX\CAN\SOH\DC2'\n\
\\rcreation_date\CAN\ETX \SOH(\ETXR\fcreationDateB\STX\CAN\SOH\DC2\DC4\n\
\\ETXfee\CAN\ENQ \SOH(\ETXR\ETXfeeB\STX\CAN\SOH\DC2)\n\
\\DLEpayment_preimage\CAN\ACK \SOH(\tR\SIpaymentPreimage\DC2\ESC\n\
\\tvalue_sat\CAN\a \SOH(\ETXR\bvalueSat\DC2\GS\n\
\\n\
\value_msat\CAN\b \SOH(\ETXR\tvalueMsat\DC2'\n\
\\SIpayment_request\CAN\t \SOH(\tR\SOpaymentRequest\DC24\n\
\\ACKstatus\CAN\n\
\ \SOH(\SO2\FS.lnrpc.Payment.PaymentStatusR\ACKstatus\DC2\ETB\n\
\\afee_sat\CAN\v \SOH(\ETXR\ACKfeeSat\DC2\EM\n\
\\bfee_msat\CAN\f \SOH(\ETXR\afeeMsat\DC2(\n\
\\DLEcreation_time_ns\CAN\r \SOH(\ETXR\SOcreationTimeNs\DC2(\n\
\\ENQhtlcs\CAN\SO \ETX(\v2\DC2.lnrpc.HTLCAttemptR\ENQhtlcs\DC2#\n\
\\rpayment_index\CAN\SI \SOH(\EOTR\fpaymentIndex\DC2B\n\
\\SOfailure_reason\CAN\DLE \SOH(\SO2\ESC.lnrpc.PaymentFailureReasonR\rfailureReason\"F\n\
\\rPaymentStatus\DC2\v\n\
\\aUNKNOWN\DLE\NUL\DC2\r\n\
\\tIN_FLIGHT\DLE\SOH\DC2\r\n\
\\tSUCCEEDED\DLE\STX\DC2\n\
\\n\
\\ACKFAILED\DLE\ETXJ\EOT\b\EOT\DLE\ENQ\"\213\STX\n\
\\vHTLCAttempt\DC2\GS\n\
\\n\
\attempt_id\CAN\a \SOH(\EOTR\tattemptId\DC25\n\
\\ACKstatus\CAN\SOH \SOH(\SO2\GS.lnrpc.HTLCAttempt.HTLCStatusR\ACKstatus\DC2\"\n\
\\ENQroute\CAN\STX \SOH(\v2\f.lnrpc.RouteR\ENQroute\DC2&\n\
\\SIattempt_time_ns\CAN\ETX \SOH(\ETXR\rattemptTimeNs\DC2&\n\
\\SIresolve_time_ns\CAN\EOT \SOH(\ETXR\rresolveTimeNs\DC2(\n\
\\afailure\CAN\ENQ \SOH(\v2\SO.lnrpc.FailureR\afailure\DC2\SUB\n\
\\bpreimage\CAN\ACK \SOH(\fR\bpreimage\"6\n\
\\n\
\HTLCStatus\DC2\r\n\
\\tIN_FLIGHT\DLE\NUL\DC2\r\n\
\\tSUCCEEDED\DLE\SOH\DC2\n\
\\n\
\\ACKFAILED\DLE\STX\"\166\SOH\n\
\\DC3ListPaymentsRequest\DC2-\n\
\\DC2include_incomplete\CAN\SOH \SOH(\bR\DC1includeIncomplete\DC2!\n\
\\findex_offset\CAN\STX \SOH(\EOTR\vindexOffset\DC2!\n\
\\fmax_payments\CAN\ETX \SOH(\EOTR\vmaxPayments\DC2\SUB\n\
\\breversed\CAN\EOT \SOH(\bR\breversed\"\156\SOH\n\
\\DC4ListPaymentsResponse\DC2*\n\
\\bpayments\CAN\SOH \ETX(\v2\SO.lnrpc.PaymentR\bpayments\DC2,\n\
\\DC2first_index_offset\CAN\STX \SOH(\EOTR\DLEfirstIndexOffset\DC2*\n\
\\DC1last_index_offset\CAN\ETX \SOH(\EOTR\SIlastIndexOffset\"e\n\
\\DC4DeletePaymentRequest\DC2!\n\
\\fpayment_hash\CAN\SOH \SOH(\fR\vpaymentHash\DC2*\n\
\\DC1failed_htlcs_only\CAN\STX \SOH(\bR\SIfailedHtlcsOnly\"x\n\
\\CANDeleteAllPaymentsRequest\DC20\n\
\\DC4failed_payments_only\CAN\SOH \SOH(\bR\DC2failedPaymentsOnly\DC2*\n\
\\DC1failed_htlcs_only\CAN\STX \SOH(\bR\SIfailedHtlcsOnly\"\ETB\n\
\\NAKDeletePaymentResponse\"\ESC\n\
\\EMDeleteAllPaymentsResponse\"\191\SOH\n\
\\NAKAbandonChannelRequest\DC28\n\
\\rchannel_point\CAN\SOH \SOH(\v2\DC3.lnrpc.ChannelPointR\fchannelPoint\DC29\n\
\\EMpending_funding_shim_only\CAN\STX \SOH(\bR\SYNpendingFundingShimOnly\DC21\n\
\\SYNi_know_what_i_am_doing\CAN\ETX \SOH(\bR\DC1iKnowWhatIAmDoing\"\CAN\n\
\\SYNAbandonChannelResponse\"F\n\
\\DC1DebugLevelRequest\DC2\DC2\n\
\\EOTshow\CAN\SOH \SOH(\bR\EOTshow\DC2\GS\n\
\\n\
\level_spec\CAN\STX \SOH(\tR\tlevelSpec\"5\n\
\\DC2DebugLevelResponse\DC2\US\n\
\\vsub_systems\CAN\SOH \SOH(\tR\n\
\subSystems\"'\n\
\\fPayReqString\DC2\ETB\n\
\\apay_req\CAN\SOH \SOH(\tR\ACKpayReq\"\176\EOT\n\
\\ACKPayReq\DC2 \n\
\\vdestination\CAN\SOH \SOH(\tR\vdestination\DC2!\n\
\\fpayment_hash\CAN\STX \SOH(\tR\vpaymentHash\DC2!\n\
\\fnum_satoshis\CAN\ETX \SOH(\ETXR\vnumSatoshis\DC2\FS\n\
\\ttimestamp\CAN\EOT \SOH(\ETXR\ttimestamp\DC2\SYN\n\
\\ACKexpiry\CAN\ENQ \SOH(\ETXR\ACKexpiry\DC2 \n\
\\vdescription\CAN\ACK \SOH(\tR\vdescription\DC2)\n\
\\DLEdescription_hash\CAN\a \SOH(\tR\SIdescriptionHash\DC2#\n\
\\rfallback_addr\CAN\b \SOH(\tR\ffallbackAddr\DC2\US\n\
\\vcltv_expiry\CAN\t \SOH(\ETXR\n\
\cltvExpiry\DC21\n\
\\vroute_hints\CAN\n\
\ \ETX(\v2\DLE.lnrpc.RouteHintR\n\
\routeHints\DC2!\n\
\\fpayment_addr\CAN\v \SOH(\fR\vpaymentAddr\DC2\EM\n\
\\bnum_msat\CAN\f \SOH(\ETXR\anumMsat\DC27\n\
\\bfeatures\CAN\r \ETX(\v2\ESC.lnrpc.PayReq.FeaturesEntryR\bfeatures\SUBK\n\
\\rFeaturesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\rR\ETXkey\DC2$\n\
\\ENQvalue\CAN\STX \SOH(\v2\SO.lnrpc.FeatureR\ENQvalue:\STX8\SOH\"\DC2\n\
\\DLEFeeReportRequest\"\179\SOH\n\
\\DLEChannelFeeReport\DC2\ESC\n\
\\achan_id\CAN\ENQ \SOH(\EOTR\ACKchanIdB\STX0\SOH\DC2#\n\
\\rchannel_point\CAN\SOH \SOH(\tR\fchannelPoint\DC2\"\n\
\\rbase_fee_msat\CAN\STX \SOH(\ETXR\vbaseFeeMsat\DC2\RS\n\
\\vfee_per_mil\CAN\ETX \SOH(\ETXR\tfeePerMil\DC2\EM\n\
\\bfee_rate\CAN\EOT \SOH(\SOHR\afeeRate\"\181\SOH\n\
\\DC1FeeReportResponse\DC2:\n\
\\fchannel_fees\CAN\SOH \ETX(\v2\ETB.lnrpc.ChannelFeeReportR\vchannelFees\DC2\RS\n\
\\vday_fee_sum\CAN\STX \SOH(\EOTR\tdayFeeSum\DC2 \n\
\\fweek_fee_sum\CAN\ETX \SOH(\EOTR\n\
\weekFeeSum\DC2\"\n\
\\rmonth_fee_sum\CAN\EOT \SOH(\EOTR\vmonthFeeSum\"\212\STX\n\
\\DC3PolicyUpdateRequest\DC2\CAN\n\
\\ACKglobal\CAN\SOH \SOH(\bH\NULR\ACKglobal\DC24\n\
\\n\
\chan_point\CAN\STX \SOH(\v2\DC3.lnrpc.ChannelPointH\NULR\tchanPoint\DC2\"\n\
\\rbase_fee_msat\CAN\ETX \SOH(\ETXR\vbaseFeeMsat\DC2\EM\n\
\\bfee_rate\CAN\EOT \SOH(\SOHR\afeeRate\DC2&\n\
\\SItime_lock_delta\CAN\ENQ \SOH(\rR\rtimeLockDelta\DC2\"\n\
\\rmax_htlc_msat\CAN\ACK \SOH(\EOTR\vmaxHtlcMsat\DC2\"\n\
\\rmin_htlc_msat\CAN\a \SOH(\EOTR\vminHtlcMsat\DC25\n\
\\ETBmin_htlc_msat_specified\CAN\b \SOH(\bR\DC4minHtlcMsatSpecifiedB\a\n\
\\ENQscope\"\140\SOH\n\
\\fFailedUpdate\DC2+\n\
\\boutpoint\CAN\SOH \SOH(\v2\SI.lnrpc.OutPointR\boutpoint\DC2,\n\
\\ACKreason\CAN\STX \SOH(\SO2\DC4.lnrpc.UpdateFailureR\ACKreason\DC2!\n\
\\fupdate_error\CAN\ETX \SOH(\tR\vupdateError\"R\n\
\\DC4PolicyUpdateResponse\DC2:\n\
\\SOfailed_updates\CAN\SOH \ETX(\v2\DC3.lnrpc.FailedUpdateR\rfailedUpdates\"\157\SOH\n\
\\CANForwardingHistoryRequest\DC2\GS\n\
\\n\
\start_time\CAN\SOH \SOH(\EOTR\tstartTime\DC2\EM\n\
\\bend_time\CAN\STX \SOH(\EOTR\aendTime\DC2!\n\
\\findex_offset\CAN\ETX \SOH(\rR\vindexOffset\DC2$\n\
\\SOnum_max_events\CAN\EOT \SOH(\rR\fnumMaxEvents\"\187\STX\n\
\\SIForwardingEvent\DC2 \n\
\\ttimestamp\CAN\SOH \SOH(\EOTR\ttimestampB\STX\CAN\SOH\DC2 \n\
\\n\
\chan_id_in\CAN\STX \SOH(\EOTR\bchanIdInB\STX0\SOH\DC2\"\n\
\\vchan_id_out\CAN\EOT \SOH(\EOTR\tchanIdOutB\STX0\SOH\DC2\NAK\n\
\\ACKamt_in\CAN\ENQ \SOH(\EOTR\ENQamtIn\DC2\ETB\n\
\\aamt_out\CAN\ACK \SOH(\EOTR\ACKamtOut\DC2\DLE\n\
\\ETXfee\CAN\a \SOH(\EOTR\ETXfee\DC2\EM\n\
\\bfee_msat\CAN\b \SOH(\EOTR\afeeMsat\DC2\RS\n\
\\vamt_in_msat\CAN\t \SOH(\EOTR\tamtInMsat\DC2 \n\
\\famt_out_msat\CAN\n\
\ \SOH(\EOTR\n\
\amtOutMsat\DC2!\n\
\\ftimestamp_ns\CAN\v \SOH(\EOTR\vtimestampNs\"\140\SOH\n\
\\EMForwardingHistoryResponse\DC2C\n\
\\DC1forwarding_events\CAN\SOH \ETX(\v2\SYN.lnrpc.ForwardingEventR\DLEforwardingEvents\DC2*\n\
\\DC1last_offset_index\CAN\STX \SOH(\rR\SIlastOffsetIndex\"P\n\
\\SUBExportChannelBackupRequest\DC22\n\
\\n\
\chan_point\CAN\SOH \SOH(\v2\DC3.lnrpc.ChannelPointR\tchanPoint\"d\n\
\\rChannelBackup\DC22\n\
\\n\
\chan_point\CAN\SOH \SOH(\v2\DC3.lnrpc.ChannelPointR\tchanPoint\DC2\US\n\
\\vchan_backup\CAN\STX \SOH(\fR\n\
\chanBackup\"s\n\
\\SIMultiChanBackup\DC24\n\
\\vchan_points\CAN\SOH \ETX(\v2\DC3.lnrpc.ChannelPointR\n\
\chanPoints\DC2*\n\
\\DC1multi_chan_backup\CAN\STX \SOH(\fR\SImultiChanBackup\"\EM\n\
\\ETBChanBackupExportRequest\"\159\SOH\n\
\\DC2ChanBackupSnapshot\DC2E\n\
\\DC3single_chan_backups\CAN\SOH \SOH(\v2\NAK.lnrpc.ChannelBackupsR\DC1singleChanBackups\DC2B\n\
\\DC1multi_chan_backup\CAN\STX \SOH(\v2\SYN.lnrpc.MultiChanBackupR\SImultiChanBackup\"I\n\
\\SOChannelBackups\DC27\n\
\\fchan_backups\CAN\SOH \ETX(\v2\DC4.lnrpc.ChannelBackupR\vchanBackups\"\142\SOH\n\
\\CANRestoreChanBackupRequest\DC2:\n\
\\fchan_backups\CAN\SOH \SOH(\v2\NAK.lnrpc.ChannelBackupsH\NULR\vchanBackups\DC2,\n\
\\DC1multi_chan_backup\CAN\STX \SOH(\fH\NULR\SImultiChanBackupB\b\n\
\\ACKbackup\"\ETB\n\
\\NAKRestoreBackupResponse\"\ESC\n\
\\EMChannelBackupSubscription\"\SUB\n\
\\CANVerifyChanBackupResponse\"D\n\
\\DC2MacaroonPermission\DC2\SYN\n\
\\ACKentity\CAN\SOH \SOH(\tR\ACKentity\DC2\SYN\n\
\\ACKaction\CAN\STX \SOH(\tR\ACKaction\"\176\SOH\n\
\\DC3BakeMacaroonRequest\DC2;\n\
\\vpermissions\CAN\SOH \ETX(\v2\EM.lnrpc.MacaroonPermissionR\vpermissions\DC2\RS\n\
\\vroot_key_id\CAN\STX \SOH(\EOTR\trootKeyId\DC2<\n\
\\SUBallow_external_permissions\CAN\ETX \SOH(\bR\CANallowExternalPermissions\"2\n\
\\DC4BakeMacaroonResponse\DC2\SUB\n\
\\bmacaroon\CAN\SOH \SOH(\tR\bmacaroon\"\CAN\n\
\\SYNListMacaroonIDsRequest\";\n\
\\ETBListMacaroonIDsResponse\DC2 \n\
\\froot_key_ids\CAN\SOH \ETX(\EOTR\n\
\rootKeyIds\"9\n\
\\ETBDeleteMacaroonIDRequest\DC2\RS\n\
\\vroot_key_id\CAN\SOH \SOH(\EOTR\trootKeyId\"4\n\
\\CANDeleteMacaroonIDResponse\DC2\CAN\n\
\\adeleted\CAN\SOH \SOH(\bR\adeleted\"U\n\
\\SYNMacaroonPermissionList\DC2;\n\
\\vpermissions\CAN\SOH \ETX(\v2\EM.lnrpc.MacaroonPermissionR\vpermissions\"\CAN\n\
\\SYNListPermissionsRequest\"\228\SOH\n\
\\ETBListPermissionsResponse\DC2d\n\
\\DC2method_permissions\CAN\SOH \ETX(\v25.lnrpc.ListPermissionsResponse.MethodPermissionsEntryR\DC1methodPermissions\SUBc\n\
\\SYNMethodPermissionsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC23\n\
\\ENQvalue\CAN\STX \SOH(\v2\GS.lnrpc.MacaroonPermissionListR\ENQvalue:\STX8\SOH\"\176\b\n\
\\aFailure\DC2.\n\
\\EOTcode\CAN\SOH \SOH(\SO2\SUB.lnrpc.Failure.FailureCodeR\EOTcode\DC2;\n\
\\SOchannel_update\CAN\ETX \SOH(\v2\DC4.lnrpc.ChannelUpdateR\rchannelUpdate\DC2\ESC\n\
\\thtlc_msat\CAN\EOT \SOH(\EOTR\bhtlcMsat\DC2\"\n\
\\ronion_sha_256\CAN\ENQ \SOH(\fR\vonionSha256\DC2\US\n\
\\vcltv_expiry\CAN\ACK \SOH(\rR\n\
\cltvExpiry\DC2\DC4\n\
\\ENQflags\CAN\a \SOH(\rR\ENQflags\DC20\n\
\\DC4failure_source_index\CAN\b \SOH(\rR\DC2failureSourceIndex\DC2\SYN\n\
\\ACKheight\CAN\t \SOH(\rR\ACKheight\"\239\ENQ\n\
\\vFailureCode\DC2\f\n\
\\bRESERVED\DLE\NUL\DC2(\n\
\$INCORRECT_OR_UNKNOWN_PAYMENT_DETAILS\DLE\SOH\DC2\FS\n\
\\CANINCORRECT_PAYMENT_AMOUNT\DLE\STX\DC2\US\n\
\\ESCFINAL_INCORRECT_CLTV_EXPIRY\DLE\ETX\DC2\US\n\
\\ESCFINAL_INCORRECT_HTLC_AMOUNT\DLE\EOT\DC2\EM\n\
\\NAKFINAL_EXPIRY_TOO_SOON\DLE\ENQ\DC2\DC1\n\
\\rINVALID_REALM\DLE\ACK\DC2\DC3\n\
\\SIEXPIRY_TOO_SOON\DLE\a\DC2\EM\n\
\\NAKINVALID_ONION_VERSION\DLE\b\DC2\SYN\n\
\\DC2INVALID_ONION_HMAC\DLE\t\DC2\NAK\n\
\\DC1INVALID_ONION_KEY\DLE\n\
\\DC2\CAN\n\
\\DC4AMOUNT_BELOW_MINIMUM\DLE\v\DC2\DC4\n\
\\DLEFEE_INSUFFICIENT\DLE\f\DC2\EM\n\
\\NAKINCORRECT_CLTV_EXPIRY\DLE\r\DC2\DC4\n\
\\DLECHANNEL_DISABLED\DLE\SO\DC2\GS\n\
\\EMTEMPORARY_CHANNEL_FAILURE\DLE\SI\DC2!\n\
\\GSREQUIRED_NODE_FEATURE_MISSING\DLE\DLE\DC2$\n\
\ REQUIRED_CHANNEL_FEATURE_MISSING\DLE\DC1\DC2\NAK\n\
\\DC1UNKNOWN_NEXT_PEER\DLE\DC2\DC2\SUB\n\
\\SYNTEMPORARY_NODE_FAILURE\DLE\DC3\DC2\SUB\n\
\\SYNPERMANENT_NODE_FAILURE\DLE\DC4\DC2\GS\n\
\\EMPERMANENT_CHANNEL_FAILURE\DLE\NAK\DC2\DC2\n\
\\SOEXPIRY_TOO_FAR\DLE\SYN\DC2\SI\n\
\\vMPP_TIMEOUT\DLE\ETB\DC2\EM\n\
\\NAKINVALID_ONION_PAYLOAD\DLE\CAN\DC2\NAK\n\
\\DLEINTERNAL_FAILURE\DLE\229\a\DC2\DC4\n\
\\SIUNKNOWN_FAILURE\DLE\230\a\DC2\ETB\n\
\\DC2UNREADABLE_FAILURE\DLE\231\aJ\EOT\b\STX\DLE\ETX\"\179\ETX\n\
\\rChannelUpdate\DC2\FS\n\
\\tsignature\CAN\SOH \SOH(\fR\tsignature\DC2\GS\n\
\\n\
\chain_hash\CAN\STX \SOH(\fR\tchainHash\DC2\ESC\n\
\\achan_id\CAN\ETX \SOH(\EOTR\ACKchanIdB\STX0\SOH\DC2\FS\n\
\\ttimestamp\CAN\EOT \SOH(\rR\ttimestamp\DC2#\n\
\\rmessage_flags\CAN\n\
\ \SOH(\rR\fmessageFlags\DC2#\n\
\\rchannel_flags\CAN\ENQ \SOH(\rR\fchannelFlags\DC2&\n\
\\SItime_lock_delta\CAN\ACK \SOH(\rR\rtimeLockDelta\DC2*\n\
\\DC1htlc_minimum_msat\CAN\a \SOH(\EOTR\SIhtlcMinimumMsat\DC2\EM\n\
\\bbase_fee\CAN\b \SOH(\rR\abaseFee\DC2\EM\n\
\\bfee_rate\CAN\t \SOH(\rR\afeeRate\DC2*\n\
\\DC1htlc_maximum_msat\CAN\v \SOH(\EOTR\SIhtlcMaximumMsat\DC2*\n\
\\DC1extra_opaque_data\CAN\f \SOH(\fR\SIextraOpaqueData\"]\n\
\\n\
\MacaroonId\DC2\DC4\n\
\\ENQnonce\CAN\SOH \SOH(\fR\ENQnonce\DC2\FS\n\
\\tstorageId\CAN\STX \SOH(\fR\tstorageId\DC2\ESC\n\
\\ETXops\CAN\ETX \ETX(\v2\t.lnrpc.OpR\ETXops\"6\n\
\\STXOp\DC2\SYN\n\
\\ACKentity\CAN\SOH \SOH(\tR\ACKentity\DC2\CAN\n\
\\aactions\CAN\STX \ETX(\tR\aactions\"\142\SOH\n\
\\DC3CheckMacPermRequest\DC2\SUB\n\
\\bmacaroon\CAN\SOH \SOH(\fR\bmacaroon\DC2;\n\
\\vpermissions\CAN\STX \ETX(\v2\EM.lnrpc.MacaroonPermissionR\vpermissions\DC2\RS\n\
\\n\
\fullMethod\CAN\ETX \SOH(\tR\n\
\fullMethod\",\n\
\\DC4CheckMacPermResponse\DC2\DC4\n\
\\ENQvalid\CAN\SOH \SOH(\bR\ENQvalid\"\207\STX\n\
\\DC4RPCMiddlewareRequest\DC2\GS\n\
\\n\
\request_id\CAN\SOH \SOH(\EOTR\trequestId\DC2!\n\
\\fraw_macaroon\CAN\STX \SOH(\fR\vrawMacaroon\DC26\n\
\\ETBcustom_caveat_condition\CAN\ETX \SOH(\tR\NAKcustomCaveatCondition\DC24\n\
\\vstream_auth\CAN\EOT \SOH(\v2\DC1.lnrpc.StreamAuthH\NULR\n\
\streamAuth\DC2-\n\
\\arequest\CAN\ENQ \SOH(\v2\DC1.lnrpc.RPCMessageH\NULR\arequest\DC2/\n\
\\bresponse\CAN\ACK \SOH(\v2\DC1.lnrpc.RPCMessageH\NULR\bresponse\DC2\NAK\n\
\\ACKmsg_id\CAN\a \SOH(\EOTR\ENQmsgIdB\DLE\n\
\\SOintercept_type\"4\n\
\\n\
\StreamAuth\DC2&\n\
\\SImethod_full_uri\CAN\SOH \SOH(\tR\rmethodFullUri\"\144\SOH\n\
\\n\
\RPCMessage\DC2&\n\
\\SImethod_full_uri\CAN\SOH \SOH(\tR\rmethodFullUri\DC2\GS\n\
\\n\
\stream_rpc\CAN\STX \SOH(\bR\tstreamRpc\DC2\ESC\n\
\\ttype_name\CAN\ETX \SOH(\tR\btypeName\DC2\RS\n\
\\n\
\serialized\CAN\EOT \SOH(\fR\n\
\serialized\"\192\SOH\n\
\\NAKRPCMiddlewareResponse\DC2\FS\n\
\\n\
\ref_msg_id\CAN\SOH \SOH(\EOTR\brefMsgId\DC2;\n\
\\bregister\CAN\STX \SOH(\v2\GS.lnrpc.MiddlewareRegistrationH\NULR\bregister\DC26\n\
\\bfeedback\CAN\ETX \SOH(\v2\CAN.lnrpc.InterceptFeedbackH\NULR\bfeedbackB\DC4\n\
\\DC2middleware_message\"\166\SOH\n\
\\SYNMiddlewareRegistration\DC2'\n\
\\SImiddleware_name\CAN\SOH \SOH(\tR\SOmiddlewareName\DC2=\n\
\\ESCcustom_macaroon_caveat_name\CAN\STX \SOH(\tR\CANcustomMacaroonCaveatName\DC2$\n\
\\SOread_only_mode\CAN\ETX \SOH(\bR\freadOnlyMode\"\139\SOH\n\
\\DC1InterceptFeedback\DC2\DC4\n\
\\ENQerror\CAN\SOH \SOH(\tR\ENQerror\DC2)\n\
\\DLEreplace_response\CAN\STX \SOH(\bR\SIreplaceResponse\DC25\n\
\\SYNreplacement_serialized\CAN\ETX \SOH(\fR\NAKreplacementSerialized*;\n\
\\DLEInvoiceHTLCState\DC2\f\n\
\\bACCEPTED\DLE\NUL\DC2\v\n\
\\aSETTLED\DLE\SOH\DC2\f\n\
\\bCANCELED\DLE\STX*\217\SOH\n\
\\DC4PaymentFailureReason\DC2\ETB\n\
\\DC3FAILURE_REASON_NONE\DLE\NUL\DC2\SUB\n\
\\SYNFAILURE_REASON_TIMEOUT\DLE\SOH\DC2\ESC\n\
\\ETBFAILURE_REASON_NO_ROUTE\DLE\STX\DC2\CAN\n\
\\DC4FAILURE_REASON_ERROR\DLE\ETX\DC2,\n\
\(FAILURE_REASON_INCORRECT_PAYMENT_DETAILS\DLE\EOT\DC2'\n\
\#FAILURE_REASON_INSUFFICIENT_BALANCE\DLE\ENQ*\172\SOH\n\
\\rUpdateFailure\DC2\SUB\n\
\\SYNUPDATE_FAILURE_UNKNOWN\DLE\NUL\DC2\SUB\n\
\\SYNUPDATE_FAILURE_PENDING\DLE\SOH\DC2\FS\n\
\\CANUPDATE_FAILURE_NOT_FOUND\DLE\STX\DC2\US\n\
\\ESCUPDATE_FAILURE_INTERNAL_ERR\DLE\ETX\DC2$\n\
\ UPDATE_FAILURE_INVALID_PARAMETER\DLE\EOTB'Z%github.com/lightningnetwork/lnd/lnrpcJ\229\206\STX\n\
\\a\DC2\ENQ\NUL\NUL\254\t\SOH\n\
\\b\n\
\\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
\\t\n\
\\STX\ETX\NUL\DC2\ETX\STX\NUL\EM\n\
\\b\n\
\\SOH\STX\DC2\ETX\EOT\NUL\SO\n\
\\b\n\
\\SOH\b\DC2\ETX\ACK\NUL<\n\
\\t\n\
\\STX\b\v\DC2\ETX\ACK\NUL<\n\
\\n\
\\n\
\\STX\EOT\NUL\DC2\EOT\b\NUL\n\
\\SOH\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\b\b\r\n\
\\v\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX\t\EOT\NAK\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\t\EOT\t\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\t\n\
\\DLE\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\t\DC3\DC4\n\
\\n\
\\n\
\\STX\EOT\SOH\DC2\EOT\f\NUL\CAN\SOH\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX\f\b\ETB\n\
\E\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX\SO\EOT\US\SUB8 The state the HTLCs associated with this setID are in.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX\SO\EOT\DC4\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\SO\NAK\SUB\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\SO\GS\RS\n\
\R\n\
\\EOT\EOT\SOH\STX\SOH\DC2\ETX\DC1\EOT\FS\SUBE The settle index of this HTLC set, if the invoice state is settled.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\DC1\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\DC1\v\ETB\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\DC1\SUB\ESC\n\
\J\n\
\\EOT\EOT\SOH\STX\STX\DC2\ETX\DC4\EOT\SUB\SUB= The time this HTLC set was settled expressed in unix epoch.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ENQ\DC2\ETX\DC4\EOT\t\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX\DC4\n\
\\NAK\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX\DC4\CAN\EM\n\
\U\n\
\\EOT\EOT\SOH\STX\ETX\DC2\ETX\ETB\EOT\FS\SUBH The total amount paid for the sub-invoice expressed in milli satoshis.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ETX\ENQ\DC2\ETX\ETB\EOT\t\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ETX\SOH\DC2\ETX\ETB\n\
\\ETB\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ETX\ETX\DC2\ETX\ETB\SUB\ESC\n\
\\v\n\
\\STX\EOT\STX\DC2\ENQ\SUB\NUL\190\SOH\SOH\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX\SUB\b\SI\n\
\\252\SOH\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX!\EOT\DC4\SUB\238\SOH\n\
\An optional memo to attach along with the invoice. Used for record keeping\n\
\purposes for the invoice's creator, and will also be set in the description\n\
\field of the encoded payment request if the description_hash field is not\n\
\being used.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX!\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX!\v\SI\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX!\DC2\DC3\n\
\\n\
\\n\
\\ETX\EOT\STX\t\DC2\ETX#\EOT\SI\n\
\\v\n\
\\EOT\EOT\STX\t\NUL\DC2\ETX#\r\SO\n\
\\f\n\
\\ENQ\EOT\STX\t\NUL\SOH\DC2\ETX#\r\SO\n\
\\f\n\
\\ENQ\EOT\STX\t\NUL\STX\DC2\ETX#\r\SO\n\
\\174\SOH\n\
\\EOT\EOT\STX\STX\SOH\DC2\ETX*\EOT\EM\SUB\160\SOH\n\
\The hex-encoded preimage (32 byte) which will allow settling an incoming\n\
\HTLC payable to this preimage. When using REST, this field must be encoded\n\
\as base64.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX*\EOT\t\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX*\n\
\\DC4\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX*\ETB\CAN\n\
\_\n\
\\EOT\EOT\STX\STX\STX\DC2\ETX0\EOT\NAK\SUBR\n\
\The hash of the preimage. When using REST, this field must be encoded as\n\
\base64.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ENQ\DC2\ETX0\EOT\t\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\SOH\DC2\ETX0\n\
\\DLE\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ETX\DC2\ETX0\DC3\DC4\n\
\m\n\
\\EOT\EOT\STX\STX\ETX\DC2\ETX7\EOT\DC4\SUB`\n\
\The value of this invoice in satoshis\n\
\\n\
\The fields value and value_msat are mutually exclusive.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\ETX\ENQ\DC2\ETX7\EOT\t\n\
\\f\n\
\\ENQ\EOT\STX\STX\ETX\SOH\DC2\ETX7\n\
\\SI\n\
\\f\n\
\\ENQ\EOT\STX\STX\ETX\ETX\DC2\ETX7\DC2\DC3\n\
\r\n\
\\EOT\EOT\STX\STX\EOT\DC2\ETX>\EOT\SUB\SUBe\n\
\The value of this invoice in millisatoshis\n\
\\n\
\The fields value and value_msat are mutually exclusive.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\EOT\ENQ\DC2\ETX>\EOT\t\n\
\\f\n\
\\ENQ\EOT\STX\STX\EOT\SOH\DC2\ETX>\n\
\\DC4\n\
\\f\n\
\\ENQ\EOT\STX\STX\EOT\ETX\DC2\ETX>\ETB\EM\n\
\6\n\
\\EOT\EOT\STX\STX\ENQ\DC2\ETXA\EOT)\SUB) Whether this invoice has been fulfilled\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\ENQ\ENQ\DC2\ETXA\EOT\b\n\
\\f\n\
\\ENQ\EOT\STX\STX\ENQ\SOH\DC2\ETXA\t\DLE\n\
\\f\n\
\\ENQ\EOT\STX\STX\ENQ\ETX\DC2\ETXA\DC3\DC4\n\
\\f\n\
\\ENQ\EOT\STX\STX\ENQ\b\DC2\ETXA\NAK(\n\
\\r\n\
\\ACK\EOT\STX\STX\ENQ\b\ETX\DC2\ETXA\SYN'\n\
\,\n\
\\EOT\EOT\STX\STX\ACK\DC2\ETXD\EOT\FS\SUB\US When this invoice was created\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\ACK\ENQ\DC2\ETXD\EOT\t\n\
\\f\n\
\\ENQ\EOT\STX\STX\ACK\SOH\DC2\ETXD\n\
\\ETB\n\
\\f\n\
\\ENQ\EOT\STX\STX\ACK\ETX\DC2\ETXD\SUB\ESC\n\
\,\n\
\\EOT\EOT\STX\STX\a\DC2\ETXG\EOT\SUB\SUB\US When this invoice was settled\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\a\ENQ\DC2\ETXG\EOT\t\n\
\\f\n\
\\ENQ\EOT\STX\STX\a\SOH\DC2\ETXG\n\
\\NAK\n\
\\f\n\
\\ENQ\EOT\STX\STX\a\ETX\DC2\ETXG\CAN\EM\n\
\\187\SOH\n\
\\EOT\EOT\STX\STX\b\DC2\ETXN\EOT\US\SUB\173\SOH\n\
\A bare-bones invoice for a payment within the Lightning Network. With the\n\
\details of the invoice, the sender has all the data necessary to send a\n\
\payment to the recipient.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\b\ENQ\DC2\ETXN\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\b\SOH\DC2\ETXN\v\SUB\n\
\\f\n\
\\ENQ\EOT\STX\STX\b\ETX\DC2\ETXN\GS\RS\n\
\\249\SOH\n\
\\EOT\EOT\STX\STX\t\DC2\ETXV\EOT \SUB\235\SOH\n\
\Hash (SHA-256) of a description of the payment. Used if the description of\n\
\payment (memo) is too long to naturally fit within the description field\n\
\of an encoded payment request. When using REST, this field must be encoded\n\
\as base64.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\t\ENQ\DC2\ETXV\EOT\t\n\
\\f\n\
\\ENQ\EOT\STX\STX\t\SOH\DC2\ETXV\n\
\\SUB\n\
\\f\n\
\\ENQ\EOT\STX\STX\t\ETX\DC2\ETXV\GS\US\n\
\P\n\
\\EOT\EOT\STX\STX\n\
\\DC2\ETXY\EOT\SYN\SUBC Payment request expiry time in seconds. Default is 3600 (1 hour).\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\n\
\\ENQ\DC2\ETXY\EOT\t\n\
\\f\n\
\\ENQ\EOT\STX\STX\n\
\\SOH\DC2\ETXY\n\
\\DLE\n\
\\f\n\
\\ENQ\EOT\STX\STX\n\
\\ETX\DC2\ETXY\DC3\NAK\n\
\)\n\
\\EOT\EOT\STX\STX\v\DC2\ETX\\\EOT\RS\SUB\FS Fallback on-chain address.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\v\ENQ\DC2\ETX\\\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\v\SOH\DC2\ETX\\\v\CAN\n\
\\f\n\
\\ENQ\EOT\STX\STX\v\ETX\DC2\ETX\\\ESC\GS\n\
\T\n\
\\EOT\EOT\STX\STX\f\DC2\ETX_\EOT\FS\SUBG Delta to use for the time-lock of the CLTV extended to the final hop.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\f\ENQ\DC2\ETX_\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\f\SOH\DC2\ETX_\v\SYN\n\
\\f\n\
\\ENQ\EOT\STX\STX\f\ETX\DC2\ETX_\EM\ESC\n\
\n\n\
\\EOT\EOT\STX\STX\r\DC2\ETXe\EOT(\SUBa\n\
\Route hints that can each be individually used to assist in reaching the\n\
\invoice's destination.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\r\EOT\DC2\ETXe\EOT\f\n\
\\f\n\
\\ENQ\EOT\STX\STX\r\ACK\DC2\ETXe\r\SYN\n\
\\f\n\
\\ENQ\EOT\STX\STX\r\SOH\DC2\ETXe\ETB\"\n\
\\f\n\
\\ENQ\EOT\STX\STX\r\ETX\DC2\ETXe%'\n\
\V\n\
\\EOT\EOT\STX\STX\SO\DC2\ETXh\EOT\SYN\SUBI Whether this invoice should include routing hints for private channels.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SO\ENQ\DC2\ETXh\EOT\b\n\
\\f\n\
\\ENQ\EOT\STX\STX\SO\SOH\DC2\ETXh\t\DLE\n\
\\f\n\
\\ENQ\EOT\STX\STX\SO\ETX\DC2\ETXh\DC3\NAK\n\
\\149\STX\n\
\\EOT\EOT\STX\STX\SI\DC2\ETXp\EOT\SUB\SUB\135\STX\n\
\The \"add\" index of this invoice. Each newly created invoice will increment\n\
\this index making it monotonically increasing. Callers to the\n\
\SubscribeInvoices call can use this to instantly get notified of all added\n\
\invoices with an add_index greater than this one.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SI\ENQ\DC2\ETXp\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SI\SOH\DC2\ETXp\v\DC4\n\
\\f\n\
\\ENQ\EOT\STX\STX\SI\ETX\DC2\ETXp\ETB\EM\n\
\\157\STX\n\
\\EOT\EOT\STX\STX\DLE\DC2\ETXx\EOT\GS\SUB\143\STX\n\
\The \"settle\" index of this invoice. Each newly settled invoice will\n\
\increment this index making it monotonically increasing. Callers to the\n\
\SubscribeInvoices call can use this to instantly get notified of all\n\
\settled invoices with an settle_index greater than this one.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\DLE\ENQ\DC2\ETXx\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\DLE\SOH\DC2\ETXx\v\ETB\n\
\\f\n\
\\ENQ\EOT\STX\STX\DLE\ETX\DC2\ETXx\SUB\FS\n\
\=\n\
\\EOT\EOT\STX\STX\DC1\DC2\ETX{\EOT,\SUB0 Deprecated, use amt_paid_sat or amt_paid_msat.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\DC1\ENQ\DC2\ETX{\EOT\t\n\
\\f\n\
\\ENQ\EOT\STX\STX\DC1\SOH\DC2\ETX{\n\
\\DC2\n\
\\f\n\
\\ENQ\EOT\STX\STX\DC1\ETX\DC2\ETX{\NAK\ETB\n\
\\f\n\
\\ENQ\EOT\STX\STX\DC1\b\DC2\ETX{\CAN+\n\
\\r\n\
\\ACK\EOT\STX\STX\DC1\b\ETX\DC2\ETX{\EM*\n\
\\140\ETX\n\
\\EOT\EOT\STX\STX\DC2\DC2\EOT\133\SOH\EOT\FS\SUB\253\STX\n\
\The amount that was accepted for this invoice, in satoshis. This will ONLY\n\
\be set if this invoice has been settled. We provide this field as if the\n\
\invoice was created with a zero value, then we need to record what amount\n\
\was ultimately accepted. Additionally, it's possible that the sender paid\n\
\MORE that was specified in the original invoice. So we'll record that here\n\
\as well.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\DC2\ENQ\DC2\EOT\133\SOH\EOT\t\n\
\\r\n\
\\ENQ\EOT\STX\STX\DC2\SOH\DC2\EOT\133\SOH\n\
\\SYN\n\
\\r\n\
\\ENQ\EOT\STX\STX\DC2\ETX\DC2\EOT\133\SOH\EM\ESC\n\
\\145\ETX\n\
\\EOT\EOT\STX\STX\DC3\DC2\EOT\143\SOH\EOT\GS\SUB\130\ETX\n\
\The amount that was accepted for this invoice, in millisatoshis. This will\n\
\ONLY be set if this invoice has been settled. We provide this field as if\n\
\the invoice was created with a zero value, then we need to record what\n\
\amount was ultimately accepted. Additionally, it's possible that the sender\n\
\paid MORE that was specified in the original invoice. So we'll record that\n\
\here as well.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\DC3\ENQ\DC2\EOT\143\SOH\EOT\t\n\
\\r\n\
\\ENQ\EOT\STX\STX\DC3\SOH\DC2\EOT\143\SOH\n\
\\ETB\n\
\\r\n\
\\ENQ\EOT\STX\STX\DC3\ETX\DC2\EOT\143\SOH\SUB\FS\n\
\\SO\n\
\\EOT\EOT\STX\EOT\NUL\DC2\ACK\145\SOH\EOT\150\SOH\ENQ\n\
\\r\n\
\\ENQ\EOT\STX\EOT\NUL\SOH\DC2\EOT\145\SOH\t\NAK\n\
\\SO\n\
\\ACK\EOT\STX\EOT\NUL\STX\NUL\DC2\EOT\146\SOH\b\DC1\n\
\\SI\n\
\\a\EOT\STX\EOT\NUL\STX\NUL\SOH\DC2\EOT\146\SOH\b\f\n\
\\SI\n\
\\a\EOT\STX\EOT\NUL\STX\NUL\STX\DC2\EOT\146\SOH\SI\DLE\n\
\\SO\n\
\\ACK\EOT\STX\EOT\NUL\STX\SOH\DC2\EOT\147\SOH\b\DC4\n\
\\SI\n\
\\a\EOT\STX\EOT\NUL\STX\SOH\SOH\DC2\EOT\147\SOH\b\SI\n\
\\SI\n\
\\a\EOT\STX\EOT\NUL\STX\SOH\STX\DC2\EOT\147\SOH\DC2\DC3\n\
\\SO\n\
\\ACK\EOT\STX\EOT\NUL\STX\STX\DC2\EOT\148\SOH\b\NAK\n\
\\SI\n\
\\a\EOT\STX\EOT\NUL\STX\STX\SOH\DC2\EOT\148\SOH\b\DLE\n\
\\SI\n\
\\a\EOT\STX\EOT\NUL\STX\STX\STX\DC2\EOT\148\SOH\DC3\DC4\n\
\\SO\n\
\\ACK\EOT\STX\EOT\NUL\STX\ETX\DC2\EOT\149\SOH\b\NAK\n\
\\SI\n\
\\a\EOT\STX\EOT\NUL\STX\ETX\SOH\DC2\EOT\149\SOH\b\DLE\n\
\\SI\n\
\\a\EOT\STX\EOT\NUL\STX\ETX\STX\DC2\EOT\149\SOH\DC3\DC4\n\
\,\n\
\\EOT\EOT\STX\STX\DC4\DC2\EOT\155\SOH\EOT\FS\SUB\RS\n\
\The state the invoice is in.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\DC4\ACK\DC2\EOT\155\SOH\EOT\DLE\n\
\\r\n\
\\ENQ\EOT\STX\STX\DC4\SOH\DC2\EOT\155\SOH\DC1\SYN\n\
\\r\n\
\\ENQ\EOT\STX\STX\DC4\ETX\DC2\EOT\155\SOH\EM\ESC\n\
\D\n\
\\EOT\EOT\STX\STX\NAK\DC2\EOT\158\SOH\EOT$\SUB6 List of HTLCs paying to this invoice [EXPERIMENTAL].\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\NAK\EOT\DC2\EOT\158\SOH\EOT\f\n\
\\r\n\
\\ENQ\EOT\STX\STX\NAK\ACK\DC2\EOT\158\SOH\r\CAN\n\
\\r\n\
\\ENQ\EOT\STX\STX\NAK\SOH\DC2\EOT\158\SOH\EM\RS\n\
\\r\n\
\\ENQ\EOT\STX\STX\NAK\ETX\DC2\EOT\158\SOH!#\n\
\;\n\
\\EOT\EOT\STX\STX\SYN\DC2\EOT\161\SOH\EOT'\SUB- List of features advertised on the invoice.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\SYN\ACK\DC2\EOT\161\SOH\EOT\CAN\n\
\\r\n\
\\ENQ\EOT\STX\STX\SYN\SOH\DC2\EOT\161\SOH\EM!\n\
\\r\n\
\\ENQ\EOT\STX\STX\SYN\ETX\DC2\EOT\161\SOH$&\n\
\l\n\
\\EOT\EOT\STX\STX\ETB\DC2\EOT\167\SOH\EOT\EM\SUB^\n\
\Indicates if this invoice was a spontaneous payment that arrived via keysend\n\
\[EXPERIMENTAL].\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\ETB\ENQ\DC2\EOT\167\SOH\EOT\b\n\
\\r\n\
\\ENQ\EOT\STX\STX\ETB\SOH\DC2\EOT\167\SOH\t\DC3\n\
\\r\n\
\\ENQ\EOT\STX\STX\ETB\ETX\DC2\EOT\167\SOH\SYN\CAN\n\
\\189\SOH\n\
\\EOT\EOT\STX\STX\CAN\DC2\EOT\174\SOH\EOT\FS\SUB\174\SOH\n\
\The payment address of this invoice. This value will be used in MPP\n\
\payments, and also for newer invoices that always require the MPP payload\n\
\for added end-to-end security.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\CAN\ENQ\DC2\EOT\174\SOH\EOT\t\n\
\\r\n\
\\ENQ\EOT\STX\STX\CAN\SOH\DC2\EOT\174\SOH\n\
\\SYN\n\
\\r\n\
\\ENQ\EOT\STX\STX\CAN\ETX\DC2\EOT\174\SOH\EM\ESC\n\
\>\n\
\\EOT\EOT\STX\STX\EM\DC2\EOT\179\SOH\EOT\NAK\SUB0\n\
\Signals whether or not this is an AMP invoice.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\EM\ENQ\DC2\EOT\179\SOH\EOT\b\n\
\\r\n\
\\ENQ\EOT\STX\STX\EM\SOH\DC2\EOT\179\SOH\t\SI\n\
\\r\n\
\\ENQ\EOT\STX\STX\EM\ETX\DC2\EOT\179\SOH\DC2\DC4\n\
\\143\STX\n\
\\EOT\EOT\STX\STX\SUB\DC2\EOT\189\SOH\EOT8\SUB\128\STX\n\
\[EXPERIMENTAL]:\n\
\\n\
\Maps a 32-byte hex-encoded set ID to the sub-invoice AMP state for the\n\
\given set ID. This field is always populated for AMP invoices, and can be\n\
\used along side LookupInvoice to obtain the HTLC information related to a\n\
\given sub-invoice.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\SUB\ACK\DC2\EOT\189\SOH\EOT \n\
\\r\n\
\\ENQ\EOT\STX\STX\SUB\SOH\DC2\EOT\189\SOH!2\n\
\\r\n\
\\ENQ\EOT\STX\STX\SUB\ETX\DC2\EOT\189\SOH57\n\
\\f\n\
\\STX\ENQ\NUL\DC2\ACK\192\SOH\NUL\196\SOH\SOH\n\
\\v\n\
\\ETX\ENQ\NUL\SOH\DC2\EOT\192\SOH\ENQ\NAK\n\
\\f\n\
\\EOT\ENQ\NUL\STX\NUL\DC2\EOT\193\SOH\EOT\DC1\n\
\\r\n\
\\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\EOT\193\SOH\EOT\f\n\
\\r\n\
\\ENQ\ENQ\NUL\STX\NUL\STX\DC2\EOT\193\SOH\SI\DLE\n\
\\f\n\
\\EOT\ENQ\NUL\STX\SOH\DC2\EOT\194\SOH\EOT\DLE\n\
\\r\n\
\\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\EOT\194\SOH\EOT\v\n\
\\r\n\
\\ENQ\ENQ\NUL\STX\SOH\STX\DC2\EOT\194\SOH\SO\SI\n\
\\f\n\
\\EOT\ENQ\NUL\STX\STX\DC2\EOT\195\SOH\EOT\DC1\n\
\\r\n\
\\ENQ\ENQ\NUL\STX\STX\SOH\DC2\EOT\195\SOH\EOT\f\n\
\\r\n\
\\ENQ\ENQ\NUL\STX\STX\STX\DC2\EOT\195\SOH\SI\DLE\n\
\:\n\
\\STX\EOT\ETX\DC2\ACK\199\SOH\NUL\232\SOH\SOH\SUB, Details of an HTLC that paid to an invoice\n\
\\n\
\\v\n\
\\ETX\EOT\ETX\SOH\DC2\EOT\199\SOH\b\DC3\n\
\B\n\
\\EOT\EOT\ETX\STX\NUL\DC2\EOT\201\SOH\EOT,\SUB4 Short channel id over which the htlc was received.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\EOT\201\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\EOT\201\SOH\v\DC2\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\EOT\201\SOH\NAK\SYN\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\b\DC2\EOT\201\SOH\ETB+\n\
\\SO\n\
\\ACK\EOT\ETX\STX\NUL\b\ACK\DC2\EOT\201\SOH\CAN*\n\
\:\n\
\\EOT\EOT\ETX\STX\SOH\DC2\EOT\204\SOH\EOT\SUB\SUB, Index identifying the htlc on the channel.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\EOT\204\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\SOH\SOH\DC2\EOT\204\SOH\v\NAK\n\
\\r\n\
\\ENQ\EOT\ETX\STX\SOH\ETX\DC2\EOT\204\SOH\CAN\EM\n\
\/\n\
\\EOT\EOT\ETX\STX\STX\DC2\EOT\207\SOH\EOT\CAN\SUB! The amount of the htlc in msat.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\STX\ENQ\DC2\EOT\207\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\STX\SOH\DC2\EOT\207\SOH\v\DC3\n\
\\r\n\
\\ENQ\EOT\ETX\STX\STX\ETX\DC2\EOT\207\SOH\SYN\ETB\n\
\=\n\
\\EOT\EOT\ETX\STX\ETX\DC2\EOT\210\SOH\EOT\FS\SUB/ Block height at which this htlc was accepted.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ETX\ENQ\DC2\EOT\210\SOH\EOT\t\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ETX\SOH\DC2\EOT\210\SOH\n\
\\ETB\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ETX\ETX\DC2\EOT\210\SOH\SUB\ESC\n\
\5\n\
\\EOT\EOT\ETX\STX\EOT\DC2\EOT\213\SOH\EOT\SUB\SUB' Time at which this htlc was accepted.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\EOT\ENQ\DC2\EOT\213\SOH\EOT\t\n\
\\r\n\
\\ENQ\EOT\ETX\STX\EOT\SOH\DC2\EOT\213\SOH\n\
\\NAK\n\
\\r\n\
\\ENQ\EOT\ETX\STX\EOT\ETX\DC2\EOT\213\SOH\CAN\EM\n\
\@\n\
\\EOT\EOT\ETX\STX\ENQ\DC2\EOT\216\SOH\EOT\ESC\SUB2 Time at which this htlc was settled or canceled.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ENQ\ENQ\DC2\EOT\216\SOH\EOT\t\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ENQ\SOH\DC2\EOT\216\SOH\n\
\\SYN\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ENQ\ETX\DC2\EOT\216\SOH\EM\SUB\n\
\8\n\
\\EOT\EOT\ETX\STX\ACK\DC2\EOT\219\SOH\EOT\FS\SUB* Block height at which this htlc expires.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ACK\ENQ\DC2\EOT\219\SOH\EOT\t\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ACK\SOH\DC2\EOT\219\SOH\n\
\\ETB\n\
\\r\n\
\\ENQ\EOT\ETX\STX\ACK\ETX\DC2\EOT\219\SOH\SUB\ESC\n\
\-\n\
\\EOT\EOT\ETX\STX\a\DC2\EOT\222\SOH\EOT\US\SUB\US Current state the htlc is in.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\a\ACK\DC2\EOT\222\SOH\EOT\DC4\n\
\\r\n\
\\ENQ\EOT\ETX\STX\a\SOH\DC2\EOT\222\SOH\NAK\SUB\n\
\\r\n\
\\ENQ\EOT\ETX\STX\a\ETX\DC2\EOT\222\SOH\GS\RS\n\
\#\n\
\\EOT\EOT\ETX\STX\b\DC2\EOT\225\SOH\EOT*\SUB\NAK Custom tlv records.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\b\ACK\DC2\EOT\225\SOH\EOT\SYN\n\
\\r\n\
\\ENQ\EOT\ETX\STX\b\SOH\DC2\EOT\225\SOH\ETB%\n\
\\r\n\
\\ENQ\EOT\ETX\STX\b\ETX\DC2\EOT\225\SOH()\n\
\<\n\
\\EOT\EOT\ETX\STX\t\DC2\EOT\228\SOH\EOT#\SUB. The total amount of the mpp payment in msat.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\t\ENQ\DC2\EOT\228\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\t\SOH\DC2\EOT\228\SOH\v\GS\n\
\\r\n\
\\ENQ\EOT\ETX\STX\t\ETX\DC2\EOT\228\SOH \"\n\
\U\n\
\\EOT\EOT\ETX\STX\n\
\\DC2\EOT\231\SOH\EOT\DC1\SUBG Details relevant to AMP HTLCs, only populated if this is an AMP HTLC.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\n\
\\ACK\DC2\EOT\231\SOH\EOT\a\n\
\\r\n\
\\ENQ\EOT\ETX\STX\n\
\\SOH\DC2\EOT\231\SOH\b\v\n\
\\r\n\
\\ENQ\EOT\ETX\STX\n\
\\ETX\DC2\EOT\231\SOH\SO\DLE\n\
\.\n\
\\STX\EOT\EOT\DC2\ACK\235\SOH\NUL\254\SOH\SOH\SUB Details specific to AMP HTLCs.\n\
\\n\
\\v\n\
\\ETX\EOT\EOT\SOH\DC2\EOT\235\SOH\b\v\n\
\s\n\
\\EOT\EOT\EOT\STX\NUL\DC2\EOT\238\SOH\EOT\EM\SUBe An n-of-n secret share of the root seed from which child payment hashes\n\
\ and preimages are derived.\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\EOT\238\SOH\EOT\t\n\
\\r\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\EOT\238\SOH\n\
\\DC4\n\
\\r\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\EOT\238\SOH\ETB\CAN\n\
\I\n\
\\EOT\EOT\EOT\STX\SOH\DC2\EOT\241\SOH\EOT\NAK\SUB; An identifier for the HTLC set that this HTLC belongs to.\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\SOH\ENQ\DC2\EOT\241\SOH\EOT\t\n\
\\r\n\
\\ENQ\EOT\EOT\STX\SOH\SOH\DC2\EOT\241\SOH\n\
\\DLE\n\
\\r\n\
\\ENQ\EOT\EOT\STX\SOH\ETX\DC2\EOT\241\SOH\DC3\DC4\n\
\e\n\
\\EOT\EOT\EOT\STX\STX\DC2\EOT\245\SOH\EOT\ESC\SUBW A nonce used to randomize the child preimage and child hash from a given\n\
\ root_share.\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\STX\ENQ\DC2\EOT\245\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\STX\SOH\DC2\EOT\245\SOH\v\SYN\n\
\\r\n\
\\ENQ\EOT\EOT\STX\STX\ETX\DC2\EOT\245\SOH\EM\SUB\n\
\1\n\
\\EOT\EOT\EOT\STX\ETX\DC2\EOT\248\SOH\EOT\DC3\SUB# The payment hash of the AMP HTLC.\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\ETX\ENQ\DC2\EOT\248\SOH\EOT\t\n\
\\r\n\
\\ENQ\EOT\EOT\STX\ETX\SOH\DC2\EOT\248\SOH\n\
\\SO\n\
\\r\n\
\\ENQ\EOT\EOT\STX\ETX\ETX\DC2\EOT\248\SOH\DC1\DC2\n\
\\163\SOH\n\
\\EOT\EOT\EOT\STX\EOT\DC2\EOT\253\SOH\EOT\ETB\SUB\148\SOH The preimage used to settle this AMP htlc. This field will only be\n\
\ populated if the invoice is in InvoiceState_ACCEPTED or\n\
\ InvoiceState_SETTLED.\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\EOT\ENQ\DC2\EOT\253\SOH\EOT\t\n\
\\r\n\
\\ENQ\EOT\EOT\STX\EOT\SOH\DC2\EOT\253\SOH\n\
\\DC2\n\
\\r\n\
\\ENQ\EOT\EOT\STX\EOT\ETX\DC2\EOT\253\SOH\NAK\SYN\n\
\\f\n\
\\STX\EOT\ENQ\DC2\ACK\128\STX\NUL\152\STX\SOH\n\
\\v\n\
\\ETX\EOT\ENQ\SOH\DC2\EOT\128\STX\b\SUB\n\
\\f\n\
\\EOT\EOT\ENQ\STX\NUL\DC2\EOT\129\STX\EOT\NAK\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\EOT\129\STX\EOT\t\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\EOT\129\STX\n\
\\DLE\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\EOT\129\STX\DC3\DC4\n\
\\188\SOH\n\
\\EOT\EOT\ENQ\STX\SOH\DC2\EOT\136\STX\EOT\US\SUB\173\SOH\n\
\A bare-bones invoice for a payment within the Lightning Network. With the\n\
\details of the invoice, the sender has all the data necessary to send a\n\
\payment to the recipient.\n\
\\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\SOH\ENQ\DC2\EOT\136\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\EOT\136\STX\v\SUB\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\EOT\136\STX\GS\RS\n\
\\150\STX\n\
\\EOT\EOT\ENQ\STX\STX\DC2\EOT\144\STX\EOT\SUB\SUB\135\STX\n\
\The \"add\" index of this invoice. Each newly created invoice will increment\n\
\this index making it monotonically increasing. Callers to the\n\
\SubscribeInvoices call can use this to instantly get notified of all added\n\
\invoices with an add_index greater than this one.\n\
\\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\STX\ENQ\DC2\EOT\144\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\STX\SOH\DC2\EOT\144\STX\v\DC4\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\STX\ETX\DC2\EOT\144\STX\ETB\EM\n\
\\163\SOH\n\
\\EOT\EOT\ENQ\STX\ETX\DC2\EOT\151\STX\EOT\FS\SUB\148\SOH\n\
\The payment address of the generated invoice. This value should be used\n\
\in all payments for this invoice as we require it for end to end\n\
\security.\n\
\\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\ETX\ENQ\DC2\EOT\151\STX\EOT\t\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\ETX\SOH\DC2\EOT\151\STX\n\
\\SYN\n\
\\r\n\
\\ENQ\EOT\ENQ\STX\ETX\ETX\DC2\EOT\151\STX\EM\ESC\n\
\\f\n\
\\STX\EOT\ACK\DC2\ACK\153\STX\NUL\167\STX\SOH\n\
\\v\n\
\\ETX\EOT\ACK\SOH\DC2\EOT\153\STX\b\DC3\n\
\\238\SOH\n\
\\EOT\EOT\ACK\STX\NUL\DC2\EOT\160\STX\EOT.\SUB\223\SOH\n\
\The hex-encoded payment hash of the invoice to be looked up. The passed\n\
\payment hash must be exactly 32 bytes, otherwise an error is returned.\n\
\Deprecated now that the REST gateway supports base64 encoding of bytes\n\
\fields.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\EOT\160\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\NUL\SOH\DC2\EOT\160\STX\v\NAK\n\
\\r\n\
\\ENQ\EOT\ACK\STX\NUL\ETX\DC2\EOT\160\STX\CAN\EM\n\
\\r\n\
\\ENQ\EOT\ACK\STX\NUL\b\DC2\EOT\160\STX\SUB-\n\
\\SO\n\
\\ACK\EOT\ACK\STX\NUL\b\ETX\DC2\EOT\160\STX\ESC,\n\
\w\n\
\\EOT\EOT\ACK\STX\SOH\DC2\EOT\166\STX\EOT\NAK\SUBi\n\
\The payment hash of the invoice to be looked up. When using REST, this field\n\
\must be encoded as base64.\n\
\\n\
\\r\n\
\\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\EOT\166\STX\EOT\t\n\
\\r\n\
\\ENQ\EOT\ACK\STX\SOH\SOH\DC2\EOT\166\STX\n\
\\DLE\n\
\\r\n\
\\ENQ\EOT\ACK\STX\SOH\ETX\DC2\EOT\166\STX\DC3\DC4\n\
\\f\n\
\\STX\EOT\a\DC2\ACK\169\STX\NUL\190\STX\SOH\n\
\\v\n\
\\ETX\EOT\a\SOH\DC2\EOT\169\STX\b\SUB\n\
\m\n\
\\EOT\EOT\a\STX\NUL\DC2\EOT\174\STX\EOT\SUB\SUB_\n\
\If set, only invoices that are not settled and not canceled will be returned\n\
\in the response.\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\NUL\ENQ\DC2\EOT\174\STX\EOT\b\n\
\\r\n\
\\ENQ\EOT\a\STX\NUL\SOH\DC2\EOT\174\STX\t\NAK\n\
\\r\n\
\\ENQ\EOT\a\STX\NUL\ETX\DC2\EOT\174\STX\CAN\EM\n\
\\160\SOH\n\
\\EOT\EOT\a\STX\SOH\DC2\EOT\180\STX\EOT\FS\SUB\145\SOH\n\
\The index of an invoice that will be used as either the start or end of a\n\
\query to determine which invoices should be returned in the response.\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\SOH\ENQ\DC2\EOT\180\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\SOH\SOH\DC2\EOT\180\STX\v\ETB\n\
\\r\n\
\\ENQ\EOT\a\STX\SOH\ETX\DC2\EOT\180\STX\SUB\ESC\n\
\S\n\
\\EOT\EOT\a\STX\STX\DC2\EOT\183\STX\EOT \SUBE The max number of invoices to return in the response to this query.\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\STX\ENQ\DC2\EOT\183\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\STX\SOH\DC2\EOT\183\STX\v\ESC\n\
\\r\n\
\\ENQ\EOT\a\STX\STX\ETX\DC2\EOT\183\STX\RS\US\n\
\\154\SOH\n\
\\EOT\EOT\a\STX\ETX\DC2\EOT\189\STX\EOT\SYN\SUB\139\SOH\n\
\If set, the invoices returned will result from seeking backwards from the\n\
\specified index offset. This can be used to paginate backwards.\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\ETX\ENQ\DC2\EOT\189\STX\EOT\b\n\
\\r\n\
\\ENQ\EOT\a\STX\ETX\SOH\DC2\EOT\189\STX\t\DC1\n\
\\r\n\
\\ENQ\EOT\a\STX\ETX\ETX\DC2\EOT\189\STX\DC4\NAK\n\
\\f\n\
\\STX\EOT\b\DC2\ACK\191\STX\NUL\209\STX\SOH\n\
\\v\n\
\\ETX\EOT\b\SOH\DC2\EOT\191\STX\b\ESC\n\
\c\n\
\\EOT\EOT\b\STX\NUL\DC2\EOT\196\STX\EOT\"\SUBU\n\
\A list of invoices from the time slice of the time series specified in the\n\
\request.\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\EOT\DC2\EOT\196\STX\EOT\f\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\ACK\DC2\EOT\196\STX\r\DC4\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\SOH\DC2\EOT\196\STX\NAK\GS\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\ETX\DC2\EOT\196\STX !\n\
\\DEL\n\
\\EOT\EOT\b\STX\SOH\DC2\EOT\202\STX\EOT!\SUBq\n\
\The index of the last item in the set of returned invoices. This can be used\n\
\to seek further, pagination style.\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\SOH\ENQ\DC2\EOT\202\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\SOH\SOH\DC2\EOT\202\STX\v\FS\n\
\\r\n\
\\ENQ\EOT\b\STX\SOH\ETX\DC2\EOT\202\STX\US \n\
\\129\SOH\n\
\\EOT\EOT\b\STX\STX\DC2\EOT\208\STX\EOT\"\SUBs\n\
\The index of the last item in the set of returned invoices. This can be used\n\
\to seek backwards, pagination style.\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\STX\ENQ\DC2\EOT\208\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\STX\SOH\DC2\EOT\208\STX\v\GS\n\
\\r\n\
\\ENQ\EOT\b\STX\STX\ETX\DC2\EOT\208\STX !\n\
\\f\n\
\\STX\EOT\t\DC2\ACK\211\STX\NUL\227\STX\SOH\n\
\\v\n\
\\ETX\EOT\t\SOH\DC2\EOT\211\STX\b\ESC\n\
\\139\STX\n\
\\EOT\EOT\t\STX\NUL\DC2\EOT\218\STX\EOT\EM\SUB\252\SOH\n\
\If specified (non-zero), then we'll first start by sending out\n\
\notifications for all added indexes with an add_index greater than this\n\
\value. This allows callers to catch up on any events they missed while they\n\
\weren't connected to the streaming RPC.\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\ENQ\DC2\EOT\218\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\SOH\DC2\EOT\218\STX\v\DC4\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\ETX\DC2\EOT\218\STX\ETB\CAN\n\
\\144\STX\n\
\\EOT\EOT\t\STX\SOH\DC2\EOT\226\STX\EOT\FS\SUB\129\STX\n\
\If specified (non-zero), then we'll first start by sending out\n\
\notifications for all settled indexes with an settle_index greater than\n\
\this value. This allows callers to catch up on any events they missed while\n\
\they weren't connected to the streaming RPC.\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\SOH\ENQ\DC2\EOT\226\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\SOH\SOH\DC2\EOT\226\STX\v\ETB\n\
\\r\n\
\\ENQ\EOT\t\STX\SOH\ETX\DC2\EOT\226\STX\SUB\ESC\n\
\\f\n\
\\STX\ENQ\SOH\DC2\ACK\229\STX\NUL\133\ETX\SOH\n\
\\v\n\
\\ETX\ENQ\SOH\SOH\DC2\EOT\229\STX\ENQ\EM\n\
\+\n\
\\EOT\ENQ\SOH\STX\NUL\DC2\EOT\233\STX\EOT\FS\SUB\GS\n\
\Payment isn't failed (yet).\n\
\\n\
\\r\n\
\\ENQ\ENQ\SOH\STX\NUL\SOH\DC2\EOT\233\STX\EOT\ETB\n\
\\r\n\
\\ENQ\ENQ\SOH\STX\NUL\STX\DC2\EOT\233\STX\SUB\ESC\n\
\S\n\
\\EOT\ENQ\SOH\STX\SOH\DC2\EOT\238\STX\EOT\US\SUBE\n\
\There are more routes to try, but the payment timeout was exceeded.\n\
\\n\
\\r\n\
\\ENQ\ENQ\SOH\STX\SOH\SOH\DC2\EOT\238\STX\EOT\SUB\n\
\\r\n\
\\ENQ\ENQ\SOH\STX\SOH\STX\DC2\EOT\238\STX\GS\RS\n\
\s\n\
\\EOT\ENQ\SOH\STX\STX\DC2\EOT\244\STX\EOT \SUBe\n\
\All possible routes were tried and failed permanently. Or were no\n\
\routes to the destination at all.\n\
\\n\
\\r\n\
\\ENQ\ENQ\SOH\STX\STX\SOH\DC2\EOT\244\STX\EOT\ESC\n\
\\r\n\
\\ENQ\ENQ\SOH\STX\STX\STX\DC2\EOT\244\STX\RS\US\n\
\4\n\
\\EOT\ENQ\SOH\STX\ETX\DC2\EOT\249\STX\EOT\GS\SUB&\n\
\A non-recoverable error has occured.\n\
\\n\
\\r\n\
\\ENQ\ENQ\SOH\STX\ETX\SOH\DC2\EOT\249\STX\EOT\CAN\n\
\\r\n\
\\ENQ\ENQ\SOH\STX\ETX\STX\DC2\EOT\249\STX\ESC\FS\n\
\a\n\
\\EOT\ENQ\SOH\STX\EOT\DC2\EOT\255\STX\EOT1\SUBS\n\
\Payment details incorrect (unknown hash, invalid amt or\n\
\invalid final cltv delta)\n\
\\n\
\\r\n\
\\ENQ\ENQ\SOH\STX\EOT\SOH\DC2\EOT\255\STX\EOT,\n\
\\r\n\
\\ENQ\ENQ\SOH\STX\EOT\STX\DC2\EOT\255\STX/0\n\
\+\n\
\\EOT\ENQ\SOH\STX\ENQ\DC2\EOT\132\ETX\EOT,\SUB\GS\n\
\Insufficient local balance.\n\
\\n\
\\r\n\
\\ENQ\ENQ\SOH\STX\ENQ\SOH\DC2\EOT\132\ETX\EOT'\n\
\\r\n\
\\ENQ\ENQ\SOH\STX\ENQ\STX\DC2\EOT\132\ETX*+\n\
\\f\n\
\\STX\EOT\n\
\\DC2\ACK\135\ETX\NUL\192\ETX\SOH\n\
\\v\n\
\\ETX\EOT\n\
\\SOH\DC2\EOT\135\ETX\b\SI\n\
\ \n\
\\EOT\EOT\n\
\\STX\NUL\DC2\EOT\137\ETX\EOT\FS\SUB\DC2 The payment hash\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\ENQ\DC2\EOT\137\ETX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\SOH\DC2\EOT\137\ETX\v\ETB\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\ETX\DC2\EOT\137\ETX\SUB\ESC\n\
\8\n\
\\EOT\EOT\n\
\\STX\SOH\DC2\EOT\140\ETX\EOT(\SUB* Deprecated, use value_sat or value_msat.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\ENQ\DC2\EOT\140\ETX\EOT\t\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\SOH\DC2\EOT\140\ETX\n\
\\SI\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\ETX\DC2\EOT\140\ETX\DC2\DC3\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\b\DC2\EOT\140\ETX\DC4'\n\
\\SO\n\
\\ACK\EOT\n\
\\STX\SOH\b\ETX\DC2\EOT\140\ETX\NAK&\n\
\0\n\
\\EOT\EOT\n\
\\STX\STX\DC2\EOT\143\ETX\EOT0\SUB\" Deprecated, use creation_time_ns\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\STX\ENQ\DC2\EOT\143\ETX\EOT\t\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\STX\SOH\DC2\EOT\143\ETX\n\
\\ETB\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\STX\ETX\DC2\EOT\143\ETX\SUB\ESC\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\STX\b\DC2\EOT\143\ETX\FS/\n\
\\SO\n\
\\ACK\EOT\n\
\\STX\STX\b\ETX\DC2\EOT\143\ETX\GS.\n\
\\v\n\
\\ETX\EOT\n\
\\t\DC2\EOT\145\ETX\EOT\SI\n\
\\f\n\
\\EOT\EOT\n\
\\t\NUL\DC2\EOT\145\ETX\r\SO\n\
\\r\n\
\\ENQ\EOT\n\
\\t\NUL\SOH\DC2\EOT\145\ETX\r\SO\n\
\\r\n\
\\ENQ\EOT\n\
\\t\NUL\STX\DC2\EOT\145\ETX\r\SO\n\
\4\n\
\\EOT\EOT\n\
\\STX\ETX\DC2\EOT\148\ETX\EOT&\SUB& Deprecated, use fee_sat or fee_msat.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ETX\ENQ\DC2\EOT\148\ETX\EOT\t\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ETX\SOH\DC2\EOT\148\ETX\n\
\\r\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ETX\ETX\DC2\EOT\148\ETX\DLE\DC1\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ETX\b\DC2\EOT\148\ETX\DC2%\n\
\\SO\n\
\\ACK\EOT\n\
\\STX\ETX\b\ETX\DC2\EOT\148\ETX\DC3$\n\
\$\n\
\\EOT\EOT\n\
\\STX\EOT\DC2\EOT\151\ETX\EOT \SUB\SYN The payment preimage\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\EOT\ENQ\DC2\EOT\151\ETX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\EOT\SOH\DC2\EOT\151\ETX\v\ESC\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\EOT\ETX\DC2\EOT\151\ETX\RS\US\n\
\4\n\
\\EOT\EOT\n\
\\STX\ENQ\DC2\EOT\154\ETX\EOT\CAN\SUB& The value of the payment in satoshis\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ENQ\ENQ\DC2\EOT\154\ETX\EOT\t\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ENQ\SOH\DC2\EOT\154\ETX\n\
\\DC3\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ENQ\ETX\DC2\EOT\154\ETX\SYN\ETB\n\
\:\n\
\\EOT\EOT\n\
\\STX\ACK\DC2\EOT\157\ETX\EOT\EM\SUB, The value of the payment in milli-satoshis\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ACK\ENQ\DC2\EOT\157\ETX\EOT\t\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ACK\SOH\DC2\EOT\157\ETX\n\
\\DC4\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ACK\ETX\DC2\EOT\157\ETX\ETB\CAN\n\
\=\n\
\\EOT\EOT\n\
\\STX\a\DC2\EOT\160\ETX\EOT\US\SUB/ The optional payment request being fulfilled.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\a\ENQ\DC2\EOT\160\ETX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\a\SOH\DC2\EOT\160\ETX\v\SUB\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\a\ETX\DC2\EOT\160\ETX\GS\RS\n\
\\SO\n\
\\EOT\EOT\n\
\\EOT\NUL\DC2\ACK\162\ETX\EOT\167\ETX\ENQ\n\
\\r\n\
\\ENQ\EOT\n\
\\EOT\NUL\SOH\DC2\EOT\162\ETX\t\SYN\n\
\\SO\n\
\\ACK\EOT\n\
\\EOT\NUL\STX\NUL\DC2\EOT\163\ETX\b\DC4\n\
\\SI\n\
\\a\EOT\n\
\\EOT\NUL\STX\NUL\SOH\DC2\EOT\163\ETX\b\SI\n\
\\SI\n\
\\a\EOT\n\
\\EOT\NUL\STX\NUL\STX\DC2\EOT\163\ETX\DC2\DC3\n\
\\SO\n\
\\ACK\EOT\n\
\\EOT\NUL\STX\SOH\DC2\EOT\164\ETX\b\SYN\n\
\\SI\n\
\\a\EOT\n\
\\EOT\NUL\STX\SOH\SOH\DC2\EOT\164\ETX\b\DC1\n\
\\SI\n\
\\a\EOT\n\
\\EOT\NUL\STX\SOH\STX\DC2\EOT\164\ETX\DC4\NAK\n\
\\SO\n\
\\ACK\EOT\n\
\\EOT\NUL\STX\STX\DC2\EOT\165\ETX\b\SYN\n\
\\SI\n\
\\a\EOT\n\
\\EOT\NUL\STX\STX\SOH\DC2\EOT\165\ETX\b\DC1\n\
\\SI\n\
\\a\EOT\n\
\\EOT\NUL\STX\STX\STX\DC2\EOT\165\ETX\DC4\NAK\n\
\\SO\n\
\\ACK\EOT\n\
\\EOT\NUL\STX\ETX\DC2\EOT\166\ETX\b\DC3\n\
\\SI\n\
\\a\EOT\n\
\\EOT\NUL\STX\ETX\SOH\DC2\EOT\166\ETX\b\SO\n\
\\SI\n\
\\a\EOT\n\
\\EOT\NUL\STX\ETX\STX\DC2\EOT\166\ETX\DC1\DC2\n\
\*\n\
\\EOT\EOT\n\
\\STX\b\DC2\EOT\170\ETX\EOT\RS\SUB\FS The status of the payment.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\b\ACK\DC2\EOT\170\ETX\EOT\DC1\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\b\SOH\DC2\EOT\170\ETX\DC2\CAN\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\b\ETX\DC2\EOT\170\ETX\ESC\GS\n\
\:\n\
\\EOT\EOT\n\
\\STX\t\DC2\EOT\173\ETX\EOT\ETB\SUB, The fee paid for this payment in satoshis\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\t\ENQ\DC2\EOT\173\ETX\EOT\t\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\t\SOH\DC2\EOT\173\ETX\n\
\\DC1\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\t\ETX\DC2\EOT\173\ETX\DC4\SYN\n\
\@\n\
\\EOT\EOT\n\
\\STX\n\
\\DC2\EOT\176\ETX\EOT\CAN\SUB2 The fee paid for this payment in milli-satoshis\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\n\
\\ENQ\DC2\EOT\176\ETX\EOT\t\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\n\
\\SOH\DC2\EOT\176\ETX\n\
\\DC2\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\n\
\\ETX\DC2\EOT\176\ETX\NAK\ETB\n\
\N\n\
\\EOT\EOT\n\
\\STX\v\DC2\EOT\179\ETX\EOT \SUB@ The time in UNIX nanoseconds at which the payment was created.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\v\ENQ\DC2\EOT\179\ETX\EOT\t\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\v\SOH\DC2\EOT\179\ETX\n\
\\SUB\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\v\ETX\DC2\EOT\179\ETX\GS\US\n\
\@\n\
\\EOT\EOT\n\
\\STX\f\DC2\EOT\182\ETX\EOT$\SUB2 The HTLCs made in attempt to settle the payment.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\f\EOT\DC2\EOT\182\ETX\EOT\f\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\f\ACK\DC2\EOT\182\ETX\r\CAN\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\f\SOH\DC2\EOT\182\ETX\EM\RS\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\f\ETX\DC2\EOT\182\ETX!#\n\
\\189\SOH\n\
\\EOT\EOT\n\
\\STX\r\DC2\EOT\189\ETX\EOT\RS\SUB\174\SOH\n\
\The creation index of this payment. Each payment can be uniquely identified\n\
\by this index, which may not strictly increment by 1 for payments made in\n\
\older versions of lnd.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\r\ENQ\DC2\EOT\189\ETX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\r\SOH\DC2\EOT\189\ETX\v\CAN\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\r\ETX\DC2\EOT\189\ETX\ESC\GS\n\
\\f\n\
\\EOT\EOT\n\
\\STX\SO\DC2\EOT\191\ETX\EOT-\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SO\ACK\DC2\EOT\191\ETX\EOT\CAN\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SO\SOH\DC2\EOT\191\ETX\EM'\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SO\ETX\DC2\EOT\191\ETX*,\n\
\\f\n\
\\STX\EOT\v\DC2\ACK\194\ETX\NUL\224\ETX\SOH\n\
\\v\n\
\\ETX\EOT\v\SOH\DC2\EOT\194\ETX\b\DC3\n\
\<\n\
\\EOT\EOT\v\STX\NUL\DC2\EOT\196\ETX\EOT\SUB\SUB. The unique ID that is used for this attempt.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\ENQ\DC2\EOT\196\ETX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\SOH\DC2\EOT\196\ETX\v\NAK\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\ETX\DC2\EOT\196\ETX\CAN\EM\n\
\\SO\n\
\\EOT\EOT\v\EOT\NUL\DC2\ACK\198\ETX\EOT\202\ETX\ENQ\n\
\\r\n\
\\ENQ\EOT\v\EOT\NUL\SOH\DC2\EOT\198\ETX\t\DC3\n\
\\SO\n\
\\ACK\EOT\v\EOT\NUL\STX\NUL\DC2\EOT\199\ETX\b\SYN\n\
\\SI\n\
\\a\EOT\v\EOT\NUL\STX\NUL\SOH\DC2\EOT\199\ETX\b\DC1\n\
\\SI\n\
\\a\EOT\v\EOT\NUL\STX\NUL\STX\DC2\EOT\199\ETX\DC4\NAK\n\
\\SO\n\
\\ACK\EOT\v\EOT\NUL\STX\SOH\DC2\EOT\200\ETX\b\SYN\n\
\\SI\n\
\\a\EOT\v\EOT\NUL\STX\SOH\SOH\DC2\EOT\200\ETX\b\DC1\n\
\\SI\n\
\\a\EOT\v\EOT\NUL\STX\SOH\STX\DC2\EOT\200\ETX\DC4\NAK\n\
\\SO\n\
\\ACK\EOT\v\EOT\NUL\STX\STX\DC2\EOT\201\ETX\b\DC3\n\
\\SI\n\
\\a\EOT\v\EOT\NUL\STX\STX\SOH\DC2\EOT\201\ETX\b\SO\n\
\\SI\n\
\\a\EOT\v\EOT\NUL\STX\STX\STX\DC2\EOT\201\ETX\DC1\DC2\n\
\'\n\
\\EOT\EOT\v\STX\SOH\DC2\EOT\205\ETX\EOT\SUB\SUB\EM The status of the HTLC.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\ACK\DC2\EOT\205\ETX\EOT\SO\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\SOH\DC2\EOT\205\ETX\SI\NAK\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\ETX\DC2\EOT\205\ETX\CAN\EM\n\
\-\n\
\\EOT\EOT\v\STX\STX\DC2\EOT\208\ETX\EOT\DC4\SUB\US The route taken by this HTLC.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\STX\ACK\DC2\EOT\208\ETX\EOT\t\n\
\\r\n\
\\ENQ\EOT\v\STX\STX\SOH\DC2\EOT\208\ETX\n\
\\SI\n\
\\r\n\
\\ENQ\EOT\v\STX\STX\ETX\DC2\EOT\208\ETX\DC2\DC3\n\
\I\n\
\\EOT\EOT\v\STX\ETX\DC2\EOT\211\ETX\EOT\RS\SUB; The time in UNIX nanoseconds at which this HTLC was sent.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\ETX\ENQ\DC2\EOT\211\ETX\EOT\t\n\
\\r\n\
\\ENQ\EOT\v\STX\ETX\SOH\DC2\EOT\211\ETX\n\
\\EM\n\
\\r\n\
\\ENQ\EOT\v\STX\ETX\ETX\DC2\EOT\211\ETX\FS\GS\n\
\\146\SOH\n\
\\EOT\EOT\v\STX\EOT\DC2\EOT\217\ETX\EOT\RS\SUB\131\SOH\n\
\The time in UNIX nanoseconds at which this HTLC was settled or failed.\n\
\This value will not be set if the HTLC is still IN_FLIGHT.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\EOT\ENQ\DC2\EOT\217\ETX\EOT\t\n\
\\r\n\
\\ENQ\EOT\v\STX\EOT\SOH\DC2\EOT\217\ETX\n\
\\EM\n\
\\r\n\
\\ENQ\EOT\v\STX\EOT\ETX\DC2\EOT\217\ETX\FS\GS\n\
\+\n\
\\EOT\EOT\v\STX\ENQ\DC2\EOT\220\ETX\EOT\CAN\SUB\GS Detailed htlc failure info.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\ENQ\ACK\DC2\EOT\220\ETX\EOT\v\n\
\\r\n\
\\ENQ\EOT\v\STX\ENQ\SOH\DC2\EOT\220\ETX\f\DC3\n\
\\r\n\
\\ENQ\EOT\v\STX\ENQ\ETX\DC2\EOT\220\ETX\SYN\ETB\n\
\>\n\
\\EOT\EOT\v\STX\ACK\DC2\EOT\223\ETX\EOT\ETB\SUB0 The preimage that was used to settle the HTLC.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\ACK\ENQ\DC2\EOT\223\ETX\EOT\t\n\
\\r\n\
\\ENQ\EOT\v\STX\ACK\SOH\DC2\EOT\223\ETX\n\
\\DC2\n\
\\r\n\
\\ENQ\EOT\v\STX\ACK\ETX\DC2\EOT\223\ETX\NAK\SYN\n\
\\f\n\
\\STX\EOT\f\DC2\ACK\226\ETX\NUL\253\ETX\SOH\n\
\\v\n\
\\ETX\EOT\f\SOH\DC2\EOT\226\ETX\b\ESC\n\
\\149\STX\n\
\\EOT\EOT\f\STX\NUL\DC2\EOT\233\ETX\EOT \SUB\134\STX\n\
\If true, then return payments that have not yet fully completed. This means\n\
\that pending payments, as well as failed payments will show up if this\n\
\field is set to true. This flag doesn't change the meaning of the indices,\n\
\which are tied to individual payments.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\ENQ\DC2\EOT\233\ETX\EOT\b\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\SOH\DC2\EOT\233\ETX\t\ESC\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\ETX\DC2\EOT\233\ETX\RS\US\n\
\\237\STX\n\
\\EOT\EOT\f\STX\SOH\DC2\EOT\242\ETX\EOT\FS\SUB\222\STX\n\
\The index of a payment that will be used as either the start or end of a\n\
\query to determine which payments should be returned in the response. The\n\
\index_offset is exclusive. In the case of a zero index_offset, the query\n\
\will start with the oldest payment when paginating forwards, or will end\n\
\with the most recent payment when paginating backwards.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\ENQ\DC2\EOT\242\ETX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\SOH\DC2\EOT\242\ETX\v\ETB\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\ETX\DC2\EOT\242\ETX\SUB\ESC\n\
\V\n\
\\EOT\EOT\f\STX\STX\DC2\EOT\245\ETX\EOT\FS\SUBH The maximal number of payments returned in the response to this query.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\STX\ENQ\DC2\EOT\245\ETX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\STX\SOH\DC2\EOT\245\ETX\v\ETB\n\
\\r\n\
\\ENQ\EOT\f\STX\STX\ETX\DC2\EOT\245\ETX\SUB\ESC\n\
\\237\SOH\n\
\\EOT\EOT\f\STX\ETX\DC2\EOT\252\ETX\EOT\SYN\SUB\222\SOH\n\
\If set, the payments returned will result from seeking backwards from the\n\
\specified index offset. This can be used to paginate backwards. The order\n\
\of the returned payments is always oldest first (ascending index order).\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\ETX\ENQ\DC2\EOT\252\ETX\EOT\b\n\
\\r\n\
\\ENQ\EOT\f\STX\ETX\SOH\DC2\EOT\252\ETX\t\DC1\n\
\\r\n\
\\ENQ\EOT\f\STX\ETX\ETX\DC2\EOT\252\ETX\DC4\NAK\n\
\\f\n\
\\STX\EOT\r\DC2\ACK\255\ETX\NUL\142\EOT\SOH\n\
\\v\n\
\\ETX\EOT\r\SOH\DC2\EOT\255\ETX\b\FS\n\
\$\n\
\\EOT\EOT\r\STX\NUL\DC2\EOT\129\EOT\EOT\"\SUB\SYN The list of payments\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\EOT\DC2\EOT\129\EOT\EOT\f\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\ACK\DC2\EOT\129\EOT\r\DC4\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\SOH\DC2\EOT\129\EOT\NAK\GS\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\ETX\DC2\EOT\129\EOT !\n\
\\165\SOH\n\
\\EOT\EOT\r\STX\SOH\DC2\EOT\135\EOT\EOT\"\SUB\150\SOH\n\
\The index of the first item in the set of returned payments. This can be\n\
\used as the index_offset to continue seeking backwards in the next request.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\SOH\ENQ\DC2\EOT\135\EOT\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\SOH\SOH\DC2\EOT\135\EOT\v\GS\n\
\\r\n\
\\ENQ\EOT\r\STX\SOH\ETX\DC2\EOT\135\EOT !\n\
\\163\SOH\n\
\\EOT\EOT\r\STX\STX\DC2\EOT\141\EOT\EOT!\SUB\148\SOH\n\
\The index of the last item in the set of returned payments. This can be used\n\
\as the index_offset to continue seeking forwards in the next request.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\STX\ENQ\DC2\EOT\141\EOT\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\STX\SOH\DC2\EOT\141\EOT\v\FS\n\
\\r\n\
\\ENQ\EOT\r\STX\STX\ETX\DC2\EOT\141\EOT\US \n\
\\f\n\
\\STX\EOT\SO\DC2\ACK\144\EOT\NUL\152\EOT\SOH\n\
\\v\n\
\\ETX\EOT\SO\SOH\DC2\EOT\144\EOT\b\FS\n\
\'\n\
\\EOT\EOT\SO\STX\NUL\DC2\EOT\146\EOT\EOT\ESC\SUB\EM Payment hash to delete.\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\ENQ\DC2\EOT\146\EOT\EOT\t\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\SOH\DC2\EOT\146\EOT\n\
\\SYN\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\ETX\DC2\EOT\146\EOT\EM\SUB\n\
\R\n\
\\EOT\EOT\SO\STX\SOH\DC2\EOT\151\EOT\EOT\US\SUBD\n\
\Only delete failed HTLCs from the payment, not the payment itself.\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\SOH\ENQ\DC2\EOT\151\EOT\EOT\b\n\
\\r\n\
\\ENQ\EOT\SO\STX\SOH\SOH\DC2\EOT\151\EOT\t\SUB\n\
\\r\n\
\\ENQ\EOT\SO\STX\SOH\ETX\DC2\EOT\151\EOT\GS\RS\n\
\\f\n\
\\STX\EOT\SI\DC2\ACK\154\EOT\NUL\162\EOT\SOH\n\
\\v\n\
\\ETX\EOT\SI\SOH\DC2\EOT\154\EOT\b \n\
\,\n\
\\EOT\EOT\SI\STX\NUL\DC2\EOT\156\EOT\EOT\"\SUB\RS Only delete failed payments.\n\
\\n\
\\r\n\
\\ENQ\EOT\SI\STX\NUL\ENQ\DC2\EOT\156\EOT\EOT\b\n\
\\r\n\
\\ENQ\EOT\SI\STX\NUL\SOH\DC2\EOT\156\EOT\t\GS\n\
\\r\n\
\\ENQ\EOT\SI\STX\NUL\ETX\DC2\EOT\156\EOT !\n\
\O\n\
\\EOT\EOT\SI\STX\SOH\DC2\EOT\161\EOT\EOT\US\SUBA\n\
\Only delete failed HTLCs from payments, not the payment itself.\n\
\\n\
\\r\n\
\\ENQ\EOT\SI\STX\SOH\ENQ\DC2\EOT\161\EOT\EOT\b\n\
\\r\n\
\\ENQ\EOT\SI\STX\SOH\SOH\DC2\EOT\161\EOT\t\SUB\n\
\\r\n\
\\ENQ\EOT\SI\STX\SOH\ETX\DC2\EOT\161\EOT\GS\RS\n\
\\f\n\
\\STX\EOT\DLE\DC2\ACK\164\EOT\NUL\165\EOT\SOH\n\
\\v\n\
\\ETX\EOT\DLE\SOH\DC2\EOT\164\EOT\b\GS\n\
\\f\n\
\\STX\EOT\DC1\DC2\ACK\167\EOT\NUL\168\EOT\SOH\n\
\\v\n\
\\ETX\EOT\DC1\SOH\DC2\EOT\167\EOT\b!\n\
\\f\n\
\\STX\EOT\DC2\DC2\ACK\170\EOT\NUL\181\EOT\SOH\n\
\\v\n\
\\ETX\EOT\DC2\SOH\DC2\EOT\170\EOT\b\GS\n\
\\f\n\
\\EOT\EOT\DC2\STX\NUL\DC2\EOT\171\EOT\EOT#\n\
\\r\n\
\\ENQ\EOT\DC2\STX\NUL\ACK\DC2\EOT\171\EOT\EOT\DLE\n\
\\r\n\
\\ENQ\EOT\DC2\STX\NUL\SOH\DC2\EOT\171\EOT\DC1\RS\n\
\\r\n\
\\ENQ\EOT\DC2\STX\NUL\ETX\DC2\EOT\171\EOT!\"\n\
\\f\n\
\\EOT\EOT\DC2\STX\SOH\DC2\EOT\173\EOT\EOT'\n\
\\r\n\
\\ENQ\EOT\DC2\STX\SOH\ENQ\DC2\EOT\173\EOT\EOT\b\n\
\\r\n\
\\ENQ\EOT\DC2\STX\SOH\SOH\DC2\EOT\173\EOT\t\"\n\
\\r\n\
\\ENQ\EOT\DC2\STX\SOH\ETX\DC2\EOT\173\EOT%&\n\
\\212\SOH\n\
\\EOT\EOT\DC2\STX\STX\DC2\EOT\180\EOT\EOT$\SUB\197\SOH\n\
\Override the requirement for being in dev mode by setting this to true and\n\
\confirming the user knows what they are doing and this is a potential foot\n\
\gun to lose funds if used on active channels.\n\
\\n\
\\r\n\
\\ENQ\EOT\DC2\STX\STX\ENQ\DC2\EOT\180\EOT\EOT\b\n\
\\r\n\
\\ENQ\EOT\DC2\STX\STX\SOH\DC2\EOT\180\EOT\t\US\n\
\\r\n\
\\ENQ\EOT\DC2\STX\STX\ETX\DC2\EOT\180\EOT\"#\n\
\\f\n\
\\STX\EOT\DC3\DC2\ACK\183\EOT\NUL\184\EOT\SOH\n\
\\v\n\
\\ETX\EOT\DC3\SOH\DC2\EOT\183\EOT\b\RS\n\
\\f\n\
\\STX\EOT\DC4\DC2\ACK\186\EOT\NUL\189\EOT\SOH\n\
\\v\n\
\\ETX\EOT\DC4\SOH\DC2\EOT\186\EOT\b\EM\n\
\\f\n\
\\EOT\EOT\DC4\STX\NUL\DC2\EOT\187\EOT\EOT\DC2\n\
\\r\n\
\\ENQ\EOT\DC4\STX\NUL\ENQ\DC2\EOT\187\EOT\EOT\b\n\
\\r\n\
\\ENQ\EOT\DC4\STX\NUL\SOH\DC2\EOT\187\EOT\t\r\n\
\\r\n\
\\ENQ\EOT\DC4\STX\NUL\ETX\DC2\EOT\187\EOT\DLE\DC1\n\
\\f\n\
\\EOT\EOT\DC4\STX\SOH\DC2\EOT\188\EOT\EOT\SUB\n\
\\r\n\
\\ENQ\EOT\DC4\STX\SOH\ENQ\DC2\EOT\188\EOT\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\DC4\STX\SOH\SOH\DC2\EOT\188\EOT\v\NAK\n\
\\r\n\
\\ENQ\EOT\DC4\STX\SOH\ETX\DC2\EOT\188\EOT\CAN\EM\n\
\\f\n\
\\STX\EOT\NAK\DC2\ACK\190\EOT\NUL\192\EOT\SOH\n\
\\v\n\
\\ETX\EOT\NAK\SOH\DC2\EOT\190\EOT\b\SUB\n\
\\f\n\
\\EOT\EOT\NAK\STX\NUL\DC2\EOT\191\EOT\EOT\ESC\n\
\\r\n\
\\ENQ\EOT\NAK\STX\NUL\ENQ\DC2\EOT\191\EOT\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\NAK\STX\NUL\SOH\DC2\EOT\191\EOT\v\SYN\n\
\\r\n\
\\ENQ\EOT\NAK\STX\NUL\ETX\DC2\EOT\191\EOT\EM\SUB\n\
\\f\n\
\\STX\EOT\SYN\DC2\ACK\194\EOT\NUL\197\EOT\SOH\n\
\\v\n\
\\ETX\EOT\SYN\SOH\DC2\EOT\194\EOT\b\DC4\n\
\8\n\
\\EOT\EOT\SYN\STX\NUL\DC2\EOT\196\EOT\EOT\ETB\SUB* The payment request string to be decoded\n\
\\n\
\\r\n\
\\ENQ\EOT\SYN\STX\NUL\ENQ\DC2\EOT\196\EOT\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\SYN\STX\NUL\SOH\DC2\EOT\196\EOT\v\DC2\n\
\\r\n\
\\ENQ\EOT\SYN\STX\NUL\ETX\DC2\EOT\196\EOT\NAK\SYN\n\
\\f\n\
\\STX\EOT\ETB\DC2\ACK\198\EOT\NUL\212\EOT\SOH\n\
\\v\n\
\\ETX\EOT\ETB\SOH\DC2\EOT\198\EOT\b\SO\n\
\\f\n\
\\EOT\EOT\ETB\STX\NUL\DC2\EOT\199\EOT\EOT\ESC\n\
\\r\n\
\\ENQ\EOT\ETB\STX\NUL\ENQ\DC2\EOT\199\EOT\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\ETB\STX\NUL\SOH\DC2\EOT\199\EOT\v\SYN\n\
\\r\n\
\\ENQ\EOT\ETB\STX\NUL\ETX\DC2\EOT\199\EOT\EM\SUB\n\
\\f\n\
\\EOT\EOT\ETB\STX\SOH\DC2\EOT\200\EOT\EOT\FS\n\
\\r\n\
\\ENQ\EOT\ETB\STX\SOH\ENQ\DC2\EOT\200\EOT\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\ETB\STX\SOH\SOH\DC2\EOT\200\EOT\v\ETB\n\
\\r\n\
\\ENQ\EOT\ETB\STX\SOH\ETX\DC2\EOT\200\EOT\SUB\ESC\n\
\\f\n\
\\EOT\EOT\ETB\STX\STX\DC2\EOT\201\EOT\EOT\ESC\n\
\\r\n\
\\ENQ\EOT\ETB\STX\STX\ENQ\DC2\EOT\201\EOT\EOT\t\n\
\\r\n\
\\ENQ\EOT\ETB\STX\STX\SOH\DC2\EOT\201\EOT\n\
\\SYN\n\
\\r\n\
\\ENQ\EOT\ETB\STX\STX\ETX\DC2\EOT\201\EOT\EM\SUB\n\
\\f\n\
\\EOT\EOT\ETB\STX\ETX\DC2\EOT\202\EOT\EOT\CAN\n\
\\r\n\
\\ENQ\EOT\ETB\STX\ETX\ENQ\DC2\EOT\202\EOT\EOT\t\n\
\\r\n\
\\ENQ\EOT\ETB\STX\ETX\SOH\DC2\EOT\202\EOT\n\
\\DC3\n\
\\r\n\
\\ENQ\EOT\ETB\STX\ETX\ETX\DC2\EOT\202\EOT\SYN\ETB\n\
\\f\n\
\\EOT\EOT\ETB\STX\EOT\DC2\EOT\203\EOT\EOT\NAK\n\
\\r\n\
\\ENQ\EOT\ETB\STX\EOT\ENQ\DC2\EOT\203\EOT\EOT\t\n\
\\r\n\
\\ENQ\EOT\ETB\STX\EOT\SOH\DC2\EOT\203\EOT\n\
\\DLE\n\
\\r\n\
\\ENQ\EOT\ETB\STX\EOT\ETX\DC2\EOT\203\EOT\DC3\DC4\n\
\\f\n\
\\EOT\EOT\ETB\STX\ENQ\DC2\EOT\204\EOT\EOT\ESC\n\
\\r\n\
\\ENQ\EOT\ETB\STX\ENQ\ENQ\DC2\EOT\204\EOT\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\ETB\STX\ENQ\SOH\DC2\EOT\204\EOT\v\SYN\n\
\\r\n\
\\ENQ\EOT\ETB\STX\ENQ\ETX\DC2\EOT\204\EOT\EM\SUB\n\
\\f\n\
\\EOT\EOT\ETB\STX\ACK\DC2\EOT\205\EOT\EOT \n\
\\r\n\
\\ENQ\EOT\ETB\STX\ACK\ENQ\DC2\EOT\205\EOT\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\ETB\STX\ACK\SOH\DC2\EOT\205\EOT\v\ESC\n\
\\r\n\
\\ENQ\EOT\ETB\STX\ACK\ETX\DC2\EOT\205\EOT\RS\US\n\
\\f\n\
\\EOT\EOT\ETB\STX\a\DC2\EOT\206\EOT\EOT\GS\n\
\\r\n\
\\ENQ\EOT\ETB\STX\a\ENQ\DC2\EOT\206\EOT\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\ETB\STX\a\SOH\DC2\EOT\206\EOT\v\CAN\n\
\\r\n\
\\ENQ\EOT\ETB\STX\a\ETX\DC2\EOT\206\EOT\ESC\FS\n\
\\f\n\
\\EOT\EOT\ETB\STX\b\DC2\EOT\207\EOT\EOT\SUB\n\
\\r\n\
\\ENQ\EOT\ETB\STX\b\ENQ\DC2\EOT\207\EOT\EOT\t\n\
\\r\n\
\\ENQ\EOT\ETB\STX\b\SOH\DC2\EOT\207\EOT\n\
\\NAK\n\
\\r\n\
\\ENQ\EOT\ETB\STX\b\ETX\DC2\EOT\207\EOT\CAN\EM\n\
\\f\n\
\\EOT\EOT\ETB\STX\t\DC2\EOT\208\EOT\EOT(\n\
\\r\n\
\\ENQ\EOT\ETB\STX\t\EOT\DC2\EOT\208\EOT\EOT\f\n\
\\r\n\
\\ENQ\EOT\ETB\STX\t\ACK\DC2\EOT\208\EOT\r\SYN\n\
\\r\n\
\\ENQ\EOT\ETB\STX\t\SOH\DC2\EOT\208\EOT\ETB\"\n\
\\r\n\
\\ENQ\EOT\ETB\STX\t\ETX\DC2\EOT\208\EOT%'\n\
\\f\n\
\\EOT\EOT\ETB\STX\n\
\\DC2\EOT\209\EOT\EOT\FS\n\
\\r\n\
\\ENQ\EOT\ETB\STX\n\
\\ENQ\DC2\EOT\209\EOT\EOT\t\n\
\\r\n\
\\ENQ\EOT\ETB\STX\n\
\\SOH\DC2\EOT\209\EOT\n\
\\SYN\n\
\\r\n\
\\ENQ\EOT\ETB\STX\n\
\\ETX\DC2\EOT\209\EOT\EM\ESC\n\
\\f\n\
\\EOT\EOT\ETB\STX\v\DC2\EOT\210\EOT\EOT\CAN\n\
\\r\n\
\\ENQ\EOT\ETB\STX\v\ENQ\DC2\EOT\210\EOT\EOT\t\n\
\\r\n\
\\ENQ\EOT\ETB\STX\v\SOH\DC2\EOT\210\EOT\n\
\\DC2\n\
\\r\n\
\\ENQ\EOT\ETB\STX\v\ETX\DC2\EOT\210\EOT\NAK\ETB\n\
\\f\n\
\\EOT\EOT\ETB\STX\f\DC2\EOT\211\EOT\EOT'\n\
\\r\n\
\\ENQ\EOT\ETB\STX\f\ACK\DC2\EOT\211\EOT\EOT\CAN\n\
\\r\n\
\\ENQ\EOT\ETB\STX\f\SOH\DC2\EOT\211\EOT\EM!\n\
\\r\n\
\\ENQ\EOT\ETB\STX\f\ETX\DC2\EOT\211\EOT$&\n\
\\f\n\
\\STX\EOT\CAN\DC2\ACK\214\EOT\NUL\215\EOT\SOH\n\
\\v\n\
\\ETX\EOT\CAN\SOH\DC2\EOT\214\EOT\b\CAN\n\
\\f\n\
\\STX\EOT\EM\DC2\ACK\216\EOT\NUL\233\EOT\SOH\n\
\\v\n\
\\ETX\EOT\EM\SOH\DC2\EOT\216\EOT\b\CAN\n\
\E\n\
\\EOT\EOT\EM\STX\NUL\DC2\EOT\218\EOT\EOT,\SUB7 The short channel id that this fee report belongs to.\n\
\\n\
\\r\n\
\\ENQ\EOT\EM\STX\NUL\ENQ\DC2\EOT\218\EOT\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\EM\STX\NUL\SOH\DC2\EOT\218\EOT\v\DC2\n\
\\r\n\
\\ENQ\EOT\EM\STX\NUL\ETX\DC2\EOT\218\EOT\NAK\SYN\n\
\\r\n\
\\ENQ\EOT\EM\STX\NUL\b\DC2\EOT\218\EOT\ETB+\n\
\\SO\n\
\\ACK\EOT\EM\STX\NUL\b\ACK\DC2\EOT\218\EOT\CAN*\n\
\<\n\
\\EOT\EOT\EM\STX\SOH\DC2\EOT\221\EOT\EOT\GS\SUB. The channel that this fee report belongs to.\n\
\\n\
\\r\n\
\\ENQ\EOT\EM\STX\SOH\ENQ\DC2\EOT\221\EOT\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\EM\STX\SOH\SOH\DC2\EOT\221\EOT\v\CAN\n\
\\r\n\
\\ENQ\EOT\EM\STX\SOH\ETX\DC2\EOT\221\EOT\ESC\FS\n\
\U\n\
\\EOT\EOT\EM\STX\STX\DC2\EOT\224\EOT\EOT\FS\SUBG The base fee charged regardless of the number of milli-satoshis sent.\n\
\\n\
\\r\n\
\\ENQ\EOT\EM\STX\STX\ENQ\DC2\EOT\224\EOT\EOT\t\n\
\\r\n\
\\ENQ\EOT\EM\STX\STX\SOH\DC2\EOT\224\EOT\n\
\\ETB\n\
\\r\n\
\\ENQ\EOT\EM\STX\STX\ETX\DC2\EOT\224\EOT\SUB\ESC\n\
\h\n\
\\EOT\EOT\EM\STX\ETX\DC2\EOT\228\EOT\EOT\SUB\SUBZ The amount charged per milli-satoshis transferred expressed in\n\
\ millionths of a satoshi.\n\
\\n\
\\r\n\
\\ENQ\EOT\EM\STX\ETX\ENQ\DC2\EOT\228\EOT\EOT\t\n\
\\r\n\
\\ENQ\EOT\EM\STX\ETX\SOH\DC2\EOT\228\EOT\n\
\\NAK\n\
\\r\n\
\\ENQ\EOT\EM\STX\ETX\ETX\DC2\EOT\228\EOT\CAN\EM\n\
\s\n\
\\EOT\EOT\EM\STX\EOT\DC2\EOT\232\EOT\EOT\CAN\SUBe The effective fee rate in milli-satoshis. Computed by dividing the\n\
\ fee_per_mil value by 1 million.\n\
\\n\
\\r\n\
\\ENQ\EOT\EM\STX\EOT\ENQ\DC2\EOT\232\EOT\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\EM\STX\EOT\SOH\DC2\EOT\232\EOT\v\DC3\n\
\\r\n\
\\ENQ\EOT\EM\STX\EOT\ETX\DC2\EOT\232\EOT\SYN\ETB\n\
\\f\n\
\\STX\EOT\SUB\DC2\ACK\234\EOT\NUL\250\EOT\SOH\n\
\\v\n\
\\ETX\EOT\SUB\SOH\DC2\EOT\234\EOT\b\EM\n\
\k\n\
\\EOT\EOT\SUB\STX\NUL\DC2\EOT\237\EOT\EOT/\SUB] An array of channel fee reports which describes the current fee schedule\n\
\ for each channel.\n\
\\n\
\\r\n\
\\ENQ\EOT\SUB\STX\NUL\EOT\DC2\EOT\237\EOT\EOT\f\n\
\\r\n\
\\ENQ\EOT\SUB\STX\NUL\ACK\DC2\EOT\237\EOT\r\GS\n\
\\r\n\
\\ENQ\EOT\SUB\STX\NUL\SOH\DC2\EOT\237\EOT\RS*\n\
\\r\n\
\\ENQ\EOT\SUB\STX\NUL\ETX\DC2\EOT\237\EOT-.\n\
\m\n\
\\EOT\EOT\SUB\STX\SOH\DC2\EOT\241\EOT\EOT\ESC\SUB_ The total amount of fee revenue (in satoshis) the switch has collected\n\
\ over the past 24 hrs.\n\
\\n\
\\r\n\
\\ENQ\EOT\SUB\STX\SOH\ENQ\DC2\EOT\241\EOT\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\SUB\STX\SOH\SOH\DC2\EOT\241\EOT\v\SYN\n\
\\r\n\
\\ENQ\EOT\SUB\STX\SOH\ETX\DC2\EOT\241\EOT\EM\SUB\n\
\m\n\
\\EOT\EOT\SUB\STX\STX\DC2\EOT\245\EOT\EOT\FS\SUB_ The total amount of fee revenue (in satoshis) the switch has collected\n\
\ over the past 1 week.\n\
\\n\
\\r\n\
\\ENQ\EOT\SUB\STX\STX\ENQ\DC2\EOT\245\EOT\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\SUB\STX\STX\SOH\DC2\EOT\245\EOT\v\ETB\n\
\\r\n\
\\ENQ\EOT\SUB\STX\STX\ETX\DC2\EOT\245\EOT\SUB\ESC\n\
\n\n\
\\EOT\EOT\SUB\STX\ETX\DC2\EOT\249\EOT\EOT\GS\SUB` The total amount of fee revenue (in satoshis) the switch has collected\n\
\ over the past 1 month.\n\
\\n\
\\r\n\
\\ENQ\EOT\SUB\STX\ETX\ENQ\DC2\EOT\249\EOT\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\SUB\STX\ETX\SOH\DC2\EOT\249\EOT\v\CAN\n\
\\r\n\
\\ENQ\EOT\SUB\STX\ETX\ETX\DC2\EOT\249\EOT\ESC\FS\n\
\\f\n\
\\STX\EOT\ESC\DC2\ACK\252\EOT\NUL\153\ENQ\SOH\n\
\\v\n\
\\ETX\EOT\ESC\SOH\DC2\EOT\252\EOT\b\ESC\n\
\\SO\n\
\\EOT\EOT\ESC\b\NUL\DC2\ACK\253\EOT\EOT\131\ENQ\ENQ\n\
\\r\n\
\\ENQ\EOT\ESC\b\NUL\SOH\DC2\EOT\253\EOT\n\
\\SI\n\
\R\n\
\\EOT\EOT\ESC\STX\NUL\DC2\EOT\255\EOT\b\CAN\SUBD If set, then this update applies to all currently active channels.\n\
\\n\
\\r\n\
\\ENQ\EOT\ESC\STX\NUL\ENQ\DC2\EOT\255\EOT\b\f\n\
\\r\n\
\\ENQ\EOT\ESC\STX\NUL\SOH\DC2\EOT\255\EOT\r\DC3\n\
\\r\n\
\\ENQ\EOT\ESC\STX\NUL\ETX\DC2\EOT\255\EOT\SYN\ETB\n\
\C\n\
\\EOT\EOT\ESC\STX\SOH\DC2\EOT\130\ENQ\b$\SUB5 If set, this update will target a specific channel.\n\
\\n\
\\r\n\
\\ENQ\EOT\ESC\STX\SOH\ACK\DC2\EOT\130\ENQ\b\DC4\n\
\\r\n\
\\ENQ\EOT\ESC\STX\SOH\SOH\DC2\EOT\130\ENQ\NAK\US\n\
\\r\n\
\\ENQ\EOT\ESC\STX\SOH\ETX\DC2\EOT\130\ENQ\"#\n\
\U\n\
\\EOT\EOT\ESC\STX\STX\DC2\EOT\134\ENQ\EOT\FS\SUBG The base fee charged regardless of the number of milli-satoshis sent.\n\
\\n\
\\r\n\
\\ENQ\EOT\ESC\STX\STX\ENQ\DC2\EOT\134\ENQ\EOT\t\n\
\\r\n\
\\ENQ\EOT\ESC\STX\STX\SOH\DC2\EOT\134\ENQ\n\
\\ETB\n\
\\r\n\
\\ENQ\EOT\ESC\STX\STX\ETX\DC2\EOT\134\ENQ\SUB\ESC\n\
\|\n\
\\EOT\EOT\ESC\STX\ETX\DC2\EOT\138\ENQ\EOT\CAN\SUBn The effective fee rate in milli-satoshis. The precision of this value\n\
\ goes up to 6 decimal places, so 1e-6.\n\
\\n\
\\r\n\
\\ENQ\EOT\ESC\STX\ETX\ENQ\DC2\EOT\138\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\ESC\STX\ETX\SOH\DC2\EOT\138\ENQ\v\DC3\n\
\\r\n\
\\ENQ\EOT\ESC\STX\ETX\ETX\DC2\EOT\138\ENQ\SYN\ETB\n\
\Q\n\
\\EOT\EOT\ESC\STX\EOT\DC2\EOT\141\ENQ\EOT\US\SUBC The required timelock delta for HTLCs forwarded over the channel.\n\
\\n\
\\r\n\
\\ENQ\EOT\ESC\STX\EOT\ENQ\DC2\EOT\141\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\ESC\STX\EOT\SOH\DC2\EOT\141\ENQ\v\SUB\n\
\\r\n\
\\ENQ\EOT\ESC\STX\EOT\ETX\DC2\EOT\141\ENQ\GS\RS\n\
\o\n\
\\EOT\EOT\ESC\STX\ENQ\DC2\EOT\145\ENQ\EOT\GS\SUBa If set, the maximum HTLC size in milli-satoshis. If unset, the maximum\n\
\ HTLC will be unchanged.\n\
\\n\
\\r\n\
\\ENQ\EOT\ESC\STX\ENQ\ENQ\DC2\EOT\145\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\ESC\STX\ENQ\SOH\DC2\EOT\145\ENQ\v\CAN\n\
\\r\n\
\\ENQ\EOT\ESC\STX\ENQ\ETX\DC2\EOT\145\ENQ\ESC\FS\n\
\j\n\
\\EOT\EOT\ESC\STX\ACK\DC2\EOT\149\ENQ\EOT\GS\SUB\\ The minimum HTLC size in milli-satoshis. Only applied if\n\
\ min_htlc_msat_specified is true.\n\
\\n\
\\r\n\
\\ENQ\EOT\ESC\STX\ACK\ENQ\DC2\EOT\149\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\ESC\STX\ACK\SOH\DC2\EOT\149\ENQ\v\CAN\n\
\\r\n\
\\ENQ\EOT\ESC\STX\ACK\ETX\DC2\EOT\149\ENQ\ESC\FS\n\
\2\n\
\\EOT\EOT\ESC\STX\a\DC2\EOT\152\ENQ\EOT%\SUB$ If true, min_htlc_msat is applied.\n\
\\n\
\\r\n\
\\ENQ\EOT\ESC\STX\a\ENQ\DC2\EOT\152\ENQ\EOT\b\n\
\\r\n\
\\ENQ\EOT\ESC\STX\a\SOH\DC2\EOT\152\ENQ\t \n\
\\r\n\
\\ENQ\EOT\ESC\STX\a\ETX\DC2\EOT\152\ENQ#$\n\
\\f\n\
\\STX\ENQ\STX\DC2\ACK\154\ENQ\NUL\160\ENQ\SOH\n\
\\v\n\
\\ETX\ENQ\STX\SOH\DC2\EOT\154\ENQ\ENQ\DC2\n\
\\f\n\
\\EOT\ENQ\STX\STX\NUL\DC2\EOT\155\ENQ\EOT\US\n\
\\r\n\
\\ENQ\ENQ\STX\STX\NUL\SOH\DC2\EOT\155\ENQ\EOT\SUB\n\
\\r\n\
\\ENQ\ENQ\STX\STX\NUL\STX\DC2\EOT\155\ENQ\GS\RS\n\
\\f\n\
\\EOT\ENQ\STX\STX\SOH\DC2\EOT\156\ENQ\EOT\US\n\
\\r\n\
\\ENQ\ENQ\STX\STX\SOH\SOH\DC2\EOT\156\ENQ\EOT\SUB\n\
\\r\n\
\\ENQ\ENQ\STX\STX\SOH\STX\DC2\EOT\156\ENQ\GS\RS\n\
\\f\n\
\\EOT\ENQ\STX\STX\STX\DC2\EOT\157\ENQ\EOT!\n\
\\r\n\
\\ENQ\ENQ\STX\STX\STX\SOH\DC2\EOT\157\ENQ\EOT\FS\n\
\\r\n\
\\ENQ\ENQ\STX\STX\STX\STX\DC2\EOT\157\ENQ\US \n\
\\f\n\
\\EOT\ENQ\STX\STX\ETX\DC2\EOT\158\ENQ\EOT$\n\
\\r\n\
\\ENQ\ENQ\STX\STX\ETX\SOH\DC2\EOT\158\ENQ\EOT\US\n\
\\r\n\
\\ENQ\ENQ\STX\STX\ETX\STX\DC2\EOT\158\ENQ\"#\n\
\\f\n\
\\EOT\ENQ\STX\STX\EOT\DC2\EOT\159\ENQ\EOT)\n\
\\r\n\
\\ENQ\ENQ\STX\STX\EOT\SOH\DC2\EOT\159\ENQ\EOT$\n\
\\r\n\
\\ENQ\ENQ\STX\STX\EOT\STX\DC2\EOT\159\ENQ'(\n\
\\f\n\
\\STX\EOT\FS\DC2\ACK\162\ENQ\NUL\171\ENQ\SOH\n\
\\v\n\
\\ETX\EOT\FS\SOH\DC2\EOT\162\ENQ\b\DC4\n\
\-\n\
\\EOT\EOT\FS\STX\NUL\DC2\EOT\164\ENQ\EOT\SUB\SUB\US The outpoint in format txid:n\n\
\\n\
\\r\n\
\\ENQ\EOT\FS\STX\NUL\ACK\DC2\EOT\164\ENQ\EOT\f\n\
\\r\n\
\\ENQ\EOT\FS\STX\NUL\SOH\DC2\EOT\164\ENQ\r\NAK\n\
\\r\n\
\\ENQ\EOT\FS\STX\NUL\ETX\DC2\EOT\164\ENQ\CAN\EM\n\
\5\n\
\\EOT\EOT\FS\STX\SOH\DC2\EOT\167\ENQ\EOT\GS\SUB' Reason for the policy update failure.\n\
\\n\
\\r\n\
\\ENQ\EOT\FS\STX\SOH\ACK\DC2\EOT\167\ENQ\EOT\DC1\n\
\\r\n\
\\ENQ\EOT\FS\STX\SOH\SOH\DC2\EOT\167\ENQ\DC2\CAN\n\
\\r\n\
\\ENQ\EOT\FS\STX\SOH\ETX\DC2\EOT\167\ENQ\ESC\FS\n\
\C\n\
\\EOT\EOT\FS\STX\STX\DC2\EOT\170\ENQ\EOT\FS\SUB5 A string representation of the policy update error.\n\
\\n\
\\r\n\
\\ENQ\EOT\FS\STX\STX\ENQ\DC2\EOT\170\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\FS\STX\STX\SOH\DC2\EOT\170\ENQ\v\ETB\n\
\\r\n\
\\ENQ\EOT\FS\STX\STX\ETX\DC2\EOT\170\ENQ\SUB\ESC\n\
\\f\n\
\\STX\EOT\GS\DC2\ACK\173\ENQ\NUL\176\ENQ\SOH\n\
\\v\n\
\\ETX\EOT\GS\SOH\DC2\EOT\173\ENQ\b\FS\n\
\.\n\
\\EOT\EOT\GS\STX\NUL\DC2\EOT\175\ENQ\EOT-\SUB List of failed policy updates.\n\
\\n\
\\r\n\
\\ENQ\EOT\GS\STX\NUL\EOT\DC2\EOT\175\ENQ\EOT\f\n\
\\r\n\
\\ENQ\EOT\GS\STX\NUL\ACK\DC2\EOT\175\ENQ\r\EM\n\
\\r\n\
\\ENQ\EOT\GS\STX\NUL\SOH\DC2\EOT\175\ENQ\SUB(\n\
\\r\n\
\\ENQ\EOT\GS\STX\NUL\ETX\DC2\EOT\175\ENQ+,\n\
\\f\n\
\\STX\EOT\RS\DC2\ACK\178\ENQ\NUL\196\ENQ\SOH\n\
\\v\n\
\\ETX\EOT\RS\SOH\DC2\EOT\178\ENQ\b \n\
\\181\SOH\n\
\\EOT\EOT\RS\STX\NUL\DC2\EOT\182\ENQ\EOT\SUB\SUB\166\SOH Start time is the starting point of the forwarding history request. All\n\
\ records beyond this point will be included, respecting the end time, and\n\
\ the index offset.\n\
\\n\
\\r\n\
\\ENQ\EOT\RS\STX\NUL\ENQ\DC2\EOT\182\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\RS\STX\NUL\SOH\DC2\EOT\182\ENQ\v\NAK\n\
\\r\n\
\\ENQ\EOT\RS\STX\NUL\ETX\DC2\EOT\182\ENQ\CAN\EM\n\
\\218\SOH\n\
\\EOT\EOT\RS\STX\SOH\DC2\EOT\187\ENQ\EOT\CAN\SUB\203\SOH End time is the end point of the forwarding history request. The\n\
\ response will carry at most 50k records between the start time and the\n\
\ end time. The index offset can be used to implement pagination.\n\
\\n\
\\r\n\
\\ENQ\EOT\RS\STX\SOH\ENQ\DC2\EOT\187\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\RS\STX\SOH\SOH\DC2\EOT\187\ENQ\v\DC3\n\
\\r\n\
\\ENQ\EOT\RS\STX\SOH\ETX\DC2\EOT\187\ENQ\SYN\ETB\n\
\\189\SOH\n\
\\EOT\EOT\RS\STX\STX\DC2\EOT\192\ENQ\EOT\FS\SUB\174\SOH Index offset is the offset in the time series to start at. As each\n\
\ response can only contain 50k records, callers can use this to skip\n\
\ around within a packed time series.\n\
\\n\
\\r\n\
\\ENQ\EOT\RS\STX\STX\ENQ\DC2\EOT\192\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\RS\STX\STX\SOH\DC2\EOT\192\ENQ\v\ETB\n\
\\r\n\
\\ENQ\EOT\RS\STX\STX\ETX\DC2\EOT\192\ENQ\SUB\ESC\n\
\Q\n\
\\EOT\EOT\RS\STX\ETX\DC2\EOT\195\ENQ\EOT\RS\SUBC The max number of events to return in the response to this query.\n\
\\n\
\\r\n\
\\ENQ\EOT\RS\STX\ETX\ENQ\DC2\EOT\195\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\RS\STX\ETX\SOH\DC2\EOT\195\ENQ\v\EM\n\
\\r\n\
\\ENQ\EOT\RS\STX\ETX\ETX\DC2\EOT\195\ENQ\FS\GS\n\
\\f\n\
\\STX\EOT\US\DC2\ACK\197\ENQ\NUL\238\ENQ\SOH\n\
\\v\n\
\\ETX\EOT\US\SOH\DC2\EOT\197\ENQ\b\ETB\n\
\w\n\
\\EOT\EOT\US\STX\NUL\DC2\EOT\200\ENQ\EOT-\SUBi Timestamp is the time (unix epoch offset) that this circuit was\n\
\ completed. Deprecated by timestamp_ns.\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\NUL\ENQ\DC2\EOT\200\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\NUL\SOH\DC2\EOT\200\ENQ\v\DC4\n\
\\r\n\
\\ENQ\EOT\US\STX\NUL\ETX\DC2\EOT\200\ENQ\ETB\CAN\n\
\\r\n\
\\ENQ\EOT\US\STX\NUL\b\DC2\EOT\200\ENQ\EM,\n\
\\SO\n\
\\ACK\EOT\US\STX\NUL\b\ETX\DC2\EOT\200\ENQ\SUB+\n\
\W\n\
\\EOT\EOT\US\STX\SOH\DC2\EOT\203\ENQ\EOT/\SUBI The incoming channel ID that carried the HTLC that created the circuit.\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\SOH\ENQ\DC2\EOT\203\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\SOH\SOH\DC2\EOT\203\ENQ\v\NAK\n\
\\r\n\
\\ENQ\EOT\US\STX\SOH\ETX\DC2\EOT\203\ENQ\CAN\EM\n\
\\r\n\
\\ENQ\EOT\US\STX\SOH\b\DC2\EOT\203\ENQ\SUB.\n\
\\SO\n\
\\ACK\EOT\US\STX\SOH\b\ACK\DC2\EOT\203\ENQ\ESC-\n\
\^\n\
\\EOT\EOT\US\STX\STX\DC2\EOT\207\ENQ\EOT0\SUBP The outgoing channel ID that carried the preimage that completed the\n\
\ circuit.\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\STX\ENQ\DC2\EOT\207\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\STX\SOH\DC2\EOT\207\ENQ\v\SYN\n\
\\r\n\
\\ENQ\EOT\US\STX\STX\ETX\DC2\EOT\207\ENQ\EM\SUB\n\
\\r\n\
\\ENQ\EOT\US\STX\STX\b\DC2\EOT\207\ENQ\ESC/\n\
\\SO\n\
\\ACK\EOT\US\STX\STX\b\ACK\DC2\EOT\207\ENQ\FS.\n\
\c\n\
\\EOT\EOT\US\STX\ETX\DC2\EOT\211\ENQ\EOT\SYN\SUBU The total amount (in satoshis) of the incoming HTLC that created half\n\
\ the circuit.\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\ETX\ENQ\DC2\EOT\211\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\ETX\SOH\DC2\EOT\211\ENQ\v\DC1\n\
\\r\n\
\\ENQ\EOT\US\STX\ETX\ETX\DC2\EOT\211\ENQ\DC4\NAK\n\
\q\n\
\\EOT\EOT\US\STX\EOT\DC2\EOT\215\ENQ\EOT\ETB\SUBc The total amount (in satoshis) of the outgoing HTLC that created the\n\
\ second half of the circuit.\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\EOT\ENQ\DC2\EOT\215\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\EOT\SOH\DC2\EOT\215\ENQ\v\DC2\n\
\\r\n\
\\ENQ\EOT\US\STX\EOT\ETX\DC2\EOT\215\ENQ\NAK\SYN\n\
\N\n\
\\EOT\EOT\US\STX\ENQ\DC2\EOT\218\ENQ\EOT\DC3\SUB@ The total fee (in satoshis) that this payment circuit carried.\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\ENQ\ENQ\DC2\EOT\218\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\ENQ\SOH\DC2\EOT\218\ENQ\v\SO\n\
\\r\n\
\\ENQ\EOT\US\STX\ENQ\ETX\DC2\EOT\218\ENQ\DC1\DC2\n\
\T\n\
\\EOT\EOT\US\STX\ACK\DC2\EOT\221\ENQ\EOT\CAN\SUBF The total fee (in milli-satoshis) that this payment circuit carried.\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\ACK\ENQ\DC2\EOT\221\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\ACK\SOH\DC2\EOT\221\ENQ\v\DC3\n\
\\r\n\
\\ENQ\EOT\US\STX\ACK\ETX\DC2\EOT\221\ENQ\SYN\ETB\n\
\i\n\
\\EOT\EOT\US\STX\a\DC2\EOT\225\ENQ\EOT\ESC\SUB[ The total amount (in milli-satoshis) of the incoming HTLC that created\n\
\ half the circuit.\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\a\ENQ\DC2\EOT\225\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\a\SOH\DC2\EOT\225\ENQ\v\SYN\n\
\\r\n\
\\ENQ\EOT\US\STX\a\ETX\DC2\EOT\225\ENQ\EM\SUB\n\
\w\n\
\\EOT\EOT\US\STX\b\DC2\EOT\229\ENQ\EOT\GS\SUBi The total amount (in milli-satoshis) of the outgoing HTLC that created\n\
\ the second half of the circuit.\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\b\ENQ\DC2\EOT\229\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\b\SOH\DC2\EOT\229\ENQ\v\ETB\n\
\\r\n\
\\ENQ\EOT\US\STX\b\ETX\DC2\EOT\229\ENQ\SUB\FS\n\
\m\n\
\\EOT\EOT\US\STX\t\DC2\EOT\233\ENQ\EOT\GS\SUB_ The number of nanoseconds elapsed since January 1, 1970 UTC when this\n\
\ circuit was completed.\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\t\ENQ\DC2\EOT\233\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\US\STX\t\SOH\DC2\EOT\233\ENQ\v\ETB\n\
\\r\n\
\\ENQ\EOT\US\STX\t\ETX\DC2\EOT\233\ENQ\SUB\FS\n\
\\f\n\
\\STX\EOT \DC2\ACK\239\ENQ\NUL\247\ENQ\SOH\n\
\\v\n\
\\ETX\EOT \SOH\DC2\EOT\239\ENQ\b!\n\
\m\n\
\\EOT\EOT \STX\NUL\DC2\EOT\242\ENQ\EOT3\SUB_ A list of forwarding events from the time slice of the time series\n\
\ specified in the request.\n\
\\n\
\\r\n\
\\ENQ\EOT \STX\NUL\EOT\DC2\EOT\242\ENQ\EOT\f\n\
\\r\n\
\\ENQ\EOT \STX\NUL\ACK\DC2\EOT\242\ENQ\r\FS\n\
\\r\n\
\\ENQ\EOT \STX\NUL\SOH\DC2\EOT\242\ENQ\GS.\n\
\\r\n\
\\ENQ\EOT \STX\NUL\ETX\DC2\EOT\242\ENQ12\n\
\\132\SOH\n\
\\EOT\EOT \STX\SOH\DC2\EOT\246\ENQ\EOT!\SUBv The index of the last time in the set of returned forwarding events. Can\n\
\ be used to seek further, pagination style.\n\
\\n\
\\r\n\
\\ENQ\EOT \STX\SOH\ENQ\DC2\EOT\246\ENQ\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT \STX\SOH\SOH\DC2\EOT\246\ENQ\v\FS\n\
\\r\n\
\\ENQ\EOT \STX\SOH\ETX\DC2\EOT\246\ENQ\US \n\
\\f\n\
\\STX\EOT!\DC2\ACK\249\ENQ\NUL\252\ENQ\SOH\n\
\\v\n\
\\ETX\EOT!\SOH\DC2\EOT\249\ENQ\b\"\n\
\A\n\
\\EOT\EOT!\STX\NUL\DC2\EOT\251\ENQ\EOT \SUB3 The target channel point to obtain a back up for.\n\
\\n\
\\r\n\
\\ENQ\EOT!\STX\NUL\ACK\DC2\EOT\251\ENQ\EOT\DLE\n\
\\r\n\
\\ENQ\EOT!\STX\NUL\SOH\DC2\EOT\251\ENQ\DC1\ESC\n\
\\r\n\
\\ENQ\EOT!\STX\NUL\ETX\DC2\EOT\251\ENQ\RS\US\n\
\\f\n\
\\STX\EOT\"\DC2\ACK\254\ENQ\NUL\139\ACK\SOH\n\
\\v\n\
\\ETX\EOT\"\SOH\DC2\EOT\254\ENQ\b\NAK\n\
\C\n\
\\EOT\EOT\"\STX\NUL\DC2\EOT\130\ACK\EOT \SUB5\n\
\Identifies the channel that this backup belongs to.\n\
\\n\
\\r\n\
\\ENQ\EOT\"\STX\NUL\ACK\DC2\EOT\130\ACK\EOT\DLE\n\
\\r\n\
\\ENQ\EOT\"\STX\NUL\SOH\DC2\EOT\130\ACK\DC1\ESC\n\
\\r\n\
\\ENQ\EOT\"\STX\NUL\ETX\DC2\EOT\130\ACK\RS\US\n\
\\241\SOH\n\
\\EOT\EOT\"\STX\SOH\DC2\EOT\138\ACK\EOT\SUB\SUB\226\SOH\n\
\Is an encrypted single-chan backup. this can be passed to\n\
\RestoreChannelBackups, or the WalletUnlocker Init and Unlock methods in\n\
\order to trigger the recovery protocol. When using REST, this field must be\n\
\encoded as base64.\n\
\\n\
\\r\n\
\\ENQ\EOT\"\STX\SOH\ENQ\DC2\EOT\138\ACK\EOT\t\n\
\\r\n\
\\ENQ\EOT\"\STX\SOH\SOH\DC2\EOT\138\ACK\n\
\\NAK\n\
\\r\n\
\\ENQ\EOT\"\STX\SOH\ETX\DC2\EOT\138\ACK\CAN\EM\n\
\\f\n\
\\STX\EOT#\DC2\ACK\141\ACK\NUL\154\ACK\SOH\n\
\\v\n\
\\ETX\EOT#\SOH\DC2\EOT\141\ACK\b\ETB\n\
\Z\n\
\\EOT\EOT#\STX\NUL\DC2\EOT\145\ACK\EOT*\SUBL\n\
\Is the set of all channels that are included in this multi-channel backup.\n\
\\n\
\\r\n\
\\ENQ\EOT#\STX\NUL\EOT\DC2\EOT\145\ACK\EOT\f\n\
\\r\n\
\\ENQ\EOT#\STX\NUL\ACK\DC2\EOT\145\ACK\r\EM\n\
\\r\n\
\\ENQ\EOT#\STX\NUL\SOH\DC2\EOT\145\ACK\SUB%\n\
\\r\n\
\\ENQ\EOT#\STX\NUL\ETX\DC2\EOT\145\ACK()\n\
\\138\STX\n\
\\EOT\EOT#\STX\SOH\DC2\EOT\153\ACK\EOT \SUB\251\SOH\n\
\A single encrypted blob containing all the static channel backups of the\n\
\channel listed above. This can be stored as a single file or blob, and\n\
\safely be replaced with any prior/future versions. When using REST, this\n\
\field must be encoded as base64.\n\
\\n\
\\r\n\
\\ENQ\EOT#\STX\SOH\ENQ\DC2\EOT\153\ACK\EOT\t\n\
\\r\n\
\\ENQ\EOT#\STX\SOH\SOH\DC2\EOT\153\ACK\n\
\\ESC\n\
\\r\n\
\\ENQ\EOT#\STX\SOH\ETX\DC2\EOT\153\ACK\RS\US\n\
\\f\n\
\\STX\EOT$\DC2\ACK\156\ACK\NUL\157\ACK\SOH\n\
\\v\n\
\\ETX\EOT$\SOH\DC2\EOT\156\ACK\b\US\n\
\\f\n\
\\STX\EOT%\DC2\ACK\158\ACK\NUL\170\ACK\SOH\n\
\\v\n\
\\ETX\EOT%\SOH\DC2\EOT\158\ACK\b\SUB\n\
\r\n\
\\EOT\EOT%\STX\NUL\DC2\EOT\163\ACK\EOT+\SUBd\n\
\The set of new channels that have been added since the last channel backup\n\
\snapshot was requested.\n\
\\n\
\\r\n\
\\ENQ\EOT%\STX\NUL\ACK\DC2\EOT\163\ACK\EOT\DC2\n\
\\r\n\
\\ENQ\EOT%\STX\NUL\SOH\DC2\EOT\163\ACK\DC3&\n\
\\r\n\
\\ENQ\EOT%\STX\NUL\ETX\DC2\EOT\163\ACK)*\n\
\\\\n\
\\EOT\EOT%\STX\SOH\DC2\EOT\169\ACK\EOT*\SUBN\n\
\A multi-channel backup that covers all open channels currently known to\n\
\lnd.\n\
\\n\
\\r\n\
\\ENQ\EOT%\STX\SOH\ACK\DC2\EOT\169\ACK\EOT\DC3\n\
\\r\n\
\\ENQ\EOT%\STX\SOH\SOH\DC2\EOT\169\ACK\DC4%\n\
\\r\n\
\\ENQ\EOT%\STX\SOH\ETX\DC2\EOT\169\ACK()\n\
\\f\n\
\\STX\EOT&\DC2\ACK\172\ACK\NUL\177\ACK\SOH\n\
\\v\n\
\\ETX\EOT&\SOH\DC2\EOT\172\ACK\b\SYN\n\
\<\n\
\\EOT\EOT&\STX\NUL\DC2\EOT\176\ACK\EOT,\SUB.\n\
\A set of single-chan static channel backups.\n\
\\n\
\\r\n\
\\ENQ\EOT&\STX\NUL\EOT\DC2\EOT\176\ACK\EOT\f\n\
\\r\n\
\\ENQ\EOT&\STX\NUL\ACK\DC2\EOT\176\ACK\r\SUB\n\
\\r\n\
\\ENQ\EOT&\STX\NUL\SOH\DC2\EOT\176\ACK\ESC'\n\
\\r\n\
\\ENQ\EOT&\STX\NUL\ETX\DC2\EOT\176\ACK*+\n\
\\f\n\
\\STX\EOT'\DC2\ACK\179\ACK\NUL\192\ACK\SOH\n\
\\v\n\
\\ETX\EOT'\SOH\DC2\EOT\179\ACK\b \n\
\\SO\n\
\\EOT\EOT'\b\NUL\DC2\ACK\180\ACK\EOT\191\ACK\ENQ\n\
\\r\n\
\\ENQ\EOT'\b\NUL\SOH\DC2\EOT\180\ACK\n\
\\DLE\n\
\J\n\
\\EOT\EOT'\STX\NUL\DC2\EOT\184\ACK\b(\SUB<\n\
\The channels to restore as a list of channel/backup pairs.\n\
\\n\
\\r\n\
\\ENQ\EOT'\STX\NUL\ACK\DC2\EOT\184\ACK\b\SYN\n\
\\r\n\
\\ENQ\EOT'\STX\NUL\SOH\DC2\EOT\184\ACK\ETB#\n\
\\r\n\
\\ENQ\EOT'\STX\NUL\ETX\DC2\EOT\184\ACK&'\n\
\\129\SOH\n\
\\EOT\EOT'\STX\SOH\DC2\EOT\190\ACK\b$\SUBs\n\
\The channels to restore in the packed multi backup format. When using\n\
\REST, this field must be encoded as base64.\n\
\\n\
\\r\n\
\\ENQ\EOT'\STX\SOH\ENQ\DC2\EOT\190\ACK\b\r\n\
\\r\n\
\\ENQ\EOT'\STX\SOH\SOH\DC2\EOT\190\ACK\SO\US\n\
\\r\n\
\\ENQ\EOT'\STX\SOH\ETX\DC2\EOT\190\ACK\"#\n\
\\f\n\
\\STX\EOT(\DC2\ACK\193\ACK\NUL\194\ACK\SOH\n\
\\v\n\
\\ETX\EOT(\SOH\DC2\EOT\193\ACK\b\GS\n\
\\f\n\
\\STX\EOT)\DC2\ACK\196\ACK\NUL\197\ACK\SOH\n\
\\v\n\
\\ETX\EOT)\SOH\DC2\EOT\196\ACK\b!\n\
\\f\n\
\\STX\EOT*\DC2\ACK\199\ACK\NUL\200\ACK\SOH\n\
\\v\n\
\\ETX\EOT*\SOH\DC2\EOT\199\ACK\b \n\
\\f\n\
\\STX\EOT+\DC2\ACK\202\ACK\NUL\208\ACK\SOH\n\
\\v\n\
\\ETX\EOT+\SOH\DC2\EOT\202\ACK\b\SUB\n\
\9\n\
\\EOT\EOT+\STX\NUL\DC2\EOT\204\ACK\EOT\SYN\SUB+ The entity a permission grants access to.\n\
\\n\
\\r\n\
\\ENQ\EOT+\STX\NUL\ENQ\DC2\EOT\204\ACK\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT+\STX\NUL\SOH\DC2\EOT\204\ACK\v\DC1\n\
\\r\n\
\\ENQ\EOT+\STX\NUL\ETX\DC2\EOT\204\ACK\DC4\NAK\n\
\+\n\
\\EOT\EOT+\STX\SOH\DC2\EOT\207\ACK\EOT\SYN\SUB\GS The action that is granted.\n\
\\n\
\\r\n\
\\ENQ\EOT+\STX\SOH\ENQ\DC2\EOT\207\ACK\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT+\STX\SOH\SOH\DC2\EOT\207\ACK\v\DC1\n\
\\r\n\
\\ENQ\EOT+\STX\SOH\ETX\DC2\EOT\207\ACK\DC4\NAK\n\
\\f\n\
\\STX\EOT,\DC2\ACK\209\ACK\NUL\221\ACK\SOH\n\
\\v\n\
\\ETX\EOT,\SOH\DC2\EOT\209\ACK\b\ESC\n\
\F\n\
\\EOT\EOT,\STX\NUL\DC2\EOT\211\ACK\EOT0\SUB8 The list of permissions the new macaroon should grant.\n\
\\n\
\\r\n\
\\ENQ\EOT,\STX\NUL\EOT\DC2\EOT\211\ACK\EOT\f\n\
\\r\n\
\\ENQ\EOT,\STX\NUL\ACK\DC2\EOT\211\ACK\r\US\n\
\\r\n\
\\ENQ\EOT,\STX\NUL\SOH\DC2\EOT\211\ACK +\n\
\\r\n\
\\ENQ\EOT,\STX\NUL\ETX\DC2\EOT\211\ACK./\n\
\X\n\
\\EOT\EOT,\STX\SOH\DC2\EOT\214\ACK\EOT\ESC\SUBJ The root key ID used to create the macaroon, must be a positive integer.\n\
\\n\
\\r\n\
\\ENQ\EOT,\STX\SOH\ENQ\DC2\EOT\214\ACK\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT,\STX\SOH\SOH\DC2\EOT\214\ACK\v\SYN\n\
\\r\n\
\\ENQ\EOT,\STX\SOH\ETX\DC2\EOT\214\ACK\EM\SUB\n\
\b\n\
\\EOT\EOT,\STX\STX\DC2\EOT\220\ACK\EOT(\SUBT\n\
\Informs the RPC on whether to allow external permissions that LND is not\n\
\aware of.\n\
\\n\
\\r\n\
\\ENQ\EOT,\STX\STX\ENQ\DC2\EOT\220\ACK\EOT\b\n\
\\r\n\
\\ENQ\EOT,\STX\STX\SOH\DC2\EOT\220\ACK\t#\n\
\\r\n\
\\ENQ\EOT,\STX\STX\ETX\DC2\EOT\220\ACK&'\n\
\\f\n\
\\STX\EOT-\DC2\ACK\222\ACK\NUL\225\ACK\SOH\n\
\\v\n\
\\ETX\EOT-\SOH\DC2\EOT\222\ACK\b\FS\n\
\F\n\
\\EOT\EOT-\STX\NUL\DC2\EOT\224\ACK\EOT\CAN\SUB8 The hex encoded macaroon, serialized in binary format.\n\
\\n\
\\r\n\
\\ENQ\EOT-\STX\NUL\ENQ\DC2\EOT\224\ACK\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT-\STX\NUL\SOH\DC2\EOT\224\ACK\v\DC3\n\
\\r\n\
\\ENQ\EOT-\STX\NUL\ETX\DC2\EOT\224\ACK\SYN\ETB\n\
\\f\n\
\\STX\EOT.\DC2\ACK\227\ACK\NUL\228\ACK\SOH\n\
\\v\n\
\\ETX\EOT.\SOH\DC2\EOT\227\ACK\b\RS\n\
\\f\n\
\\STX\EOT/\DC2\ACK\229\ACK\NUL\232\ACK\SOH\n\
\\v\n\
\\ETX\EOT/\SOH\DC2\EOT\229\ACK\b\US\n\
\9\n\
\\EOT\EOT/\STX\NUL\DC2\EOT\231\ACK\EOT%\SUB+ The list of root key IDs that are in use.\n\
\\n\
\\r\n\
\\ENQ\EOT/\STX\NUL\EOT\DC2\EOT\231\ACK\EOT\f\n\
\\r\n\
\\ENQ\EOT/\STX\NUL\ENQ\DC2\EOT\231\ACK\r\DC3\n\
\\r\n\
\\ENQ\EOT/\STX\NUL\SOH\DC2\EOT\231\ACK\DC4 \n\
\\r\n\
\\ENQ\EOT/\STX\NUL\ETX\DC2\EOT\231\ACK#$\n\
\\f\n\
\\STX\EOT0\DC2\ACK\234\ACK\NUL\237\ACK\SOH\n\
\\v\n\
\\ETX\EOT0\SOH\DC2\EOT\234\ACK\b\US\n\
\.\n\
\\EOT\EOT0\STX\NUL\DC2\EOT\236\ACK\EOT\ESC\SUB The root key ID to be removed.\n\
\\n\
\\r\n\
\\ENQ\EOT0\STX\NUL\ENQ\DC2\EOT\236\ACK\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT0\STX\NUL\SOH\DC2\EOT\236\ACK\v\SYN\n\
\\r\n\
\\ENQ\EOT0\STX\NUL\ETX\DC2\EOT\236\ACK\EM\SUB\n\
\\f\n\
\\STX\EOT1\DC2\ACK\238\ACK\NUL\241\ACK\SOH\n\
\\v\n\
\\ETX\EOT1\SOH\DC2\EOT\238\ACK\b \n\
\D\n\
\\EOT\EOT1\STX\NUL\DC2\EOT\240\ACK\EOT\NAK\SUB6 A boolean indicates that the deletion is successful.\n\
\\n\
\\r\n\
\\ENQ\EOT1\STX\NUL\ENQ\DC2\EOT\240\ACK\EOT\b\n\
\\r\n\
\\ENQ\EOT1\STX\NUL\SOH\DC2\EOT\240\ACK\t\DLE\n\
\\r\n\
\\ENQ\EOT1\STX\NUL\ETX\DC2\EOT\240\ACK\DC3\DC4\n\
\\f\n\
\\STX\EOT2\DC2\ACK\243\ACK\NUL\246\ACK\SOH\n\
\\v\n\
\\ETX\EOT2\SOH\DC2\EOT\243\ACK\b\RS\n\
\/\n\
\\EOT\EOT2\STX\NUL\DC2\EOT\245\ACK\EOT0\SUB! A list of macaroon permissions.\n\
\\n\
\\r\n\
\\ENQ\EOT2\STX\NUL\EOT\DC2\EOT\245\ACK\EOT\f\n\
\\r\n\
\\ENQ\EOT2\STX\NUL\ACK\DC2\EOT\245\ACK\r\US\n\
\\r\n\
\\ENQ\EOT2\STX\NUL\SOH\DC2\EOT\245\ACK +\n\
\\r\n\
\\ENQ\EOT2\STX\NUL\ETX\DC2\EOT\245\ACK./\n\
\\f\n\
\\STX\EOT3\DC2\ACK\248\ACK\NUL\249\ACK\SOH\n\
\\v\n\
\\ETX\EOT3\SOH\DC2\EOT\248\ACK\b\RS\n\
\\f\n\
\\STX\EOT4\DC2\ACK\250\ACK\NUL\128\a\SOH\n\
\\v\n\
\\ETX\EOT4\SOH\DC2\EOT\250\ACK\b\US\n\
\i\n\
\\EOT\EOT4\STX\NUL\DC2\EOT\255\ACK\EOT?\SUB[\n\
\A map between all RPC method URIs and their required macaroon permissions to\n\
\access them.\n\
\\n\
\\r\n\
\\ENQ\EOT4\STX\NUL\ACK\DC2\EOT\255\ACK\EOT'\n\
\\r\n\
\\ENQ\EOT4\STX\NUL\SOH\DC2\EOT\255\ACK(:\n\
\\r\n\
\\ENQ\EOT4\STX\NUL\ETX\DC2\EOT\255\ACK=>\n\
\\f\n\
\\STX\EOT5\DC2\ACK\130\a\NUL\209\a\SOH\n\
\\v\n\
\\ETX\EOT5\SOH\DC2\EOT\130\a\b\SI\n\
\\SO\n\
\\EOT\EOT5\EOT\NUL\DC2\ACK\131\a\EOT\179\a\ENQ\n\
\\r\n\
\\ENQ\EOT5\EOT\NUL\SOH\DC2\EOT\131\a\t\DC4\n\
\\184\SOH\n\
\\ACK\EOT5\EOT\NUL\STX\NUL\DC2\EOT\137\a\b\NAK\SUB\167\SOH\n\
\The numbers assigned in this enumeration match the failure codes as\n\
\defined in BOLT #4. Because protobuf 3 requires enums to start with 0,\n\
\a RESERVED value is added.\n\
\\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\NUL\SOH\DC2\EOT\137\a\b\DLE\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\NUL\STX\DC2\EOT\137\a\DC3\DC4\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\SOH\DC2\EOT\139\a\b1\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\SOH\SOH\DC2\EOT\139\a\b,\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\SOH\STX\DC2\EOT\139\a/0\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\STX\DC2\EOT\140\a\b%\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\STX\SOH\DC2\EOT\140\a\b \n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\STX\STX\DC2\EOT\140\a#$\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\ETX\DC2\EOT\141\a\b(\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\ETX\SOH\DC2\EOT\141\a\b#\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\ETX\STX\DC2\EOT\141\a&'\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\EOT\DC2\EOT\142\a\b(\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\EOT\SOH\DC2\EOT\142\a\b#\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\EOT\STX\DC2\EOT\142\a&'\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\ENQ\DC2\EOT\143\a\b\"\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\ENQ\SOH\DC2\EOT\143\a\b\GS\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\ENQ\STX\DC2\EOT\143\a !\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\ACK\DC2\EOT\144\a\b\SUB\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\ACK\SOH\DC2\EOT\144\a\b\NAK\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\ACK\STX\DC2\EOT\144\a\CAN\EM\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\a\DC2\EOT\145\a\b\FS\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\a\SOH\DC2\EOT\145\a\b\ETB\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\a\STX\DC2\EOT\145\a\SUB\ESC\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\b\DC2\EOT\146\a\b\"\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\b\SOH\DC2\EOT\146\a\b\GS\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\b\STX\DC2\EOT\146\a !\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\t\DC2\EOT\147\a\b\US\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\t\SOH\DC2\EOT\147\a\b\SUB\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\t\STX\DC2\EOT\147\a\GS\RS\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\n\
\\DC2\EOT\148\a\b\US\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\n\
\\SOH\DC2\EOT\148\a\b\EM\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\n\
\\STX\DC2\EOT\148\a\FS\RS\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\v\DC2\EOT\149\a\b\"\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\v\SOH\DC2\EOT\149\a\b\FS\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\v\STX\DC2\EOT\149\a\US!\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\f\DC2\EOT\150\a\b\RS\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\f\SOH\DC2\EOT\150\a\b\CAN\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\f\STX\DC2\EOT\150\a\ESC\GS\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\r\DC2\EOT\151\a\b#\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\r\SOH\DC2\EOT\151\a\b\GS\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\r\STX\DC2\EOT\151\a \"\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\SO\DC2\EOT\152\a\b\RS\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\SO\SOH\DC2\EOT\152\a\b\CAN\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\SO\STX\DC2\EOT\152\a\ESC\GS\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\SI\DC2\EOT\153\a\b'\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\SI\SOH\DC2\EOT\153\a\b!\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\SI\STX\DC2\EOT\153\a$&\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\DLE\DC2\EOT\154\a\b+\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\DLE\SOH\DC2\EOT\154\a\b%\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\DLE\STX\DC2\EOT\154\a(*\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\DC1\DC2\EOT\155\a\b.\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\DC1\SOH\DC2\EOT\155\a\b(\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\DC1\STX\DC2\EOT\155\a+-\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\DC2\DC2\EOT\156\a\b\US\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\DC2\SOH\DC2\EOT\156\a\b\EM\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\DC2\STX\DC2\EOT\156\a\FS\RS\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\DC3\DC2\EOT\157\a\b$\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\DC3\SOH\DC2\EOT\157\a\b\RS\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\DC3\STX\DC2\EOT\157\a!#\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\DC4\DC2\EOT\158\a\b$\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\DC4\SOH\DC2\EOT\158\a\b\RS\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\DC4\STX\DC2\EOT\158\a!#\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\NAK\DC2\EOT\159\a\b'\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\NAK\SOH\DC2\EOT\159\a\b!\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\NAK\STX\DC2\EOT\159\a$&\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\SYN\DC2\EOT\160\a\b\FS\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\SYN\SOH\DC2\EOT\160\a\b\SYN\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\SYN\STX\DC2\EOT\160\a\EM\ESC\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\ETB\DC2\EOT\161\a\b\EM\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\ETB\SOH\DC2\EOT\161\a\b\DC3\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\ETB\STX\DC2\EOT\161\a\SYN\CAN\n\
\\SO\n\
\\ACK\EOT5\EOT\NUL\STX\CAN\DC2\EOT\162\a\b#\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\CAN\SOH\DC2\EOT\162\a\b\GS\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\CAN\STX\DC2\EOT\162\a \"\n\
\-\n\
\\ACK\EOT5\EOT\NUL\STX\EM\DC2\EOT\167\a\b\US\SUB\GS\n\
\An internal error occurred.\n\
\\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\EM\SOH\DC2\EOT\167\a\b\CAN\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\EM\STX\DC2\EOT\167\a\ESC\RS\n\
\X\n\
\\ACK\EOT5\EOT\NUL\STX\SUB\DC2\EOT\172\a\b\RS\SUBH\n\
\The error source is known, but the failure itself couldn't be decoded.\n\
\\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\SUB\SOH\DC2\EOT\172\a\b\ETB\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\SUB\STX\DC2\EOT\172\a\SUB\GS\n\
\\154\SOH\n\
\\ACK\EOT5\EOT\NUL\STX\ESC\DC2\EOT\178\a\b!\SUB\137\SOH\n\
\An unreadable failure result is returned if the received failure message\n\
\cannot be decrypted. In that case the error source is unknown.\n\
\\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\ESC\SOH\DC2\EOT\178\a\b\SUB\n\
\\SI\n\
\\a\EOT5\EOT\NUL\STX\ESC\STX\DC2\EOT\178\a\GS \n\
\=\n\
\\EOT\EOT5\STX\NUL\DC2\EOT\182\a\EOT\EM\SUB/ Failure code as defined in the Lightning spec\n\
\\n\
\\r\n\
\\ENQ\EOT5\STX\NUL\ACK\DC2\EOT\182\a\EOT\SI\n\
\\r\n\
\\ENQ\EOT5\STX\NUL\SOH\DC2\EOT\182\a\DLE\DC4\n\
\\r\n\
\\ENQ\EOT5\STX\NUL\ETX\DC2\EOT\182\a\ETB\CAN\n\
\\v\n\
\\ETX\EOT5\t\DC2\EOT\184\a\EOT\SI\n\
\\f\n\
\\EOT\EOT5\t\NUL\DC2\EOT\184\a\r\SO\n\
\\r\n\
\\ENQ\EOT5\t\NUL\SOH\DC2\EOT\184\a\r\SO\n\
\\r\n\
\\ENQ\EOT5\t\NUL\STX\DC2\EOT\184\a\r\SO\n\
\3\n\
\\EOT\EOT5\STX\SOH\DC2\EOT\187\a\EOT%\SUB% An optional channel update message.\n\
\\n\
\\r\n\
\\ENQ\EOT5\STX\SOH\ACK\DC2\EOT\187\a\EOT\DC1\n\
\\r\n\
\\ENQ\EOT5\STX\SOH\SOH\DC2\EOT\187\a\DC2 \n\
\\r\n\
\\ENQ\EOT5\STX\SOH\ETX\DC2\EOT\187\a#$\n\
\4\n\
\\EOT\EOT5\STX\STX\DC2\EOT\190\a\EOT\EM\SUB& A failure type-dependent htlc value.\n\
\\n\
\\r\n\
\\ENQ\EOT5\STX\STX\ENQ\DC2\EOT\190\a\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT5\STX\STX\SOH\DC2\EOT\190\a\v\DC4\n\
\\r\n\
\\ENQ\EOT5\STX\STX\ETX\DC2\EOT\190\a\ETB\CAN\n\
\4\n\
\\EOT\EOT5\STX\ETX\DC2\EOT\193\a\EOT\FS\SUB& The sha256 sum of the onion payload.\n\
\\n\
\\r\n\
\\ENQ\EOT5\STX\ETX\ENQ\DC2\EOT\193\a\EOT\t\n\
\\r\n\
\\ENQ\EOT5\STX\ETX\SOH\DC2\EOT\193\a\n\
\\ETB\n\
\\r\n\
\\ENQ\EOT5\STX\ETX\ETX\DC2\EOT\193\a\SUB\ESC\n\
\;\n\
\\EOT\EOT5\STX\EOT\DC2\EOT\196\a\EOT\ESC\SUB- A failure type-dependent cltv expiry value.\n\
\\n\
\\r\n\
\\ENQ\EOT5\STX\EOT\ENQ\DC2\EOT\196\a\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT5\STX\EOT\SOH\DC2\EOT\196\a\v\SYN\n\
\\r\n\
\\ENQ\EOT5\STX\EOT\ETX\DC2\EOT\196\a\EM\SUB\n\
\5\n\
\\EOT\EOT5\STX\ENQ\DC2\EOT\199\a\EOT\NAK\SUB' A failure type-dependent flags value.\n\
\\n\
\\r\n\
\\ENQ\EOT5\STX\ENQ\ENQ\DC2\EOT\199\a\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT5\STX\ENQ\SOH\DC2\EOT\199\a\v\DLE\n\
\\r\n\
\\ENQ\EOT5\STX\ENQ\ETX\DC2\EOT\199\a\DC3\DC4\n\
\\145\SOH\n\
\\EOT\EOT5\STX\ACK\DC2\EOT\205\a\EOT$\SUB\130\SOH\n\
\The position in the path of the intermediate or final node that generated\n\
\the failure message. Position zero is the sender node.\n\
\\n\
\\r\n\
\\ENQ\EOT5\STX\ACK\ENQ\DC2\EOT\205\a\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT5\STX\ACK\SOH\DC2\EOT\205\a\v\US\n\
\\r\n\
\\ENQ\EOT5\STX\ACK\ETX\DC2\EOT\205\a\"#\n\
\6\n\
\\EOT\EOT5\STX\a\DC2\EOT\208\a\EOT\SYN\SUB( A failure type-dependent block height.\n\
\\n\
\\r\n\
\\ENQ\EOT5\STX\a\ENQ\DC2\EOT\208\a\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT5\STX\a\SOH\DC2\EOT\208\a\v\DC1\n\
\\r\n\
\\ENQ\EOT5\STX\a\ETX\DC2\EOT\208\a\DC4\NAK\n\
\\f\n\
\\STX\EOT6\DC2\ACK\211\a\NUL\164\b\SOH\n\
\\v\n\
\\ETX\EOT6\SOH\DC2\EOT\211\a\b\NAK\n\
\d\n\
\\EOT\EOT6\STX\NUL\DC2\EOT\216\a\EOT\CAN\SUBV\n\
\The signature that validates the announced data and proves the ownership\n\
\of node id.\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\NUL\ENQ\DC2\EOT\216\a\EOT\t\n\
\\r\n\
\\ENQ\EOT6\STX\NUL\SOH\DC2\EOT\216\a\n\
\\DC3\n\
\\r\n\
\\ENQ\EOT6\STX\NUL\ETX\DC2\EOT\216\a\SYN\ETB\n\
\\225\SOH\n\
\\EOT\EOT6\STX\SOH\DC2\EOT\224\a\EOT\EM\SUB\210\SOH\n\
\The target chain that this channel was opened within. This value\n\
\should be the genesis hash of the target chain. Along with the short\n\
\channel ID, this uniquely identifies the channel globally in a\n\
\blockchain.\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\SOH\ENQ\DC2\EOT\224\a\EOT\t\n\
\\r\n\
\\ENQ\EOT6\STX\SOH\SOH\DC2\EOT\224\a\n\
\\DC4\n\
\\r\n\
\\ENQ\EOT6\STX\SOH\ETX\DC2\EOT\224\a\ETB\CAN\n\
\B\n\
\\EOT\EOT6\STX\STX\DC2\EOT\229\a\EOT,\SUB4\n\
\The unique description of the funding transaction.\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\STX\ENQ\DC2\EOT\229\a\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\STX\SOH\DC2\EOT\229\a\v\DC2\n\
\\r\n\
\\ENQ\EOT6\STX\STX\ETX\DC2\EOT\229\a\NAK\SYN\n\
\\r\n\
\\ENQ\EOT6\STX\STX\b\DC2\EOT\229\a\ETB+\n\
\\SO\n\
\\ACK\EOT6\STX\STX\b\ACK\DC2\EOT\229\a\CAN*\n\
\\169\SOH\n\
\\EOT\EOT6\STX\ETX\DC2\EOT\236\a\EOT\EM\SUB\154\SOH\n\
\A timestamp that allows ordering in the case of multiple announcements.\n\
\We should ignore the message if timestamp is not greater than the\n\
\last-received.\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\ETX\ENQ\DC2\EOT\236\a\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\ETX\SOH\DC2\EOT\236\a\v\DC4\n\
\\r\n\
\\ENQ\EOT6\STX\ETX\ETX\DC2\EOT\236\a\ETB\CAN\n\
\\192\SOH\n\
\\EOT\EOT6\STX\EOT\DC2\EOT\243\a\EOT\RS\SUB\177\SOH\n\
\The bitfield that describes whether optional fields are present in this\n\
\update. Currently, the least-significant bit must be set to 1 if the\n\
\optional field MaxHtlc is present.\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\EOT\ENQ\DC2\EOT\243\a\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\EOT\SOH\DC2\EOT\243\a\v\CAN\n\
\\r\n\
\\ENQ\EOT6\STX\EOT\ETX\DC2\EOT\243\a\ESC\GS\n\
\\217\STX\n\
\\EOT\EOT6\STX\ENQ\DC2\EOT\252\a\EOT\GS\SUB\202\STX\n\
\The bitfield that describes additional meta-data concerning how the\n\
\update is to be interpreted. Currently, the least-significant bit must be\n\
\set to 0 if the creating node corresponds to the first node in the\n\
\previously sent channel announcement and 1 otherwise. If the second bit\n\
\is set, then the channel is set to be disabled.\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\ENQ\ENQ\DC2\EOT\252\a\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\ENQ\SOH\DC2\EOT\252\a\v\CAN\n\
\\r\n\
\\ENQ\EOT6\STX\ENQ\ETX\DC2\EOT\252\a\ESC\FS\n\
\\150\STX\n\
\\EOT\EOT6\STX\ACK\DC2\EOT\132\b\EOT\US\SUB\135\STX\n\
\The minimum number of blocks this node requires to be added to the expiry\n\
\of HTLCs. This is a security parameter determined by the node operator.\n\
\This value represents the required gap between the time locks of the\n\
\incoming and outgoing HTLC's set to this node.\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\ACK\ENQ\DC2\EOT\132\b\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\ACK\SOH\DC2\EOT\132\b\v\SUB\n\
\\r\n\
\\ENQ\EOT6\STX\ACK\ETX\DC2\EOT\132\b\GS\RS\n\
\>\n\
\\EOT\EOT6\STX\a\DC2\EOT\137\b\EOT!\SUB0\n\
\The minimum HTLC value which will be accepted.\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\a\ENQ\DC2\EOT\137\b\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\a\SOH\DC2\EOT\137\b\v\FS\n\
\\r\n\
\\ENQ\EOT6\STX\a\ETX\DC2\EOT\137\b\US \n\
\\193\SOH\n\
\\EOT\EOT6\STX\b\DC2\EOT\144\b\EOT\CAN\SUB\178\SOH\n\
\The base fee that must be used for incoming HTLC's to this particular\n\
\channel. This value will be tacked onto the required for a payment\n\
\independent of the size of the payment.\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\b\ENQ\DC2\EOT\144\b\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\b\SOH\DC2\EOT\144\b\v\DC3\n\
\\r\n\
\\ENQ\EOT6\STX\b\ETX\DC2\EOT\144\b\SYN\ETB\n\
\M\n\
\\EOT\EOT6\STX\t\DC2\EOT\149\b\EOT\CAN\SUB?\n\
\The fee rate that will be charged per millionth of a satoshi.\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\t\ENQ\DC2\EOT\149\b\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\t\SOH\DC2\EOT\149\b\v\DC3\n\
\\r\n\
\\ENQ\EOT6\STX\t\ETX\DC2\EOT\149\b\SYN\ETB\n\
\>\n\
\\EOT\EOT6\STX\n\
\\DC2\EOT\154\b\EOT\"\SUB0\n\
\The maximum HTLC value which will be accepted.\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\n\
\\ENQ\DC2\EOT\154\b\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\n\
\\SOH\DC2\EOT\154\b\v\FS\n\
\\r\n\
\\ENQ\EOT6\STX\n\
\\ETX\DC2\EOT\154\b\US!\n\
\\215\STX\n\
\\EOT\EOT6\STX\v\DC2\EOT\163\b\EOT!\SUB\200\STX\n\
\The set of data that was appended to this message, some of which we may\n\
\not actually know how to iterate or parse. By holding onto this data, we\n\
\ensure that we're able to properly validate the set of signatures that\n\
\cover these new fields, and ensure we're able to make upgrades to the\n\
\network in a forwards compatible manner.\n\
\\n\
\\r\n\
\\ENQ\EOT6\STX\v\ENQ\DC2\EOT\163\b\EOT\t\n\
\\r\n\
\\ENQ\EOT6\STX\v\SOH\DC2\EOT\163\b\n\
\\ESC\n\
\\r\n\
\\ENQ\EOT6\STX\v\ETX\DC2\EOT\163\b\RS \n\
\\f\n\
\\STX\EOT7\DC2\ACK\166\b\NUL\170\b\SOH\n\
\\v\n\
\\ETX\EOT7\SOH\DC2\EOT\166\b\b\DC2\n\
\\f\n\
\\EOT\EOT7\STX\NUL\DC2\EOT\167\b\EOT\DC4\n\
\\r\n\
\\ENQ\EOT7\STX\NUL\ENQ\DC2\EOT\167\b\EOT\t\n\
\\r\n\
\\ENQ\EOT7\STX\NUL\SOH\DC2\EOT\167\b\n\
\\SI\n\
\\r\n\
\\ENQ\EOT7\STX\NUL\ETX\DC2\EOT\167\b\DC2\DC3\n\
\\f\n\
\\EOT\EOT7\STX\SOH\DC2\EOT\168\b\EOT\CAN\n\
\\r\n\
\\ENQ\EOT7\STX\SOH\ENQ\DC2\EOT\168\b\EOT\t\n\
\\r\n\
\\ENQ\EOT7\STX\SOH\SOH\DC2\EOT\168\b\n\
\\DC3\n\
\\r\n\
\\ENQ\EOT7\STX\SOH\ETX\DC2\EOT\168\b\SYN\ETB\n\
\\f\n\
\\EOT\EOT7\STX\STX\DC2\EOT\169\b\EOT\CAN\n\
\\r\n\
\\ENQ\EOT7\STX\STX\EOT\DC2\EOT\169\b\EOT\f\n\
\\r\n\
\\ENQ\EOT7\STX\STX\ACK\DC2\EOT\169\b\r\SI\n\
\\r\n\
\\ENQ\EOT7\STX\STX\SOH\DC2\EOT\169\b\DLE\DC3\n\
\\r\n\
\\ENQ\EOT7\STX\STX\ETX\DC2\EOT\169\b\SYN\ETB\n\
\\f\n\
\\STX\EOT8\DC2\ACK\172\b\NUL\175\b\SOH\n\
\\v\n\
\\ETX\EOT8\SOH\DC2\EOT\172\b\b\n\
\\n\
\\f\n\
\\EOT\EOT8\STX\NUL\DC2\EOT\173\b\EOT\SYN\n\
\\r\n\
\\ENQ\EOT8\STX\NUL\ENQ\DC2\EOT\173\b\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT8\STX\NUL\SOH\DC2\EOT\173\b\v\DC1\n\
\\r\n\
\\ENQ\EOT8\STX\NUL\ETX\DC2\EOT\173\b\DC4\NAK\n\
\\f\n\
\\EOT\EOT8\STX\SOH\DC2\EOT\174\b\EOT \n\
\\r\n\
\\ENQ\EOT8\STX\SOH\EOT\DC2\EOT\174\b\EOT\f\n\
\\r\n\
\\ENQ\EOT8\STX\SOH\ENQ\DC2\EOT\174\b\r\DC3\n\
\\r\n\
\\ENQ\EOT8\STX\SOH\SOH\DC2\EOT\174\b\DC4\ESC\n\
\\r\n\
\\ENQ\EOT8\STX\SOH\ETX\DC2\EOT\174\b\RS\US\n\
\\f\n\
\\STX\EOT9\DC2\ACK\177\b\NUL\181\b\SOH\n\
\\v\n\
\\ETX\EOT9\SOH\DC2\EOT\177\b\b\ESC\n\
\\f\n\
\\EOT\EOT9\STX\NUL\DC2\EOT\178\b\EOT\ETB\n\
\\r\n\
\\ENQ\EOT9\STX\NUL\ENQ\DC2\EOT\178\b\EOT\t\n\
\\r\n\
\\ENQ\EOT9\STX\NUL\SOH\DC2\EOT\178\b\n\
\\DC2\n\
\\r\n\
\\ENQ\EOT9\STX\NUL\ETX\DC2\EOT\178\b\NAK\SYN\n\
\\f\n\
\\EOT\EOT9\STX\SOH\DC2\EOT\179\b\EOT0\n\
\\r\n\
\\ENQ\EOT9\STX\SOH\EOT\DC2\EOT\179\b\EOT\f\n\
\\r\n\
\\ENQ\EOT9\STX\SOH\ACK\DC2\EOT\179\b\r\US\n\
\\r\n\
\\ENQ\EOT9\STX\SOH\SOH\DC2\EOT\179\b +\n\
\\r\n\
\\ENQ\EOT9\STX\SOH\ETX\DC2\EOT\179\b./\n\
\\f\n\
\\EOT\EOT9\STX\STX\DC2\EOT\180\b\EOT\SUB\n\
\\r\n\
\\ENQ\EOT9\STX\STX\ENQ\DC2\EOT\180\b\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT9\STX\STX\SOH\DC2\EOT\180\b\v\NAK\n\
\\r\n\
\\ENQ\EOT9\STX\STX\ETX\DC2\EOT\180\b\CAN\EM\n\
\\f\n\
\\STX\EOT:\DC2\ACK\183\b\NUL\185\b\SOH\n\
\\v\n\
\\ETX\EOT:\SOH\DC2\EOT\183\b\b\FS\n\
\\f\n\
\\EOT\EOT:\STX\NUL\DC2\EOT\184\b\EOT\DC3\n\
\\r\n\
\\ENQ\EOT:\STX\NUL\ENQ\DC2\EOT\184\b\EOT\b\n\
\\r\n\
\\ENQ\EOT:\STX\NUL\SOH\DC2\EOT\184\b\t\SO\n\
\\r\n\
\\ENQ\EOT:\STX\NUL\ETX\DC2\EOT\184\b\DC1\DC2\n\
\\f\n\
\\STX\EOT;\DC2\ACK\187\b\NUL\129\t\SOH\n\
\\v\n\
\\ETX\EOT;\SOH\DC2\EOT\187\b\b\FS\n\
\\166\STX\n\
\\EOT\EOT;\STX\NUL\DC2\EOT\194\b\EOT\SUB\SUB\151\STX\n\
\The unique ID of the intercepted original gRPC request. Useful for mapping\n\
\request to response when implementing full duplex message interception. For\n\
\streaming requests, this will be the same ID for all incoming and outgoing\n\
\middleware intercept messages of the _same_ stream.\n\
\\n\
\\r\n\
\\ENQ\EOT;\STX\NUL\ENQ\DC2\EOT\194\b\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT;\STX\NUL\SOH\DC2\EOT\194\b\v\NAK\n\
\\r\n\
\\ENQ\EOT;\STX\NUL\ETX\DC2\EOT\194\b\CAN\EM\n\
\\206\SOH\n\
\\EOT\EOT;\STX\SOH\DC2\EOT\201\b\EOT\ESC\SUB\191\SOH\n\
\The raw bytes of the complete macaroon as sent by the gRPC client in the\n\
\original request. This might be empty for a request that doesn't require\n\
\macaroons such as the wallet unlocker RPCs.\n\
\\n\
\\r\n\
\\ENQ\EOT;\STX\SOH\ENQ\DC2\EOT\201\b\EOT\t\n\
\\r\n\
\\ENQ\EOT;\STX\SOH\SOH\DC2\EOT\201\b\n\
\\SYN\n\
\\r\n\
\\ENQ\EOT;\STX\SOH\ETX\DC2\EOT\201\b\EM\SUB\n\
\\166\STX\n\
\\EOT\EOT;\STX\STX\DC2\EOT\209\b\EOT'\SUB\151\STX\n\
\The parsed condition of the macaroon's custom caveat for convenient access.\n\
\This field only contains the value of the custom caveat that the handling\n\
\middleware has registered itself for. The condition _must_ be validated for\n\
\messages of intercept_type stream_auth and request!\n\
\\n\
\\r\n\
\\ENQ\EOT;\STX\STX\ENQ\DC2\EOT\209\b\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT;\STX\STX\SOH\DC2\EOT\209\b\v\"\n\
\\r\n\
\\ENQ\EOT;\STX\STX\ETX\DC2\EOT\209\b%&\n\
\\205\STX\n\
\\EOT\EOT;\b\NUL\DC2\ACK\218\b\EOT\246\b\ENQ\SUB\188\STX\n\
\There are three types of messages that will be sent to the middleware for\n\
\inspection and approval: Stream authentication, request and response\n\
\interception. The first two can only be accepted (=forward to main RPC\n\
\server) or denied (=return error to client). Intercepted responses can also\n\
\be replaced/overwritten.\n\
\\n\
\\r\n\
\\ENQ\EOT;\b\NUL\SOH\DC2\EOT\218\b\n\
\\CAN\n\
\\180\ETX\n\
\\EOT\EOT;\STX\ETX\DC2\EOT\227\b\b#\SUB\165\ETX\n\
\Intercept stream authentication: each new streaming RPC call that is\n\
\initiated against lnd and contains the middleware's custom macaroon\n\
\caveat can be approved or denied based upon the macaroon in the stream\n\
\header. This message will only be sent for streaming RPCs, unary RPCs\n\
\must handle the macaroon authentication in the request interception to\n\
\avoid an additional message round trip between lnd and the middleware.\n\
\\n\
\\r\n\
\\ENQ\EOT;\STX\ETX\ACK\DC2\EOT\227\b\b\DC2\n\
\\r\n\
\\ENQ\EOT;\STX\ETX\SOH\DC2\EOT\227\b\DC3\RS\n\
\\r\n\
\\ENQ\EOT;\STX\ETX\ETX\DC2\EOT\227\b!\"\n\
\\151\STX\n\
\\EOT\EOT;\STX\EOT\DC2\EOT\235\b\b\US\SUB\136\STX\n\
\Intercept incoming gRPC client request message: all incoming messages,\n\
\both on streaming and unary RPCs, are forwarded to the middleware for\n\
\inspection. For unary RPC messages the middleware is also expected to\n\
\validate the custom macaroon caveat of the request.\n\
\\n\
\\r\n\
\\ENQ\EOT;\STX\EOT\ACK\DC2\EOT\235\b\b\DC2\n\
\\r\n\
\\ENQ\EOT;\STX\EOT\SOH\DC2\EOT\235\b\DC3\SUB\n\
\\r\n\
\\ENQ\EOT;\STX\EOT\ETX\DC2\EOT\235\b\GS\RS\n\
\\164\ETX\n\
\\EOT\EOT;\STX\ENQ\DC2\EOT\245\b\b \SUB\149\ETX\n\
\Intercept outgoing gRPC response message: all outgoing messages, both on\n\
\streaming and unary RPCs, are forwarded to the middleware for inspection\n\
\and amendment. The response in this message is the original response as\n\
\it was generated by the main RPC server. It can either be accepted\n\
\(=forwarded to the client), replaced/overwritten with a new message of\n\
\the same type, or replaced by an error message.\n\
\\n\
\\r\n\
\\ENQ\EOT;\STX\ENQ\ACK\DC2\EOT\245\b\b\DC2\n\
\\r\n\
\\ENQ\EOT;\STX\ENQ\SOH\DC2\EOT\245\b\DC3\ESC\n\
\\r\n\
\\ENQ\EOT;\STX\ENQ\ETX\DC2\EOT\245\b\RS\US\n\
\\152\ETX\n\
\\EOT\EOT;\STX\ACK\DC2\EOT\128\t\EOT\SYN\SUB\137\ETX\n\
\The unique message ID of this middleware intercept message. There can be\n\
\multiple middleware intercept messages per single gRPC request (one for the\n\
\incoming request and one for the outgoing response) or gRPC stream (one for\n\
\each incoming message and one for each outgoing response). This message ID\n\
\must be referenced when responding (accepting/rejecting/modifying) to an\n\
\intercept message.\n\
\\n\
\\r\n\
\\ENQ\EOT;\STX\ACK\ENQ\DC2\EOT\128\t\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT;\STX\ACK\SOH\DC2\EOT\128\t\v\DC1\n\
\\r\n\
\\ENQ\EOT;\STX\ACK\ETX\DC2\EOT\128\t\DC4\NAK\n\
\\f\n\
\\STX\EOT<\DC2\ACK\131\t\NUL\138\t\SOH\n\
\\v\n\
\\ETX\EOT<\SOH\DC2\EOT\131\t\b\DC2\n\
\\177\SOH\n\
\\EOT\EOT<\STX\NUL\DC2\EOT\137\t\EOT\US\SUB\162\SOH\n\
\The full URI (in the format /<rpcpackage>.<ServiceName>/MethodName, for\n\
\example /lnrpc.Lightning/GetInfo) of the streaming RPC method that was just\n\
\established.\n\
\\n\
\\r\n\
\\ENQ\EOT<\STX\NUL\ENQ\DC2\EOT\137\t\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT<\STX\NUL\SOH\DC2\EOT\137\t\v\SUB\n\
\\r\n\
\\ENQ\EOT<\STX\NUL\ETX\DC2\EOT\137\t\GS\RS\n\
\\f\n\
\\STX\EOT=\DC2\ACK\140\t\NUL\164\t\SOH\n\
\\v\n\
\\ETX\EOT=\SOH\DC2\EOT\140\t\b\DC2\n\
\\170\SOH\n\
\\EOT\EOT=\STX\NUL\DC2\EOT\146\t\EOT\US\SUB\155\SOH\n\
\The full URI (in the format /<rpcpackage>.<ServiceName>/MethodName, for\n\
\example /lnrpc.Lightning/GetInfo) of the RPC method the message was sent\n\
\to/from.\n\
\\n\
\\r\n\
\\ENQ\EOT=\STX\NUL\ENQ\DC2\EOT\146\t\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT=\STX\NUL\SOH\DC2\EOT\146\t\v\SUB\n\
\\r\n\
\\ENQ\EOT=\STX\NUL\ETX\DC2\EOT\146\t\GS\RS\n\
\Z\n\
\\EOT\EOT=\STX\SOH\DC2\EOT\151\t\EOT\CAN\SUBL\n\
\Indicates whether the message was sent over a streaming RPC method or not.\n\
\\n\
\\r\n\
\\ENQ\EOT=\STX\SOH\ENQ\DC2\EOT\151\t\EOT\b\n\
\\r\n\
\\ENQ\EOT=\STX\SOH\SOH\DC2\EOT\151\t\t\DC3\n\
\\r\n\
\\ENQ\EOT=\STX\SOH\ETX\DC2\EOT\151\t\SYN\ETB\n\
\\137\SOH\n\
\\EOT\EOT=\STX\STX\DC2\EOT\157\t\EOT\EM\SUB{\n\
\The full canonical gRPC name of the message type (in the format\n\
\<rpcpackage>.TypeName, for example lnrpc.GetInfoRequest).\n\
\\n\
\\r\n\
\\ENQ\EOT=\STX\STX\ENQ\DC2\EOT\157\t\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT=\STX\STX\SOH\DC2\EOT\157\t\v\DC4\n\
\\r\n\
\\ENQ\EOT=\STX\STX\ETX\DC2\EOT\157\t\ETB\CAN\n\
\_\n\
\\EOT\EOT=\STX\ETX\DC2\EOT\163\t\EOT\EM\SUBQ\n\
\The full content of the gRPC message, serialized in the binary protobuf\n\
\format.\n\
\\n\
\\r\n\
\\ENQ\EOT=\STX\ETX\ENQ\DC2\EOT\163\t\EOT\t\n\
\\r\n\
\\ENQ\EOT=\STX\ETX\SOH\DC2\EOT\163\t\n\
\\DC4\n\
\\r\n\
\\ENQ\EOT=\STX\ETX\ETX\DC2\EOT\163\t\ETB\CAN\n\
\\f\n\
\\STX\EOT>\DC2\ACK\166\t\NUL\199\t\SOH\n\
\\v\n\
\\ETX\EOT>\SOH\DC2\EOT\166\t\b\GS\n\
\\173\SOH\n\
\\EOT\EOT>\STX\NUL\DC2\EOT\172\t\EOT\SUB\SUB\158\SOH\n\
\The request message ID this response refers to. Must always be set when\n\
\giving feedback to an intercept but is ignored for the initial registration\n\
\message.\n\
\\n\
\\r\n\
\\ENQ\EOT>\STX\NUL\ENQ\DC2\EOT\172\t\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT>\STX\NUL\SOH\DC2\EOT\172\t\v\NAK\n\
\\r\n\
\\ENQ\EOT>\STX\NUL\ETX\DC2\EOT\172\t\CAN\EM\n\
\\215\SOH\n\
\\EOT\EOT>\b\NUL\DC2\ACK\179\t\EOT\198\t\ENQ\SUB\198\SOH\n\
\The middleware can only send two types of messages to lnd: The initial\n\
\registration message that identifies the middleware and after that only\n\
\feedback messages to requests sent to the middleware.\n\
\\n\
\\r\n\
\\ENQ\EOT>\b\NUL\SOH\DC2\EOT\179\t\n\
\\FS\n\
\\191\EOT\n\
\\EOT\EOT>\STX\SOH\DC2\EOT\191\t\b,\SUB\176\EOT\n\
\The registration message identifies the middleware that's being\n\
\registered in lnd. The registration message must be sent immediately\n\
\after initiating the RegisterRpcMiddleware stream, otherwise lnd will\n\
\time out the attempt and terminate the request. NOTE: The middleware\n\
\will only receive interception messages for requests that contain a\n\
\macaroon with the custom caveat that the middleware declares it is\n\
\responsible for handling in the registration message! As a security\n\
\measure, _no_ middleware can intercept requests made with _unencumbered_\n\
\macaroons!\n\
\\n\
\\r\n\
\\ENQ\EOT>\STX\SOH\ACK\DC2\EOT\191\t\b\RS\n\
\\r\n\
\\ENQ\EOT>\STX\SOH\SOH\DC2\EOT\191\t\US'\n\
\\r\n\
\\ENQ\EOT>\STX\SOH\ETX\DC2\EOT\191\t*+\n\
\\152\SOH\n\
\\EOT\EOT>\STX\STX\DC2\EOT\197\t\b'\SUB\137\SOH\n\
\The middleware received an interception request and gives feedback to\n\
\it. The request_id indicates what message the feedback refers to.\n\
\\n\
\\r\n\
\\ENQ\EOT>\STX\STX\ACK\DC2\EOT\197\t\b\EM\n\
\\r\n\
\\ENQ\EOT>\STX\STX\SOH\DC2\EOT\197\t\SUB\"\n\
\\r\n\
\\ENQ\EOT>\STX\STX\ETX\DC2\EOT\197\t%&\n\
\\f\n\
\\STX\EOT?\DC2\ACK\201\t\NUL\228\t\SOH\n\
\\v\n\
\\ETX\EOT?\SOH\DC2\EOT\201\t\b\RS\n\
\\132\SOH\n\
\\EOT\EOT?\STX\NUL\DC2\EOT\206\t\EOT\US\SUBv\n\
\The name of the middleware to register. The name should be as informative\n\
\as possible and is logged on registration.\n\
\\n\
\\r\n\
\\ENQ\EOT?\STX\NUL\ENQ\DC2\EOT\206\t\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT?\STX\NUL\SOH\DC2\EOT\206\t\v\SUB\n\
\\r\n\
\\ENQ\EOT?\STX\NUL\ETX\DC2\EOT\206\t\GS\RS\n\
\\194\EOT\n\
\\EOT\EOT?\STX\SOH\DC2\EOT\218\t\EOT+\SUB\179\EOT\n\
\The name of the custom macaroon caveat that this middleware is responsible\n\
\for. Only requests/responses that contain a macaroon with the registered\n\
\custom caveat are forwarded for interception to the middleware. The\n\
\exception being the read-only mode: All requests/responses are forwarded to\n\
\a middleware that requests read-only access but such a middleware won't be\n\
\allowed to _alter_ responses. As a security measure, _no_ middleware can\n\
\change responses to requests made with _unencumbered_ macaroons!\n\
\NOTE: Cannot be used at the same time as read_only_mode.\n\
\\n\
\\r\n\
\\ENQ\EOT?\STX\SOH\ENQ\DC2\EOT\218\t\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT?\STX\SOH\SOH\DC2\EOT\218\t\v&\n\
\\r\n\
\\ENQ\EOT?\STX\SOH\ETX\DC2\EOT\218\t)*\n\
\\200\STX\n\
\\EOT\EOT?\STX\STX\DC2\EOT\227\t\EOT\FS\SUB\185\STX\n\
\Instead of defining a custom macaroon caveat name a middleware can register\n\
\itself for read-only access only. In that mode all requests/responses are\n\
\forwarded to the middleware but the middleware isn't allowed to alter any of\n\
\the responses.\n\
\NOTE: Cannot be used at the same time as custom_macaroon_caveat_name.\n\
\\n\
\\r\n\
\\ENQ\EOT?\STX\STX\ENQ\DC2\EOT\227\t\EOT\b\n\
\\r\n\
\\ENQ\EOT?\STX\STX\SOH\DC2\EOT\227\t\t\ETB\n\
\\r\n\
\\ENQ\EOT?\STX\STX\ETX\DC2\EOT\227\t\SUB\ESC\n\
\\f\n\
\\STX\EOT@\DC2\ACK\230\t\NUL\254\t\SOH\n\
\\v\n\
\\ETX\EOT@\SOH\DC2\EOT\230\t\b\EM\n\
\\157\STX\n\
\\EOT\EOT@\STX\NUL\DC2\EOT\237\t\EOT\NAK\SUB\142\STX\n\
\The error to return to the user. If this is non-empty, the incoming gRPC\n\
\stream/request is aborted and the error is returned to the gRPC client. If\n\
\this value is empty, it means the middleware accepts the stream/request/\n\
\response and the processing of it can continue.\n\
\\n\
\\r\n\
\\ENQ\EOT@\STX\NUL\ENQ\DC2\EOT\237\t\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT@\STX\NUL\SOH\DC2\EOT\237\t\v\DLE\n\
\\r\n\
\\ENQ\EOT@\STX\NUL\ETX\DC2\EOT\237\t\DC3\DC4\n\
\\204\ETX\n\
\\EOT\EOT@\STX\SOH\DC2\EOT\247\t\EOT\RS\SUB\189\ETX\n\
\A boolean indicating that the gRPC response should be replaced/overwritten.\n\
\As its name suggests, this can only be used as a feedback to an intercepted\n\
\response RPC message and is ignored for feedback on any other message. This\n\
\boolean is needed because in protobuf an empty message is serialized as a\n\
\0-length or nil byte slice and we wouldn't be able to distinguish between\n\
\an empty replacement message and the \"don't replace anything\" case.\n\
\\n\
\\r\n\
\\ENQ\EOT@\STX\SOH\ENQ\DC2\EOT\247\t\EOT\b\n\
\\r\n\
\\ENQ\EOT@\STX\SOH\SOH\DC2\EOT\247\t\t\EM\n\
\\r\n\
\\ENQ\EOT@\STX\SOH\ETX\DC2\EOT\247\t\FS\GS\n\
\\154\SOH\n\
\\EOT\EOT@\STX\STX\DC2\EOT\253\t\EOT%\SUB\139\SOH\n\
\If the replace_response field is set to true, this field must contain the\n\
\binary serialized gRPC response message in the protobuf format.\n\
\\n\
\\r\n\
\\ENQ\EOT@\STX\STX\ENQ\DC2\EOT\253\t\EOT\t\n\
\\r\n\
\\ENQ\EOT@\STX\STX\SOH\DC2\EOT\253\t\n\
\ \n\
\\r\n\
\\ENQ\EOT@\STX\STX\ETX\DC2\EOT\253\t#$b\ACKproto3"