{- This file was auto-generated from lnd_grpc.proto by the proto-lens-protoc program. -} {-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-} {-# OPTIONS_GHC -Wno-unused-imports#-} {-# OPTIONS_GHC -Wno-duplicate-exports#-} {-# OPTIONS_GHC -Wno-dodgy-exports#-} module Proto.LndGrpc ( Lightning(..), AMP(), AMPRecord(), AbandonChannelRequest(), AbandonChannelResponse(), AddInvoiceResponse(), AddressType(..), AddressType(), AddressType'UnrecognizedValue, Amount(), BakeMacaroonRequest(), BakeMacaroonResponse(), Chain(), ChanBackupExportRequest(), ChanBackupSnapshot(), ChanInfoRequest(), ChanPointShim(), Channel(), ChannelAcceptRequest(), ChannelAcceptResponse(), ChannelBackup(), ChannelBackupSubscription(), ChannelBackups(), ChannelBalanceRequest(), ChannelBalanceResponse(), ChannelCloseSummary(), ChannelCloseSummary'ClosureType(..), ChannelCloseSummary'ClosureType(), ChannelCloseSummary'ClosureType'UnrecognizedValue, ChannelCloseUpdate(), ChannelConstraints(), ChannelEdge(), ChannelEdgeUpdate(), ChannelEventSubscription(), ChannelEventUpdate(), ChannelEventUpdate'Channel(..), _ChannelEventUpdate'OpenChannel, _ChannelEventUpdate'ClosedChannel, _ChannelEventUpdate'ActiveChannel, _ChannelEventUpdate'InactiveChannel, _ChannelEventUpdate'PendingOpenChannel, ChannelEventUpdate'UpdateType(..), ChannelEventUpdate'UpdateType(), ChannelEventUpdate'UpdateType'UnrecognizedValue, ChannelFeeReport(), ChannelGraph(), ChannelGraphRequest(), ChannelOpenUpdate(), ChannelPoint(), ChannelPoint'FundingTxid(..), _ChannelPoint'FundingTxidBytes, _ChannelPoint'FundingTxidStr, ChannelUpdate(), CloseChannelRequest(), CloseStatusUpdate(), CloseStatusUpdate'Update(..), _CloseStatusUpdate'ClosePending, _CloseStatusUpdate'ChanClose, ClosedChannelUpdate(), ClosedChannelsRequest(), ClosedChannelsResponse(), CommitmentType(..), CommitmentType(), CommitmentType'UnrecognizedValue, ConfirmationUpdate(), ConnectPeerRequest(), ConnectPeerResponse(), DebugLevelRequest(), DebugLevelResponse(), DeleteAllPaymentsRequest(), DeleteAllPaymentsResponse(), DeleteMacaroonIDRequest(), DeleteMacaroonIDResponse(), DisconnectPeerRequest(), DisconnectPeerResponse(), EdgeLocator(), EstimateFeeRequest(), EstimateFeeRequest'AddrToAmountEntry(), EstimateFeeResponse(), ExportChannelBackupRequest(), Failure(), Failure'FailureCode(..), Failure'FailureCode(), Failure'FailureCode'UnrecognizedValue, Feature(), FeatureBit(..), FeatureBit(), FeatureBit'UnrecognizedValue, FeeLimit(), FeeLimit'Limit(..), _FeeLimit'Fixed, _FeeLimit'FixedMsat, _FeeLimit'Percent, FeeReportRequest(), FeeReportResponse(), FloatMetric(), ForwardingEvent(), ForwardingHistoryRequest(), ForwardingHistoryResponse(), FundingPsbtFinalize(), FundingPsbtVerify(), FundingShim(), FundingShim'Shim(..), _FundingShim'ChanPointShim, _FundingShim'PsbtShim, FundingShimCancel(), FundingStateStepResp(), FundingTransitionMsg(), FundingTransitionMsg'Trigger(..), _FundingTransitionMsg'ShimRegister, _FundingTransitionMsg'ShimCancel, _FundingTransitionMsg'PsbtVerify, _FundingTransitionMsg'PsbtFinalize, GetInfoRequest(), GetInfoResponse(), GetInfoResponse'FeaturesEntry(), GetRecoveryInfoRequest(), GetRecoveryInfoResponse(), GetTransactionsRequest(), GraphTopologySubscription(), GraphTopologyUpdate(), HTLC(), HTLCAttempt(), HTLCAttempt'HTLCStatus(..), HTLCAttempt'HTLCStatus(), HTLCAttempt'HTLCStatus'UnrecognizedValue, Hop(), Hop'CustomRecordsEntry(), HopHint(), Initiator(..), Initiator(), Initiator'UnrecognizedValue, Invoice(), Invoice'FeaturesEntry(), Invoice'InvoiceState(..), Invoice'InvoiceState(), Invoice'InvoiceState'UnrecognizedValue, InvoiceHTLC(), InvoiceHTLC'CustomRecordsEntry(), InvoiceHTLCState(..), InvoiceHTLCState(), InvoiceHTLCState'UnrecognizedValue, InvoiceSubscription(), KeyDescriptor(), KeyLocator(), LightningAddress(), LightningNode(), LightningNode'FeaturesEntry(), ListChannelsRequest(), ListChannelsResponse(), ListInvoiceRequest(), ListInvoiceResponse(), ListMacaroonIDsRequest(), ListMacaroonIDsResponse(), ListPaymentsRequest(), ListPaymentsResponse(), ListPeersRequest(), ListPeersResponse(), ListPermissionsRequest(), ListPermissionsResponse(), ListPermissionsResponse'MethodPermissionsEntry(), ListUnspentRequest(), ListUnspentResponse(), MPPRecord(), MacaroonId(), MacaroonPermission(), MacaroonPermissionList(), MultiChanBackup(), NetworkInfo(), NetworkInfoRequest(), NewAddressRequest(), NewAddressResponse(), NodeAddress(), NodeInfo(), NodeInfoRequest(), NodeMetricType(..), NodeMetricType(), NodeMetricType'UnrecognizedValue, NodeMetricsRequest(), NodeMetricsResponse(), NodeMetricsResponse'BetweennessCentralityEntry(), NodePair(), NodeUpdate(), NodeUpdate'FeaturesEntry(), Op(), OpenChannelRequest(), OpenStatusUpdate(), OpenStatusUpdate'Update(..), _OpenStatusUpdate'ChanPending, _OpenStatusUpdate'ChanOpen, _OpenStatusUpdate'PsbtFund, OutPoint(), PayReq(), PayReq'FeaturesEntry(), PayReqString(), Payment(), Payment'PaymentStatus(..), Payment'PaymentStatus(), Payment'PaymentStatus'UnrecognizedValue, PaymentFailureReason(..), PaymentFailureReason(), PaymentFailureReason'UnrecognizedValue, PaymentHash(), Peer(), Peer'FeaturesEntry(), Peer'SyncType(..), Peer'SyncType(), Peer'SyncType'UnrecognizedValue, PeerEvent(), PeerEvent'EventType(..), PeerEvent'EventType(), PeerEvent'EventType'UnrecognizedValue, PeerEventSubscription(), PendingChannelsRequest(), PendingChannelsResponse(), PendingChannelsResponse'ClosedChannel(), PendingChannelsResponse'Commitments(), PendingChannelsResponse'ForceClosedChannel(), PendingChannelsResponse'ForceClosedChannel'AnchorState(..), PendingChannelsResponse'ForceClosedChannel'AnchorState(), PendingChannelsResponse'ForceClosedChannel'AnchorState'UnrecognizedValue, PendingChannelsResponse'PendingChannel(), PendingChannelsResponse'PendingOpenChannel(), PendingChannelsResponse'WaitingCloseChannel(), PendingHTLC(), PendingUpdate(), PolicyUpdateRequest(), PolicyUpdateRequest'Scope(..), _PolicyUpdateRequest'Global, _PolicyUpdateRequest'ChanPoint, PolicyUpdateResponse(), PsbtShim(), QueryRoutesRequest(), QueryRoutesRequest'DestCustomRecordsEntry(), QueryRoutesResponse(), ReadyForPsbtFunding(), Resolution(), ResolutionOutcome(..), ResolutionOutcome(), ResolutionOutcome'UnrecognizedValue, ResolutionType(..), ResolutionType(), ResolutionType'UnrecognizedValue, RestoreBackupResponse(), RestoreChanBackupRequest(), RestoreChanBackupRequest'Backup(..), _RestoreChanBackupRequest'ChanBackups, _RestoreChanBackupRequest'MultiChanBackup, Route(), RouteHint(), RoutingPolicy(), SendCoinsRequest(), SendCoinsResponse(), SendManyRequest(), SendManyRequest'AddrToAmountEntry(), SendManyResponse(), SendRequest(), SendRequest'DestCustomRecordsEntry(), SendResponse(), SendToRouteRequest(), SignMessageRequest(), SignMessageResponse(), StopRequest(), StopResponse(), TimestampedError(), Transaction(), TransactionDetails(), Utxo(), VerifyChanBackupResponse(), VerifyMessageRequest(), VerifyMessageResponse(), WalletAccountBalance(), WalletBalanceRequest(), WalletBalanceResponse(), WalletBalanceResponse'AccountBalanceEntry() ) where import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism import qualified Data.ProtoLens.Runtime.Prelude as Prelude import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8 import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read {- | Fields : * 'Proto.LndGrpc_Fields.rootShare' @:: Lens' AMP Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.setId' @:: Lens' AMP Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.childIndex' @:: Lens' AMP Data.Word.Word32@ * 'Proto.LndGrpc_Fields.hash' @:: Lens' AMP Data.ByteString.ByteString@ * 'Proto.LndGrpc_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) instance Prelude.Show AMP where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.rootShare' @:: Lens' AMPRecord Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.setId' @:: Lens' AMPRecord Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.childIndex' @:: Lens' AMPRecord Data.Word.Word32@ -} data AMPRecord = AMPRecord'_constructor {_AMPRecord'rootShare :: !Data.ByteString.ByteString, _AMPRecord'setId :: !Data.ByteString.ByteString, _AMPRecord'childIndex :: !Data.Word.Word32, _AMPRecord'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show AMPRecord where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField AMPRecord "rootShare" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _AMPRecord'rootShare (\ x__ y__ -> x__ {_AMPRecord'rootShare = y__})) Prelude.id instance Data.ProtoLens.Field.HasField AMPRecord "setId" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _AMPRecord'setId (\ x__ y__ -> x__ {_AMPRecord'setId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField AMPRecord "childIndex" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _AMPRecord'childIndex (\ x__ y__ -> x__ {_AMPRecord'childIndex = y__})) Prelude.id instance Data.ProtoLens.Message AMPRecord where messageName _ = Data.Text.pack "lnrpc.AMPRecord" packedMessageDescriptor _ = "\n\ \\tAMPRecord\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" 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 AMPRecord 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 AMPRecord 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 AMPRecord 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)] unknownFields = Lens.Family2.Unchecked.lens _AMPRecord'_unknownFields (\ x__ y__ -> x__ {_AMPRecord'_unknownFields = y__}) defMessage = AMPRecord'_constructor {_AMPRecord'rootShare = Data.ProtoLens.fieldDefault, _AMPRecord'setId = Data.ProtoLens.fieldDefault, _AMPRecord'childIndex = Data.ProtoLens.fieldDefault, _AMPRecord'_unknownFields = []} parseMessage = let loop :: AMPRecord -> Data.ProtoLens.Encoding.Bytes.Parser AMPRecord 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) 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) "AMPRecord" 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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) instance Control.DeepSeq.NFData AMPRecord where rnf = \ x__ -> Control.DeepSeq.deepseq (_AMPRecord'_unknownFields x__) (Control.DeepSeq.deepseq (_AMPRecord'rootShare x__) (Control.DeepSeq.deepseq (_AMPRecord'setId x__) (Control.DeepSeq.deepseq (_AMPRecord'childIndex x__) ()))) {- | Fields : * 'Proto.LndGrpc_Fields.channelPoint' @:: Lens' AbandonChannelRequest ChannelPoint@ * 'Proto.LndGrpc_Fields.maybe'channelPoint' @:: Lens' AbandonChannelRequest (Prelude.Maybe ChannelPoint)@ * 'Proto.LndGrpc_Fields.pendingFundingShimOnly' @:: Lens' AbandonChannelRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.iKnowWhatIAmDoing' @:: Lens' AbandonChannelRequest Prelude.Bool@ -} data AbandonChannelRequest = AbandonChannelRequest'_constructor {_AbandonChannelRequest'channelPoint :: !(Prelude.Maybe ChannelPoint), _AbandonChannelRequest'pendingFundingShimOnly :: !Prelude.Bool, _AbandonChannelRequest'iKnowWhatIAmDoing :: !Prelude.Bool, _AbandonChannelRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show AbandonChannelRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField AbandonChannelRequest "channelPoint" 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 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 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) instance Prelude.Show AbandonChannelResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.rHash' @:: Lens' AddInvoiceResponse Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.paymentRequest' @:: Lens' AddInvoiceResponse Data.Text.Text@ * 'Proto.LndGrpc_Fields.addIndex' @:: Lens' AddInvoiceResponse Data.Word.Word64@ * 'Proto.LndGrpc_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) instance Prelude.Show AddInvoiceResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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__) ())))) newtype AddressType'UnrecognizedValue = AddressType'UnrecognizedValue Data.Int.Int32 deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) data AddressType = WITNESS_PUBKEY_HASH | NESTED_PUBKEY_HASH | UNUSED_WITNESS_PUBKEY_HASH | UNUSED_NESTED_PUBKEY_HASH | AddressType'Unrecognized !AddressType'UnrecognizedValue deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.MessageEnum AddressType where maybeToEnum 0 = Prelude.Just WITNESS_PUBKEY_HASH maybeToEnum 1 = Prelude.Just NESTED_PUBKEY_HASH maybeToEnum 2 = Prelude.Just UNUSED_WITNESS_PUBKEY_HASH maybeToEnum 3 = Prelude.Just UNUSED_NESTED_PUBKEY_HASH maybeToEnum k = Prelude.Just (AddressType'Unrecognized (AddressType'UnrecognizedValue (Prelude.fromIntegral k))) showEnum WITNESS_PUBKEY_HASH = "WITNESS_PUBKEY_HASH" showEnum NESTED_PUBKEY_HASH = "NESTED_PUBKEY_HASH" showEnum UNUSED_WITNESS_PUBKEY_HASH = "UNUSED_WITNESS_PUBKEY_HASH" showEnum UNUSED_NESTED_PUBKEY_HASH = "UNUSED_NESTED_PUBKEY_HASH" showEnum (AddressType'Unrecognized (AddressType'UnrecognizedValue k)) = Prelude.show k readEnum k | (Prelude.==) k "WITNESS_PUBKEY_HASH" = Prelude.Just WITNESS_PUBKEY_HASH | (Prelude.==) k "NESTED_PUBKEY_HASH" = Prelude.Just NESTED_PUBKEY_HASH | (Prelude.==) k "UNUSED_WITNESS_PUBKEY_HASH" = Prelude.Just UNUSED_WITNESS_PUBKEY_HASH | (Prelude.==) k "UNUSED_NESTED_PUBKEY_HASH" = Prelude.Just UNUSED_NESTED_PUBKEY_HASH | Prelude.otherwise = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum instance Prelude.Bounded AddressType where minBound = WITNESS_PUBKEY_HASH maxBound = UNUSED_NESTED_PUBKEY_HASH instance Prelude.Enum AddressType where toEnum k__ = Prelude.maybe (Prelude.error ((Prelude.++) "toEnum: unknown value for enum AddressType: " (Prelude.show k__))) Prelude.id (Data.ProtoLens.maybeToEnum k__) fromEnum WITNESS_PUBKEY_HASH = 0 fromEnum NESTED_PUBKEY_HASH = 1 fromEnum UNUSED_WITNESS_PUBKEY_HASH = 2 fromEnum UNUSED_NESTED_PUBKEY_HASH = 3 fromEnum (AddressType'Unrecognized (AddressType'UnrecognizedValue k)) = Prelude.fromIntegral k succ UNUSED_NESTED_PUBKEY_HASH = Prelude.error "AddressType.succ: bad argument UNUSED_NESTED_PUBKEY_HASH. This value would be out of bounds." succ WITNESS_PUBKEY_HASH = NESTED_PUBKEY_HASH succ NESTED_PUBKEY_HASH = UNUSED_WITNESS_PUBKEY_HASH succ UNUSED_WITNESS_PUBKEY_HASH = UNUSED_NESTED_PUBKEY_HASH succ (AddressType'Unrecognized _) = Prelude.error "AddressType.succ: bad argument: unrecognized value" pred WITNESS_PUBKEY_HASH = Prelude.error "AddressType.pred: bad argument WITNESS_PUBKEY_HASH. This value would be out of bounds." pred NESTED_PUBKEY_HASH = WITNESS_PUBKEY_HASH pred UNUSED_WITNESS_PUBKEY_HASH = NESTED_PUBKEY_HASH pred UNUSED_NESTED_PUBKEY_HASH = UNUSED_WITNESS_PUBKEY_HASH pred (AddressType'Unrecognized _) = Prelude.error "AddressType.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 AddressType where fieldDefault = WITNESS_PUBKEY_HASH instance Control.DeepSeq.NFData AddressType where rnf x__ = Prelude.seq x__ () {- | Fields : * 'Proto.LndGrpc_Fields.sat' @:: Lens' Amount Data.Word.Word64@ * 'Proto.LndGrpc_Fields.msat' @:: Lens' Amount Data.Word.Word64@ -} data Amount = Amount'_constructor {_Amount'sat :: !Data.Word.Word64, _Amount'msat :: !Data.Word.Word64, _Amount'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Amount where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField Amount "sat" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Amount'sat (\ x__ y__ -> x__ {_Amount'sat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Amount "msat" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Amount'msat (\ x__ y__ -> x__ {_Amount'msat = y__})) Prelude.id instance Data.ProtoLens.Message Amount where messageName _ = Data.Text.pack "lnrpc.Amount" packedMessageDescriptor _ = "\n\ \\ACKAmount\DC2\DLE\n\ \\ETXsat\CAN\SOH \SOH(\EOTR\ETXsat\DC2\DC2\n\ \\EOTmsat\CAN\STX \SOH(\EOTR\EOTmsat" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let sat__field_descriptor = Data.ProtoLens.FieldDescriptor "sat" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"sat")) :: Data.ProtoLens.FieldDescriptor Amount msat__field_descriptor = Data.ProtoLens.FieldDescriptor "msat" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"msat")) :: Data.ProtoLens.FieldDescriptor Amount in Data.Map.fromList [(Data.ProtoLens.Tag 1, sat__field_descriptor), (Data.ProtoLens.Tag 2, msat__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Amount'_unknownFields (\ x__ y__ -> x__ {_Amount'_unknownFields = y__}) defMessage = Amount'_constructor {_Amount'sat = Data.ProtoLens.fieldDefault, _Amount'msat = Data.ProtoLens.fieldDefault, _Amount'_unknownFields = []} parseMessage = let loop :: Amount -> Data.ProtoLens.Encoding.Bytes.Parser Amount 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 "sat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"sat") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "msat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"msat") 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) "Amount" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"sat") _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 @"msat") _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 Amount where rnf = \ x__ -> Control.DeepSeq.deepseq (_Amount'_unknownFields x__) (Control.DeepSeq.deepseq (_Amount'sat x__) (Control.DeepSeq.deepseq (_Amount'msat x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.permissions' @:: Lens' BakeMacaroonRequest [MacaroonPermission]@ * 'Proto.LndGrpc_Fields.vec'permissions' @:: Lens' BakeMacaroonRequest (Data.Vector.Vector MacaroonPermission)@ * 'Proto.LndGrpc_Fields.rootKeyId' @:: Lens' BakeMacaroonRequest Data.Word.Word64@ -} data BakeMacaroonRequest = BakeMacaroonRequest'_constructor {_BakeMacaroonRequest'permissions :: !(Data.Vector.Vector MacaroonPermission), _BakeMacaroonRequest'rootKeyId :: !Data.Word.Word64, _BakeMacaroonRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show BakeMacaroonRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.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" 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 in Data.Map.fromList [(Data.ProtoLens.Tag 1, permissions__field_descriptor), (Data.ProtoLens.Tag 2, rootKeyId__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'_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 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.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__) ())) {- | Fields : * 'Proto.LndGrpc_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) instance Prelude.Show BakeMacaroonResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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 : * 'Proto.LndGrpc_Fields.chain' @:: Lens' Chain Data.Text.Text@ * 'Proto.LndGrpc_Fields.network' @:: Lens' Chain Data.Text.Text@ -} data Chain = Chain'_constructor {_Chain'chain :: !Data.Text.Text, _Chain'network :: !Data.Text.Text, _Chain'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Chain where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField Chain "chain" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Chain'chain (\ x__ y__ -> x__ {_Chain'chain = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Chain "network" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Chain'network (\ x__ y__ -> x__ {_Chain'network = y__})) Prelude.id instance Data.ProtoLens.Message Chain where messageName _ = Data.Text.pack "lnrpc.Chain" packedMessageDescriptor _ = "\n\ \\ENQChain\DC2\DC4\n\ \\ENQchain\CAN\SOH \SOH(\tR\ENQchain\DC2\CAN\n\ \\anetwork\CAN\STX \SOH(\tR\anetwork" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let chain__field_descriptor = Data.ProtoLens.FieldDescriptor "chain" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"chain")) :: Data.ProtoLens.FieldDescriptor Chain network__field_descriptor = Data.ProtoLens.FieldDescriptor "network" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"network")) :: Data.ProtoLens.FieldDescriptor Chain in Data.Map.fromList [(Data.ProtoLens.Tag 1, chain__field_descriptor), (Data.ProtoLens.Tag 2, network__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Chain'_unknownFields (\ x__ y__ -> x__ {_Chain'_unknownFields = y__}) defMessage = Chain'_constructor {_Chain'chain = Data.ProtoLens.fieldDefault, _Chain'network = Data.ProtoLens.fieldDefault, _Chain'_unknownFields = []} parseMessage = let loop :: Chain -> Data.ProtoLens.Encoding.Bytes.Parser Chain 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)) "chain" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"chain") 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)) "network" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"network") 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) "Chain" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"chain") _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 @"network") _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 Chain where rnf = \ x__ -> Control.DeepSeq.deepseq (_Chain'_unknownFields x__) (Control.DeepSeq.deepseq (_Chain'chain x__) (Control.DeepSeq.deepseq (_Chain'network x__) ())) {- | Fields : -} data ChanBackupExportRequest = ChanBackupExportRequest'_constructor {_ChanBackupExportRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChanBackupExportRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.singleChanBackups' @:: Lens' ChanBackupSnapshot ChannelBackups@ * 'Proto.LndGrpc_Fields.maybe'singleChanBackups' @:: Lens' ChanBackupSnapshot (Prelude.Maybe ChannelBackups)@ * 'Proto.LndGrpc_Fields.multiChanBackup' @:: Lens' ChanBackupSnapshot MultiChanBackup@ * 'Proto.LndGrpc_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) instance Prelude.Show ChanBackupSnapshot where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.chanId' @:: Lens' ChanInfoRequest Data.Word.Word64@ -} data ChanInfoRequest = ChanInfoRequest'_constructor {_ChanInfoRequest'chanId :: !Data.Word.Word64, _ChanInfoRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChanInfoRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ChanInfoRequest "chanId" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChanInfoRequest'chanId (\ x__ y__ -> x__ {_ChanInfoRequest'chanId = y__})) Prelude.id instance Data.ProtoLens.Message ChanInfoRequest where messageName _ = Data.Text.pack "lnrpc.ChanInfoRequest" packedMessageDescriptor _ = "\n\ \\SIChanInfoRequest\DC2\ESC\n\ \\achan_id\CAN\SOH \SOH(\EOTR\ACKchanIdB\STX0\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 ChanInfoRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, chanId__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ChanInfoRequest'_unknownFields (\ x__ y__ -> x__ {_ChanInfoRequest'_unknownFields = y__}) defMessage = ChanInfoRequest'_constructor {_ChanInfoRequest'chanId = Data.ProtoLens.fieldDefault, _ChanInfoRequest'_unknownFields = []} parseMessage = let loop :: ChanInfoRequest -> Data.ProtoLens.Encoding.Bytes.Parser ChanInfoRequest 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) 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) "ChanInfoRequest" 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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData ChanInfoRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_ChanInfoRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_ChanInfoRequest'chanId x__) ()) {- | Fields : * 'Proto.LndGrpc_Fields.amt' @:: Lens' ChanPointShim Data.Int.Int64@ * 'Proto.LndGrpc_Fields.chanPoint' @:: Lens' ChanPointShim ChannelPoint@ * 'Proto.LndGrpc_Fields.maybe'chanPoint' @:: Lens' ChanPointShim (Prelude.Maybe ChannelPoint)@ * 'Proto.LndGrpc_Fields.localKey' @:: Lens' ChanPointShim KeyDescriptor@ * 'Proto.LndGrpc_Fields.maybe'localKey' @:: Lens' ChanPointShim (Prelude.Maybe KeyDescriptor)@ * 'Proto.LndGrpc_Fields.remoteKey' @:: Lens' ChanPointShim Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.pendingChanId' @:: Lens' ChanPointShim Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.thawHeight' @:: Lens' ChanPointShim Data.Word.Word32@ -} data ChanPointShim = ChanPointShim'_constructor {_ChanPointShim'amt :: !Data.Int.Int64, _ChanPointShim'chanPoint :: !(Prelude.Maybe ChannelPoint), _ChanPointShim'localKey :: !(Prelude.Maybe KeyDescriptor), _ChanPointShim'remoteKey :: !Data.ByteString.ByteString, _ChanPointShim'pendingChanId :: !Data.ByteString.ByteString, _ChanPointShim'thawHeight :: !Data.Word.Word32, _ChanPointShim'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChanPointShim where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ChanPointShim "amt" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChanPointShim'amt (\ x__ y__ -> x__ {_ChanPointShim'amt = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChanPointShim "chanPoint" ChannelPoint where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChanPointShim'chanPoint (\ x__ y__ -> x__ {_ChanPointShim'chanPoint = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ChanPointShim "maybe'chanPoint" (Prelude.Maybe ChannelPoint) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChanPointShim'chanPoint (\ x__ y__ -> x__ {_ChanPointShim'chanPoint = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChanPointShim "localKey" KeyDescriptor where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChanPointShim'localKey (\ x__ y__ -> x__ {_ChanPointShim'localKey = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ChanPointShim "maybe'localKey" (Prelude.Maybe KeyDescriptor) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChanPointShim'localKey (\ x__ y__ -> x__ {_ChanPointShim'localKey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChanPointShim "remoteKey" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChanPointShim'remoteKey (\ x__ y__ -> x__ {_ChanPointShim'remoteKey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChanPointShim "pendingChanId" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChanPointShim'pendingChanId (\ x__ y__ -> x__ {_ChanPointShim'pendingChanId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChanPointShim "thawHeight" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChanPointShim'thawHeight (\ x__ y__ -> x__ {_ChanPointShim'thawHeight = y__})) Prelude.id instance Data.ProtoLens.Message ChanPointShim where messageName _ = Data.Text.pack "lnrpc.ChanPointShim" packedMessageDescriptor _ = "\n\ \\rChanPointShim\DC2\DLE\n\ \\ETXamt\CAN\SOH \SOH(\ETXR\ETXamt\DC22\n\ \\n\ \chan_point\CAN\STX \SOH(\v2\DC3.lnrpc.ChannelPointR\tchanPoint\DC21\n\ \\tlocal_key\CAN\ETX \SOH(\v2\DC4.lnrpc.KeyDescriptorR\blocalKey\DC2\GS\n\ \\n\ \remote_key\CAN\EOT \SOH(\fR\tremoteKey\DC2&\n\ \\SIpending_chan_id\CAN\ENQ \SOH(\fR\rpendingChanId\DC2\US\n\ \\vthaw_height\CAN\ACK \SOH(\rR\n\ \thawHeight" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let amt__field_descriptor = Data.ProtoLens.FieldDescriptor "amt" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"amt")) :: Data.ProtoLens.FieldDescriptor ChanPointShim chanPoint__field_descriptor = Data.ProtoLens.FieldDescriptor "chan_point" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChannelPoint) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'chanPoint")) :: Data.ProtoLens.FieldDescriptor ChanPointShim localKey__field_descriptor = Data.ProtoLens.FieldDescriptor "local_key" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor KeyDescriptor) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'localKey")) :: Data.ProtoLens.FieldDescriptor ChanPointShim remoteKey__field_descriptor = Data.ProtoLens.FieldDescriptor "remote_key" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"remoteKey")) :: Data.ProtoLens.FieldDescriptor ChanPointShim pendingChanId__field_descriptor = Data.ProtoLens.FieldDescriptor "pending_chan_id" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pendingChanId")) :: Data.ProtoLens.FieldDescriptor ChanPointShim thawHeight__field_descriptor = Data.ProtoLens.FieldDescriptor "thaw_height" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"thawHeight")) :: Data.ProtoLens.FieldDescriptor ChanPointShim in Data.Map.fromList [(Data.ProtoLens.Tag 1, amt__field_descriptor), (Data.ProtoLens.Tag 2, chanPoint__field_descriptor), (Data.ProtoLens.Tag 3, localKey__field_descriptor), (Data.ProtoLens.Tag 4, remoteKey__field_descriptor), (Data.ProtoLens.Tag 5, pendingChanId__field_descriptor), (Data.ProtoLens.Tag 6, thawHeight__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ChanPointShim'_unknownFields (\ x__ y__ -> x__ {_ChanPointShim'_unknownFields = y__}) defMessage = ChanPointShim'_constructor {_ChanPointShim'amt = Data.ProtoLens.fieldDefault, _ChanPointShim'chanPoint = Prelude.Nothing, _ChanPointShim'localKey = Prelude.Nothing, _ChanPointShim'remoteKey = Data.ProtoLens.fieldDefault, _ChanPointShim'pendingChanId = Data.ProtoLens.fieldDefault, _ChanPointShim'thawHeight = Data.ProtoLens.fieldDefault, _ChanPointShim'_unknownFields = []} parseMessage = let loop :: ChanPointShim -> Data.ProtoLens.Encoding.Bytes.Parser ChanPointShim 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) "amt" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"amt") 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) 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) "local_key" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"localKey") y x) 34 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "remote_key" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"remoteKey") y x) 42 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "pending_chan_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pendingChanId") y x) 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "thaw_height" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"thawHeight") 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) "ChanPointShim" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"amt") _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'chanPoint") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 18) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'localKey") _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 @"remoteKey") _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 @"pendingChanId") _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 @"thawHeight") _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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))) instance Control.DeepSeq.NFData ChanPointShim where rnf = \ x__ -> Control.DeepSeq.deepseq (_ChanPointShim'_unknownFields x__) (Control.DeepSeq.deepseq (_ChanPointShim'amt x__) (Control.DeepSeq.deepseq (_ChanPointShim'chanPoint x__) (Control.DeepSeq.deepseq (_ChanPointShim'localKey x__) (Control.DeepSeq.deepseq (_ChanPointShim'remoteKey x__) (Control.DeepSeq.deepseq (_ChanPointShim'pendingChanId x__) (Control.DeepSeq.deepseq (_ChanPointShim'thawHeight x__) ())))))) {- | Fields : * 'Proto.LndGrpc_Fields.active' @:: Lens' Channel Prelude.Bool@ * 'Proto.LndGrpc_Fields.remotePubkey' @:: Lens' Channel Data.Text.Text@ * 'Proto.LndGrpc_Fields.channelPoint' @:: Lens' Channel Data.Text.Text@ * 'Proto.LndGrpc_Fields.chanId' @:: Lens' Channel Data.Word.Word64@ * 'Proto.LndGrpc_Fields.capacity' @:: Lens' Channel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.localBalance' @:: Lens' Channel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.remoteBalance' @:: Lens' Channel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.commitFee' @:: Lens' Channel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.commitWeight' @:: Lens' Channel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.feePerKw' @:: Lens' Channel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.unsettledBalance' @:: Lens' Channel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.totalSatoshisSent' @:: Lens' Channel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.totalSatoshisReceived' @:: Lens' Channel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.numUpdates' @:: Lens' Channel Data.Word.Word64@ * 'Proto.LndGrpc_Fields.pendingHtlcs' @:: Lens' Channel [HTLC]@ * 'Proto.LndGrpc_Fields.vec'pendingHtlcs' @:: Lens' Channel (Data.Vector.Vector HTLC)@ * 'Proto.LndGrpc_Fields.csvDelay' @:: Lens' Channel Data.Word.Word32@ * 'Proto.LndGrpc_Fields.private' @:: Lens' Channel Prelude.Bool@ * 'Proto.LndGrpc_Fields.initiator' @:: Lens' Channel Prelude.Bool@ * 'Proto.LndGrpc_Fields.chanStatusFlags' @:: Lens' Channel Data.Text.Text@ * 'Proto.LndGrpc_Fields.localChanReserveSat' @:: Lens' Channel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.remoteChanReserveSat' @:: Lens' Channel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.staticRemoteKey' @:: Lens' Channel Prelude.Bool@ * 'Proto.LndGrpc_Fields.commitmentType' @:: Lens' Channel CommitmentType@ * 'Proto.LndGrpc_Fields.lifetime' @:: Lens' Channel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.uptime' @:: Lens' Channel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.closeAddress' @:: Lens' Channel Data.Text.Text@ * 'Proto.LndGrpc_Fields.pushAmountSat' @:: Lens' Channel Data.Word.Word64@ * 'Proto.LndGrpc_Fields.thawHeight' @:: Lens' Channel Data.Word.Word32@ * 'Proto.LndGrpc_Fields.localConstraints' @:: Lens' Channel ChannelConstraints@ * 'Proto.LndGrpc_Fields.maybe'localConstraints' @:: Lens' Channel (Prelude.Maybe ChannelConstraints)@ * 'Proto.LndGrpc_Fields.remoteConstraints' @:: Lens' Channel ChannelConstraints@ * 'Proto.LndGrpc_Fields.maybe'remoteConstraints' @:: Lens' Channel (Prelude.Maybe ChannelConstraints)@ -} data Channel = Channel'_constructor {_Channel'active :: !Prelude.Bool, _Channel'remotePubkey :: !Data.Text.Text, _Channel'channelPoint :: !Data.Text.Text, _Channel'chanId :: !Data.Word.Word64, _Channel'capacity :: !Data.Int.Int64, _Channel'localBalance :: !Data.Int.Int64, _Channel'remoteBalance :: !Data.Int.Int64, _Channel'commitFee :: !Data.Int.Int64, _Channel'commitWeight :: !Data.Int.Int64, _Channel'feePerKw :: !Data.Int.Int64, _Channel'unsettledBalance :: !Data.Int.Int64, _Channel'totalSatoshisSent :: !Data.Int.Int64, _Channel'totalSatoshisReceived :: !Data.Int.Int64, _Channel'numUpdates :: !Data.Word.Word64, _Channel'pendingHtlcs :: !(Data.Vector.Vector HTLC), _Channel'csvDelay :: !Data.Word.Word32, _Channel'private :: !Prelude.Bool, _Channel'initiator :: !Prelude.Bool, _Channel'chanStatusFlags :: !Data.Text.Text, _Channel'localChanReserveSat :: !Data.Int.Int64, _Channel'remoteChanReserveSat :: !Data.Int.Int64, _Channel'staticRemoteKey :: !Prelude.Bool, _Channel'commitmentType :: !CommitmentType, _Channel'lifetime :: !Data.Int.Int64, _Channel'uptime :: !Data.Int.Int64, _Channel'closeAddress :: !Data.Text.Text, _Channel'pushAmountSat :: !Data.Word.Word64, _Channel'thawHeight :: !Data.Word.Word32, _Channel'localConstraints :: !(Prelude.Maybe ChannelConstraints), _Channel'remoteConstraints :: !(Prelude.Maybe ChannelConstraints), _Channel'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Channel where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField Channel "active" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'active (\ x__ y__ -> x__ {_Channel'active = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "remotePubkey" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'remotePubkey (\ x__ y__ -> x__ {_Channel'remotePubkey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "channelPoint" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'channelPoint (\ x__ y__ -> x__ {_Channel'channelPoint = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "chanId" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'chanId (\ x__ y__ -> x__ {_Channel'chanId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "capacity" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'capacity (\ x__ y__ -> x__ {_Channel'capacity = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "localBalance" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'localBalance (\ x__ y__ -> x__ {_Channel'localBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "remoteBalance" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'remoteBalance (\ x__ y__ -> x__ {_Channel'remoteBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "commitFee" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'commitFee (\ x__ y__ -> x__ {_Channel'commitFee = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "commitWeight" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'commitWeight (\ x__ y__ -> x__ {_Channel'commitWeight = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "feePerKw" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'feePerKw (\ x__ y__ -> x__ {_Channel'feePerKw = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "unsettledBalance" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'unsettledBalance (\ x__ y__ -> x__ {_Channel'unsettledBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "totalSatoshisSent" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'totalSatoshisSent (\ x__ y__ -> x__ {_Channel'totalSatoshisSent = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "totalSatoshisReceived" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'totalSatoshisReceived (\ x__ y__ -> x__ {_Channel'totalSatoshisReceived = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "numUpdates" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'numUpdates (\ x__ y__ -> x__ {_Channel'numUpdates = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "pendingHtlcs" [HTLC] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'pendingHtlcs (\ x__ y__ -> x__ {_Channel'pendingHtlcs = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField Channel "vec'pendingHtlcs" (Data.Vector.Vector HTLC) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'pendingHtlcs (\ x__ y__ -> x__ {_Channel'pendingHtlcs = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "csvDelay" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'csvDelay (\ x__ y__ -> x__ {_Channel'csvDelay = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "private" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'private (\ x__ y__ -> x__ {_Channel'private = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "initiator" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'initiator (\ x__ y__ -> x__ {_Channel'initiator = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "chanStatusFlags" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'chanStatusFlags (\ x__ y__ -> x__ {_Channel'chanStatusFlags = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "localChanReserveSat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'localChanReserveSat (\ x__ y__ -> x__ {_Channel'localChanReserveSat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "remoteChanReserveSat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'remoteChanReserveSat (\ x__ y__ -> x__ {_Channel'remoteChanReserveSat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "staticRemoteKey" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'staticRemoteKey (\ x__ y__ -> x__ {_Channel'staticRemoteKey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "commitmentType" CommitmentType where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'commitmentType (\ x__ y__ -> x__ {_Channel'commitmentType = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "lifetime" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'lifetime (\ x__ y__ -> x__ {_Channel'lifetime = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "uptime" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'uptime (\ x__ y__ -> x__ {_Channel'uptime = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "closeAddress" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'closeAddress (\ x__ y__ -> x__ {_Channel'closeAddress = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "pushAmountSat" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'pushAmountSat (\ x__ y__ -> x__ {_Channel'pushAmountSat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "thawHeight" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'thawHeight (\ x__ y__ -> x__ {_Channel'thawHeight = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "localConstraints" ChannelConstraints where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'localConstraints (\ x__ y__ -> x__ {_Channel'localConstraints = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField Channel "maybe'localConstraints" (Prelude.Maybe ChannelConstraints) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'localConstraints (\ x__ y__ -> x__ {_Channel'localConstraints = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Channel "remoteConstraints" ChannelConstraints where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'remoteConstraints (\ x__ y__ -> x__ {_Channel'remoteConstraints = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField Channel "maybe'remoteConstraints" (Prelude.Maybe ChannelConstraints) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Channel'remoteConstraints (\ x__ y__ -> x__ {_Channel'remoteConstraints = y__})) Prelude.id instance Data.ProtoLens.Message Channel where messageName _ = Data.Text.pack "lnrpc.Channel" packedMessageDescriptor _ = "\n\ \\aChannel\DC2\SYN\n\ \\ACKactive\CAN\SOH \SOH(\bR\ACKactive\DC2#\n\ \\rremote_pubkey\CAN\STX \SOH(\tR\fremotePubkey\DC2#\n\ \\rchannel_point\CAN\ETX \SOH(\tR\fchannelPoint\DC2\ESC\n\ \\achan_id\CAN\EOT \SOH(\EOTR\ACKchanIdB\STX0\SOH\DC2\SUB\n\ \\bcapacity\CAN\ENQ \SOH(\ETXR\bcapacity\DC2#\n\ \\rlocal_balance\CAN\ACK \SOH(\ETXR\flocalBalance\DC2%\n\ \\SOremote_balance\CAN\a \SOH(\ETXR\rremoteBalance\DC2\GS\n\ \\n\ \commit_fee\CAN\b \SOH(\ETXR\tcommitFee\DC2#\n\ \\rcommit_weight\CAN\t \SOH(\ETXR\fcommitWeight\DC2\FS\n\ \\n\ \fee_per_kw\CAN\n\ \ \SOH(\ETXR\bfeePerKw\DC2+\n\ \\DC1unsettled_balance\CAN\v \SOH(\ETXR\DLEunsettledBalance\DC2.\n\ \\DC3total_satoshis_sent\CAN\f \SOH(\ETXR\DC1totalSatoshisSent\DC26\n\ \\ETBtotal_satoshis_received\CAN\r \SOH(\ETXR\NAKtotalSatoshisReceived\DC2\US\n\ \\vnum_updates\CAN\SO \SOH(\EOTR\n\ \numUpdates\DC20\n\ \\rpending_htlcs\CAN\SI \ETX(\v2\v.lnrpc.HTLCR\fpendingHtlcs\DC2\US\n\ \\tcsv_delay\CAN\DLE \SOH(\rR\bcsvDelayB\STX\CAN\SOH\DC2\CAN\n\ \\aprivate\CAN\DC1 \SOH(\bR\aprivate\DC2\FS\n\ \\tinitiator\CAN\DC2 \SOH(\bR\tinitiator\DC2*\n\ \\DC1chan_status_flags\CAN\DC3 \SOH(\tR\SIchanStatusFlags\DC27\n\ \\SYNlocal_chan_reserve_sat\CAN\DC4 \SOH(\ETXR\DC3localChanReserveSatB\STX\CAN\SOH\DC29\n\ \\ETBremote_chan_reserve_sat\CAN\NAK \SOH(\ETXR\DC4remoteChanReserveSatB\STX\CAN\SOH\DC2.\n\ \\DC1static_remote_key\CAN\SYN \SOH(\bR\SIstaticRemoteKeyB\STX\CAN\SOH\DC2>\n\ \\SIcommitment_type\CAN\SUB \SOH(\SO2\NAK.lnrpc.CommitmentTypeR\SOcommitmentType\DC2\SUB\n\ \\blifetime\CAN\ETB \SOH(\ETXR\blifetime\DC2\SYN\n\ \\ACKuptime\CAN\CAN \SOH(\ETXR\ACKuptime\DC2#\n\ \\rclose_address\CAN\EM \SOH(\tR\fcloseAddress\DC2&\n\ \\SIpush_amount_sat\CAN\ESC \SOH(\EOTR\rpushAmountSat\DC2\US\n\ \\vthaw_height\CAN\FS \SOH(\rR\n\ \thawHeight\DC2F\n\ \\DC1local_constraints\CAN\GS \SOH(\v2\EM.lnrpc.ChannelConstraintsR\DLElocalConstraints\DC2H\n\ \\DC2remote_constraints\CAN\RS \SOH(\v2\EM.lnrpc.ChannelConstraintsR\DC1remoteConstraints" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let active__field_descriptor = Data.ProtoLens.FieldDescriptor "active" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"active")) :: Data.ProtoLens.FieldDescriptor Channel remotePubkey__field_descriptor = Data.ProtoLens.FieldDescriptor "remote_pubkey" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"remotePubkey")) :: Data.ProtoLens.FieldDescriptor Channel 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 Channel 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 Channel capacity__field_descriptor = Data.ProtoLens.FieldDescriptor "capacity" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"capacity")) :: Data.ProtoLens.FieldDescriptor Channel localBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "local_balance" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"localBalance")) :: Data.ProtoLens.FieldDescriptor Channel remoteBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "remote_balance" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"remoteBalance")) :: Data.ProtoLens.FieldDescriptor Channel commitFee__field_descriptor = Data.ProtoLens.FieldDescriptor "commit_fee" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"commitFee")) :: Data.ProtoLens.FieldDescriptor Channel commitWeight__field_descriptor = Data.ProtoLens.FieldDescriptor "commit_weight" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"commitWeight")) :: Data.ProtoLens.FieldDescriptor Channel feePerKw__field_descriptor = Data.ProtoLens.FieldDescriptor "fee_per_kw" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"feePerKw")) :: Data.ProtoLens.FieldDescriptor Channel unsettledBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "unsettled_balance" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"unsettledBalance")) :: Data.ProtoLens.FieldDescriptor Channel totalSatoshisSent__field_descriptor = Data.ProtoLens.FieldDescriptor "total_satoshis_sent" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"totalSatoshisSent")) :: Data.ProtoLens.FieldDescriptor Channel totalSatoshisReceived__field_descriptor = Data.ProtoLens.FieldDescriptor "total_satoshis_received" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"totalSatoshisReceived")) :: Data.ProtoLens.FieldDescriptor Channel numUpdates__field_descriptor = Data.ProtoLens.FieldDescriptor "num_updates" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"numUpdates")) :: Data.ProtoLens.FieldDescriptor Channel pendingHtlcs__field_descriptor = Data.ProtoLens.FieldDescriptor "pending_htlcs" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor HTLC) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"pendingHtlcs")) :: Data.ProtoLens.FieldDescriptor Channel csvDelay__field_descriptor = Data.ProtoLens.FieldDescriptor "csv_delay" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"csvDelay")) :: Data.ProtoLens.FieldDescriptor Channel 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 Channel initiator__field_descriptor = Data.ProtoLens.FieldDescriptor "initiator" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"initiator")) :: Data.ProtoLens.FieldDescriptor Channel chanStatusFlags__field_descriptor = Data.ProtoLens.FieldDescriptor "chan_status_flags" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"chanStatusFlags")) :: Data.ProtoLens.FieldDescriptor Channel localChanReserveSat__field_descriptor = Data.ProtoLens.FieldDescriptor "local_chan_reserve_sat" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"localChanReserveSat")) :: Data.ProtoLens.FieldDescriptor Channel remoteChanReserveSat__field_descriptor = Data.ProtoLens.FieldDescriptor "remote_chan_reserve_sat" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"remoteChanReserveSat")) :: Data.ProtoLens.FieldDescriptor Channel staticRemoteKey__field_descriptor = Data.ProtoLens.FieldDescriptor "static_remote_key" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"staticRemoteKey")) :: Data.ProtoLens.FieldDescriptor Channel commitmentType__field_descriptor = Data.ProtoLens.FieldDescriptor "commitment_type" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor CommitmentType) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"commitmentType")) :: Data.ProtoLens.FieldDescriptor Channel lifetime__field_descriptor = Data.ProtoLens.FieldDescriptor "lifetime" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"lifetime")) :: Data.ProtoLens.FieldDescriptor Channel uptime__field_descriptor = Data.ProtoLens.FieldDescriptor "uptime" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"uptime")) :: Data.ProtoLens.FieldDescriptor Channel closeAddress__field_descriptor = Data.ProtoLens.FieldDescriptor "close_address" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"closeAddress")) :: Data.ProtoLens.FieldDescriptor Channel pushAmountSat__field_descriptor = Data.ProtoLens.FieldDescriptor "push_amount_sat" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pushAmountSat")) :: Data.ProtoLens.FieldDescriptor Channel thawHeight__field_descriptor = Data.ProtoLens.FieldDescriptor "thaw_height" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"thawHeight")) :: Data.ProtoLens.FieldDescriptor Channel localConstraints__field_descriptor = Data.ProtoLens.FieldDescriptor "local_constraints" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChannelConstraints) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'localConstraints")) :: Data.ProtoLens.FieldDescriptor Channel remoteConstraints__field_descriptor = Data.ProtoLens.FieldDescriptor "remote_constraints" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChannelConstraints) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'remoteConstraints")) :: Data.ProtoLens.FieldDescriptor Channel in Data.Map.fromList [(Data.ProtoLens.Tag 1, active__field_descriptor), (Data.ProtoLens.Tag 2, remotePubkey__field_descriptor), (Data.ProtoLens.Tag 3, channelPoint__field_descriptor), (Data.ProtoLens.Tag 4, chanId__field_descriptor), (Data.ProtoLens.Tag 5, capacity__field_descriptor), (Data.ProtoLens.Tag 6, localBalance__field_descriptor), (Data.ProtoLens.Tag 7, remoteBalance__field_descriptor), (Data.ProtoLens.Tag 8, commitFee__field_descriptor), (Data.ProtoLens.Tag 9, commitWeight__field_descriptor), (Data.ProtoLens.Tag 10, feePerKw__field_descriptor), (Data.ProtoLens.Tag 11, unsettledBalance__field_descriptor), (Data.ProtoLens.Tag 12, totalSatoshisSent__field_descriptor), (Data.ProtoLens.Tag 13, totalSatoshisReceived__field_descriptor), (Data.ProtoLens.Tag 14, numUpdates__field_descriptor), (Data.ProtoLens.Tag 15, pendingHtlcs__field_descriptor), (Data.ProtoLens.Tag 16, csvDelay__field_descriptor), (Data.ProtoLens.Tag 17, private__field_descriptor), (Data.ProtoLens.Tag 18, initiator__field_descriptor), (Data.ProtoLens.Tag 19, chanStatusFlags__field_descriptor), (Data.ProtoLens.Tag 20, localChanReserveSat__field_descriptor), (Data.ProtoLens.Tag 21, remoteChanReserveSat__field_descriptor), (Data.ProtoLens.Tag 22, staticRemoteKey__field_descriptor), (Data.ProtoLens.Tag 26, commitmentType__field_descriptor), (Data.ProtoLens.Tag 23, lifetime__field_descriptor), (Data.ProtoLens.Tag 24, uptime__field_descriptor), (Data.ProtoLens.Tag 25, closeAddress__field_descriptor), (Data.ProtoLens.Tag 27, pushAmountSat__field_descriptor), (Data.ProtoLens.Tag 28, thawHeight__field_descriptor), (Data.ProtoLens.Tag 29, localConstraints__field_descriptor), (Data.ProtoLens.Tag 30, remoteConstraints__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Channel'_unknownFields (\ x__ y__ -> x__ {_Channel'_unknownFields = y__}) defMessage = Channel'_constructor {_Channel'active = Data.ProtoLens.fieldDefault, _Channel'remotePubkey = Data.ProtoLens.fieldDefault, _Channel'channelPoint = Data.ProtoLens.fieldDefault, _Channel'chanId = Data.ProtoLens.fieldDefault, _Channel'capacity = Data.ProtoLens.fieldDefault, _Channel'localBalance = Data.ProtoLens.fieldDefault, _Channel'remoteBalance = Data.ProtoLens.fieldDefault, _Channel'commitFee = Data.ProtoLens.fieldDefault, _Channel'commitWeight = Data.ProtoLens.fieldDefault, _Channel'feePerKw = Data.ProtoLens.fieldDefault, _Channel'unsettledBalance = Data.ProtoLens.fieldDefault, _Channel'totalSatoshisSent = Data.ProtoLens.fieldDefault, _Channel'totalSatoshisReceived = Data.ProtoLens.fieldDefault, _Channel'numUpdates = Data.ProtoLens.fieldDefault, _Channel'pendingHtlcs = Data.Vector.Generic.empty, _Channel'csvDelay = Data.ProtoLens.fieldDefault, _Channel'private = Data.ProtoLens.fieldDefault, _Channel'initiator = Data.ProtoLens.fieldDefault, _Channel'chanStatusFlags = Data.ProtoLens.fieldDefault, _Channel'localChanReserveSat = Data.ProtoLens.fieldDefault, _Channel'remoteChanReserveSat = Data.ProtoLens.fieldDefault, _Channel'staticRemoteKey = Data.ProtoLens.fieldDefault, _Channel'commitmentType = Data.ProtoLens.fieldDefault, _Channel'lifetime = Data.ProtoLens.fieldDefault, _Channel'uptime = Data.ProtoLens.fieldDefault, _Channel'closeAddress = Data.ProtoLens.fieldDefault, _Channel'pushAmountSat = Data.ProtoLens.fieldDefault, _Channel'thawHeight = Data.ProtoLens.fieldDefault, _Channel'localConstraints = Prelude.Nothing, _Channel'remoteConstraints = Prelude.Nothing, _Channel'_unknownFields = []} parseMessage = let loop :: Channel -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld HTLC -> Data.ProtoLens.Encoding.Bytes.Parser Channel loop x mutable'pendingHtlcs = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'pendingHtlcs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'pendingHtlcs) (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'pendingHtlcs") frozen'pendingHtlcs 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) "active" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"active") y x) mutable'pendingHtlcs 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)) "remote_pubkey" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"remotePubkey") y x) mutable'pendingHtlcs 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)) "channel_point" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"channelPoint") y x) mutable'pendingHtlcs 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "chan_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"chanId") y x) mutable'pendingHtlcs 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "capacity" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"capacity") y x) mutable'pendingHtlcs 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "local_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"localBalance") y x) mutable'pendingHtlcs 56 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "remote_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"remoteBalance") y x) mutable'pendingHtlcs 64 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "commit_fee" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"commitFee") y x) mutable'pendingHtlcs 72 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "commit_weight" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"commitWeight") y x) mutable'pendingHtlcs 80 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "fee_per_kw" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"feePerKw") y x) mutable'pendingHtlcs 88 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "unsettled_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"unsettledBalance") y x) mutable'pendingHtlcs 96 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "total_satoshis_sent" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"totalSatoshisSent") y x) mutable'pendingHtlcs 104 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "total_satoshis_received" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"totalSatoshisReceived") y x) mutable'pendingHtlcs 112 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "num_updates" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"numUpdates") y x) mutable'pendingHtlcs 122 -> do !y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "pending_htlcs" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'pendingHtlcs y) loop x v 128 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "csv_delay" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"csvDelay") y x) mutable'pendingHtlcs 136 -> 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'pendingHtlcs 144 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "initiator" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"initiator") y x) mutable'pendingHtlcs 154 -> 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)) "chan_status_flags" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"chanStatusFlags") y x) mutable'pendingHtlcs 160 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "local_chan_reserve_sat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"localChanReserveSat") y x) mutable'pendingHtlcs 168 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "remote_chan_reserve_sat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"remoteChanReserveSat") y x) mutable'pendingHtlcs 176 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "static_remote_key" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"staticRemoteKey") y x) mutable'pendingHtlcs 208 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) "commitment_type" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"commitmentType") y x) mutable'pendingHtlcs 184 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "lifetime" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"lifetime") y x) mutable'pendingHtlcs 192 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "uptime" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"uptime") y x) mutable'pendingHtlcs 202 -> 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)) "close_address" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"closeAddress") y x) mutable'pendingHtlcs 216 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "push_amount_sat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pushAmountSat") y x) mutable'pendingHtlcs 224 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "thaw_height" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"thawHeight") y x) mutable'pendingHtlcs 234 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "local_constraints" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"localConstraints") y x) mutable'pendingHtlcs 242 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "remote_constraints" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"remoteConstraints") y x) mutable'pendingHtlcs wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'pendingHtlcs in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'pendingHtlcs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'pendingHtlcs) "Channel" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"active") _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 @"remotePubkey") _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 @"channelPoint") _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 @"chanId") _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 @"capacity") _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 @"localBalance") _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 @"remoteBalance") _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 @"commitFee") _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 @"commitWeight") _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 @"feePerKw") _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 @"unsettledBalance") _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 @"totalSatoshisSent") _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 @"totalSatoshisReceived") _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.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"numUpdates") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 112) (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) ((Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 122) ((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'pendingHtlcs") _x)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"csvDelay") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 128) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) ((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 136) ((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 @"initiator") _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 (\ b -> if b then 1 else 0) _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"chanStatusFlags") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 154) ((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 @"localChanReserveSat") _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 @"remoteChanReserveSat") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 168) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"staticRemoteKey") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 176) ((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 @"commitmentType") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 208) ((Prelude..) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) Prelude.fromEnum _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"lifetime") _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 @"uptime") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 192) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"closeAddress") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 202) ((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 @"pushAmountSat") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 216) (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"thawHeight") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 224) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'localConstraints") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 234) ((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'remoteConstraints") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 242) ((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 Channel where rnf = \ x__ -> Control.DeepSeq.deepseq (_Channel'_unknownFields x__) (Control.DeepSeq.deepseq (_Channel'active x__) (Control.DeepSeq.deepseq (_Channel'remotePubkey x__) (Control.DeepSeq.deepseq (_Channel'channelPoint x__) (Control.DeepSeq.deepseq (_Channel'chanId x__) (Control.DeepSeq.deepseq (_Channel'capacity x__) (Control.DeepSeq.deepseq (_Channel'localBalance x__) (Control.DeepSeq.deepseq (_Channel'remoteBalance x__) (Control.DeepSeq.deepseq (_Channel'commitFee x__) (Control.DeepSeq.deepseq (_Channel'commitWeight x__) (Control.DeepSeq.deepseq (_Channel'feePerKw x__) (Control.DeepSeq.deepseq (_Channel'unsettledBalance x__) (Control.DeepSeq.deepseq (_Channel'totalSatoshisSent x__) (Control.DeepSeq.deepseq (_Channel'totalSatoshisReceived x__) (Control.DeepSeq.deepseq (_Channel'numUpdates x__) (Control.DeepSeq.deepseq (_Channel'pendingHtlcs x__) (Control.DeepSeq.deepseq (_Channel'csvDelay x__) (Control.DeepSeq.deepseq (_Channel'private x__) (Control.DeepSeq.deepseq (_Channel'initiator x__) (Control.DeepSeq.deepseq (_Channel'chanStatusFlags x__) (Control.DeepSeq.deepseq (_Channel'localChanReserveSat x__) (Control.DeepSeq.deepseq (_Channel'remoteChanReserveSat x__) (Control.DeepSeq.deepseq (_Channel'staticRemoteKey x__) (Control.DeepSeq.deepseq (_Channel'commitmentType x__) (Control.DeepSeq.deepseq (_Channel'lifetime x__) (Control.DeepSeq.deepseq (_Channel'uptime x__) (Control.DeepSeq.deepseq (_Channel'closeAddress x__) (Control.DeepSeq.deepseq (_Channel'pushAmountSat x__) (Control.DeepSeq.deepseq (_Channel'thawHeight x__) (Control.DeepSeq.deepseq (_Channel'localConstraints x__) (Control.DeepSeq.deepseq (_Channel'remoteConstraints x__) ())))))))))))))))))))))))))))))) {- | Fields : * 'Proto.LndGrpc_Fields.nodePubkey' @:: Lens' ChannelAcceptRequest Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.chainHash' @:: Lens' ChannelAcceptRequest Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.pendingChanId' @:: Lens' ChannelAcceptRequest Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.fundingAmt' @:: Lens' ChannelAcceptRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.pushAmt' @:: Lens' ChannelAcceptRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.dustLimit' @:: Lens' ChannelAcceptRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.maxValueInFlight' @:: Lens' ChannelAcceptRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.channelReserve' @:: Lens' ChannelAcceptRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.minHtlc' @:: Lens' ChannelAcceptRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.feePerKw' @:: Lens' ChannelAcceptRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.csvDelay' @:: Lens' ChannelAcceptRequest Data.Word.Word32@ * 'Proto.LndGrpc_Fields.maxAcceptedHtlcs' @:: Lens' ChannelAcceptRequest Data.Word.Word32@ * 'Proto.LndGrpc_Fields.channelFlags' @:: Lens' ChannelAcceptRequest Data.Word.Word32@ -} data ChannelAcceptRequest = ChannelAcceptRequest'_constructor {_ChannelAcceptRequest'nodePubkey :: !Data.ByteString.ByteString, _ChannelAcceptRequest'chainHash :: !Data.ByteString.ByteString, _ChannelAcceptRequest'pendingChanId :: !Data.ByteString.ByteString, _ChannelAcceptRequest'fundingAmt :: !Data.Word.Word64, _ChannelAcceptRequest'pushAmt :: !Data.Word.Word64, _ChannelAcceptRequest'dustLimit :: !Data.Word.Word64, _ChannelAcceptRequest'maxValueInFlight :: !Data.Word.Word64, _ChannelAcceptRequest'channelReserve :: !Data.Word.Word64, _ChannelAcceptRequest'minHtlc :: !Data.Word.Word64, _ChannelAcceptRequest'feePerKw :: !Data.Word.Word64, _ChannelAcceptRequest'csvDelay :: !Data.Word.Word32, _ChannelAcceptRequest'maxAcceptedHtlcs :: !Data.Word.Word32, _ChannelAcceptRequest'channelFlags :: !Data.Word.Word32, _ChannelAcceptRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChannelAcceptRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ChannelAcceptRequest "nodePubkey" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptRequest'nodePubkey (\ x__ y__ -> x__ {_ChannelAcceptRequest'nodePubkey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptRequest "chainHash" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptRequest'chainHash (\ x__ y__ -> x__ {_ChannelAcceptRequest'chainHash = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptRequest "pendingChanId" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptRequest'pendingChanId (\ x__ y__ -> x__ {_ChannelAcceptRequest'pendingChanId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptRequest "fundingAmt" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptRequest'fundingAmt (\ x__ y__ -> x__ {_ChannelAcceptRequest'fundingAmt = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptRequest "pushAmt" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptRequest'pushAmt (\ x__ y__ -> x__ {_ChannelAcceptRequest'pushAmt = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptRequest "dustLimit" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptRequest'dustLimit (\ x__ y__ -> x__ {_ChannelAcceptRequest'dustLimit = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptRequest "maxValueInFlight" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptRequest'maxValueInFlight (\ x__ y__ -> x__ {_ChannelAcceptRequest'maxValueInFlight = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptRequest "channelReserve" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptRequest'channelReserve (\ x__ y__ -> x__ {_ChannelAcceptRequest'channelReserve = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptRequest "minHtlc" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptRequest'minHtlc (\ x__ y__ -> x__ {_ChannelAcceptRequest'minHtlc = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptRequest "feePerKw" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptRequest'feePerKw (\ x__ y__ -> x__ {_ChannelAcceptRequest'feePerKw = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptRequest "csvDelay" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptRequest'csvDelay (\ x__ y__ -> x__ {_ChannelAcceptRequest'csvDelay = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptRequest "maxAcceptedHtlcs" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptRequest'maxAcceptedHtlcs (\ x__ y__ -> x__ {_ChannelAcceptRequest'maxAcceptedHtlcs = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptRequest "channelFlags" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptRequest'channelFlags (\ x__ y__ -> x__ {_ChannelAcceptRequest'channelFlags = y__})) Prelude.id instance Data.ProtoLens.Message ChannelAcceptRequest where messageName _ = Data.Text.pack "lnrpc.ChannelAcceptRequest" packedMessageDescriptor _ = "\n\ \\DC4ChannelAcceptRequest\DC2\US\n\ \\vnode_pubkey\CAN\SOH \SOH(\fR\n\ \nodePubkey\DC2\GS\n\ \\n\ \chain_hash\CAN\STX \SOH(\fR\tchainHash\DC2&\n\ \\SIpending_chan_id\CAN\ETX \SOH(\fR\rpendingChanId\DC2\US\n\ \\vfunding_amt\CAN\EOT \SOH(\EOTR\n\ \fundingAmt\DC2\EM\n\ \\bpush_amt\CAN\ENQ \SOH(\EOTR\apushAmt\DC2\GS\n\ \\n\ \dust_limit\CAN\ACK \SOH(\EOTR\tdustLimit\DC2-\n\ \\DC3max_value_in_flight\CAN\a \SOH(\EOTR\DLEmaxValueInFlight\DC2'\n\ \\SIchannel_reserve\CAN\b \SOH(\EOTR\SOchannelReserve\DC2\EM\n\ \\bmin_htlc\CAN\t \SOH(\EOTR\aminHtlc\DC2\FS\n\ \\n\ \fee_per_kw\CAN\n\ \ \SOH(\EOTR\bfeePerKw\DC2\ESC\n\ \\tcsv_delay\CAN\v \SOH(\rR\bcsvDelay\DC2,\n\ \\DC2max_accepted_htlcs\CAN\f \SOH(\rR\DLEmaxAcceptedHtlcs\DC2#\n\ \\rchannel_flags\CAN\r \SOH(\rR\fchannelFlags" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let nodePubkey__field_descriptor = Data.ProtoLens.FieldDescriptor "node_pubkey" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"nodePubkey")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptRequest 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 ChannelAcceptRequest pendingChanId__field_descriptor = Data.ProtoLens.FieldDescriptor "pending_chan_id" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pendingChanId")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptRequest fundingAmt__field_descriptor = Data.ProtoLens.FieldDescriptor "funding_amt" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"fundingAmt")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptRequest pushAmt__field_descriptor = Data.ProtoLens.FieldDescriptor "push_amt" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pushAmt")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptRequest dustLimit__field_descriptor = Data.ProtoLens.FieldDescriptor "dust_limit" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"dustLimit")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptRequest maxValueInFlight__field_descriptor = Data.ProtoLens.FieldDescriptor "max_value_in_flight" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"maxValueInFlight")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptRequest channelReserve__field_descriptor = Data.ProtoLens.FieldDescriptor "channel_reserve" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"channelReserve")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptRequest minHtlc__field_descriptor = Data.ProtoLens.FieldDescriptor "min_htlc" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"minHtlc")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptRequest feePerKw__field_descriptor = Data.ProtoLens.FieldDescriptor "fee_per_kw" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"feePerKw")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptRequest csvDelay__field_descriptor = Data.ProtoLens.FieldDescriptor "csv_delay" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"csvDelay")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptRequest maxAcceptedHtlcs__field_descriptor = Data.ProtoLens.FieldDescriptor "max_accepted_htlcs" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"maxAcceptedHtlcs")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptRequest 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 ChannelAcceptRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, nodePubkey__field_descriptor), (Data.ProtoLens.Tag 2, chainHash__field_descriptor), (Data.ProtoLens.Tag 3, pendingChanId__field_descriptor), (Data.ProtoLens.Tag 4, fundingAmt__field_descriptor), (Data.ProtoLens.Tag 5, pushAmt__field_descriptor), (Data.ProtoLens.Tag 6, dustLimit__field_descriptor), (Data.ProtoLens.Tag 7, maxValueInFlight__field_descriptor), (Data.ProtoLens.Tag 8, channelReserve__field_descriptor), (Data.ProtoLens.Tag 9, minHtlc__field_descriptor), (Data.ProtoLens.Tag 10, feePerKw__field_descriptor), (Data.ProtoLens.Tag 11, csvDelay__field_descriptor), (Data.ProtoLens.Tag 12, maxAcceptedHtlcs__field_descriptor), (Data.ProtoLens.Tag 13, channelFlags__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ChannelAcceptRequest'_unknownFields (\ x__ y__ -> x__ {_ChannelAcceptRequest'_unknownFields = y__}) defMessage = ChannelAcceptRequest'_constructor {_ChannelAcceptRequest'nodePubkey = Data.ProtoLens.fieldDefault, _ChannelAcceptRequest'chainHash = Data.ProtoLens.fieldDefault, _ChannelAcceptRequest'pendingChanId = Data.ProtoLens.fieldDefault, _ChannelAcceptRequest'fundingAmt = Data.ProtoLens.fieldDefault, _ChannelAcceptRequest'pushAmt = Data.ProtoLens.fieldDefault, _ChannelAcceptRequest'dustLimit = Data.ProtoLens.fieldDefault, _ChannelAcceptRequest'maxValueInFlight = Data.ProtoLens.fieldDefault, _ChannelAcceptRequest'channelReserve = Data.ProtoLens.fieldDefault, _ChannelAcceptRequest'minHtlc = Data.ProtoLens.fieldDefault, _ChannelAcceptRequest'feePerKw = Data.ProtoLens.fieldDefault, _ChannelAcceptRequest'csvDelay = Data.ProtoLens.fieldDefault, _ChannelAcceptRequest'maxAcceptedHtlcs = Data.ProtoLens.fieldDefault, _ChannelAcceptRequest'channelFlags = Data.ProtoLens.fieldDefault, _ChannelAcceptRequest'_unknownFields = []} parseMessage = let loop :: ChannelAcceptRequest -> Data.ProtoLens.Encoding.Bytes.Parser ChannelAcceptRequest 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)) "node_pubkey" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"nodePubkey") 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) 26 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "pending_chan_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pendingChanId") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "funding_amt" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"fundingAmt") y x) 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "push_amt" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pushAmt") y x) 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "dust_limit" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"dustLimit") y x) 56 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "max_value_in_flight" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"maxValueInFlight") y x) 64 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "channel_reserve" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"channelReserve") y x) 72 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "min_htlc" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"minHtlc") y x) 80 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "fee_per_kw" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"feePerKw") y x) 88 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "csv_delay" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"csvDelay") y x) 96 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "max_accepted_htlcs" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"maxAcceptedHtlcs") y x) 104 -> 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) 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) "ChannelAcceptRequest" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"nodePubkey") _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 @"pendingChanId") _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 @"fundingAmt") _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 @"pushAmt") _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 @"dustLimit") _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 @"maxValueInFlight") _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 @"channelReserve") _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 @"minHtlc") _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 @"feePerKw") _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 @"csvDelay") _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 @"maxAcceptedHtlcs") _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 @"channelFlags") _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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))))))))))) instance Control.DeepSeq.NFData ChannelAcceptRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_ChannelAcceptRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_ChannelAcceptRequest'nodePubkey x__) (Control.DeepSeq.deepseq (_ChannelAcceptRequest'chainHash x__) (Control.DeepSeq.deepseq (_ChannelAcceptRequest'pendingChanId x__) (Control.DeepSeq.deepseq (_ChannelAcceptRequest'fundingAmt x__) (Control.DeepSeq.deepseq (_ChannelAcceptRequest'pushAmt x__) (Control.DeepSeq.deepseq (_ChannelAcceptRequest'dustLimit x__) (Control.DeepSeq.deepseq (_ChannelAcceptRequest'maxValueInFlight x__) (Control.DeepSeq.deepseq (_ChannelAcceptRequest'channelReserve x__) (Control.DeepSeq.deepseq (_ChannelAcceptRequest'minHtlc x__) (Control.DeepSeq.deepseq (_ChannelAcceptRequest'feePerKw x__) (Control.DeepSeq.deepseq (_ChannelAcceptRequest'csvDelay x__) (Control.DeepSeq.deepseq (_ChannelAcceptRequest'maxAcceptedHtlcs x__) (Control.DeepSeq.deepseq (_ChannelAcceptRequest'channelFlags x__) ()))))))))))))) {- | Fields : * 'Proto.LndGrpc_Fields.accept' @:: Lens' ChannelAcceptResponse Prelude.Bool@ * 'Proto.LndGrpc_Fields.pendingChanId' @:: Lens' ChannelAcceptResponse Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.error' @:: Lens' ChannelAcceptResponse Data.Text.Text@ * 'Proto.LndGrpc_Fields.upfrontShutdown' @:: Lens' ChannelAcceptResponse Data.Text.Text@ * 'Proto.LndGrpc_Fields.csvDelay' @:: Lens' ChannelAcceptResponse Data.Word.Word32@ * 'Proto.LndGrpc_Fields.reserveSat' @:: Lens' ChannelAcceptResponse Data.Word.Word64@ * 'Proto.LndGrpc_Fields.inFlightMaxMsat' @:: Lens' ChannelAcceptResponse Data.Word.Word64@ * 'Proto.LndGrpc_Fields.maxHtlcCount' @:: Lens' ChannelAcceptResponse Data.Word.Word32@ * 'Proto.LndGrpc_Fields.minHtlcIn' @:: Lens' ChannelAcceptResponse Data.Word.Word64@ * 'Proto.LndGrpc_Fields.minAcceptDepth' @:: Lens' ChannelAcceptResponse Data.Word.Word32@ -} data ChannelAcceptResponse = ChannelAcceptResponse'_constructor {_ChannelAcceptResponse'accept :: !Prelude.Bool, _ChannelAcceptResponse'pendingChanId :: !Data.ByteString.ByteString, _ChannelAcceptResponse'error :: !Data.Text.Text, _ChannelAcceptResponse'upfrontShutdown :: !Data.Text.Text, _ChannelAcceptResponse'csvDelay :: !Data.Word.Word32, _ChannelAcceptResponse'reserveSat :: !Data.Word.Word64, _ChannelAcceptResponse'inFlightMaxMsat :: !Data.Word.Word64, _ChannelAcceptResponse'maxHtlcCount :: !Data.Word.Word32, _ChannelAcceptResponse'minHtlcIn :: !Data.Word.Word64, _ChannelAcceptResponse'minAcceptDepth :: !Data.Word.Word32, _ChannelAcceptResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChannelAcceptResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ChannelAcceptResponse "accept" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptResponse'accept (\ x__ y__ -> x__ {_ChannelAcceptResponse'accept = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptResponse "pendingChanId" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptResponse'pendingChanId (\ x__ y__ -> x__ {_ChannelAcceptResponse'pendingChanId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptResponse "error" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptResponse'error (\ x__ y__ -> x__ {_ChannelAcceptResponse'error = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptResponse "upfrontShutdown" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptResponse'upfrontShutdown (\ x__ y__ -> x__ {_ChannelAcceptResponse'upfrontShutdown = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptResponse "csvDelay" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptResponse'csvDelay (\ x__ y__ -> x__ {_ChannelAcceptResponse'csvDelay = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptResponse "reserveSat" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptResponse'reserveSat (\ x__ y__ -> x__ {_ChannelAcceptResponse'reserveSat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptResponse "inFlightMaxMsat" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptResponse'inFlightMaxMsat (\ x__ y__ -> x__ {_ChannelAcceptResponse'inFlightMaxMsat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptResponse "maxHtlcCount" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptResponse'maxHtlcCount (\ x__ y__ -> x__ {_ChannelAcceptResponse'maxHtlcCount = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptResponse "minHtlcIn" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptResponse'minHtlcIn (\ x__ y__ -> x__ {_ChannelAcceptResponse'minHtlcIn = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelAcceptResponse "minAcceptDepth" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelAcceptResponse'minAcceptDepth (\ x__ y__ -> x__ {_ChannelAcceptResponse'minAcceptDepth = y__})) Prelude.id instance Data.ProtoLens.Message ChannelAcceptResponse where messageName _ = Data.Text.pack "lnrpc.ChannelAcceptResponse" packedMessageDescriptor _ = "\n\ \\NAKChannelAcceptResponse\DC2\SYN\n\ \\ACKaccept\CAN\SOH \SOH(\bR\ACKaccept\DC2&\n\ \\SIpending_chan_id\CAN\STX \SOH(\fR\rpendingChanId\DC2\DC4\n\ \\ENQerror\CAN\ETX \SOH(\tR\ENQerror\DC2)\n\ \\DLEupfront_shutdown\CAN\EOT \SOH(\tR\SIupfrontShutdown\DC2\ESC\n\ \\tcsv_delay\CAN\ENQ \SOH(\rR\bcsvDelay\DC2\US\n\ \\vreserve_sat\CAN\ACK \SOH(\EOTR\n\ \reserveSat\DC2+\n\ \\DC2in_flight_max_msat\CAN\a \SOH(\EOTR\SIinFlightMaxMsat\DC2$\n\ \\SOmax_htlc_count\CAN\b \SOH(\rR\fmaxHtlcCount\DC2\RS\n\ \\vmin_htlc_in\CAN\t \SOH(\EOTR\tminHtlcIn\DC2(\n\ \\DLEmin_accept_depth\CAN\n\ \ \SOH(\rR\SOminAcceptDepth" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let accept__field_descriptor = Data.ProtoLens.FieldDescriptor "accept" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"accept")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptResponse pendingChanId__field_descriptor = Data.ProtoLens.FieldDescriptor "pending_chan_id" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pendingChanId")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptResponse 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 ChannelAcceptResponse upfrontShutdown__field_descriptor = Data.ProtoLens.FieldDescriptor "upfront_shutdown" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"upfrontShutdown")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptResponse csvDelay__field_descriptor = Data.ProtoLens.FieldDescriptor "csv_delay" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"csvDelay")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptResponse reserveSat__field_descriptor = Data.ProtoLens.FieldDescriptor "reserve_sat" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"reserveSat")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptResponse inFlightMaxMsat__field_descriptor = Data.ProtoLens.FieldDescriptor "in_flight_max_msat" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"inFlightMaxMsat")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptResponse maxHtlcCount__field_descriptor = Data.ProtoLens.FieldDescriptor "max_htlc_count" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"maxHtlcCount")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptResponse minHtlcIn__field_descriptor = Data.ProtoLens.FieldDescriptor "min_htlc_in" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"minHtlcIn")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptResponse minAcceptDepth__field_descriptor = Data.ProtoLens.FieldDescriptor "min_accept_depth" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"minAcceptDepth")) :: Data.ProtoLens.FieldDescriptor ChannelAcceptResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, accept__field_descriptor), (Data.ProtoLens.Tag 2, pendingChanId__field_descriptor), (Data.ProtoLens.Tag 3, error__field_descriptor), (Data.ProtoLens.Tag 4, upfrontShutdown__field_descriptor), (Data.ProtoLens.Tag 5, csvDelay__field_descriptor), (Data.ProtoLens.Tag 6, reserveSat__field_descriptor), (Data.ProtoLens.Tag 7, inFlightMaxMsat__field_descriptor), (Data.ProtoLens.Tag 8, maxHtlcCount__field_descriptor), (Data.ProtoLens.Tag 9, minHtlcIn__field_descriptor), (Data.ProtoLens.Tag 10, minAcceptDepth__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ChannelAcceptResponse'_unknownFields (\ x__ y__ -> x__ {_ChannelAcceptResponse'_unknownFields = y__}) defMessage = ChannelAcceptResponse'_constructor {_ChannelAcceptResponse'accept = Data.ProtoLens.fieldDefault, _ChannelAcceptResponse'pendingChanId = Data.ProtoLens.fieldDefault, _ChannelAcceptResponse'error = Data.ProtoLens.fieldDefault, _ChannelAcceptResponse'upfrontShutdown = Data.ProtoLens.fieldDefault, _ChannelAcceptResponse'csvDelay = Data.ProtoLens.fieldDefault, _ChannelAcceptResponse'reserveSat = Data.ProtoLens.fieldDefault, _ChannelAcceptResponse'inFlightMaxMsat = Data.ProtoLens.fieldDefault, _ChannelAcceptResponse'maxHtlcCount = Data.ProtoLens.fieldDefault, _ChannelAcceptResponse'minHtlcIn = Data.ProtoLens.fieldDefault, _ChannelAcceptResponse'minAcceptDepth = Data.ProtoLens.fieldDefault, _ChannelAcceptResponse'_unknownFields = []} parseMessage = let loop :: ChannelAcceptResponse -> Data.ProtoLens.Encoding.Bytes.Parser ChannelAcceptResponse 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) "accept" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"accept") y x) 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "pending_chan_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pendingChanId") 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)) "error" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"error") y x) 34 -> 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)) "upfront_shutdown" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"upfrontShutdown") y x) 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "csv_delay" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"csvDelay") y x) 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "reserve_sat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"reserveSat") y x) 56 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "in_flight_max_msat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"inFlightMaxMsat") y x) 64 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "max_htlc_count" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"maxHtlcCount") y x) 72 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "min_htlc_in" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"minHtlcIn") y x) 80 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "min_accept_depth" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"minAcceptDepth") 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) "ChannelAcceptResponse" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"accept") _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 @"pendingChanId") _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 @"error") _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 @"upfrontShutdown") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (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.Text.Encoding.encodeUtf8 _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"csvDelay") _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 @"reserveSat") _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 @"inFlightMaxMsat") _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 @"maxHtlcCount") _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 @"minHtlcIn") _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 @"minAcceptDepth") _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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))))))) instance Control.DeepSeq.NFData ChannelAcceptResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_ChannelAcceptResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_ChannelAcceptResponse'accept x__) (Control.DeepSeq.deepseq (_ChannelAcceptResponse'pendingChanId x__) (Control.DeepSeq.deepseq (_ChannelAcceptResponse'error x__) (Control.DeepSeq.deepseq (_ChannelAcceptResponse'upfrontShutdown x__) (Control.DeepSeq.deepseq (_ChannelAcceptResponse'csvDelay x__) (Control.DeepSeq.deepseq (_ChannelAcceptResponse'reserveSat x__) (Control.DeepSeq.deepseq (_ChannelAcceptResponse'inFlightMaxMsat x__) (Control.DeepSeq.deepseq (_ChannelAcceptResponse'maxHtlcCount x__) (Control.DeepSeq.deepseq (_ChannelAcceptResponse'minHtlcIn x__) (Control.DeepSeq.deepseq (_ChannelAcceptResponse'minAcceptDepth x__) ())))))))))) {- | Fields : * 'Proto.LndGrpc_Fields.chanPoint' @:: Lens' ChannelBackup ChannelPoint@ * 'Proto.LndGrpc_Fields.maybe'chanPoint' @:: Lens' ChannelBackup (Prelude.Maybe ChannelPoint)@ * 'Proto.LndGrpc_Fields.chanBackup' @:: Lens' ChannelBackup Data.ByteString.ByteString@ -} data ChannelBackup = ChannelBackup'_constructor {_ChannelBackup'chanPoint :: !(Prelude.Maybe ChannelPoint), _ChannelBackup'chanBackup :: !Data.ByteString.ByteString, _ChannelBackup'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChannelBackup where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ChannelBackup "chanPoint" 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 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 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) instance Prelude.Show ChannelBackupSubscription where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.chanBackups' @:: Lens' ChannelBackups [ChannelBackup]@ * 'Proto.LndGrpc_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) instance Prelude.Show ChannelBackups where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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 : -} data ChannelBalanceRequest = ChannelBalanceRequest'_constructor {_ChannelBalanceRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChannelBalanceRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Message ChannelBalanceRequest where messageName _ = Data.Text.pack "lnrpc.ChannelBalanceRequest" packedMessageDescriptor _ = "\n\ \\NAKChannelBalanceRequest" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let in Data.Map.fromList [] unknownFields = Lens.Family2.Unchecked.lens _ChannelBalanceRequest'_unknownFields (\ x__ y__ -> x__ {_ChannelBalanceRequest'_unknownFields = y__}) defMessage = ChannelBalanceRequest'_constructor {_ChannelBalanceRequest'_unknownFields = []} parseMessage = let loop :: ChannelBalanceRequest -> Data.ProtoLens.Encoding.Bytes.Parser ChannelBalanceRequest 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) "ChannelBalanceRequest" buildMessage = \ _x -> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) instance Control.DeepSeq.NFData ChannelBalanceRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_ChannelBalanceRequest'_unknownFields x__) () {- | Fields : * 'Proto.LndGrpc_Fields.balance' @:: Lens' ChannelBalanceResponse Data.Int.Int64@ * 'Proto.LndGrpc_Fields.pendingOpenBalance' @:: Lens' ChannelBalanceResponse Data.Int.Int64@ * 'Proto.LndGrpc_Fields.localBalance' @:: Lens' ChannelBalanceResponse Amount@ * 'Proto.LndGrpc_Fields.maybe'localBalance' @:: Lens' ChannelBalanceResponse (Prelude.Maybe Amount)@ * 'Proto.LndGrpc_Fields.remoteBalance' @:: Lens' ChannelBalanceResponse Amount@ * 'Proto.LndGrpc_Fields.maybe'remoteBalance' @:: Lens' ChannelBalanceResponse (Prelude.Maybe Amount)@ * 'Proto.LndGrpc_Fields.unsettledLocalBalance' @:: Lens' ChannelBalanceResponse Amount@ * 'Proto.LndGrpc_Fields.maybe'unsettledLocalBalance' @:: Lens' ChannelBalanceResponse (Prelude.Maybe Amount)@ * 'Proto.LndGrpc_Fields.unsettledRemoteBalance' @:: Lens' ChannelBalanceResponse Amount@ * 'Proto.LndGrpc_Fields.maybe'unsettledRemoteBalance' @:: Lens' ChannelBalanceResponse (Prelude.Maybe Amount)@ * 'Proto.LndGrpc_Fields.pendingOpenLocalBalance' @:: Lens' ChannelBalanceResponse Amount@ * 'Proto.LndGrpc_Fields.maybe'pendingOpenLocalBalance' @:: Lens' ChannelBalanceResponse (Prelude.Maybe Amount)@ * 'Proto.LndGrpc_Fields.pendingOpenRemoteBalance' @:: Lens' ChannelBalanceResponse Amount@ * 'Proto.LndGrpc_Fields.maybe'pendingOpenRemoteBalance' @:: Lens' ChannelBalanceResponse (Prelude.Maybe Amount)@ -} data ChannelBalanceResponse = ChannelBalanceResponse'_constructor {_ChannelBalanceResponse'balance :: !Data.Int.Int64, _ChannelBalanceResponse'pendingOpenBalance :: !Data.Int.Int64, _ChannelBalanceResponse'localBalance :: !(Prelude.Maybe Amount), _ChannelBalanceResponse'remoteBalance :: !(Prelude.Maybe Amount), _ChannelBalanceResponse'unsettledLocalBalance :: !(Prelude.Maybe Amount), _ChannelBalanceResponse'unsettledRemoteBalance :: !(Prelude.Maybe Amount), _ChannelBalanceResponse'pendingOpenLocalBalance :: !(Prelude.Maybe Amount), _ChannelBalanceResponse'pendingOpenRemoteBalance :: !(Prelude.Maybe Amount), _ChannelBalanceResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChannelBalanceResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ChannelBalanceResponse "balance" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelBalanceResponse'balance (\ x__ y__ -> x__ {_ChannelBalanceResponse'balance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelBalanceResponse "pendingOpenBalance" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelBalanceResponse'pendingOpenBalance (\ x__ y__ -> x__ {_ChannelBalanceResponse'pendingOpenBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelBalanceResponse "localBalance" Amount where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelBalanceResponse'localBalance (\ x__ y__ -> x__ {_ChannelBalanceResponse'localBalance = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ChannelBalanceResponse "maybe'localBalance" (Prelude.Maybe Amount) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelBalanceResponse'localBalance (\ x__ y__ -> x__ {_ChannelBalanceResponse'localBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelBalanceResponse "remoteBalance" Amount where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelBalanceResponse'remoteBalance (\ x__ y__ -> x__ {_ChannelBalanceResponse'remoteBalance = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ChannelBalanceResponse "maybe'remoteBalance" (Prelude.Maybe Amount) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelBalanceResponse'remoteBalance (\ x__ y__ -> x__ {_ChannelBalanceResponse'remoteBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelBalanceResponse "unsettledLocalBalance" Amount where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelBalanceResponse'unsettledLocalBalance (\ x__ y__ -> x__ {_ChannelBalanceResponse'unsettledLocalBalance = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ChannelBalanceResponse "maybe'unsettledLocalBalance" (Prelude.Maybe Amount) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelBalanceResponse'unsettledLocalBalance (\ x__ y__ -> x__ {_ChannelBalanceResponse'unsettledLocalBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelBalanceResponse "unsettledRemoteBalance" Amount where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelBalanceResponse'unsettledRemoteBalance (\ x__ y__ -> x__ {_ChannelBalanceResponse'unsettledRemoteBalance = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ChannelBalanceResponse "maybe'unsettledRemoteBalance" (Prelude.Maybe Amount) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelBalanceResponse'unsettledRemoteBalance (\ x__ y__ -> x__ {_ChannelBalanceResponse'unsettledRemoteBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelBalanceResponse "pendingOpenLocalBalance" Amount where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelBalanceResponse'pendingOpenLocalBalance (\ x__ y__ -> x__ {_ChannelBalanceResponse'pendingOpenLocalBalance = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ChannelBalanceResponse "maybe'pendingOpenLocalBalance" (Prelude.Maybe Amount) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelBalanceResponse'pendingOpenLocalBalance (\ x__ y__ -> x__ {_ChannelBalanceResponse'pendingOpenLocalBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelBalanceResponse "pendingOpenRemoteBalance" Amount where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelBalanceResponse'pendingOpenRemoteBalance (\ x__ y__ -> x__ {_ChannelBalanceResponse'pendingOpenRemoteBalance = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ChannelBalanceResponse "maybe'pendingOpenRemoteBalance" (Prelude.Maybe Amount) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelBalanceResponse'pendingOpenRemoteBalance (\ x__ y__ -> x__ {_ChannelBalanceResponse'pendingOpenRemoteBalance = y__})) Prelude.id instance Data.ProtoLens.Message ChannelBalanceResponse where messageName _ = Data.Text.pack "lnrpc.ChannelBalanceResponse" packedMessageDescriptor _ = "\n\ \\SYNChannelBalanceResponse\DC2\FS\n\ \\abalance\CAN\SOH \SOH(\ETXR\abalanceB\STX\CAN\SOH\DC24\n\ \\DC4pending_open_balance\CAN\STX \SOH(\ETXR\DC2pendingOpenBalanceB\STX\CAN\SOH\DC22\n\ \\rlocal_balance\CAN\ETX \SOH(\v2\r.lnrpc.AmountR\flocalBalance\DC24\n\ \\SOremote_balance\CAN\EOT \SOH(\v2\r.lnrpc.AmountR\rremoteBalance\DC2E\n\ \\ETBunsettled_local_balance\CAN\ENQ \SOH(\v2\r.lnrpc.AmountR\NAKunsettledLocalBalance\DC2G\n\ \\CANunsettled_remote_balance\CAN\ACK \SOH(\v2\r.lnrpc.AmountR\SYNunsettledRemoteBalance\DC2J\n\ \\SUBpending_open_local_balance\CAN\a \SOH(\v2\r.lnrpc.AmountR\ETBpendingOpenLocalBalance\DC2L\n\ \\ESCpending_open_remote_balance\CAN\b \SOH(\v2\r.lnrpc.AmountR\CANpendingOpenRemoteBalance" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let balance__field_descriptor = Data.ProtoLens.FieldDescriptor "balance" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"balance")) :: Data.ProtoLens.FieldDescriptor ChannelBalanceResponse pendingOpenBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "pending_open_balance" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pendingOpenBalance")) :: Data.ProtoLens.FieldDescriptor ChannelBalanceResponse localBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "local_balance" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Amount) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'localBalance")) :: Data.ProtoLens.FieldDescriptor ChannelBalanceResponse remoteBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "remote_balance" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Amount) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'remoteBalance")) :: Data.ProtoLens.FieldDescriptor ChannelBalanceResponse unsettledLocalBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "unsettled_local_balance" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Amount) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'unsettledLocalBalance")) :: Data.ProtoLens.FieldDescriptor ChannelBalanceResponse unsettledRemoteBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "unsettled_remote_balance" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Amount) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'unsettledRemoteBalance")) :: Data.ProtoLens.FieldDescriptor ChannelBalanceResponse pendingOpenLocalBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "pending_open_local_balance" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Amount) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'pendingOpenLocalBalance")) :: Data.ProtoLens.FieldDescriptor ChannelBalanceResponse pendingOpenRemoteBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "pending_open_remote_balance" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Amount) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'pendingOpenRemoteBalance")) :: Data.ProtoLens.FieldDescriptor ChannelBalanceResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, balance__field_descriptor), (Data.ProtoLens.Tag 2, pendingOpenBalance__field_descriptor), (Data.ProtoLens.Tag 3, localBalance__field_descriptor), (Data.ProtoLens.Tag 4, remoteBalance__field_descriptor), (Data.ProtoLens.Tag 5, unsettledLocalBalance__field_descriptor), (Data.ProtoLens.Tag 6, unsettledRemoteBalance__field_descriptor), (Data.ProtoLens.Tag 7, pendingOpenLocalBalance__field_descriptor), (Data.ProtoLens.Tag 8, pendingOpenRemoteBalance__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ChannelBalanceResponse'_unknownFields (\ x__ y__ -> x__ {_ChannelBalanceResponse'_unknownFields = y__}) defMessage = ChannelBalanceResponse'_constructor {_ChannelBalanceResponse'balance = Data.ProtoLens.fieldDefault, _ChannelBalanceResponse'pendingOpenBalance = Data.ProtoLens.fieldDefault, _ChannelBalanceResponse'localBalance = Prelude.Nothing, _ChannelBalanceResponse'remoteBalance = Prelude.Nothing, _ChannelBalanceResponse'unsettledLocalBalance = Prelude.Nothing, _ChannelBalanceResponse'unsettledRemoteBalance = Prelude.Nothing, _ChannelBalanceResponse'pendingOpenLocalBalance = Prelude.Nothing, _ChannelBalanceResponse'pendingOpenRemoteBalance = Prelude.Nothing, _ChannelBalanceResponse'_unknownFields = []} parseMessage = let loop :: ChannelBalanceResponse -> Data.ProtoLens.Encoding.Bytes.Parser ChannelBalanceResponse 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) "balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"balance") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "pending_open_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pendingOpenBalance") 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) "local_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"localBalance") 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) "remote_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"remoteBalance") 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) "unsettled_local_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"unsettledLocalBalance") 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) "unsettled_remote_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"unsettledRemoteBalance") y x) 58 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "pending_open_local_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pendingOpenLocalBalance") y x) 66 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "pending_open_remote_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pendingOpenRemoteBalance") 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) "ChannelBalanceResponse" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"balance") _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.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"pendingOpenBalance") _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.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'localBalance") _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.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'remoteBalance") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _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)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'unsettledLocalBalance") _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.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'unsettledRemoteBalance") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _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.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'pendingOpenLocalBalance") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (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.ProtoLens.encodeMessage _v)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'pendingOpenRemoteBalance") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (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.ProtoLens.encodeMessage _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))))) instance Control.DeepSeq.NFData ChannelBalanceResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_ChannelBalanceResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_ChannelBalanceResponse'balance x__) (Control.DeepSeq.deepseq (_ChannelBalanceResponse'pendingOpenBalance x__) (Control.DeepSeq.deepseq (_ChannelBalanceResponse'localBalance x__) (Control.DeepSeq.deepseq (_ChannelBalanceResponse'remoteBalance x__) (Control.DeepSeq.deepseq (_ChannelBalanceResponse'unsettledLocalBalance x__) (Control.DeepSeq.deepseq (_ChannelBalanceResponse'unsettledRemoteBalance x__) (Control.DeepSeq.deepseq (_ChannelBalanceResponse'pendingOpenLocalBalance x__) (Control.DeepSeq.deepseq (_ChannelBalanceResponse'pendingOpenRemoteBalance x__) ())))))))) {- | Fields : * 'Proto.LndGrpc_Fields.channelPoint' @:: Lens' ChannelCloseSummary Data.Text.Text@ * 'Proto.LndGrpc_Fields.chanId' @:: Lens' ChannelCloseSummary Data.Word.Word64@ * 'Proto.LndGrpc_Fields.chainHash' @:: Lens' ChannelCloseSummary Data.Text.Text@ * 'Proto.LndGrpc_Fields.closingTxHash' @:: Lens' ChannelCloseSummary Data.Text.Text@ * 'Proto.LndGrpc_Fields.remotePubkey' @:: Lens' ChannelCloseSummary Data.Text.Text@ * 'Proto.LndGrpc_Fields.capacity' @:: Lens' ChannelCloseSummary Data.Int.Int64@ * 'Proto.LndGrpc_Fields.closeHeight' @:: Lens' ChannelCloseSummary Data.Word.Word32@ * 'Proto.LndGrpc_Fields.settledBalance' @:: Lens' ChannelCloseSummary Data.Int.Int64@ * 'Proto.LndGrpc_Fields.timeLockedBalance' @:: Lens' ChannelCloseSummary Data.Int.Int64@ * 'Proto.LndGrpc_Fields.closeType' @:: Lens' ChannelCloseSummary ChannelCloseSummary'ClosureType@ * 'Proto.LndGrpc_Fields.openInitiator' @:: Lens' ChannelCloseSummary Initiator@ * 'Proto.LndGrpc_Fields.closeInitiator' @:: Lens' ChannelCloseSummary Initiator@ * 'Proto.LndGrpc_Fields.resolutions' @:: Lens' ChannelCloseSummary [Resolution]@ * 'Proto.LndGrpc_Fields.vec'resolutions' @:: Lens' ChannelCloseSummary (Data.Vector.Vector Resolution)@ -} data ChannelCloseSummary = ChannelCloseSummary'_constructor {_ChannelCloseSummary'channelPoint :: !Data.Text.Text, _ChannelCloseSummary'chanId :: !Data.Word.Word64, _ChannelCloseSummary'chainHash :: !Data.Text.Text, _ChannelCloseSummary'closingTxHash :: !Data.Text.Text, _ChannelCloseSummary'remotePubkey :: !Data.Text.Text, _ChannelCloseSummary'capacity :: !Data.Int.Int64, _ChannelCloseSummary'closeHeight :: !Data.Word.Word32, _ChannelCloseSummary'settledBalance :: !Data.Int.Int64, _ChannelCloseSummary'timeLockedBalance :: !Data.Int.Int64, _ChannelCloseSummary'closeType :: !ChannelCloseSummary'ClosureType, _ChannelCloseSummary'openInitiator :: !Initiator, _ChannelCloseSummary'closeInitiator :: !Initiator, _ChannelCloseSummary'resolutions :: !(Data.Vector.Vector Resolution), _ChannelCloseSummary'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChannelCloseSummary where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ChannelCloseSummary "channelPoint" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelCloseSummary'channelPoint (\ x__ y__ -> x__ {_ChannelCloseSummary'channelPoint = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelCloseSummary "chanId" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelCloseSummary'chanId (\ x__ y__ -> x__ {_ChannelCloseSummary'chanId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelCloseSummary "chainHash" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelCloseSummary'chainHash (\ x__ y__ -> x__ {_ChannelCloseSummary'chainHash = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelCloseSummary "closingTxHash" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelCloseSummary'closingTxHash (\ x__ y__ -> x__ {_ChannelCloseSummary'closingTxHash = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelCloseSummary "remotePubkey" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelCloseSummary'remotePubkey (\ x__ y__ -> x__ {_ChannelCloseSummary'remotePubkey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelCloseSummary "capacity" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelCloseSummary'capacity (\ x__ y__ -> x__ {_ChannelCloseSummary'capacity = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelCloseSummary "closeHeight" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelCloseSummary'closeHeight (\ x__ y__ -> x__ {_ChannelCloseSummary'closeHeight = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelCloseSummary "settledBalance" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelCloseSummary'settledBalance (\ x__ y__ -> x__ {_ChannelCloseSummary'settledBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelCloseSummary "timeLockedBalance" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelCloseSummary'timeLockedBalance (\ x__ y__ -> x__ {_ChannelCloseSummary'timeLockedBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelCloseSummary "closeType" ChannelCloseSummary'ClosureType where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelCloseSummary'closeType (\ x__ y__ -> x__ {_ChannelCloseSummary'closeType = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelCloseSummary "openInitiator" Initiator where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelCloseSummary'openInitiator (\ x__ y__ -> x__ {_ChannelCloseSummary'openInitiator = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelCloseSummary "closeInitiator" Initiator where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelCloseSummary'closeInitiator (\ x__ y__ -> x__ {_ChannelCloseSummary'closeInitiator = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelCloseSummary "resolutions" [Resolution] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelCloseSummary'resolutions (\ x__ y__ -> x__ {_ChannelCloseSummary'resolutions = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField ChannelCloseSummary "vec'resolutions" (Data.Vector.Vector Resolution) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelCloseSummary'resolutions (\ x__ y__ -> x__ {_ChannelCloseSummary'resolutions = y__})) Prelude.id instance Data.ProtoLens.Message ChannelCloseSummary where messageName _ = Data.Text.pack "lnrpc.ChannelCloseSummary" packedMessageDescriptor _ = "\n\ \\DC3ChannelCloseSummary\DC2#\n\ \\rchannel_point\CAN\SOH \SOH(\tR\fchannelPoint\DC2\ESC\n\ \\achan_id\CAN\STX \SOH(\EOTR\ACKchanIdB\STX0\SOH\DC2\GS\n\ \\n\ \chain_hash\CAN\ETX \SOH(\tR\tchainHash\DC2&\n\ \\SIclosing_tx_hash\CAN\EOT \SOH(\tR\rclosingTxHash\DC2#\n\ \\rremote_pubkey\CAN\ENQ \SOH(\tR\fremotePubkey\DC2\SUB\n\ \\bcapacity\CAN\ACK \SOH(\ETXR\bcapacity\DC2!\n\ \\fclose_height\CAN\a \SOH(\rR\vcloseHeight\DC2'\n\ \\SIsettled_balance\CAN\b \SOH(\ETXR\SOsettledBalance\DC2.\n\ \\DC3time_locked_balance\CAN\t \SOH(\ETXR\DC1timeLockedBalance\DC2E\n\ \\n\ \close_type\CAN\n\ \ \SOH(\SO2&.lnrpc.ChannelCloseSummary.ClosureTypeR\tcloseType\DC27\n\ \\SOopen_initiator\CAN\v \SOH(\SO2\DLE.lnrpc.InitiatorR\ropenInitiator\DC29\n\ \\SIclose_initiator\CAN\f \SOH(\SO2\DLE.lnrpc.InitiatorR\SOcloseInitiator\DC23\n\ \\vresolutions\CAN\r \ETX(\v2\DC1.lnrpc.ResolutionR\vresolutions\"\138\SOH\n\ \\vClosureType\DC2\NAK\n\ \\DC1COOPERATIVE_CLOSE\DLE\NUL\DC2\NAK\n\ \\DC1LOCAL_FORCE_CLOSE\DLE\SOH\DC2\SYN\n\ \\DC2REMOTE_FORCE_CLOSE\DLE\STX\DC2\DLE\n\ \\fBREACH_CLOSE\DLE\ETX\DC2\DC4\n\ \\DLEFUNDING_CANCELED\DLE\EOT\DC2\r\n\ \\tABANDONED\DLE\ENQ" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let 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 ChannelCloseSummary 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 ChannelCloseSummary chainHash__field_descriptor = Data.ProtoLens.FieldDescriptor "chain_hash" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"chainHash")) :: Data.ProtoLens.FieldDescriptor ChannelCloseSummary closingTxHash__field_descriptor = Data.ProtoLens.FieldDescriptor "closing_tx_hash" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"closingTxHash")) :: Data.ProtoLens.FieldDescriptor ChannelCloseSummary remotePubkey__field_descriptor = Data.ProtoLens.FieldDescriptor "remote_pubkey" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"remotePubkey")) :: Data.ProtoLens.FieldDescriptor ChannelCloseSummary capacity__field_descriptor = Data.ProtoLens.FieldDescriptor "capacity" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"capacity")) :: Data.ProtoLens.FieldDescriptor ChannelCloseSummary closeHeight__field_descriptor = Data.ProtoLens.FieldDescriptor "close_height" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"closeHeight")) :: Data.ProtoLens.FieldDescriptor ChannelCloseSummary settledBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "settled_balance" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"settledBalance")) :: Data.ProtoLens.FieldDescriptor ChannelCloseSummary timeLockedBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "time_locked_balance" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"timeLockedBalance")) :: Data.ProtoLens.FieldDescriptor ChannelCloseSummary closeType__field_descriptor = Data.ProtoLens.FieldDescriptor "close_type" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor ChannelCloseSummary'ClosureType) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"closeType")) :: Data.ProtoLens.FieldDescriptor ChannelCloseSummary openInitiator__field_descriptor = Data.ProtoLens.FieldDescriptor "open_initiator" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor Initiator) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"openInitiator")) :: Data.ProtoLens.FieldDescriptor ChannelCloseSummary closeInitiator__field_descriptor = Data.ProtoLens.FieldDescriptor "close_initiator" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor Initiator) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"closeInitiator")) :: Data.ProtoLens.FieldDescriptor ChannelCloseSummary resolutions__field_descriptor = Data.ProtoLens.FieldDescriptor "resolutions" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Resolution) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"resolutions")) :: Data.ProtoLens.FieldDescriptor ChannelCloseSummary in Data.Map.fromList [(Data.ProtoLens.Tag 1, channelPoint__field_descriptor), (Data.ProtoLens.Tag 2, chanId__field_descriptor), (Data.ProtoLens.Tag 3, chainHash__field_descriptor), (Data.ProtoLens.Tag 4, closingTxHash__field_descriptor), (Data.ProtoLens.Tag 5, remotePubkey__field_descriptor), (Data.ProtoLens.Tag 6, capacity__field_descriptor), (Data.ProtoLens.Tag 7, closeHeight__field_descriptor), (Data.ProtoLens.Tag 8, settledBalance__field_descriptor), (Data.ProtoLens.Tag 9, timeLockedBalance__field_descriptor), (Data.ProtoLens.Tag 10, closeType__field_descriptor), (Data.ProtoLens.Tag 11, openInitiator__field_descriptor), (Data.ProtoLens.Tag 12, closeInitiator__field_descriptor), (Data.ProtoLens.Tag 13, resolutions__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ChannelCloseSummary'_unknownFields (\ x__ y__ -> x__ {_ChannelCloseSummary'_unknownFields = y__}) defMessage = ChannelCloseSummary'_constructor {_ChannelCloseSummary'channelPoint = Data.ProtoLens.fieldDefault, _ChannelCloseSummary'chanId = Data.ProtoLens.fieldDefault, _ChannelCloseSummary'chainHash = Data.ProtoLens.fieldDefault, _ChannelCloseSummary'closingTxHash = Data.ProtoLens.fieldDefault, _ChannelCloseSummary'remotePubkey = Data.ProtoLens.fieldDefault, _ChannelCloseSummary'capacity = Data.ProtoLens.fieldDefault, _ChannelCloseSummary'closeHeight = Data.ProtoLens.fieldDefault, _ChannelCloseSummary'settledBalance = Data.ProtoLens.fieldDefault, _ChannelCloseSummary'timeLockedBalance = Data.ProtoLens.fieldDefault, _ChannelCloseSummary'closeType = Data.ProtoLens.fieldDefault, _ChannelCloseSummary'openInitiator = Data.ProtoLens.fieldDefault, _ChannelCloseSummary'closeInitiator = Data.ProtoLens.fieldDefault, _ChannelCloseSummary'resolutions = Data.Vector.Generic.empty, _ChannelCloseSummary'_unknownFields = []} parseMessage = let loop :: ChannelCloseSummary -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Resolution -> Data.ProtoLens.Encoding.Bytes.Parser ChannelCloseSummary loop x mutable'resolutions = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'resolutions <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'resolutions) (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'resolutions") frozen'resolutions 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)) "channel_point" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"channelPoint") y x) mutable'resolutions 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "chan_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"chanId") y x) mutable'resolutions 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)) "chain_hash" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"chainHash") y x) mutable'resolutions 34 -> 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)) "closing_tx_hash" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"closingTxHash") y x) mutable'resolutions 42 -> 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)) "remote_pubkey" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"remotePubkey") y x) mutable'resolutions 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "capacity" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"capacity") y x) mutable'resolutions 56 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "close_height" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"closeHeight") y x) mutable'resolutions 64 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "settled_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"settledBalance") y x) mutable'resolutions 72 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "time_locked_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"timeLockedBalance") y x) mutable'resolutions 80 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) "close_type" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"closeType") y x) mutable'resolutions 88 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) "open_initiator" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"openInitiator") y x) mutable'resolutions 96 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) "close_initiator" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"closeInitiator") y x) mutable'resolutions 106 -> do !y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "resolutions" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'resolutions 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'resolutions in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'resolutions <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'resolutions) "ChannelCloseSummary" buildMessage = \ _x -> (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 @"chanId") _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 @"chainHash") _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 @"closingTxHash") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (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.Text.Encoding.encodeUtf8 _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"remotePubkey") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (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.Text.Encoding.encodeUtf8 _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"capacity") _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 @"closeHeight") _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 @"settledBalance") _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 @"timeLockedBalance") _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 @"closeType") _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 @"openInitiator") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 88) ((Prelude..) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) Prelude.fromEnum _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"closeInitiator") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 96) ((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 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 _v)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'resolutions") _x)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))))))))))) instance Control.DeepSeq.NFData ChannelCloseSummary where rnf = \ x__ -> Control.DeepSeq.deepseq (_ChannelCloseSummary'_unknownFields x__) (Control.DeepSeq.deepseq (_ChannelCloseSummary'channelPoint x__) (Control.DeepSeq.deepseq (_ChannelCloseSummary'chanId x__) (Control.DeepSeq.deepseq (_ChannelCloseSummary'chainHash x__) (Control.DeepSeq.deepseq (_ChannelCloseSummary'closingTxHash x__) (Control.DeepSeq.deepseq (_ChannelCloseSummary'remotePubkey x__) (Control.DeepSeq.deepseq (_ChannelCloseSummary'capacity x__) (Control.DeepSeq.deepseq (_ChannelCloseSummary'closeHeight x__) (Control.DeepSeq.deepseq (_ChannelCloseSummary'settledBalance x__) (Control.DeepSeq.deepseq (_ChannelCloseSummary'timeLockedBalance x__) (Control.DeepSeq.deepseq (_ChannelCloseSummary'closeType x__) (Control.DeepSeq.deepseq (_ChannelCloseSummary'openInitiator x__) (Control.DeepSeq.deepseq (_ChannelCloseSummary'closeInitiator x__) (Control.DeepSeq.deepseq (_ChannelCloseSummary'resolutions x__) ()))))))))))))) newtype ChannelCloseSummary'ClosureType'UnrecognizedValue = ChannelCloseSummary'ClosureType'UnrecognizedValue Data.Int.Int32 deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) data ChannelCloseSummary'ClosureType = ChannelCloseSummary'COOPERATIVE_CLOSE | ChannelCloseSummary'LOCAL_FORCE_CLOSE | ChannelCloseSummary'REMOTE_FORCE_CLOSE | ChannelCloseSummary'BREACH_CLOSE | ChannelCloseSummary'FUNDING_CANCELED | ChannelCloseSummary'ABANDONED | ChannelCloseSummary'ClosureType'Unrecognized !ChannelCloseSummary'ClosureType'UnrecognizedValue deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.MessageEnum ChannelCloseSummary'ClosureType where maybeToEnum 0 = Prelude.Just ChannelCloseSummary'COOPERATIVE_CLOSE maybeToEnum 1 = Prelude.Just ChannelCloseSummary'LOCAL_FORCE_CLOSE maybeToEnum 2 = Prelude.Just ChannelCloseSummary'REMOTE_FORCE_CLOSE maybeToEnum 3 = Prelude.Just ChannelCloseSummary'BREACH_CLOSE maybeToEnum 4 = Prelude.Just ChannelCloseSummary'FUNDING_CANCELED maybeToEnum 5 = Prelude.Just ChannelCloseSummary'ABANDONED maybeToEnum k = Prelude.Just (ChannelCloseSummary'ClosureType'Unrecognized (ChannelCloseSummary'ClosureType'UnrecognizedValue (Prelude.fromIntegral k))) showEnum ChannelCloseSummary'COOPERATIVE_CLOSE = "COOPERATIVE_CLOSE" showEnum ChannelCloseSummary'LOCAL_FORCE_CLOSE = "LOCAL_FORCE_CLOSE" showEnum ChannelCloseSummary'REMOTE_FORCE_CLOSE = "REMOTE_FORCE_CLOSE" showEnum ChannelCloseSummary'BREACH_CLOSE = "BREACH_CLOSE" showEnum ChannelCloseSummary'FUNDING_CANCELED = "FUNDING_CANCELED" showEnum ChannelCloseSummary'ABANDONED = "ABANDONED" showEnum (ChannelCloseSummary'ClosureType'Unrecognized (ChannelCloseSummary'ClosureType'UnrecognizedValue k)) = Prelude.show k readEnum k | (Prelude.==) k "COOPERATIVE_CLOSE" = Prelude.Just ChannelCloseSummary'COOPERATIVE_CLOSE | (Prelude.==) k "LOCAL_FORCE_CLOSE" = Prelude.Just ChannelCloseSummary'LOCAL_FORCE_CLOSE | (Prelude.==) k "REMOTE_FORCE_CLOSE" = Prelude.Just ChannelCloseSummary'REMOTE_FORCE_CLOSE | (Prelude.==) k "BREACH_CLOSE" = Prelude.Just ChannelCloseSummary'BREACH_CLOSE | (Prelude.==) k "FUNDING_CANCELED" = Prelude.Just ChannelCloseSummary'FUNDING_CANCELED | (Prelude.==) k "ABANDONED" = Prelude.Just ChannelCloseSummary'ABANDONED | Prelude.otherwise = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum instance Prelude.Bounded ChannelCloseSummary'ClosureType where minBound = ChannelCloseSummary'COOPERATIVE_CLOSE maxBound = ChannelCloseSummary'ABANDONED instance Prelude.Enum ChannelCloseSummary'ClosureType where toEnum k__ = Prelude.maybe (Prelude.error ((Prelude.++) "toEnum: unknown value for enum ClosureType: " (Prelude.show k__))) Prelude.id (Data.ProtoLens.maybeToEnum k__) fromEnum ChannelCloseSummary'COOPERATIVE_CLOSE = 0 fromEnum ChannelCloseSummary'LOCAL_FORCE_CLOSE = 1 fromEnum ChannelCloseSummary'REMOTE_FORCE_CLOSE = 2 fromEnum ChannelCloseSummary'BREACH_CLOSE = 3 fromEnum ChannelCloseSummary'FUNDING_CANCELED = 4 fromEnum ChannelCloseSummary'ABANDONED = 5 fromEnum (ChannelCloseSummary'ClosureType'Unrecognized (ChannelCloseSummary'ClosureType'UnrecognizedValue k)) = Prelude.fromIntegral k succ ChannelCloseSummary'ABANDONED = Prelude.error "ChannelCloseSummary'ClosureType.succ: bad argument ChannelCloseSummary'ABANDONED. This value would be out of bounds." succ ChannelCloseSummary'COOPERATIVE_CLOSE = ChannelCloseSummary'LOCAL_FORCE_CLOSE succ ChannelCloseSummary'LOCAL_FORCE_CLOSE = ChannelCloseSummary'REMOTE_FORCE_CLOSE succ ChannelCloseSummary'REMOTE_FORCE_CLOSE = ChannelCloseSummary'BREACH_CLOSE succ ChannelCloseSummary'BREACH_CLOSE = ChannelCloseSummary'FUNDING_CANCELED succ ChannelCloseSummary'FUNDING_CANCELED = ChannelCloseSummary'ABANDONED succ (ChannelCloseSummary'ClosureType'Unrecognized _) = Prelude.error "ChannelCloseSummary'ClosureType.succ: bad argument: unrecognized value" pred ChannelCloseSummary'COOPERATIVE_CLOSE = Prelude.error "ChannelCloseSummary'ClosureType.pred: bad argument ChannelCloseSummary'COOPERATIVE_CLOSE. This value would be out of bounds." pred ChannelCloseSummary'LOCAL_FORCE_CLOSE = ChannelCloseSummary'COOPERATIVE_CLOSE pred ChannelCloseSummary'REMOTE_FORCE_CLOSE = ChannelCloseSummary'LOCAL_FORCE_CLOSE pred ChannelCloseSummary'BREACH_CLOSE = ChannelCloseSummary'REMOTE_FORCE_CLOSE pred ChannelCloseSummary'FUNDING_CANCELED = ChannelCloseSummary'BREACH_CLOSE pred ChannelCloseSummary'ABANDONED = ChannelCloseSummary'FUNDING_CANCELED pred (ChannelCloseSummary'ClosureType'Unrecognized _) = Prelude.error "ChannelCloseSummary'ClosureType.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 ChannelCloseSummary'ClosureType where fieldDefault = ChannelCloseSummary'COOPERATIVE_CLOSE instance Control.DeepSeq.NFData ChannelCloseSummary'ClosureType where rnf x__ = Prelude.seq x__ () {- | Fields : * 'Proto.LndGrpc_Fields.closingTxid' @:: Lens' ChannelCloseUpdate Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.success' @:: Lens' ChannelCloseUpdate Prelude.Bool@ -} data ChannelCloseUpdate = ChannelCloseUpdate'_constructor {_ChannelCloseUpdate'closingTxid :: !Data.ByteString.ByteString, _ChannelCloseUpdate'success :: !Prelude.Bool, _ChannelCloseUpdate'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChannelCloseUpdate where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ChannelCloseUpdate "closingTxid" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelCloseUpdate'closingTxid (\ x__ y__ -> x__ {_ChannelCloseUpdate'closingTxid = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelCloseUpdate "success" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelCloseUpdate'success (\ x__ y__ -> x__ {_ChannelCloseUpdate'success = y__})) Prelude.id instance Data.ProtoLens.Message ChannelCloseUpdate where messageName _ = Data.Text.pack "lnrpc.ChannelCloseUpdate" packedMessageDescriptor _ = "\n\ \\DC2ChannelCloseUpdate\DC2!\n\ \\fclosing_txid\CAN\SOH \SOH(\fR\vclosingTxid\DC2\CAN\n\ \\asuccess\CAN\STX \SOH(\bR\asuccess" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let closingTxid__field_descriptor = Data.ProtoLens.FieldDescriptor "closing_txid" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"closingTxid")) :: Data.ProtoLens.FieldDescriptor ChannelCloseUpdate success__field_descriptor = Data.ProtoLens.FieldDescriptor "success" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"success")) :: Data.ProtoLens.FieldDescriptor ChannelCloseUpdate in Data.Map.fromList [(Data.ProtoLens.Tag 1, closingTxid__field_descriptor), (Data.ProtoLens.Tag 2, success__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ChannelCloseUpdate'_unknownFields (\ x__ y__ -> x__ {_ChannelCloseUpdate'_unknownFields = y__}) defMessage = ChannelCloseUpdate'_constructor {_ChannelCloseUpdate'closingTxid = Data.ProtoLens.fieldDefault, _ChannelCloseUpdate'success = Data.ProtoLens.fieldDefault, _ChannelCloseUpdate'_unknownFields = []} parseMessage = let loop :: ChannelCloseUpdate -> Data.ProtoLens.Encoding.Bytes.Parser ChannelCloseUpdate 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)) "closing_txid" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"closingTxid") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "success" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"success") 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) "ChannelCloseUpdate" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"closingTxid") _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 @"success") _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 ChannelCloseUpdate where rnf = \ x__ -> Control.DeepSeq.deepseq (_ChannelCloseUpdate'_unknownFields x__) (Control.DeepSeq.deepseq (_ChannelCloseUpdate'closingTxid x__) (Control.DeepSeq.deepseq (_ChannelCloseUpdate'success x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.csvDelay' @:: Lens' ChannelConstraints Data.Word.Word32@ * 'Proto.LndGrpc_Fields.chanReserveSat' @:: Lens' ChannelConstraints Data.Word.Word64@ * 'Proto.LndGrpc_Fields.dustLimitSat' @:: Lens' ChannelConstraints Data.Word.Word64@ * 'Proto.LndGrpc_Fields.maxPendingAmtMsat' @:: Lens' ChannelConstraints Data.Word.Word64@ * 'Proto.LndGrpc_Fields.minHtlcMsat' @:: Lens' ChannelConstraints Data.Word.Word64@ * 'Proto.LndGrpc_Fields.maxAcceptedHtlcs' @:: Lens' ChannelConstraints Data.Word.Word32@ -} data ChannelConstraints = ChannelConstraints'_constructor {_ChannelConstraints'csvDelay :: !Data.Word.Word32, _ChannelConstraints'chanReserveSat :: !Data.Word.Word64, _ChannelConstraints'dustLimitSat :: !Data.Word.Word64, _ChannelConstraints'maxPendingAmtMsat :: !Data.Word.Word64, _ChannelConstraints'minHtlcMsat :: !Data.Word.Word64, _ChannelConstraints'maxAcceptedHtlcs :: !Data.Word.Word32, _ChannelConstraints'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChannelConstraints where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ChannelConstraints "csvDelay" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelConstraints'csvDelay (\ x__ y__ -> x__ {_ChannelConstraints'csvDelay = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelConstraints "chanReserveSat" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelConstraints'chanReserveSat (\ x__ y__ -> x__ {_ChannelConstraints'chanReserveSat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelConstraints "dustLimitSat" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelConstraints'dustLimitSat (\ x__ y__ -> x__ {_ChannelConstraints'dustLimitSat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelConstraints "maxPendingAmtMsat" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelConstraints'maxPendingAmtMsat (\ x__ y__ -> x__ {_ChannelConstraints'maxPendingAmtMsat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelConstraints "minHtlcMsat" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelConstraints'minHtlcMsat (\ x__ y__ -> x__ {_ChannelConstraints'minHtlcMsat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelConstraints "maxAcceptedHtlcs" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelConstraints'maxAcceptedHtlcs (\ x__ y__ -> x__ {_ChannelConstraints'maxAcceptedHtlcs = y__})) Prelude.id instance Data.ProtoLens.Message ChannelConstraints where messageName _ = Data.Text.pack "lnrpc.ChannelConstraints" packedMessageDescriptor _ = "\n\ \\DC2ChannelConstraints\DC2\ESC\n\ \\tcsv_delay\CAN\SOH \SOH(\rR\bcsvDelay\DC2(\n\ \\DLEchan_reserve_sat\CAN\STX \SOH(\EOTR\SOchanReserveSat\DC2$\n\ \\SOdust_limit_sat\CAN\ETX \SOH(\EOTR\fdustLimitSat\DC2/\n\ \\DC4max_pending_amt_msat\CAN\EOT \SOH(\EOTR\DC1maxPendingAmtMsat\DC2\"\n\ \\rmin_htlc_msat\CAN\ENQ \SOH(\EOTR\vminHtlcMsat\DC2,\n\ \\DC2max_accepted_htlcs\CAN\ACK \SOH(\rR\DLEmaxAcceptedHtlcs" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let csvDelay__field_descriptor = Data.ProtoLens.FieldDescriptor "csv_delay" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"csvDelay")) :: Data.ProtoLens.FieldDescriptor ChannelConstraints chanReserveSat__field_descriptor = Data.ProtoLens.FieldDescriptor "chan_reserve_sat" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"chanReserveSat")) :: Data.ProtoLens.FieldDescriptor ChannelConstraints dustLimitSat__field_descriptor = Data.ProtoLens.FieldDescriptor "dust_limit_sat" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"dustLimitSat")) :: Data.ProtoLens.FieldDescriptor ChannelConstraints maxPendingAmtMsat__field_descriptor = Data.ProtoLens.FieldDescriptor "max_pending_amt_msat" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"maxPendingAmtMsat")) :: Data.ProtoLens.FieldDescriptor ChannelConstraints 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 ChannelConstraints maxAcceptedHtlcs__field_descriptor = Data.ProtoLens.FieldDescriptor "max_accepted_htlcs" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"maxAcceptedHtlcs")) :: Data.ProtoLens.FieldDescriptor ChannelConstraints in Data.Map.fromList [(Data.ProtoLens.Tag 1, csvDelay__field_descriptor), (Data.ProtoLens.Tag 2, chanReserveSat__field_descriptor), (Data.ProtoLens.Tag 3, dustLimitSat__field_descriptor), (Data.ProtoLens.Tag 4, maxPendingAmtMsat__field_descriptor), (Data.ProtoLens.Tag 5, minHtlcMsat__field_descriptor), (Data.ProtoLens.Tag 6, maxAcceptedHtlcs__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ChannelConstraints'_unknownFields (\ x__ y__ -> x__ {_ChannelConstraints'_unknownFields = y__}) defMessage = ChannelConstraints'_constructor {_ChannelConstraints'csvDelay = Data.ProtoLens.fieldDefault, _ChannelConstraints'chanReserveSat = Data.ProtoLens.fieldDefault, _ChannelConstraints'dustLimitSat = Data.ProtoLens.fieldDefault, _ChannelConstraints'maxPendingAmtMsat = Data.ProtoLens.fieldDefault, _ChannelConstraints'minHtlcMsat = Data.ProtoLens.fieldDefault, _ChannelConstraints'maxAcceptedHtlcs = Data.ProtoLens.fieldDefault, _ChannelConstraints'_unknownFields = []} parseMessage = let loop :: ChannelConstraints -> Data.ProtoLens.Encoding.Bytes.Parser ChannelConstraints 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) "csv_delay" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"csvDelay") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "chan_reserve_sat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"chanReserveSat") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "dust_limit_sat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"dustLimitSat") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "max_pending_amt_msat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"maxPendingAmtMsat") y x) 40 -> 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) 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "max_accepted_htlcs" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"maxAcceptedHtlcs") 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) "ChannelConstraints" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"csvDelay") _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.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"chanReserveSat") _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 @"dustLimitSat") _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 @"maxPendingAmtMsat") _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 @"minHtlcMsat") _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 @"maxAcceptedHtlcs") _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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))) instance Control.DeepSeq.NFData ChannelConstraints where rnf = \ x__ -> Control.DeepSeq.deepseq (_ChannelConstraints'_unknownFields x__) (Control.DeepSeq.deepseq (_ChannelConstraints'csvDelay x__) (Control.DeepSeq.deepseq (_ChannelConstraints'chanReserveSat x__) (Control.DeepSeq.deepseq (_ChannelConstraints'dustLimitSat x__) (Control.DeepSeq.deepseq (_ChannelConstraints'maxPendingAmtMsat x__) (Control.DeepSeq.deepseq (_ChannelConstraints'minHtlcMsat x__) (Control.DeepSeq.deepseq (_ChannelConstraints'maxAcceptedHtlcs x__) ())))))) {- | Fields : * 'Proto.LndGrpc_Fields.channelId' @:: Lens' ChannelEdge Data.Word.Word64@ * 'Proto.LndGrpc_Fields.chanPoint' @:: Lens' ChannelEdge Data.Text.Text@ * 'Proto.LndGrpc_Fields.lastUpdate' @:: Lens' ChannelEdge Data.Word.Word32@ * 'Proto.LndGrpc_Fields.node1Pub' @:: Lens' ChannelEdge Data.Text.Text@ * 'Proto.LndGrpc_Fields.node2Pub' @:: Lens' ChannelEdge Data.Text.Text@ * 'Proto.LndGrpc_Fields.capacity' @:: Lens' ChannelEdge Data.Int.Int64@ * 'Proto.LndGrpc_Fields.node1Policy' @:: Lens' ChannelEdge RoutingPolicy@ * 'Proto.LndGrpc_Fields.maybe'node1Policy' @:: Lens' ChannelEdge (Prelude.Maybe RoutingPolicy)@ * 'Proto.LndGrpc_Fields.node2Policy' @:: Lens' ChannelEdge RoutingPolicy@ * 'Proto.LndGrpc_Fields.maybe'node2Policy' @:: Lens' ChannelEdge (Prelude.Maybe RoutingPolicy)@ -} data ChannelEdge = ChannelEdge'_constructor {_ChannelEdge'channelId :: !Data.Word.Word64, _ChannelEdge'chanPoint :: !Data.Text.Text, _ChannelEdge'lastUpdate :: !Data.Word.Word32, _ChannelEdge'node1Pub :: !Data.Text.Text, _ChannelEdge'node2Pub :: !Data.Text.Text, _ChannelEdge'capacity :: !Data.Int.Int64, _ChannelEdge'node1Policy :: !(Prelude.Maybe RoutingPolicy), _ChannelEdge'node2Policy :: !(Prelude.Maybe RoutingPolicy), _ChannelEdge'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChannelEdge where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ChannelEdge "channelId" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEdge'channelId (\ x__ y__ -> x__ {_ChannelEdge'channelId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelEdge "chanPoint" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEdge'chanPoint (\ x__ y__ -> x__ {_ChannelEdge'chanPoint = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelEdge "lastUpdate" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEdge'lastUpdate (\ x__ y__ -> x__ {_ChannelEdge'lastUpdate = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelEdge "node1Pub" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEdge'node1Pub (\ x__ y__ -> x__ {_ChannelEdge'node1Pub = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelEdge "node2Pub" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEdge'node2Pub (\ x__ y__ -> x__ {_ChannelEdge'node2Pub = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelEdge "capacity" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEdge'capacity (\ x__ y__ -> x__ {_ChannelEdge'capacity = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelEdge "node1Policy" RoutingPolicy where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEdge'node1Policy (\ x__ y__ -> x__ {_ChannelEdge'node1Policy = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ChannelEdge "maybe'node1Policy" (Prelude.Maybe RoutingPolicy) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEdge'node1Policy (\ x__ y__ -> x__ {_ChannelEdge'node1Policy = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelEdge "node2Policy" RoutingPolicy where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEdge'node2Policy (\ x__ y__ -> x__ {_ChannelEdge'node2Policy = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ChannelEdge "maybe'node2Policy" (Prelude.Maybe RoutingPolicy) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEdge'node2Policy (\ x__ y__ -> x__ {_ChannelEdge'node2Policy = y__})) Prelude.id instance Data.ProtoLens.Message ChannelEdge where messageName _ = Data.Text.pack "lnrpc.ChannelEdge" packedMessageDescriptor _ = "\n\ \\vChannelEdge\DC2!\n\ \\n\ \channel_id\CAN\SOH \SOH(\EOTR\tchannelIdB\STX0\SOH\DC2\GS\n\ \\n\ \chan_point\CAN\STX \SOH(\tR\tchanPoint\DC2#\n\ \\vlast_update\CAN\ETX \SOH(\rR\n\ \lastUpdateB\STX\CAN\SOH\DC2\ESC\n\ \\tnode1_pub\CAN\EOT \SOH(\tR\bnode1Pub\DC2\ESC\n\ \\tnode2_pub\CAN\ENQ \SOH(\tR\bnode2Pub\DC2\SUB\n\ \\bcapacity\CAN\ACK \SOH(\ETXR\bcapacity\DC27\n\ \\fnode1_policy\CAN\a \SOH(\v2\DC4.lnrpc.RoutingPolicyR\vnode1Policy\DC27\n\ \\fnode2_policy\CAN\b \SOH(\v2\DC4.lnrpc.RoutingPolicyR\vnode2Policy" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let channelId__field_descriptor = Data.ProtoLens.FieldDescriptor "channel_id" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"channelId")) :: Data.ProtoLens.FieldDescriptor ChannelEdge chanPoint__field_descriptor = Data.ProtoLens.FieldDescriptor "chan_point" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"chanPoint")) :: Data.ProtoLens.FieldDescriptor ChannelEdge lastUpdate__field_descriptor = Data.ProtoLens.FieldDescriptor "last_update" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"lastUpdate")) :: Data.ProtoLens.FieldDescriptor ChannelEdge node1Pub__field_descriptor = Data.ProtoLens.FieldDescriptor "node1_pub" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"node1Pub")) :: Data.ProtoLens.FieldDescriptor ChannelEdge node2Pub__field_descriptor = Data.ProtoLens.FieldDescriptor "node2_pub" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"node2Pub")) :: Data.ProtoLens.FieldDescriptor ChannelEdge capacity__field_descriptor = Data.ProtoLens.FieldDescriptor "capacity" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"capacity")) :: Data.ProtoLens.FieldDescriptor ChannelEdge node1Policy__field_descriptor = Data.ProtoLens.FieldDescriptor "node1_policy" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor RoutingPolicy) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'node1Policy")) :: Data.ProtoLens.FieldDescriptor ChannelEdge node2Policy__field_descriptor = Data.ProtoLens.FieldDescriptor "node2_policy" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor RoutingPolicy) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'node2Policy")) :: Data.ProtoLens.FieldDescriptor ChannelEdge in Data.Map.fromList [(Data.ProtoLens.Tag 1, channelId__field_descriptor), (Data.ProtoLens.Tag 2, chanPoint__field_descriptor), (Data.ProtoLens.Tag 3, lastUpdate__field_descriptor), (Data.ProtoLens.Tag 4, node1Pub__field_descriptor), (Data.ProtoLens.Tag 5, node2Pub__field_descriptor), (Data.ProtoLens.Tag 6, capacity__field_descriptor), (Data.ProtoLens.Tag 7, node1Policy__field_descriptor), (Data.ProtoLens.Tag 8, node2Policy__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ChannelEdge'_unknownFields (\ x__ y__ -> x__ {_ChannelEdge'_unknownFields = y__}) defMessage = ChannelEdge'_constructor {_ChannelEdge'channelId = Data.ProtoLens.fieldDefault, _ChannelEdge'chanPoint = Data.ProtoLens.fieldDefault, _ChannelEdge'lastUpdate = Data.ProtoLens.fieldDefault, _ChannelEdge'node1Pub = Data.ProtoLens.fieldDefault, _ChannelEdge'node2Pub = Data.ProtoLens.fieldDefault, _ChannelEdge'capacity = Data.ProtoLens.fieldDefault, _ChannelEdge'node1Policy = Prelude.Nothing, _ChannelEdge'node2Policy = Prelude.Nothing, _ChannelEdge'_unknownFields = []} parseMessage = let loop :: ChannelEdge -> Data.ProtoLens.Encoding.Bytes.Parser ChannelEdge 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 "channel_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"channelId") 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)) "chan_point" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"chanPoint") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "last_update" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"lastUpdate") y x) 34 -> 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)) "node1_pub" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"node1Pub") y x) 42 -> 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)) "node2_pub" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"node2Pub") y x) 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "capacity" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"capacity") y x) 58 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "node1_policy" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"node1Policy") y x) 66 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "node2_policy" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"node2Policy") 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) "ChannelEdge" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"channelId") _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 @"chanPoint") _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 @"lastUpdate") _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 @"node1Pub") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (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.Text.Encoding.encodeUtf8 _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"node2Pub") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (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.Text.Encoding.encodeUtf8 _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"capacity") _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.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'node1Policy") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (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.ProtoLens.encodeMessage _v)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'node2Policy") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (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.ProtoLens.encodeMessage _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))))) instance Control.DeepSeq.NFData ChannelEdge where rnf = \ x__ -> Control.DeepSeq.deepseq (_ChannelEdge'_unknownFields x__) (Control.DeepSeq.deepseq (_ChannelEdge'channelId x__) (Control.DeepSeq.deepseq (_ChannelEdge'chanPoint x__) (Control.DeepSeq.deepseq (_ChannelEdge'lastUpdate x__) (Control.DeepSeq.deepseq (_ChannelEdge'node1Pub x__) (Control.DeepSeq.deepseq (_ChannelEdge'node2Pub x__) (Control.DeepSeq.deepseq (_ChannelEdge'capacity x__) (Control.DeepSeq.deepseq (_ChannelEdge'node1Policy x__) (Control.DeepSeq.deepseq (_ChannelEdge'node2Policy x__) ())))))))) {- | Fields : * 'Proto.LndGrpc_Fields.chanId' @:: Lens' ChannelEdgeUpdate Data.Word.Word64@ * 'Proto.LndGrpc_Fields.chanPoint' @:: Lens' ChannelEdgeUpdate ChannelPoint@ * 'Proto.LndGrpc_Fields.maybe'chanPoint' @:: Lens' ChannelEdgeUpdate (Prelude.Maybe ChannelPoint)@ * 'Proto.LndGrpc_Fields.capacity' @:: Lens' ChannelEdgeUpdate Data.Int.Int64@ * 'Proto.LndGrpc_Fields.routingPolicy' @:: Lens' ChannelEdgeUpdate RoutingPolicy@ * 'Proto.LndGrpc_Fields.maybe'routingPolicy' @:: Lens' ChannelEdgeUpdate (Prelude.Maybe RoutingPolicy)@ * 'Proto.LndGrpc_Fields.advertisingNode' @:: Lens' ChannelEdgeUpdate Data.Text.Text@ * 'Proto.LndGrpc_Fields.connectingNode' @:: Lens' ChannelEdgeUpdate Data.Text.Text@ -} data ChannelEdgeUpdate = ChannelEdgeUpdate'_constructor {_ChannelEdgeUpdate'chanId :: !Data.Word.Word64, _ChannelEdgeUpdate'chanPoint :: !(Prelude.Maybe ChannelPoint), _ChannelEdgeUpdate'capacity :: !Data.Int.Int64, _ChannelEdgeUpdate'routingPolicy :: !(Prelude.Maybe RoutingPolicy), _ChannelEdgeUpdate'advertisingNode :: !Data.Text.Text, _ChannelEdgeUpdate'connectingNode :: !Data.Text.Text, _ChannelEdgeUpdate'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChannelEdgeUpdate where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ChannelEdgeUpdate "chanId" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEdgeUpdate'chanId (\ x__ y__ -> x__ {_ChannelEdgeUpdate'chanId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelEdgeUpdate "chanPoint" ChannelPoint where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEdgeUpdate'chanPoint (\ x__ y__ -> x__ {_ChannelEdgeUpdate'chanPoint = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ChannelEdgeUpdate "maybe'chanPoint" (Prelude.Maybe ChannelPoint) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEdgeUpdate'chanPoint (\ x__ y__ -> x__ {_ChannelEdgeUpdate'chanPoint = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelEdgeUpdate "capacity" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEdgeUpdate'capacity (\ x__ y__ -> x__ {_ChannelEdgeUpdate'capacity = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelEdgeUpdate "routingPolicy" RoutingPolicy where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEdgeUpdate'routingPolicy (\ x__ y__ -> x__ {_ChannelEdgeUpdate'routingPolicy = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ChannelEdgeUpdate "maybe'routingPolicy" (Prelude.Maybe RoutingPolicy) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEdgeUpdate'routingPolicy (\ x__ y__ -> x__ {_ChannelEdgeUpdate'routingPolicy = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelEdgeUpdate "advertisingNode" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEdgeUpdate'advertisingNode (\ x__ y__ -> x__ {_ChannelEdgeUpdate'advertisingNode = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelEdgeUpdate "connectingNode" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEdgeUpdate'connectingNode (\ x__ y__ -> x__ {_ChannelEdgeUpdate'connectingNode = y__})) Prelude.id instance Data.ProtoLens.Message ChannelEdgeUpdate where messageName _ = Data.Text.pack "lnrpc.ChannelEdgeUpdate" packedMessageDescriptor _ = "\n\ \\DC1ChannelEdgeUpdate\DC2\ESC\n\ \\achan_id\CAN\SOH \SOH(\EOTR\ACKchanIdB\STX0\SOH\DC22\n\ \\n\ \chan_point\CAN\STX \SOH(\v2\DC3.lnrpc.ChannelPointR\tchanPoint\DC2\SUB\n\ \\bcapacity\CAN\ETX \SOH(\ETXR\bcapacity\DC2;\n\ \\SOrouting_policy\CAN\EOT \SOH(\v2\DC4.lnrpc.RoutingPolicyR\rroutingPolicy\DC2)\n\ \\DLEadvertising_node\CAN\ENQ \SOH(\tR\SIadvertisingNode\DC2'\n\ \\SIconnecting_node\CAN\ACK \SOH(\tR\SOconnectingNode" 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 ChannelEdgeUpdate chanPoint__field_descriptor = Data.ProtoLens.FieldDescriptor "chan_point" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChannelPoint) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'chanPoint")) :: Data.ProtoLens.FieldDescriptor ChannelEdgeUpdate capacity__field_descriptor = Data.ProtoLens.FieldDescriptor "capacity" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"capacity")) :: Data.ProtoLens.FieldDescriptor ChannelEdgeUpdate routingPolicy__field_descriptor = Data.ProtoLens.FieldDescriptor "routing_policy" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor RoutingPolicy) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'routingPolicy")) :: Data.ProtoLens.FieldDescriptor ChannelEdgeUpdate advertisingNode__field_descriptor = Data.ProtoLens.FieldDescriptor "advertising_node" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"advertisingNode")) :: Data.ProtoLens.FieldDescriptor ChannelEdgeUpdate connectingNode__field_descriptor = Data.ProtoLens.FieldDescriptor "connecting_node" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"connectingNode")) :: Data.ProtoLens.FieldDescriptor ChannelEdgeUpdate in Data.Map.fromList [(Data.ProtoLens.Tag 1, chanId__field_descriptor), (Data.ProtoLens.Tag 2, chanPoint__field_descriptor), (Data.ProtoLens.Tag 3, capacity__field_descriptor), (Data.ProtoLens.Tag 4, routingPolicy__field_descriptor), (Data.ProtoLens.Tag 5, advertisingNode__field_descriptor), (Data.ProtoLens.Tag 6, connectingNode__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ChannelEdgeUpdate'_unknownFields (\ x__ y__ -> x__ {_ChannelEdgeUpdate'_unknownFields = y__}) defMessage = ChannelEdgeUpdate'_constructor {_ChannelEdgeUpdate'chanId = Data.ProtoLens.fieldDefault, _ChannelEdgeUpdate'chanPoint = Prelude.Nothing, _ChannelEdgeUpdate'capacity = Data.ProtoLens.fieldDefault, _ChannelEdgeUpdate'routingPolicy = Prelude.Nothing, _ChannelEdgeUpdate'advertisingNode = Data.ProtoLens.fieldDefault, _ChannelEdgeUpdate'connectingNode = Data.ProtoLens.fieldDefault, _ChannelEdgeUpdate'_unknownFields = []} parseMessage = let loop :: ChannelEdgeUpdate -> Data.ProtoLens.Encoding.Bytes.Parser ChannelEdgeUpdate 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) 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) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "capacity" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"capacity") 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) "routing_policy" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"routingPolicy") y x) 42 -> 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)) "advertising_node" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"advertisingNode") y x) 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)) "connecting_node" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"connectingNode") 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) "ChannelEdgeUpdate" 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.<>) (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 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 @"capacity") _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.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'routingPolicy") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _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)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"advertisingNode") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (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.Text.Encoding.encodeUtf8 _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"connectingNode") _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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))) instance Control.DeepSeq.NFData ChannelEdgeUpdate where rnf = \ x__ -> Control.DeepSeq.deepseq (_ChannelEdgeUpdate'_unknownFields x__) (Control.DeepSeq.deepseq (_ChannelEdgeUpdate'chanId x__) (Control.DeepSeq.deepseq (_ChannelEdgeUpdate'chanPoint x__) (Control.DeepSeq.deepseq (_ChannelEdgeUpdate'capacity x__) (Control.DeepSeq.deepseq (_ChannelEdgeUpdate'routingPolicy x__) (Control.DeepSeq.deepseq (_ChannelEdgeUpdate'advertisingNode x__) (Control.DeepSeq.deepseq (_ChannelEdgeUpdate'connectingNode x__) ())))))) {- | Fields : -} data ChannelEventSubscription = ChannelEventSubscription'_constructor {_ChannelEventSubscription'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChannelEventSubscription where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Message ChannelEventSubscription where messageName _ = Data.Text.pack "lnrpc.ChannelEventSubscription" packedMessageDescriptor _ = "\n\ \\CANChannelEventSubscription" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let in Data.Map.fromList [] unknownFields = Lens.Family2.Unchecked.lens _ChannelEventSubscription'_unknownFields (\ x__ y__ -> x__ {_ChannelEventSubscription'_unknownFields = y__}) defMessage = ChannelEventSubscription'_constructor {_ChannelEventSubscription'_unknownFields = []} parseMessage = let loop :: ChannelEventSubscription -> Data.ProtoLens.Encoding.Bytes.Parser ChannelEventSubscription 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) "ChannelEventSubscription" buildMessage = \ _x -> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) instance Control.DeepSeq.NFData ChannelEventSubscription where rnf = \ x__ -> Control.DeepSeq.deepseq (_ChannelEventSubscription'_unknownFields x__) () {- | Fields : * 'Proto.LndGrpc_Fields.type'' @:: Lens' ChannelEventUpdate ChannelEventUpdate'UpdateType@ * 'Proto.LndGrpc_Fields.maybe'channel' @:: Lens' ChannelEventUpdate (Prelude.Maybe ChannelEventUpdate'Channel)@ * 'Proto.LndGrpc_Fields.maybe'openChannel' @:: Lens' ChannelEventUpdate (Prelude.Maybe Channel)@ * 'Proto.LndGrpc_Fields.openChannel' @:: Lens' ChannelEventUpdate Channel@ * 'Proto.LndGrpc_Fields.maybe'closedChannel' @:: Lens' ChannelEventUpdate (Prelude.Maybe ChannelCloseSummary)@ * 'Proto.LndGrpc_Fields.closedChannel' @:: Lens' ChannelEventUpdate ChannelCloseSummary@ * 'Proto.LndGrpc_Fields.maybe'activeChannel' @:: Lens' ChannelEventUpdate (Prelude.Maybe ChannelPoint)@ * 'Proto.LndGrpc_Fields.activeChannel' @:: Lens' ChannelEventUpdate ChannelPoint@ * 'Proto.LndGrpc_Fields.maybe'inactiveChannel' @:: Lens' ChannelEventUpdate (Prelude.Maybe ChannelPoint)@ * 'Proto.LndGrpc_Fields.inactiveChannel' @:: Lens' ChannelEventUpdate ChannelPoint@ * 'Proto.LndGrpc_Fields.maybe'pendingOpenChannel' @:: Lens' ChannelEventUpdate (Prelude.Maybe PendingUpdate)@ * 'Proto.LndGrpc_Fields.pendingOpenChannel' @:: Lens' ChannelEventUpdate PendingUpdate@ -} data ChannelEventUpdate = ChannelEventUpdate'_constructor {_ChannelEventUpdate'type' :: !ChannelEventUpdate'UpdateType, _ChannelEventUpdate'channel :: !(Prelude.Maybe ChannelEventUpdate'Channel), _ChannelEventUpdate'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChannelEventUpdate where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) data ChannelEventUpdate'Channel = ChannelEventUpdate'OpenChannel !Channel | ChannelEventUpdate'ClosedChannel !ChannelCloseSummary | ChannelEventUpdate'ActiveChannel !ChannelPoint | ChannelEventUpdate'InactiveChannel !ChannelPoint | ChannelEventUpdate'PendingOpenChannel !PendingUpdate deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.Field.HasField ChannelEventUpdate "type'" ChannelEventUpdate'UpdateType where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEventUpdate'type' (\ x__ y__ -> x__ {_ChannelEventUpdate'type' = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelEventUpdate "maybe'channel" (Prelude.Maybe ChannelEventUpdate'Channel) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEventUpdate'channel (\ x__ y__ -> x__ {_ChannelEventUpdate'channel = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelEventUpdate "maybe'openChannel" (Prelude.Maybe Channel) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEventUpdate'channel (\ x__ y__ -> x__ {_ChannelEventUpdate'channel = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (ChannelEventUpdate'OpenChannel x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap ChannelEventUpdate'OpenChannel y__)) instance Data.ProtoLens.Field.HasField ChannelEventUpdate "openChannel" Channel where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEventUpdate'channel (\ x__ y__ -> x__ {_ChannelEventUpdate'channel = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (ChannelEventUpdate'OpenChannel x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap ChannelEventUpdate'OpenChannel y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Field.HasField ChannelEventUpdate "maybe'closedChannel" (Prelude.Maybe ChannelCloseSummary) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEventUpdate'channel (\ x__ y__ -> x__ {_ChannelEventUpdate'channel = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (ChannelEventUpdate'ClosedChannel x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap ChannelEventUpdate'ClosedChannel y__)) instance Data.ProtoLens.Field.HasField ChannelEventUpdate "closedChannel" ChannelCloseSummary where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEventUpdate'channel (\ x__ y__ -> x__ {_ChannelEventUpdate'channel = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (ChannelEventUpdate'ClosedChannel x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap ChannelEventUpdate'ClosedChannel y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Field.HasField ChannelEventUpdate "maybe'activeChannel" (Prelude.Maybe ChannelPoint) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEventUpdate'channel (\ x__ y__ -> x__ {_ChannelEventUpdate'channel = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (ChannelEventUpdate'ActiveChannel x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap ChannelEventUpdate'ActiveChannel y__)) instance Data.ProtoLens.Field.HasField ChannelEventUpdate "activeChannel" ChannelPoint where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEventUpdate'channel (\ x__ y__ -> x__ {_ChannelEventUpdate'channel = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (ChannelEventUpdate'ActiveChannel x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap ChannelEventUpdate'ActiveChannel y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Field.HasField ChannelEventUpdate "maybe'inactiveChannel" (Prelude.Maybe ChannelPoint) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEventUpdate'channel (\ x__ y__ -> x__ {_ChannelEventUpdate'channel = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (ChannelEventUpdate'InactiveChannel x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap ChannelEventUpdate'InactiveChannel y__)) instance Data.ProtoLens.Field.HasField ChannelEventUpdate "inactiveChannel" ChannelPoint where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEventUpdate'channel (\ x__ y__ -> x__ {_ChannelEventUpdate'channel = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (ChannelEventUpdate'InactiveChannel x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap ChannelEventUpdate'InactiveChannel y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Field.HasField ChannelEventUpdate "maybe'pendingOpenChannel" (Prelude.Maybe PendingUpdate) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEventUpdate'channel (\ x__ y__ -> x__ {_ChannelEventUpdate'channel = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (ChannelEventUpdate'PendingOpenChannel x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap ChannelEventUpdate'PendingOpenChannel y__)) instance Data.ProtoLens.Field.HasField ChannelEventUpdate "pendingOpenChannel" PendingUpdate where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelEventUpdate'channel (\ x__ y__ -> x__ {_ChannelEventUpdate'channel = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (ChannelEventUpdate'PendingOpenChannel x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap ChannelEventUpdate'PendingOpenChannel y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Message ChannelEventUpdate where messageName _ = Data.Text.pack "lnrpc.ChannelEventUpdate" packedMessageDescriptor _ = "\n\ \\DC2ChannelEventUpdate\DC23\n\ \\fopen_channel\CAN\SOH \SOH(\v2\SO.lnrpc.ChannelH\NULR\vopenChannel\DC2C\n\ \\SOclosed_channel\CAN\STX \SOH(\v2\SUB.lnrpc.ChannelCloseSummaryH\NULR\rclosedChannel\DC2<\n\ \\SOactive_channel\CAN\ETX \SOH(\v2\DC3.lnrpc.ChannelPointH\NULR\ractiveChannel\DC2@\n\ \\DLEinactive_channel\CAN\EOT \SOH(\v2\DC3.lnrpc.ChannelPointH\NULR\SIinactiveChannel\DC2H\n\ \\DC4pending_open_channel\CAN\ACK \SOH(\v2\DC4.lnrpc.PendingUpdateH\NULR\DC2pendingOpenChannel\DC28\n\ \\EOTtype\CAN\ENQ \SOH(\SO2$.lnrpc.ChannelEventUpdate.UpdateTypeR\EOTtype\"v\n\ \\n\ \UpdateType\DC2\DLE\n\ \\fOPEN_CHANNEL\DLE\NUL\DC2\DC2\n\ \\SOCLOSED_CHANNEL\DLE\SOH\DC2\DC2\n\ \\SOACTIVE_CHANNEL\DLE\STX\DC2\DC4\n\ \\DLEINACTIVE_CHANNEL\DLE\ETX\DC2\CAN\n\ \\DC4PENDING_OPEN_CHANNEL\DLE\EOTB\t\n\ \\achannel" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let type'__field_descriptor = Data.ProtoLens.FieldDescriptor "type" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor ChannelEventUpdate'UpdateType) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"type'")) :: Data.ProtoLens.FieldDescriptor ChannelEventUpdate openChannel__field_descriptor = Data.ProtoLens.FieldDescriptor "open_channel" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Channel) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'openChannel")) :: Data.ProtoLens.FieldDescriptor ChannelEventUpdate closedChannel__field_descriptor = Data.ProtoLens.FieldDescriptor "closed_channel" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChannelCloseSummary) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'closedChannel")) :: Data.ProtoLens.FieldDescriptor ChannelEventUpdate activeChannel__field_descriptor = Data.ProtoLens.FieldDescriptor "active_channel" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChannelPoint) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'activeChannel")) :: Data.ProtoLens.FieldDescriptor ChannelEventUpdate inactiveChannel__field_descriptor = Data.ProtoLens.FieldDescriptor "inactive_channel" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChannelPoint) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'inactiveChannel")) :: Data.ProtoLens.FieldDescriptor ChannelEventUpdate pendingOpenChannel__field_descriptor = Data.ProtoLens.FieldDescriptor "pending_open_channel" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor PendingUpdate) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'pendingOpenChannel")) :: Data.ProtoLens.FieldDescriptor ChannelEventUpdate in Data.Map.fromList [(Data.ProtoLens.Tag 5, type'__field_descriptor), (Data.ProtoLens.Tag 1, openChannel__field_descriptor), (Data.ProtoLens.Tag 2, closedChannel__field_descriptor), (Data.ProtoLens.Tag 3, activeChannel__field_descriptor), (Data.ProtoLens.Tag 4, inactiveChannel__field_descriptor), (Data.ProtoLens.Tag 6, pendingOpenChannel__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ChannelEventUpdate'_unknownFields (\ x__ y__ -> x__ {_ChannelEventUpdate'_unknownFields = y__}) defMessage = ChannelEventUpdate'_constructor {_ChannelEventUpdate'type' = Data.ProtoLens.fieldDefault, _ChannelEventUpdate'channel = Prelude.Nothing, _ChannelEventUpdate'_unknownFields = []} parseMessage = let loop :: ChannelEventUpdate -> Data.ProtoLens.Encoding.Bytes.Parser ChannelEventUpdate 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.>) (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) "type" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "open_channel" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"openChannel") 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) "closed_channel" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"closedChannel") 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) "active_channel" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"activeChannel") 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) "inactive_channel" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"inactiveChannel") 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) "pending_open_channel" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pendingOpenChannel") 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) "ChannelEventUpdate" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"type'") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 40) ((Prelude..) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) Prelude.fromEnum _v)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'channel") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just (ChannelEventUpdate'OpenChannel 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 (ChannelEventUpdate'ClosedChannel 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 (ChannelEventUpdate'ActiveChannel 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) (Prelude.Just (ChannelEventUpdate'InactiveChannel 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 (ChannelEventUpdate'PendingOpenChannel 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 ChannelEventUpdate where rnf = \ x__ -> Control.DeepSeq.deepseq (_ChannelEventUpdate'_unknownFields x__) (Control.DeepSeq.deepseq (_ChannelEventUpdate'type' x__) (Control.DeepSeq.deepseq (_ChannelEventUpdate'channel x__) ())) instance Control.DeepSeq.NFData ChannelEventUpdate'Channel where rnf (ChannelEventUpdate'OpenChannel x__) = Control.DeepSeq.rnf x__ rnf (ChannelEventUpdate'ClosedChannel x__) = Control.DeepSeq.rnf x__ rnf (ChannelEventUpdate'ActiveChannel x__) = Control.DeepSeq.rnf x__ rnf (ChannelEventUpdate'InactiveChannel x__) = Control.DeepSeq.rnf x__ rnf (ChannelEventUpdate'PendingOpenChannel x__) = Control.DeepSeq.rnf x__ _ChannelEventUpdate'OpenChannel :: Data.ProtoLens.Prism.Prism' ChannelEventUpdate'Channel Channel _ChannelEventUpdate'OpenChannel = Data.ProtoLens.Prism.prism' ChannelEventUpdate'OpenChannel (\ p__ -> case p__ of (ChannelEventUpdate'OpenChannel p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) _ChannelEventUpdate'ClosedChannel :: Data.ProtoLens.Prism.Prism' ChannelEventUpdate'Channel ChannelCloseSummary _ChannelEventUpdate'ClosedChannel = Data.ProtoLens.Prism.prism' ChannelEventUpdate'ClosedChannel (\ p__ -> case p__ of (ChannelEventUpdate'ClosedChannel p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) _ChannelEventUpdate'ActiveChannel :: Data.ProtoLens.Prism.Prism' ChannelEventUpdate'Channel ChannelPoint _ChannelEventUpdate'ActiveChannel = Data.ProtoLens.Prism.prism' ChannelEventUpdate'ActiveChannel (\ p__ -> case p__ of (ChannelEventUpdate'ActiveChannel p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) _ChannelEventUpdate'InactiveChannel :: Data.ProtoLens.Prism.Prism' ChannelEventUpdate'Channel ChannelPoint _ChannelEventUpdate'InactiveChannel = Data.ProtoLens.Prism.prism' ChannelEventUpdate'InactiveChannel (\ p__ -> case p__ of (ChannelEventUpdate'InactiveChannel p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) _ChannelEventUpdate'PendingOpenChannel :: Data.ProtoLens.Prism.Prism' ChannelEventUpdate'Channel PendingUpdate _ChannelEventUpdate'PendingOpenChannel = Data.ProtoLens.Prism.prism' ChannelEventUpdate'PendingOpenChannel (\ p__ -> case p__ of (ChannelEventUpdate'PendingOpenChannel p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) newtype ChannelEventUpdate'UpdateType'UnrecognizedValue = ChannelEventUpdate'UpdateType'UnrecognizedValue Data.Int.Int32 deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) data ChannelEventUpdate'UpdateType = ChannelEventUpdate'OPEN_CHANNEL | ChannelEventUpdate'CLOSED_CHANNEL | ChannelEventUpdate'ACTIVE_CHANNEL | ChannelEventUpdate'INACTIVE_CHANNEL | ChannelEventUpdate'PENDING_OPEN_CHANNEL | ChannelEventUpdate'UpdateType'Unrecognized !ChannelEventUpdate'UpdateType'UnrecognizedValue deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.MessageEnum ChannelEventUpdate'UpdateType where maybeToEnum 0 = Prelude.Just ChannelEventUpdate'OPEN_CHANNEL maybeToEnum 1 = Prelude.Just ChannelEventUpdate'CLOSED_CHANNEL maybeToEnum 2 = Prelude.Just ChannelEventUpdate'ACTIVE_CHANNEL maybeToEnum 3 = Prelude.Just ChannelEventUpdate'INACTIVE_CHANNEL maybeToEnum 4 = Prelude.Just ChannelEventUpdate'PENDING_OPEN_CHANNEL maybeToEnum k = Prelude.Just (ChannelEventUpdate'UpdateType'Unrecognized (ChannelEventUpdate'UpdateType'UnrecognizedValue (Prelude.fromIntegral k))) showEnum ChannelEventUpdate'OPEN_CHANNEL = "OPEN_CHANNEL" showEnum ChannelEventUpdate'CLOSED_CHANNEL = "CLOSED_CHANNEL" showEnum ChannelEventUpdate'ACTIVE_CHANNEL = "ACTIVE_CHANNEL" showEnum ChannelEventUpdate'INACTIVE_CHANNEL = "INACTIVE_CHANNEL" showEnum ChannelEventUpdate'PENDING_OPEN_CHANNEL = "PENDING_OPEN_CHANNEL" showEnum (ChannelEventUpdate'UpdateType'Unrecognized (ChannelEventUpdate'UpdateType'UnrecognizedValue k)) = Prelude.show k readEnum k | (Prelude.==) k "OPEN_CHANNEL" = Prelude.Just ChannelEventUpdate'OPEN_CHANNEL | (Prelude.==) k "CLOSED_CHANNEL" = Prelude.Just ChannelEventUpdate'CLOSED_CHANNEL | (Prelude.==) k "ACTIVE_CHANNEL" = Prelude.Just ChannelEventUpdate'ACTIVE_CHANNEL | (Prelude.==) k "INACTIVE_CHANNEL" = Prelude.Just ChannelEventUpdate'INACTIVE_CHANNEL | (Prelude.==) k "PENDING_OPEN_CHANNEL" = Prelude.Just ChannelEventUpdate'PENDING_OPEN_CHANNEL | Prelude.otherwise = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum instance Prelude.Bounded ChannelEventUpdate'UpdateType where minBound = ChannelEventUpdate'OPEN_CHANNEL maxBound = ChannelEventUpdate'PENDING_OPEN_CHANNEL instance Prelude.Enum ChannelEventUpdate'UpdateType where toEnum k__ = Prelude.maybe (Prelude.error ((Prelude.++) "toEnum: unknown value for enum UpdateType: " (Prelude.show k__))) Prelude.id (Data.ProtoLens.maybeToEnum k__) fromEnum ChannelEventUpdate'OPEN_CHANNEL = 0 fromEnum ChannelEventUpdate'CLOSED_CHANNEL = 1 fromEnum ChannelEventUpdate'ACTIVE_CHANNEL = 2 fromEnum ChannelEventUpdate'INACTIVE_CHANNEL = 3 fromEnum ChannelEventUpdate'PENDING_OPEN_CHANNEL = 4 fromEnum (ChannelEventUpdate'UpdateType'Unrecognized (ChannelEventUpdate'UpdateType'UnrecognizedValue k)) = Prelude.fromIntegral k succ ChannelEventUpdate'PENDING_OPEN_CHANNEL = Prelude.error "ChannelEventUpdate'UpdateType.succ: bad argument ChannelEventUpdate'PENDING_OPEN_CHANNEL. This value would be out of bounds." succ ChannelEventUpdate'OPEN_CHANNEL = ChannelEventUpdate'CLOSED_CHANNEL succ ChannelEventUpdate'CLOSED_CHANNEL = ChannelEventUpdate'ACTIVE_CHANNEL succ ChannelEventUpdate'ACTIVE_CHANNEL = ChannelEventUpdate'INACTIVE_CHANNEL succ ChannelEventUpdate'INACTIVE_CHANNEL = ChannelEventUpdate'PENDING_OPEN_CHANNEL succ (ChannelEventUpdate'UpdateType'Unrecognized _) = Prelude.error "ChannelEventUpdate'UpdateType.succ: bad argument: unrecognized value" pred ChannelEventUpdate'OPEN_CHANNEL = Prelude.error "ChannelEventUpdate'UpdateType.pred: bad argument ChannelEventUpdate'OPEN_CHANNEL. This value would be out of bounds." pred ChannelEventUpdate'CLOSED_CHANNEL = ChannelEventUpdate'OPEN_CHANNEL pred ChannelEventUpdate'ACTIVE_CHANNEL = ChannelEventUpdate'CLOSED_CHANNEL pred ChannelEventUpdate'INACTIVE_CHANNEL = ChannelEventUpdate'ACTIVE_CHANNEL pred ChannelEventUpdate'PENDING_OPEN_CHANNEL = ChannelEventUpdate'INACTIVE_CHANNEL pred (ChannelEventUpdate'UpdateType'Unrecognized _) = Prelude.error "ChannelEventUpdate'UpdateType.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 ChannelEventUpdate'UpdateType where fieldDefault = ChannelEventUpdate'OPEN_CHANNEL instance Control.DeepSeq.NFData ChannelEventUpdate'UpdateType where rnf x__ = Prelude.seq x__ () {- | Fields : * 'Proto.LndGrpc_Fields.chanId' @:: Lens' ChannelFeeReport Data.Word.Word64@ * 'Proto.LndGrpc_Fields.channelPoint' @:: Lens' ChannelFeeReport Data.Text.Text@ * 'Proto.LndGrpc_Fields.baseFeeMsat' @:: Lens' ChannelFeeReport Data.Int.Int64@ * 'Proto.LndGrpc_Fields.feePerMil' @:: Lens' ChannelFeeReport Data.Int.Int64@ * 'Proto.LndGrpc_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) instance Prelude.Show ChannelFeeReport where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.nodes' @:: Lens' ChannelGraph [LightningNode]@ * 'Proto.LndGrpc_Fields.vec'nodes' @:: Lens' ChannelGraph (Data.Vector.Vector LightningNode)@ * 'Proto.LndGrpc_Fields.edges' @:: Lens' ChannelGraph [ChannelEdge]@ * 'Proto.LndGrpc_Fields.vec'edges' @:: Lens' ChannelGraph (Data.Vector.Vector ChannelEdge)@ -} data ChannelGraph = ChannelGraph'_constructor {_ChannelGraph'nodes :: !(Data.Vector.Vector LightningNode), _ChannelGraph'edges :: !(Data.Vector.Vector ChannelEdge), _ChannelGraph'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChannelGraph where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ChannelGraph "nodes" [LightningNode] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelGraph'nodes (\ x__ y__ -> x__ {_ChannelGraph'nodes = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField ChannelGraph "vec'nodes" (Data.Vector.Vector LightningNode) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelGraph'nodes (\ x__ y__ -> x__ {_ChannelGraph'nodes = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelGraph "edges" [ChannelEdge] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelGraph'edges (\ x__ y__ -> x__ {_ChannelGraph'edges = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField ChannelGraph "vec'edges" (Data.Vector.Vector ChannelEdge) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelGraph'edges (\ x__ y__ -> x__ {_ChannelGraph'edges = y__})) Prelude.id instance Data.ProtoLens.Message ChannelGraph where messageName _ = Data.Text.pack "lnrpc.ChannelGraph" packedMessageDescriptor _ = "\n\ \\fChannelGraph\DC2*\n\ \\ENQnodes\CAN\SOH \ETX(\v2\DC4.lnrpc.LightningNodeR\ENQnodes\DC2(\n\ \\ENQedges\CAN\STX \ETX(\v2\DC2.lnrpc.ChannelEdgeR\ENQedges" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let nodes__field_descriptor = Data.ProtoLens.FieldDescriptor "nodes" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor LightningNode) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"nodes")) :: Data.ProtoLens.FieldDescriptor ChannelGraph edges__field_descriptor = Data.ProtoLens.FieldDescriptor "edges" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChannelEdge) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"edges")) :: Data.ProtoLens.FieldDescriptor ChannelGraph in Data.Map.fromList [(Data.ProtoLens.Tag 1, nodes__field_descriptor), (Data.ProtoLens.Tag 2, edges__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ChannelGraph'_unknownFields (\ x__ y__ -> x__ {_ChannelGraph'_unknownFields = y__}) defMessage = ChannelGraph'_constructor {_ChannelGraph'nodes = Data.Vector.Generic.empty, _ChannelGraph'edges = Data.Vector.Generic.empty, _ChannelGraph'_unknownFields = []} parseMessage = let loop :: ChannelGraph -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ChannelEdge -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld LightningNode -> Data.ProtoLens.Encoding.Bytes.Parser ChannelGraph loop x mutable'edges mutable'nodes = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'edges <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'edges) frozen'nodes <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'nodes) (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'edges") frozen'edges (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'nodes") frozen'nodes 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) "nodes" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'nodes y) loop x mutable'edges v 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) "edges" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'edges y) loop x v mutable'nodes wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'edges mutable'nodes in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'edges <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'nodes <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'edges mutable'nodes) "ChannelGraph" 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'nodes") _x)) ((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'edges") _x)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))) instance Control.DeepSeq.NFData ChannelGraph where rnf = \ x__ -> Control.DeepSeq.deepseq (_ChannelGraph'_unknownFields x__) (Control.DeepSeq.deepseq (_ChannelGraph'nodes x__) (Control.DeepSeq.deepseq (_ChannelGraph'edges x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.includeUnannounced' @:: Lens' ChannelGraphRequest Prelude.Bool@ -} data ChannelGraphRequest = ChannelGraphRequest'_constructor {_ChannelGraphRequest'includeUnannounced :: !Prelude.Bool, _ChannelGraphRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChannelGraphRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ChannelGraphRequest "includeUnannounced" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelGraphRequest'includeUnannounced (\ x__ y__ -> x__ {_ChannelGraphRequest'includeUnannounced = y__})) Prelude.id instance Data.ProtoLens.Message ChannelGraphRequest where messageName _ = Data.Text.pack "lnrpc.ChannelGraphRequest" packedMessageDescriptor _ = "\n\ \\DC3ChannelGraphRequest\DC2/\n\ \\DC3include_unannounced\CAN\SOH \SOH(\bR\DC2includeUnannounced" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let includeUnannounced__field_descriptor = Data.ProtoLens.FieldDescriptor "include_unannounced" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"includeUnannounced")) :: Data.ProtoLens.FieldDescriptor ChannelGraphRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, includeUnannounced__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ChannelGraphRequest'_unknownFields (\ x__ y__ -> x__ {_ChannelGraphRequest'_unknownFields = y__}) defMessage = ChannelGraphRequest'_constructor {_ChannelGraphRequest'includeUnannounced = Data.ProtoLens.fieldDefault, _ChannelGraphRequest'_unknownFields = []} parseMessage = let loop :: ChannelGraphRequest -> Data.ProtoLens.Encoding.Bytes.Parser ChannelGraphRequest 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_unannounced" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"includeUnannounced") 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) "ChannelGraphRequest" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"includeUnannounced") _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 ChannelGraphRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_ChannelGraphRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_ChannelGraphRequest'includeUnannounced x__) ()) {- | Fields : * 'Proto.LndGrpc_Fields.channelPoint' @:: Lens' ChannelOpenUpdate ChannelPoint@ * 'Proto.LndGrpc_Fields.maybe'channelPoint' @:: Lens' ChannelOpenUpdate (Prelude.Maybe ChannelPoint)@ -} data ChannelOpenUpdate = ChannelOpenUpdate'_constructor {_ChannelOpenUpdate'channelPoint :: !(Prelude.Maybe ChannelPoint), _ChannelOpenUpdate'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChannelOpenUpdate where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ChannelOpenUpdate "channelPoint" ChannelPoint where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelOpenUpdate'channelPoint (\ x__ y__ -> x__ {_ChannelOpenUpdate'channelPoint = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ChannelOpenUpdate "maybe'channelPoint" (Prelude.Maybe ChannelPoint) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelOpenUpdate'channelPoint (\ x__ y__ -> x__ {_ChannelOpenUpdate'channelPoint = y__})) Prelude.id instance Data.ProtoLens.Message ChannelOpenUpdate where messageName _ = Data.Text.pack "lnrpc.ChannelOpenUpdate" packedMessageDescriptor _ = "\n\ \\DC1ChannelOpenUpdate\DC28\n\ \\rchannel_point\CAN\SOH \SOH(\v2\DC3.lnrpc.ChannelPointR\fchannelPoint" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let channelPoint__field_descriptor = Data.ProtoLens.FieldDescriptor "channel_point" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChannelPoint) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'channelPoint")) :: Data.ProtoLens.FieldDescriptor ChannelOpenUpdate in Data.Map.fromList [(Data.ProtoLens.Tag 1, channelPoint__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ChannelOpenUpdate'_unknownFields (\ x__ y__ -> x__ {_ChannelOpenUpdate'_unknownFields = y__}) defMessage = ChannelOpenUpdate'_constructor {_ChannelOpenUpdate'channelPoint = Prelude.Nothing, _ChannelOpenUpdate'_unknownFields = []} parseMessage = let loop :: ChannelOpenUpdate -> Data.ProtoLens.Encoding.Bytes.Parser ChannelOpenUpdate 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) 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) "ChannelOpenUpdate" 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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData ChannelOpenUpdate where rnf = \ x__ -> Control.DeepSeq.deepseq (_ChannelOpenUpdate'_unknownFields x__) (Control.DeepSeq.deepseq (_ChannelOpenUpdate'channelPoint x__) ()) {- | Fields : * 'Proto.LndGrpc_Fields.outputIndex' @:: Lens' ChannelPoint Data.Word.Word32@ * 'Proto.LndGrpc_Fields.maybe'fundingTxid' @:: Lens' ChannelPoint (Prelude.Maybe ChannelPoint'FundingTxid)@ * 'Proto.LndGrpc_Fields.maybe'fundingTxidBytes' @:: Lens' ChannelPoint (Prelude.Maybe Data.ByteString.ByteString)@ * 'Proto.LndGrpc_Fields.fundingTxidBytes' @:: Lens' ChannelPoint Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.maybe'fundingTxidStr' @:: Lens' ChannelPoint (Prelude.Maybe Data.Text.Text)@ * 'Proto.LndGrpc_Fields.fundingTxidStr' @:: Lens' ChannelPoint Data.Text.Text@ -} data ChannelPoint = ChannelPoint'_constructor {_ChannelPoint'outputIndex :: !Data.Word.Word32, _ChannelPoint'fundingTxid :: !(Prelude.Maybe ChannelPoint'FundingTxid), _ChannelPoint'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChannelPoint where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) data ChannelPoint'FundingTxid = ChannelPoint'FundingTxidBytes !Data.ByteString.ByteString | ChannelPoint'FundingTxidStr !Data.Text.Text deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.Field.HasField ChannelPoint "outputIndex" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelPoint'outputIndex (\ x__ y__ -> x__ {_ChannelPoint'outputIndex = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelPoint "maybe'fundingTxid" (Prelude.Maybe ChannelPoint'FundingTxid) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelPoint'fundingTxid (\ x__ y__ -> x__ {_ChannelPoint'fundingTxid = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChannelPoint "maybe'fundingTxidBytes" (Prelude.Maybe Data.ByteString.ByteString) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelPoint'fundingTxid (\ x__ y__ -> x__ {_ChannelPoint'fundingTxid = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (ChannelPoint'FundingTxidBytes x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap ChannelPoint'FundingTxidBytes y__)) instance Data.ProtoLens.Field.HasField ChannelPoint "fundingTxidBytes" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelPoint'fundingTxid (\ x__ y__ -> x__ {_ChannelPoint'fundingTxid = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (ChannelPoint'FundingTxidBytes x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap ChannelPoint'FundingTxidBytes y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) instance Data.ProtoLens.Field.HasField ChannelPoint "maybe'fundingTxidStr" (Prelude.Maybe Data.Text.Text) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelPoint'fundingTxid (\ x__ y__ -> x__ {_ChannelPoint'fundingTxid = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (ChannelPoint'FundingTxidStr x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap ChannelPoint'FundingTxidStr y__)) instance Data.ProtoLens.Field.HasField ChannelPoint "fundingTxidStr" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChannelPoint'fundingTxid (\ x__ y__ -> x__ {_ChannelPoint'fundingTxid = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (ChannelPoint'FundingTxidStr x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap ChannelPoint'FundingTxidStr y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) instance Data.ProtoLens.Message ChannelPoint where messageName _ = Data.Text.pack "lnrpc.ChannelPoint" packedMessageDescriptor _ = "\n\ \\fChannelPoint\DC2.\n\ \\DC2funding_txid_bytes\CAN\SOH \SOH(\fH\NULR\DLEfundingTxidBytes\DC2*\n\ \\DLEfunding_txid_str\CAN\STX \SOH(\tH\NULR\SOfundingTxidStr\DC2!\n\ \\foutput_index\CAN\ETX \SOH(\rR\voutputIndexB\SO\n\ \\ffunding_txid" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let outputIndex__field_descriptor = Data.ProtoLens.FieldDescriptor "output_index" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"outputIndex")) :: Data.ProtoLens.FieldDescriptor ChannelPoint fundingTxidBytes__field_descriptor = Data.ProtoLens.FieldDescriptor "funding_txid_bytes" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'fundingTxidBytes")) :: Data.ProtoLens.FieldDescriptor ChannelPoint fundingTxidStr__field_descriptor = Data.ProtoLens.FieldDescriptor "funding_txid_str" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'fundingTxidStr")) :: Data.ProtoLens.FieldDescriptor ChannelPoint in Data.Map.fromList [(Data.ProtoLens.Tag 3, outputIndex__field_descriptor), (Data.ProtoLens.Tag 1, fundingTxidBytes__field_descriptor), (Data.ProtoLens.Tag 2, fundingTxidStr__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ChannelPoint'_unknownFields (\ x__ y__ -> x__ {_ChannelPoint'_unknownFields = y__}) defMessage = ChannelPoint'_constructor {_ChannelPoint'outputIndex = Data.ProtoLens.fieldDefault, _ChannelPoint'fundingTxid = Prelude.Nothing, _ChannelPoint'_unknownFields = []} parseMessage = let loop :: ChannelPoint -> Data.ProtoLens.Encoding.Bytes.Parser ChannelPoint 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) "output_index" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"outputIndex") y x) 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "funding_txid_bytes" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"fundingTxidBytes") 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)) "funding_txid_str" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"fundingTxidStr") 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) "ChannelPoint" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"outputIndex") _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.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'fundingTxid") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just (ChannelPoint'FundingTxidBytes v)) -> (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) (Prelude.Just (ChannelPoint'FundingTxidStr 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)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))) instance Control.DeepSeq.NFData ChannelPoint where rnf = \ x__ -> Control.DeepSeq.deepseq (_ChannelPoint'_unknownFields x__) (Control.DeepSeq.deepseq (_ChannelPoint'outputIndex x__) (Control.DeepSeq.deepseq (_ChannelPoint'fundingTxid x__) ())) instance Control.DeepSeq.NFData ChannelPoint'FundingTxid where rnf (ChannelPoint'FundingTxidBytes x__) = Control.DeepSeq.rnf x__ rnf (ChannelPoint'FundingTxidStr x__) = Control.DeepSeq.rnf x__ _ChannelPoint'FundingTxidBytes :: Data.ProtoLens.Prism.Prism' ChannelPoint'FundingTxid Data.ByteString.ByteString _ChannelPoint'FundingTxidBytes = Data.ProtoLens.Prism.prism' ChannelPoint'FundingTxidBytes (\ p__ -> case p__ of (ChannelPoint'FundingTxidBytes p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) _ChannelPoint'FundingTxidStr :: Data.ProtoLens.Prism.Prism' ChannelPoint'FundingTxid Data.Text.Text _ChannelPoint'FundingTxidStr = Data.ProtoLens.Prism.prism' ChannelPoint'FundingTxidStr (\ p__ -> case p__ of (ChannelPoint'FundingTxidStr p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) {- | Fields : * 'Proto.LndGrpc_Fields.signature' @:: Lens' ChannelUpdate Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.chainHash' @:: Lens' ChannelUpdate Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.chanId' @:: Lens' ChannelUpdate Data.Word.Word64@ * 'Proto.LndGrpc_Fields.timestamp' @:: Lens' ChannelUpdate Data.Word.Word32@ * 'Proto.LndGrpc_Fields.messageFlags' @:: Lens' ChannelUpdate Data.Word.Word32@ * 'Proto.LndGrpc_Fields.channelFlags' @:: Lens' ChannelUpdate Data.Word.Word32@ * 'Proto.LndGrpc_Fields.timeLockDelta' @:: Lens' ChannelUpdate Data.Word.Word32@ * 'Proto.LndGrpc_Fields.htlcMinimumMsat' @:: Lens' ChannelUpdate Data.Word.Word64@ * 'Proto.LndGrpc_Fields.baseFee' @:: Lens' ChannelUpdate Data.Word.Word32@ * 'Proto.LndGrpc_Fields.feeRate' @:: Lens' ChannelUpdate Data.Word.Word32@ * 'Proto.LndGrpc_Fields.htlcMaximumMsat' @:: Lens' ChannelUpdate Data.Word.Word64@ * 'Proto.LndGrpc_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) instance Prelude.Show ChannelUpdate where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.channelPoint' @:: Lens' CloseChannelRequest ChannelPoint@ * 'Proto.LndGrpc_Fields.maybe'channelPoint' @:: Lens' CloseChannelRequest (Prelude.Maybe ChannelPoint)@ * 'Proto.LndGrpc_Fields.force' @:: Lens' CloseChannelRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.targetConf' @:: Lens' CloseChannelRequest Data.Int.Int32@ * 'Proto.LndGrpc_Fields.satPerByte' @:: Lens' CloseChannelRequest Data.Int.Int64@ * 'Proto.LndGrpc_Fields.deliveryAddress' @:: Lens' CloseChannelRequest Data.Text.Text@ * 'Proto.LndGrpc_Fields.satPerVbyte' @:: Lens' CloseChannelRequest Data.Word.Word64@ -} data CloseChannelRequest = CloseChannelRequest'_constructor {_CloseChannelRequest'channelPoint :: !(Prelude.Maybe ChannelPoint), _CloseChannelRequest'force :: !Prelude.Bool, _CloseChannelRequest'targetConf :: !Data.Int.Int32, _CloseChannelRequest'satPerByte :: !Data.Int.Int64, _CloseChannelRequest'deliveryAddress :: !Data.Text.Text, _CloseChannelRequest'satPerVbyte :: !Data.Word.Word64, _CloseChannelRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show CloseChannelRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField CloseChannelRequest "channelPoint" ChannelPoint where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _CloseChannelRequest'channelPoint (\ x__ y__ -> x__ {_CloseChannelRequest'channelPoint = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField CloseChannelRequest "maybe'channelPoint" (Prelude.Maybe ChannelPoint) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _CloseChannelRequest'channelPoint (\ x__ y__ -> x__ {_CloseChannelRequest'channelPoint = y__})) Prelude.id instance Data.ProtoLens.Field.HasField CloseChannelRequest "force" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _CloseChannelRequest'force (\ x__ y__ -> x__ {_CloseChannelRequest'force = y__})) Prelude.id instance Data.ProtoLens.Field.HasField CloseChannelRequest "targetConf" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _CloseChannelRequest'targetConf (\ x__ y__ -> x__ {_CloseChannelRequest'targetConf = y__})) Prelude.id instance Data.ProtoLens.Field.HasField CloseChannelRequest "satPerByte" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _CloseChannelRequest'satPerByte (\ x__ y__ -> x__ {_CloseChannelRequest'satPerByte = y__})) Prelude.id instance Data.ProtoLens.Field.HasField CloseChannelRequest "deliveryAddress" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _CloseChannelRequest'deliveryAddress (\ x__ y__ -> x__ {_CloseChannelRequest'deliveryAddress = y__})) Prelude.id instance Data.ProtoLens.Field.HasField CloseChannelRequest "satPerVbyte" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _CloseChannelRequest'satPerVbyte (\ x__ y__ -> x__ {_CloseChannelRequest'satPerVbyte = y__})) Prelude.id instance Data.ProtoLens.Message CloseChannelRequest where messageName _ = Data.Text.pack "lnrpc.CloseChannelRequest" packedMessageDescriptor _ = "\n\ \\DC3CloseChannelRequest\DC28\n\ \\rchannel_point\CAN\SOH \SOH(\v2\DC3.lnrpc.ChannelPointR\fchannelPoint\DC2\DC4\n\ \\ENQforce\CAN\STX \SOH(\bR\ENQforce\DC2\US\n\ \\vtarget_conf\CAN\ETX \SOH(\ENQR\n\ \targetConf\DC2$\n\ \\fsat_per_byte\CAN\EOT \SOH(\ETXR\n\ \satPerByteB\STX\CAN\SOH\DC2)\n\ \\DLEdelivery_address\CAN\ENQ \SOH(\tR\SIdeliveryAddress\DC2\"\n\ \\rsat_per_vbyte\CAN\ACK \SOH(\EOTR\vsatPerVbyte" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let channelPoint__field_descriptor = Data.ProtoLens.FieldDescriptor "channel_point" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChannelPoint) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'channelPoint")) :: Data.ProtoLens.FieldDescriptor CloseChannelRequest force__field_descriptor = Data.ProtoLens.FieldDescriptor "force" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"force")) :: Data.ProtoLens.FieldDescriptor CloseChannelRequest targetConf__field_descriptor = Data.ProtoLens.FieldDescriptor "target_conf" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"targetConf")) :: Data.ProtoLens.FieldDescriptor CloseChannelRequest satPerByte__field_descriptor = Data.ProtoLens.FieldDescriptor "sat_per_byte" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"satPerByte")) :: Data.ProtoLens.FieldDescriptor CloseChannelRequest deliveryAddress__field_descriptor = Data.ProtoLens.FieldDescriptor "delivery_address" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"deliveryAddress")) :: Data.ProtoLens.FieldDescriptor CloseChannelRequest satPerVbyte__field_descriptor = Data.ProtoLens.FieldDescriptor "sat_per_vbyte" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"satPerVbyte")) :: Data.ProtoLens.FieldDescriptor CloseChannelRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, channelPoint__field_descriptor), (Data.ProtoLens.Tag 2, force__field_descriptor), (Data.ProtoLens.Tag 3, targetConf__field_descriptor), (Data.ProtoLens.Tag 4, satPerByte__field_descriptor), (Data.ProtoLens.Tag 5, deliveryAddress__field_descriptor), (Data.ProtoLens.Tag 6, satPerVbyte__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _CloseChannelRequest'_unknownFields (\ x__ y__ -> x__ {_CloseChannelRequest'_unknownFields = y__}) defMessage = CloseChannelRequest'_constructor {_CloseChannelRequest'channelPoint = Prelude.Nothing, _CloseChannelRequest'force = Data.ProtoLens.fieldDefault, _CloseChannelRequest'targetConf = Data.ProtoLens.fieldDefault, _CloseChannelRequest'satPerByte = Data.ProtoLens.fieldDefault, _CloseChannelRequest'deliveryAddress = Data.ProtoLens.fieldDefault, _CloseChannelRequest'satPerVbyte = Data.ProtoLens.fieldDefault, _CloseChannelRequest'_unknownFields = []} parseMessage = let loop :: CloseChannelRequest -> Data.ProtoLens.Encoding.Bytes.Parser CloseChannelRequest 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) "force" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"force") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "target_conf" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"targetConf") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "sat_per_byte" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"satPerByte") y x) 42 -> 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)) "delivery_address" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"deliveryAddress") y x) 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "sat_per_vbyte" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"satPerVbyte") 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) "CloseChannelRequest" 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 @"force") _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 @"targetConf") _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 @"satPerByte") _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 @"deliveryAddress") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (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.Text.Encoding.encodeUtf8 _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"satPerVbyte") _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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))) instance Control.DeepSeq.NFData CloseChannelRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_CloseChannelRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_CloseChannelRequest'channelPoint x__) (Control.DeepSeq.deepseq (_CloseChannelRequest'force x__) (Control.DeepSeq.deepseq (_CloseChannelRequest'targetConf x__) (Control.DeepSeq.deepseq (_CloseChannelRequest'satPerByte x__) (Control.DeepSeq.deepseq (_CloseChannelRequest'deliveryAddress x__) (Control.DeepSeq.deepseq (_CloseChannelRequest'satPerVbyte x__) ())))))) {- | Fields : * 'Proto.LndGrpc_Fields.maybe'update' @:: Lens' CloseStatusUpdate (Prelude.Maybe CloseStatusUpdate'Update)@ * 'Proto.LndGrpc_Fields.maybe'closePending' @:: Lens' CloseStatusUpdate (Prelude.Maybe PendingUpdate)@ * 'Proto.LndGrpc_Fields.closePending' @:: Lens' CloseStatusUpdate PendingUpdate@ * 'Proto.LndGrpc_Fields.maybe'chanClose' @:: Lens' CloseStatusUpdate (Prelude.Maybe ChannelCloseUpdate)@ * 'Proto.LndGrpc_Fields.chanClose' @:: Lens' CloseStatusUpdate ChannelCloseUpdate@ -} data CloseStatusUpdate = CloseStatusUpdate'_constructor {_CloseStatusUpdate'update :: !(Prelude.Maybe CloseStatusUpdate'Update), _CloseStatusUpdate'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show CloseStatusUpdate where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) data CloseStatusUpdate'Update = CloseStatusUpdate'ClosePending !PendingUpdate | CloseStatusUpdate'ChanClose !ChannelCloseUpdate deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.Field.HasField CloseStatusUpdate "maybe'update" (Prelude.Maybe CloseStatusUpdate'Update) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _CloseStatusUpdate'update (\ x__ y__ -> x__ {_CloseStatusUpdate'update = y__})) Prelude.id instance Data.ProtoLens.Field.HasField CloseStatusUpdate "maybe'closePending" (Prelude.Maybe PendingUpdate) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _CloseStatusUpdate'update (\ x__ y__ -> x__ {_CloseStatusUpdate'update = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (CloseStatusUpdate'ClosePending x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap CloseStatusUpdate'ClosePending y__)) instance Data.ProtoLens.Field.HasField CloseStatusUpdate "closePending" PendingUpdate where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _CloseStatusUpdate'update (\ x__ y__ -> x__ {_CloseStatusUpdate'update = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (CloseStatusUpdate'ClosePending x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap CloseStatusUpdate'ClosePending y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Field.HasField CloseStatusUpdate "maybe'chanClose" (Prelude.Maybe ChannelCloseUpdate) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _CloseStatusUpdate'update (\ x__ y__ -> x__ {_CloseStatusUpdate'update = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (CloseStatusUpdate'ChanClose x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap CloseStatusUpdate'ChanClose y__)) instance Data.ProtoLens.Field.HasField CloseStatusUpdate "chanClose" ChannelCloseUpdate where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _CloseStatusUpdate'update (\ x__ y__ -> x__ {_CloseStatusUpdate'update = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (CloseStatusUpdate'ChanClose x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap CloseStatusUpdate'ChanClose y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Message CloseStatusUpdate where messageName _ = Data.Text.pack "lnrpc.CloseStatusUpdate" packedMessageDescriptor _ = "\n\ \\DC1CloseStatusUpdate\DC2;\n\ \\rclose_pending\CAN\SOH \SOH(\v2\DC4.lnrpc.PendingUpdateH\NULR\fclosePending\DC2:\n\ \\n\ \chan_close\CAN\ETX \SOH(\v2\EM.lnrpc.ChannelCloseUpdateH\NULR\tchanCloseB\b\n\ \\ACKupdate" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let closePending__field_descriptor = Data.ProtoLens.FieldDescriptor "close_pending" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor PendingUpdate) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'closePending")) :: Data.ProtoLens.FieldDescriptor CloseStatusUpdate chanClose__field_descriptor = Data.ProtoLens.FieldDescriptor "chan_close" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChannelCloseUpdate) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'chanClose")) :: Data.ProtoLens.FieldDescriptor CloseStatusUpdate in Data.Map.fromList [(Data.ProtoLens.Tag 1, closePending__field_descriptor), (Data.ProtoLens.Tag 3, chanClose__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _CloseStatusUpdate'_unknownFields (\ x__ y__ -> x__ {_CloseStatusUpdate'_unknownFields = y__}) defMessage = CloseStatusUpdate'_constructor {_CloseStatusUpdate'update = Prelude.Nothing, _CloseStatusUpdate'_unknownFields = []} parseMessage = let loop :: CloseStatusUpdate -> Data.ProtoLens.Encoding.Bytes.Parser CloseStatusUpdate 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) "close_pending" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"closePending") 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) "chan_close" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"chanClose") 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) "CloseStatusUpdate" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'update") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just (CloseStatusUpdate'ClosePending 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 (CloseStatusUpdate'ChanClose 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 CloseStatusUpdate where rnf = \ x__ -> Control.DeepSeq.deepseq (_CloseStatusUpdate'_unknownFields x__) (Control.DeepSeq.deepseq (_CloseStatusUpdate'update x__) ()) instance Control.DeepSeq.NFData CloseStatusUpdate'Update where rnf (CloseStatusUpdate'ClosePending x__) = Control.DeepSeq.rnf x__ rnf (CloseStatusUpdate'ChanClose x__) = Control.DeepSeq.rnf x__ _CloseStatusUpdate'ClosePending :: Data.ProtoLens.Prism.Prism' CloseStatusUpdate'Update PendingUpdate _CloseStatusUpdate'ClosePending = Data.ProtoLens.Prism.prism' CloseStatusUpdate'ClosePending (\ p__ -> case p__ of (CloseStatusUpdate'ClosePending p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) _CloseStatusUpdate'ChanClose :: Data.ProtoLens.Prism.Prism' CloseStatusUpdate'Update ChannelCloseUpdate _CloseStatusUpdate'ChanClose = Data.ProtoLens.Prism.prism' CloseStatusUpdate'ChanClose (\ p__ -> case p__ of (CloseStatusUpdate'ChanClose p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) {- | Fields : * 'Proto.LndGrpc_Fields.chanId' @:: Lens' ClosedChannelUpdate Data.Word.Word64@ * 'Proto.LndGrpc_Fields.capacity' @:: Lens' ClosedChannelUpdate Data.Int.Int64@ * 'Proto.LndGrpc_Fields.closedHeight' @:: Lens' ClosedChannelUpdate Data.Word.Word32@ * 'Proto.LndGrpc_Fields.chanPoint' @:: Lens' ClosedChannelUpdate ChannelPoint@ * 'Proto.LndGrpc_Fields.maybe'chanPoint' @:: Lens' ClosedChannelUpdate (Prelude.Maybe ChannelPoint)@ -} data ClosedChannelUpdate = ClosedChannelUpdate'_constructor {_ClosedChannelUpdate'chanId :: !Data.Word.Word64, _ClosedChannelUpdate'capacity :: !Data.Int.Int64, _ClosedChannelUpdate'closedHeight :: !Data.Word.Word32, _ClosedChannelUpdate'chanPoint :: !(Prelude.Maybe ChannelPoint), _ClosedChannelUpdate'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ClosedChannelUpdate where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ClosedChannelUpdate "chanId" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ClosedChannelUpdate'chanId (\ x__ y__ -> x__ {_ClosedChannelUpdate'chanId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ClosedChannelUpdate "capacity" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ClosedChannelUpdate'capacity (\ x__ y__ -> x__ {_ClosedChannelUpdate'capacity = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ClosedChannelUpdate "closedHeight" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ClosedChannelUpdate'closedHeight (\ x__ y__ -> x__ {_ClosedChannelUpdate'closedHeight = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ClosedChannelUpdate "chanPoint" ChannelPoint where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ClosedChannelUpdate'chanPoint (\ x__ y__ -> x__ {_ClosedChannelUpdate'chanPoint = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ClosedChannelUpdate "maybe'chanPoint" (Prelude.Maybe ChannelPoint) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ClosedChannelUpdate'chanPoint (\ x__ y__ -> x__ {_ClosedChannelUpdate'chanPoint = y__})) Prelude.id instance Data.ProtoLens.Message ClosedChannelUpdate where messageName _ = Data.Text.pack "lnrpc.ClosedChannelUpdate" packedMessageDescriptor _ = "\n\ \\DC3ClosedChannelUpdate\DC2\ESC\n\ \\achan_id\CAN\SOH \SOH(\EOTR\ACKchanIdB\STX0\SOH\DC2\SUB\n\ \\bcapacity\CAN\STX \SOH(\ETXR\bcapacity\DC2#\n\ \\rclosed_height\CAN\ETX \SOH(\rR\fclosedHeight\DC22\n\ \\n\ \chan_point\CAN\EOT \SOH(\v2\DC3.lnrpc.ChannelPointR\tchanPoint" 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 ClosedChannelUpdate capacity__field_descriptor = Data.ProtoLens.FieldDescriptor "capacity" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"capacity")) :: Data.ProtoLens.FieldDescriptor ClosedChannelUpdate closedHeight__field_descriptor = Data.ProtoLens.FieldDescriptor "closed_height" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"closedHeight")) :: Data.ProtoLens.FieldDescriptor ClosedChannelUpdate chanPoint__field_descriptor = Data.ProtoLens.FieldDescriptor "chan_point" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChannelPoint) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'chanPoint")) :: Data.ProtoLens.FieldDescriptor ClosedChannelUpdate in Data.Map.fromList [(Data.ProtoLens.Tag 1, chanId__field_descriptor), (Data.ProtoLens.Tag 2, capacity__field_descriptor), (Data.ProtoLens.Tag 3, closedHeight__field_descriptor), (Data.ProtoLens.Tag 4, chanPoint__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ClosedChannelUpdate'_unknownFields (\ x__ y__ -> x__ {_ClosedChannelUpdate'_unknownFields = y__}) defMessage = ClosedChannelUpdate'_constructor {_ClosedChannelUpdate'chanId = Data.ProtoLens.fieldDefault, _ClosedChannelUpdate'capacity = Data.ProtoLens.fieldDefault, _ClosedChannelUpdate'closedHeight = Data.ProtoLens.fieldDefault, _ClosedChannelUpdate'chanPoint = Prelude.Nothing, _ClosedChannelUpdate'_unknownFields = []} parseMessage = let loop :: ClosedChannelUpdate -> Data.ProtoLens.Encoding.Bytes.Parser ClosedChannelUpdate 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.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "capacity" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"capacity") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "closed_height" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"closedHeight") 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) "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) "ClosedChannelUpdate" 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 @"capacity") _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 @"closedHeight") _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.<>) (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 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)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) instance Control.DeepSeq.NFData ClosedChannelUpdate where rnf = \ x__ -> Control.DeepSeq.deepseq (_ClosedChannelUpdate'_unknownFields x__) (Control.DeepSeq.deepseq (_ClosedChannelUpdate'chanId x__) (Control.DeepSeq.deepseq (_ClosedChannelUpdate'capacity x__) (Control.DeepSeq.deepseq (_ClosedChannelUpdate'closedHeight x__) (Control.DeepSeq.deepseq (_ClosedChannelUpdate'chanPoint x__) ())))) {- | Fields : * 'Proto.LndGrpc_Fields.cooperative' @:: Lens' ClosedChannelsRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.localForce' @:: Lens' ClosedChannelsRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.remoteForce' @:: Lens' ClosedChannelsRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.breach' @:: Lens' ClosedChannelsRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.fundingCanceled' @:: Lens' ClosedChannelsRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.abandoned' @:: Lens' ClosedChannelsRequest Prelude.Bool@ -} data ClosedChannelsRequest = ClosedChannelsRequest'_constructor {_ClosedChannelsRequest'cooperative :: !Prelude.Bool, _ClosedChannelsRequest'localForce :: !Prelude.Bool, _ClosedChannelsRequest'remoteForce :: !Prelude.Bool, _ClosedChannelsRequest'breach :: !Prelude.Bool, _ClosedChannelsRequest'fundingCanceled :: !Prelude.Bool, _ClosedChannelsRequest'abandoned :: !Prelude.Bool, _ClosedChannelsRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ClosedChannelsRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ClosedChannelsRequest "cooperative" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ClosedChannelsRequest'cooperative (\ x__ y__ -> x__ {_ClosedChannelsRequest'cooperative = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ClosedChannelsRequest "localForce" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ClosedChannelsRequest'localForce (\ x__ y__ -> x__ {_ClosedChannelsRequest'localForce = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ClosedChannelsRequest "remoteForce" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ClosedChannelsRequest'remoteForce (\ x__ y__ -> x__ {_ClosedChannelsRequest'remoteForce = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ClosedChannelsRequest "breach" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ClosedChannelsRequest'breach (\ x__ y__ -> x__ {_ClosedChannelsRequest'breach = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ClosedChannelsRequest "fundingCanceled" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ClosedChannelsRequest'fundingCanceled (\ x__ y__ -> x__ {_ClosedChannelsRequest'fundingCanceled = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ClosedChannelsRequest "abandoned" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ClosedChannelsRequest'abandoned (\ x__ y__ -> x__ {_ClosedChannelsRequest'abandoned = y__})) Prelude.id instance Data.ProtoLens.Message ClosedChannelsRequest where messageName _ = Data.Text.pack "lnrpc.ClosedChannelsRequest" packedMessageDescriptor _ = "\n\ \\NAKClosedChannelsRequest\DC2 \n\ \\vcooperative\CAN\SOH \SOH(\bR\vcooperative\DC2\US\n\ \\vlocal_force\CAN\STX \SOH(\bR\n\ \localForce\DC2!\n\ \\fremote_force\CAN\ETX \SOH(\bR\vremoteForce\DC2\SYN\n\ \\ACKbreach\CAN\EOT \SOH(\bR\ACKbreach\DC2)\n\ \\DLEfunding_canceled\CAN\ENQ \SOH(\bR\SIfundingCanceled\DC2\FS\n\ \\tabandoned\CAN\ACK \SOH(\bR\tabandoned" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let cooperative__field_descriptor = Data.ProtoLens.FieldDescriptor "cooperative" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"cooperative")) :: Data.ProtoLens.FieldDescriptor ClosedChannelsRequest localForce__field_descriptor = Data.ProtoLens.FieldDescriptor "local_force" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"localForce")) :: Data.ProtoLens.FieldDescriptor ClosedChannelsRequest remoteForce__field_descriptor = Data.ProtoLens.FieldDescriptor "remote_force" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"remoteForce")) :: Data.ProtoLens.FieldDescriptor ClosedChannelsRequest breach__field_descriptor = Data.ProtoLens.FieldDescriptor "breach" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"breach")) :: Data.ProtoLens.FieldDescriptor ClosedChannelsRequest fundingCanceled__field_descriptor = Data.ProtoLens.FieldDescriptor "funding_canceled" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"fundingCanceled")) :: Data.ProtoLens.FieldDescriptor ClosedChannelsRequest abandoned__field_descriptor = Data.ProtoLens.FieldDescriptor "abandoned" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"abandoned")) :: Data.ProtoLens.FieldDescriptor ClosedChannelsRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, cooperative__field_descriptor), (Data.ProtoLens.Tag 2, localForce__field_descriptor), (Data.ProtoLens.Tag 3, remoteForce__field_descriptor), (Data.ProtoLens.Tag 4, breach__field_descriptor), (Data.ProtoLens.Tag 5, fundingCanceled__field_descriptor), (Data.ProtoLens.Tag 6, abandoned__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ClosedChannelsRequest'_unknownFields (\ x__ y__ -> x__ {_ClosedChannelsRequest'_unknownFields = y__}) defMessage = ClosedChannelsRequest'_constructor {_ClosedChannelsRequest'cooperative = Data.ProtoLens.fieldDefault, _ClosedChannelsRequest'localForce = Data.ProtoLens.fieldDefault, _ClosedChannelsRequest'remoteForce = Data.ProtoLens.fieldDefault, _ClosedChannelsRequest'breach = Data.ProtoLens.fieldDefault, _ClosedChannelsRequest'fundingCanceled = Data.ProtoLens.fieldDefault, _ClosedChannelsRequest'abandoned = Data.ProtoLens.fieldDefault, _ClosedChannelsRequest'_unknownFields = []} parseMessage = let loop :: ClosedChannelsRequest -> Data.ProtoLens.Encoding.Bytes.Parser ClosedChannelsRequest 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) "cooperative" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cooperative") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "local_force" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"localForce") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "remote_force" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"remoteForce") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "breach" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"breach") y x) 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "funding_canceled" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"fundingCanceled") y x) 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "abandoned" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"abandoned") 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) "ClosedChannelsRequest" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"cooperative") _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 @"localForce") _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 @"remoteForce") _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.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"breach") _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.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"fundingCanceled") _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 (\ b -> if b then 1 else 0) _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"abandoned") _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 ClosedChannelsRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_ClosedChannelsRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_ClosedChannelsRequest'cooperative x__) (Control.DeepSeq.deepseq (_ClosedChannelsRequest'localForce x__) (Control.DeepSeq.deepseq (_ClosedChannelsRequest'remoteForce x__) (Control.DeepSeq.deepseq (_ClosedChannelsRequest'breach x__) (Control.DeepSeq.deepseq (_ClosedChannelsRequest'fundingCanceled x__) (Control.DeepSeq.deepseq (_ClosedChannelsRequest'abandoned x__) ())))))) {- | Fields : * 'Proto.LndGrpc_Fields.channels' @:: Lens' ClosedChannelsResponse [ChannelCloseSummary]@ * 'Proto.LndGrpc_Fields.vec'channels' @:: Lens' ClosedChannelsResponse (Data.Vector.Vector ChannelCloseSummary)@ -} data ClosedChannelsResponse = ClosedChannelsResponse'_constructor {_ClosedChannelsResponse'channels :: !(Data.Vector.Vector ChannelCloseSummary), _ClosedChannelsResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ClosedChannelsResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ClosedChannelsResponse "channels" [ChannelCloseSummary] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ClosedChannelsResponse'channels (\ x__ y__ -> x__ {_ClosedChannelsResponse'channels = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField ClosedChannelsResponse "vec'channels" (Data.Vector.Vector ChannelCloseSummary) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ClosedChannelsResponse'channels (\ x__ y__ -> x__ {_ClosedChannelsResponse'channels = y__})) Prelude.id instance Data.ProtoLens.Message ClosedChannelsResponse where messageName _ = Data.Text.pack "lnrpc.ClosedChannelsResponse" packedMessageDescriptor _ = "\n\ \\SYNClosedChannelsResponse\DC26\n\ \\bchannels\CAN\SOH \ETX(\v2\SUB.lnrpc.ChannelCloseSummaryR\bchannels" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let channels__field_descriptor = Data.ProtoLens.FieldDescriptor "channels" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChannelCloseSummary) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"channels")) :: Data.ProtoLens.FieldDescriptor ClosedChannelsResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, channels__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ClosedChannelsResponse'_unknownFields (\ x__ y__ -> x__ {_ClosedChannelsResponse'_unknownFields = y__}) defMessage = ClosedChannelsResponse'_constructor {_ClosedChannelsResponse'channels = Data.Vector.Generic.empty, _ClosedChannelsResponse'_unknownFields = []} parseMessage = let loop :: ClosedChannelsResponse -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ChannelCloseSummary -> Data.ProtoLens.Encoding.Bytes.Parser ClosedChannelsResponse loop x mutable'channels = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'channels <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'channels) (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'channels") frozen'channels 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) "channels" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'channels 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'channels in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'channels <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'channels) "ClosedChannelsResponse" 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'channels") _x)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData ClosedChannelsResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_ClosedChannelsResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_ClosedChannelsResponse'channels x__) ()) newtype CommitmentType'UnrecognizedValue = CommitmentType'UnrecognizedValue Data.Int.Int32 deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) data CommitmentType = LEGACY | STATIC_REMOTE_KEY | ANCHORS | UNKNOWN_COMMITMENT_TYPE | CommitmentType'Unrecognized !CommitmentType'UnrecognizedValue deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.MessageEnum CommitmentType where maybeToEnum 0 = Prelude.Just LEGACY maybeToEnum 1 = Prelude.Just STATIC_REMOTE_KEY maybeToEnum 2 = Prelude.Just ANCHORS maybeToEnum 999 = Prelude.Just UNKNOWN_COMMITMENT_TYPE maybeToEnum k = Prelude.Just (CommitmentType'Unrecognized (CommitmentType'UnrecognizedValue (Prelude.fromIntegral k))) showEnum LEGACY = "LEGACY" showEnum STATIC_REMOTE_KEY = "STATIC_REMOTE_KEY" showEnum ANCHORS = "ANCHORS" showEnum UNKNOWN_COMMITMENT_TYPE = "UNKNOWN_COMMITMENT_TYPE" showEnum (CommitmentType'Unrecognized (CommitmentType'UnrecognizedValue k)) = Prelude.show k readEnum k | (Prelude.==) k "LEGACY" = Prelude.Just LEGACY | (Prelude.==) k "STATIC_REMOTE_KEY" = Prelude.Just STATIC_REMOTE_KEY | (Prelude.==) k "ANCHORS" = Prelude.Just ANCHORS | (Prelude.==) k "UNKNOWN_COMMITMENT_TYPE" = Prelude.Just UNKNOWN_COMMITMENT_TYPE | Prelude.otherwise = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum instance Prelude.Bounded CommitmentType where minBound = LEGACY maxBound = UNKNOWN_COMMITMENT_TYPE instance Prelude.Enum CommitmentType where toEnum k__ = Prelude.maybe (Prelude.error ((Prelude.++) "toEnum: unknown value for enum CommitmentType: " (Prelude.show k__))) Prelude.id (Data.ProtoLens.maybeToEnum k__) fromEnum LEGACY = 0 fromEnum STATIC_REMOTE_KEY = 1 fromEnum ANCHORS = 2 fromEnum UNKNOWN_COMMITMENT_TYPE = 999 fromEnum (CommitmentType'Unrecognized (CommitmentType'UnrecognizedValue k)) = Prelude.fromIntegral k succ UNKNOWN_COMMITMENT_TYPE = Prelude.error "CommitmentType.succ: bad argument UNKNOWN_COMMITMENT_TYPE. This value would be out of bounds." succ LEGACY = STATIC_REMOTE_KEY succ STATIC_REMOTE_KEY = ANCHORS succ ANCHORS = UNKNOWN_COMMITMENT_TYPE succ (CommitmentType'Unrecognized _) = Prelude.error "CommitmentType.succ: bad argument: unrecognized value" pred LEGACY = Prelude.error "CommitmentType.pred: bad argument LEGACY. This value would be out of bounds." pred STATIC_REMOTE_KEY = LEGACY pred ANCHORS = STATIC_REMOTE_KEY pred UNKNOWN_COMMITMENT_TYPE = ANCHORS pred (CommitmentType'Unrecognized _) = Prelude.error "CommitmentType.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 CommitmentType where fieldDefault = LEGACY instance Control.DeepSeq.NFData CommitmentType where rnf x__ = Prelude.seq x__ () {- | Fields : * 'Proto.LndGrpc_Fields.blockSha' @:: Lens' ConfirmationUpdate Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.blockHeight' @:: Lens' ConfirmationUpdate Data.Int.Int32@ * 'Proto.LndGrpc_Fields.numConfsLeft' @:: Lens' ConfirmationUpdate Data.Word.Word32@ -} data ConfirmationUpdate = ConfirmationUpdate'_constructor {_ConfirmationUpdate'blockSha :: !Data.ByteString.ByteString, _ConfirmationUpdate'blockHeight :: !Data.Int.Int32, _ConfirmationUpdate'numConfsLeft :: !Data.Word.Word32, _ConfirmationUpdate'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ConfirmationUpdate where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ConfirmationUpdate "blockSha" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ConfirmationUpdate'blockSha (\ x__ y__ -> x__ {_ConfirmationUpdate'blockSha = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ConfirmationUpdate "blockHeight" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ConfirmationUpdate'blockHeight (\ x__ y__ -> x__ {_ConfirmationUpdate'blockHeight = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ConfirmationUpdate "numConfsLeft" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ConfirmationUpdate'numConfsLeft (\ x__ y__ -> x__ {_ConfirmationUpdate'numConfsLeft = y__})) Prelude.id instance Data.ProtoLens.Message ConfirmationUpdate where messageName _ = Data.Text.pack "lnrpc.ConfirmationUpdate" packedMessageDescriptor _ = "\n\ \\DC2ConfirmationUpdate\DC2\ESC\n\ \\tblock_sha\CAN\SOH \SOH(\fR\bblockSha\DC2!\n\ \\fblock_height\CAN\STX \SOH(\ENQR\vblockHeight\DC2$\n\ \\SOnum_confs_left\CAN\ETX \SOH(\rR\fnumConfsLeft" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let blockSha__field_descriptor = Data.ProtoLens.FieldDescriptor "block_sha" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"blockSha")) :: Data.ProtoLens.FieldDescriptor ConfirmationUpdate blockHeight__field_descriptor = Data.ProtoLens.FieldDescriptor "block_height" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"blockHeight")) :: Data.ProtoLens.FieldDescriptor ConfirmationUpdate numConfsLeft__field_descriptor = Data.ProtoLens.FieldDescriptor "num_confs_left" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"numConfsLeft")) :: Data.ProtoLens.FieldDescriptor ConfirmationUpdate in Data.Map.fromList [(Data.ProtoLens.Tag 1, blockSha__field_descriptor), (Data.ProtoLens.Tag 2, blockHeight__field_descriptor), (Data.ProtoLens.Tag 3, numConfsLeft__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ConfirmationUpdate'_unknownFields (\ x__ y__ -> x__ {_ConfirmationUpdate'_unknownFields = y__}) defMessage = ConfirmationUpdate'_constructor {_ConfirmationUpdate'blockSha = Data.ProtoLens.fieldDefault, _ConfirmationUpdate'blockHeight = Data.ProtoLens.fieldDefault, _ConfirmationUpdate'numConfsLeft = Data.ProtoLens.fieldDefault, _ConfirmationUpdate'_unknownFields = []} parseMessage = let loop :: ConfirmationUpdate -> Data.ProtoLens.Encoding.Bytes.Parser ConfirmationUpdate 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)) "block_sha" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"blockSha") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "block_height" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"blockHeight") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "num_confs_left" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"numConfsLeft") 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) "ConfirmationUpdate" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"blockSha") _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 @"blockHeight") _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 @"numConfsLeft") _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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) instance Control.DeepSeq.NFData ConfirmationUpdate where rnf = \ x__ -> Control.DeepSeq.deepseq (_ConfirmationUpdate'_unknownFields x__) (Control.DeepSeq.deepseq (_ConfirmationUpdate'blockSha x__) (Control.DeepSeq.deepseq (_ConfirmationUpdate'blockHeight x__) (Control.DeepSeq.deepseq (_ConfirmationUpdate'numConfsLeft x__) ()))) {- | Fields : * 'Proto.LndGrpc_Fields.addr' @:: Lens' ConnectPeerRequest LightningAddress@ * 'Proto.LndGrpc_Fields.maybe'addr' @:: Lens' ConnectPeerRequest (Prelude.Maybe LightningAddress)@ * 'Proto.LndGrpc_Fields.perm' @:: Lens' ConnectPeerRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.timeout' @:: Lens' ConnectPeerRequest Data.Word.Word64@ -} data ConnectPeerRequest = ConnectPeerRequest'_constructor {_ConnectPeerRequest'addr :: !(Prelude.Maybe LightningAddress), _ConnectPeerRequest'perm :: !Prelude.Bool, _ConnectPeerRequest'timeout :: !Data.Word.Word64, _ConnectPeerRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ConnectPeerRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ConnectPeerRequest "addr" LightningAddress where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ConnectPeerRequest'addr (\ x__ y__ -> x__ {_ConnectPeerRequest'addr = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ConnectPeerRequest "maybe'addr" (Prelude.Maybe LightningAddress) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ConnectPeerRequest'addr (\ x__ y__ -> x__ {_ConnectPeerRequest'addr = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ConnectPeerRequest "perm" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ConnectPeerRequest'perm (\ x__ y__ -> x__ {_ConnectPeerRequest'perm = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ConnectPeerRequest "timeout" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ConnectPeerRequest'timeout (\ x__ y__ -> x__ {_ConnectPeerRequest'timeout = y__})) Prelude.id instance Data.ProtoLens.Message ConnectPeerRequest where messageName _ = Data.Text.pack "lnrpc.ConnectPeerRequest" packedMessageDescriptor _ = "\n\ \\DC2ConnectPeerRequest\DC2+\n\ \\EOTaddr\CAN\SOH \SOH(\v2\ETB.lnrpc.LightningAddressR\EOTaddr\DC2\DC2\n\ \\EOTperm\CAN\STX \SOH(\bR\EOTperm\DC2\CAN\n\ \\atimeout\CAN\ETX \SOH(\EOTR\atimeout" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let addr__field_descriptor = Data.ProtoLens.FieldDescriptor "addr" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor LightningAddress) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'addr")) :: Data.ProtoLens.FieldDescriptor ConnectPeerRequest perm__field_descriptor = Data.ProtoLens.FieldDescriptor "perm" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"perm")) :: Data.ProtoLens.FieldDescriptor ConnectPeerRequest timeout__field_descriptor = Data.ProtoLens.FieldDescriptor "timeout" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"timeout")) :: Data.ProtoLens.FieldDescriptor ConnectPeerRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, addr__field_descriptor), (Data.ProtoLens.Tag 2, perm__field_descriptor), (Data.ProtoLens.Tag 3, timeout__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ConnectPeerRequest'_unknownFields (\ x__ y__ -> x__ {_ConnectPeerRequest'_unknownFields = y__}) defMessage = ConnectPeerRequest'_constructor {_ConnectPeerRequest'addr = Prelude.Nothing, _ConnectPeerRequest'perm = Data.ProtoLens.fieldDefault, _ConnectPeerRequest'timeout = Data.ProtoLens.fieldDefault, _ConnectPeerRequest'_unknownFields = []} parseMessage = let loop :: ConnectPeerRequest -> Data.ProtoLens.Encoding.Bytes.Parser ConnectPeerRequest 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) "addr" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"addr") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "perm" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"perm") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "timeout" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"timeout") 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) "ConnectPeerRequest" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'addr") _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 @"perm") _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 @"timeout") _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 ConnectPeerRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_ConnectPeerRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_ConnectPeerRequest'addr x__) (Control.DeepSeq.deepseq (_ConnectPeerRequest'perm x__) (Control.DeepSeq.deepseq (_ConnectPeerRequest'timeout x__) ()))) {- | Fields : -} data ConnectPeerResponse = ConnectPeerResponse'_constructor {_ConnectPeerResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ConnectPeerResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Message ConnectPeerResponse where messageName _ = Data.Text.pack "lnrpc.ConnectPeerResponse" packedMessageDescriptor _ = "\n\ \\DC3ConnectPeerResponse" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let in Data.Map.fromList [] unknownFields = Lens.Family2.Unchecked.lens _ConnectPeerResponse'_unknownFields (\ x__ y__ -> x__ {_ConnectPeerResponse'_unknownFields = y__}) defMessage = ConnectPeerResponse'_constructor {_ConnectPeerResponse'_unknownFields = []} parseMessage = let loop :: ConnectPeerResponse -> Data.ProtoLens.Encoding.Bytes.Parser ConnectPeerResponse 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) "ConnectPeerResponse" buildMessage = \ _x -> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) instance Control.DeepSeq.NFData ConnectPeerResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_ConnectPeerResponse'_unknownFields x__) () {- | Fields : * 'Proto.LndGrpc_Fields.show' @:: Lens' DebugLevelRequest Prelude.Bool@ * 'Proto.LndGrpc_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) instance Prelude.Show DebugLevelRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_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) instance Prelude.Show DebugLevelResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.failedPaymentsOnly' @:: Lens' DeleteAllPaymentsRequest Prelude.Bool@ * 'Proto.LndGrpc_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) instance Prelude.Show DeleteAllPaymentsRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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) instance Prelude.Show DeleteAllPaymentsResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_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) instance Prelude.Show DeleteMacaroonIDRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_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) instance Prelude.Show DeleteMacaroonIDResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.pubKey' @:: Lens' DisconnectPeerRequest Data.Text.Text@ -} data DisconnectPeerRequest = DisconnectPeerRequest'_constructor {_DisconnectPeerRequest'pubKey :: !Data.Text.Text, _DisconnectPeerRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show DisconnectPeerRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField DisconnectPeerRequest "pubKey" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _DisconnectPeerRequest'pubKey (\ x__ y__ -> x__ {_DisconnectPeerRequest'pubKey = y__})) Prelude.id instance Data.ProtoLens.Message DisconnectPeerRequest where messageName _ = Data.Text.pack "lnrpc.DisconnectPeerRequest" packedMessageDescriptor _ = "\n\ \\NAKDisconnectPeerRequest\DC2\ETB\n\ \\apub_key\CAN\SOH \SOH(\tR\ACKpubKey" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let pubKey__field_descriptor = Data.ProtoLens.FieldDescriptor "pub_key" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pubKey")) :: Data.ProtoLens.FieldDescriptor DisconnectPeerRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, pubKey__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _DisconnectPeerRequest'_unknownFields (\ x__ y__ -> x__ {_DisconnectPeerRequest'_unknownFields = y__}) defMessage = DisconnectPeerRequest'_constructor {_DisconnectPeerRequest'pubKey = Data.ProtoLens.fieldDefault, _DisconnectPeerRequest'_unknownFields = []} parseMessage = let loop :: DisconnectPeerRequest -> Data.ProtoLens.Encoding.Bytes.Parser DisconnectPeerRequest 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)) "pub_key" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pubKey") 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) "DisconnectPeerRequest" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"pubKey") _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 DisconnectPeerRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_DisconnectPeerRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_DisconnectPeerRequest'pubKey x__) ()) {- | Fields : -} data DisconnectPeerResponse = DisconnectPeerResponse'_constructor {_DisconnectPeerResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show DisconnectPeerResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Message DisconnectPeerResponse where messageName _ = Data.Text.pack "lnrpc.DisconnectPeerResponse" packedMessageDescriptor _ = "\n\ \\SYNDisconnectPeerResponse" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let in Data.Map.fromList [] unknownFields = Lens.Family2.Unchecked.lens _DisconnectPeerResponse'_unknownFields (\ x__ y__ -> x__ {_DisconnectPeerResponse'_unknownFields = y__}) defMessage = DisconnectPeerResponse'_constructor {_DisconnectPeerResponse'_unknownFields = []} parseMessage = let loop :: DisconnectPeerResponse -> Data.ProtoLens.Encoding.Bytes.Parser DisconnectPeerResponse 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) "DisconnectPeerResponse" buildMessage = \ _x -> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) instance Control.DeepSeq.NFData DisconnectPeerResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_DisconnectPeerResponse'_unknownFields x__) () {- | Fields : * 'Proto.LndGrpc_Fields.channelId' @:: Lens' EdgeLocator Data.Word.Word64@ * 'Proto.LndGrpc_Fields.directionReverse' @:: Lens' EdgeLocator Prelude.Bool@ -} data EdgeLocator = EdgeLocator'_constructor {_EdgeLocator'channelId :: !Data.Word.Word64, _EdgeLocator'directionReverse :: !Prelude.Bool, _EdgeLocator'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show EdgeLocator where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField EdgeLocator "channelId" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _EdgeLocator'channelId (\ x__ y__ -> x__ {_EdgeLocator'channelId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField EdgeLocator "directionReverse" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _EdgeLocator'directionReverse (\ x__ y__ -> x__ {_EdgeLocator'directionReverse = y__})) Prelude.id instance Data.ProtoLens.Message EdgeLocator where messageName _ = Data.Text.pack "lnrpc.EdgeLocator" packedMessageDescriptor _ = "\n\ \\vEdgeLocator\DC2!\n\ \\n\ \channel_id\CAN\SOH \SOH(\EOTR\tchannelIdB\STX0\SOH\DC2+\n\ \\DC1direction_reverse\CAN\STX \SOH(\bR\DLEdirectionReverse" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let channelId__field_descriptor = Data.ProtoLens.FieldDescriptor "channel_id" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"channelId")) :: Data.ProtoLens.FieldDescriptor EdgeLocator directionReverse__field_descriptor = Data.ProtoLens.FieldDescriptor "direction_reverse" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"directionReverse")) :: Data.ProtoLens.FieldDescriptor EdgeLocator in Data.Map.fromList [(Data.ProtoLens.Tag 1, channelId__field_descriptor), (Data.ProtoLens.Tag 2, directionReverse__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _EdgeLocator'_unknownFields (\ x__ y__ -> x__ {_EdgeLocator'_unknownFields = y__}) defMessage = EdgeLocator'_constructor {_EdgeLocator'channelId = Data.ProtoLens.fieldDefault, _EdgeLocator'directionReverse = Data.ProtoLens.fieldDefault, _EdgeLocator'_unknownFields = []} parseMessage = let loop :: EdgeLocator -> Data.ProtoLens.Encoding.Bytes.Parser EdgeLocator 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 "channel_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"channelId") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "direction_reverse" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"directionReverse") 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) "EdgeLocator" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"channelId") _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 @"directionReverse") _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 EdgeLocator where rnf = \ x__ -> Control.DeepSeq.deepseq (_EdgeLocator'_unknownFields x__) (Control.DeepSeq.deepseq (_EdgeLocator'channelId x__) (Control.DeepSeq.deepseq (_EdgeLocator'directionReverse x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.addrToAmount' @:: Lens' EstimateFeeRequest (Data.Map.Map Data.Text.Text Data.Int.Int64)@ * 'Proto.LndGrpc_Fields.targetConf' @:: Lens' EstimateFeeRequest Data.Int.Int32@ * 'Proto.LndGrpc_Fields.minConfs' @:: Lens' EstimateFeeRequest Data.Int.Int32@ * 'Proto.LndGrpc_Fields.spendUnconfirmed' @:: Lens' EstimateFeeRequest Prelude.Bool@ -} data EstimateFeeRequest = EstimateFeeRequest'_constructor {_EstimateFeeRequest'addrToAmount :: !(Data.Map.Map Data.Text.Text Data.Int.Int64), _EstimateFeeRequest'targetConf :: !Data.Int.Int32, _EstimateFeeRequest'minConfs :: !Data.Int.Int32, _EstimateFeeRequest'spendUnconfirmed :: !Prelude.Bool, _EstimateFeeRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show EstimateFeeRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField EstimateFeeRequest "addrToAmount" (Data.Map.Map Data.Text.Text Data.Int.Int64) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _EstimateFeeRequest'addrToAmount (\ x__ y__ -> x__ {_EstimateFeeRequest'addrToAmount = y__})) Prelude.id instance Data.ProtoLens.Field.HasField EstimateFeeRequest "targetConf" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _EstimateFeeRequest'targetConf (\ x__ y__ -> x__ {_EstimateFeeRequest'targetConf = y__})) Prelude.id instance Data.ProtoLens.Field.HasField EstimateFeeRequest "minConfs" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _EstimateFeeRequest'minConfs (\ x__ y__ -> x__ {_EstimateFeeRequest'minConfs = y__})) Prelude.id instance Data.ProtoLens.Field.HasField EstimateFeeRequest "spendUnconfirmed" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _EstimateFeeRequest'spendUnconfirmed (\ x__ y__ -> x__ {_EstimateFeeRequest'spendUnconfirmed = y__})) Prelude.id instance Data.ProtoLens.Message EstimateFeeRequest where messageName _ = Data.Text.pack "lnrpc.EstimateFeeRequest" packedMessageDescriptor _ = "\n\ \\DC2EstimateFeeRequest\DC2O\n\ \\fAddrToAmount\CAN\SOH \ETX(\v2+.lnrpc.EstimateFeeRequest.AddrToAmountEntryR\fAddrToAmount\DC2\US\n\ \\vtarget_conf\CAN\STX \SOH(\ENQR\n\ \targetConf\DC2\ESC\n\ \\tmin_confs\CAN\ETX \SOH(\ENQR\bminConfs\DC2+\n\ \\DC1spend_unconfirmed\CAN\EOT \SOH(\bR\DLEspendUnconfirmed\SUB?\n\ \\DC1AddrToAmountEntry\DC2\DLE\n\ \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ \\ENQvalue\CAN\STX \SOH(\ETXR\ENQvalue:\STX8\SOH" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let addrToAmount__field_descriptor = Data.ProtoLens.FieldDescriptor "AddrToAmount" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor EstimateFeeRequest'AddrToAmountEntry) (Data.ProtoLens.MapField (Data.ProtoLens.Field.field @"key") (Data.ProtoLens.Field.field @"value") (Data.ProtoLens.Field.field @"addrToAmount")) :: Data.ProtoLens.FieldDescriptor EstimateFeeRequest targetConf__field_descriptor = Data.ProtoLens.FieldDescriptor "target_conf" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"targetConf")) :: Data.ProtoLens.FieldDescriptor EstimateFeeRequest minConfs__field_descriptor = Data.ProtoLens.FieldDescriptor "min_confs" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"minConfs")) :: Data.ProtoLens.FieldDescriptor EstimateFeeRequest spendUnconfirmed__field_descriptor = Data.ProtoLens.FieldDescriptor "spend_unconfirmed" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"spendUnconfirmed")) :: Data.ProtoLens.FieldDescriptor EstimateFeeRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, addrToAmount__field_descriptor), (Data.ProtoLens.Tag 2, targetConf__field_descriptor), (Data.ProtoLens.Tag 3, minConfs__field_descriptor), (Data.ProtoLens.Tag 4, spendUnconfirmed__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _EstimateFeeRequest'_unknownFields (\ x__ y__ -> x__ {_EstimateFeeRequest'_unknownFields = y__}) defMessage = EstimateFeeRequest'_constructor {_EstimateFeeRequest'addrToAmount = Data.Map.empty, _EstimateFeeRequest'targetConf = Data.ProtoLens.fieldDefault, _EstimateFeeRequest'minConfs = Data.ProtoLens.fieldDefault, _EstimateFeeRequest'spendUnconfirmed = Data.ProtoLens.fieldDefault, _EstimateFeeRequest'_unknownFields = []} parseMessage = let loop :: EstimateFeeRequest -> Data.ProtoLens.Encoding.Bytes.Parser EstimateFeeRequest 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 :: EstimateFeeRequest'AddrToAmountEntry) <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "AddrToAmount" (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 @"addrToAmount") (\ !t -> Data.Map.insert key value t) x)) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "target_conf" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"targetConf") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "min_confs" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"minConfs") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "spend_unconfirmed" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"spendUnconfirmed") 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) "EstimateFeeRequest" 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 :: EstimateFeeRequest'AddrToAmountEntry))))) (Data.Map.toList (Lens.Family2.view (Data.ProtoLens.Field.field @"addrToAmount") _x)))) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"targetConf") _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 @"minConfs") _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 @"spendUnconfirmed") _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 EstimateFeeRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_EstimateFeeRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_EstimateFeeRequest'addrToAmount x__) (Control.DeepSeq.deepseq (_EstimateFeeRequest'targetConf x__) (Control.DeepSeq.deepseq (_EstimateFeeRequest'minConfs x__) (Control.DeepSeq.deepseq (_EstimateFeeRequest'spendUnconfirmed x__) ())))) {- | Fields : * 'Proto.LndGrpc_Fields.key' @:: Lens' EstimateFeeRequest'AddrToAmountEntry Data.Text.Text@ * 'Proto.LndGrpc_Fields.value' @:: Lens' EstimateFeeRequest'AddrToAmountEntry Data.Int.Int64@ -} data EstimateFeeRequest'AddrToAmountEntry = EstimateFeeRequest'AddrToAmountEntry'_constructor {_EstimateFeeRequest'AddrToAmountEntry'key :: !Data.Text.Text, _EstimateFeeRequest'AddrToAmountEntry'value :: !Data.Int.Int64, _EstimateFeeRequest'AddrToAmountEntry'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show EstimateFeeRequest'AddrToAmountEntry where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField EstimateFeeRequest'AddrToAmountEntry "key" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _EstimateFeeRequest'AddrToAmountEntry'key (\ x__ y__ -> x__ {_EstimateFeeRequest'AddrToAmountEntry'key = y__})) Prelude.id instance Data.ProtoLens.Field.HasField EstimateFeeRequest'AddrToAmountEntry "value" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _EstimateFeeRequest'AddrToAmountEntry'value (\ x__ y__ -> x__ {_EstimateFeeRequest'AddrToAmountEntry'value = y__})) Prelude.id instance Data.ProtoLens.Message EstimateFeeRequest'AddrToAmountEntry where messageName _ = Data.Text.pack "lnrpc.EstimateFeeRequest.AddrToAmountEntry" packedMessageDescriptor _ = "\n\ \\DC1AddrToAmountEntry\DC2\DLE\n\ \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ \\ENQvalue\CAN\STX \SOH(\ETXR\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 EstimateFeeRequest'AddrToAmountEntry 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 EstimateFeeRequest'AddrToAmountEntry in Data.Map.fromList [(Data.ProtoLens.Tag 1, key__field_descriptor), (Data.ProtoLens.Tag 2, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _EstimateFeeRequest'AddrToAmountEntry'_unknownFields (\ x__ y__ -> x__ {_EstimateFeeRequest'AddrToAmountEntry'_unknownFields = y__}) defMessage = EstimateFeeRequest'AddrToAmountEntry'_constructor {_EstimateFeeRequest'AddrToAmountEntry'key = Data.ProtoLens.fieldDefault, _EstimateFeeRequest'AddrToAmountEntry'value = Data.ProtoLens.fieldDefault, _EstimateFeeRequest'AddrToAmountEntry'_unknownFields = []} parseMessage = let loop :: EstimateFeeRequest'AddrToAmountEntry -> Data.ProtoLens.Encoding.Bytes.Parser EstimateFeeRequest'AddrToAmountEntry 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) 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) 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) "AddrToAmountEntry" 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.<>) (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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))) instance Control.DeepSeq.NFData EstimateFeeRequest'AddrToAmountEntry where rnf = \ x__ -> Control.DeepSeq.deepseq (_EstimateFeeRequest'AddrToAmountEntry'_unknownFields x__) (Control.DeepSeq.deepseq (_EstimateFeeRequest'AddrToAmountEntry'key x__) (Control.DeepSeq.deepseq (_EstimateFeeRequest'AddrToAmountEntry'value x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.feeSat' @:: Lens' EstimateFeeResponse Data.Int.Int64@ * 'Proto.LndGrpc_Fields.feerateSatPerByte' @:: Lens' EstimateFeeResponse Data.Int.Int64@ * 'Proto.LndGrpc_Fields.satPerVbyte' @:: Lens' EstimateFeeResponse Data.Word.Word64@ -} data EstimateFeeResponse = EstimateFeeResponse'_constructor {_EstimateFeeResponse'feeSat :: !Data.Int.Int64, _EstimateFeeResponse'feerateSatPerByte :: !Data.Int.Int64, _EstimateFeeResponse'satPerVbyte :: !Data.Word.Word64, _EstimateFeeResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show EstimateFeeResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField EstimateFeeResponse "feeSat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _EstimateFeeResponse'feeSat (\ x__ y__ -> x__ {_EstimateFeeResponse'feeSat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField EstimateFeeResponse "feerateSatPerByte" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _EstimateFeeResponse'feerateSatPerByte (\ x__ y__ -> x__ {_EstimateFeeResponse'feerateSatPerByte = y__})) Prelude.id instance Data.ProtoLens.Field.HasField EstimateFeeResponse "satPerVbyte" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _EstimateFeeResponse'satPerVbyte (\ x__ y__ -> x__ {_EstimateFeeResponse'satPerVbyte = y__})) Prelude.id instance Data.ProtoLens.Message EstimateFeeResponse where messageName _ = Data.Text.pack "lnrpc.EstimateFeeResponse" packedMessageDescriptor _ = "\n\ \\DC3EstimateFeeResponse\DC2\ETB\n\ \\afee_sat\CAN\SOH \SOH(\ETXR\ACKfeeSat\DC23\n\ \\DC4feerate_sat_per_byte\CAN\STX \SOH(\ETXR\DC1feerateSatPerByteB\STX\CAN\SOH\DC2\"\n\ \\rsat_per_vbyte\CAN\ETX \SOH(\EOTR\vsatPerVbyte" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let 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 EstimateFeeResponse feerateSatPerByte__field_descriptor = Data.ProtoLens.FieldDescriptor "feerate_sat_per_byte" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"feerateSatPerByte")) :: Data.ProtoLens.FieldDescriptor EstimateFeeResponse satPerVbyte__field_descriptor = Data.ProtoLens.FieldDescriptor "sat_per_vbyte" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"satPerVbyte")) :: Data.ProtoLens.FieldDescriptor EstimateFeeResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, feeSat__field_descriptor), (Data.ProtoLens.Tag 2, feerateSatPerByte__field_descriptor), (Data.ProtoLens.Tag 3, satPerVbyte__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _EstimateFeeResponse'_unknownFields (\ x__ y__ -> x__ {_EstimateFeeResponse'_unknownFields = y__}) defMessage = EstimateFeeResponse'_constructor {_EstimateFeeResponse'feeSat = Data.ProtoLens.fieldDefault, _EstimateFeeResponse'feerateSatPerByte = Data.ProtoLens.fieldDefault, _EstimateFeeResponse'satPerVbyte = Data.ProtoLens.fieldDefault, _EstimateFeeResponse'_unknownFields = []} parseMessage = let loop :: EstimateFeeResponse -> Data.ProtoLens.Encoding.Bytes.Parser EstimateFeeResponse 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) "fee_sat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"feeSat") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "feerate_sat_per_byte" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"feerateSatPerByte") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "sat_per_vbyte" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"satPerVbyte") 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) "EstimateFeeResponse" buildMessage = \ _x -> (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 8) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"feerateSatPerByte") _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 @"satPerVbyte") _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 EstimateFeeResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_EstimateFeeResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_EstimateFeeResponse'feeSat x__) (Control.DeepSeq.deepseq (_EstimateFeeResponse'feerateSatPerByte x__) (Control.DeepSeq.deepseq (_EstimateFeeResponse'satPerVbyte x__) ()))) {- | Fields : * 'Proto.LndGrpc_Fields.chanPoint' @:: Lens' ExportChannelBackupRequest ChannelPoint@ * 'Proto.LndGrpc_Fields.maybe'chanPoint' @:: Lens' ExportChannelBackupRequest (Prelude.Maybe ChannelPoint)@ -} data ExportChannelBackupRequest = ExportChannelBackupRequest'_constructor {_ExportChannelBackupRequest'chanPoint :: !(Prelude.Maybe ChannelPoint), _ExportChannelBackupRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ExportChannelBackupRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ExportChannelBackupRequest "chanPoint" 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 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 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.LndGrpc_Fields.code' @:: Lens' Failure Failure'FailureCode@ * 'Proto.LndGrpc_Fields.channelUpdate' @:: Lens' Failure ChannelUpdate@ * 'Proto.LndGrpc_Fields.maybe'channelUpdate' @:: Lens' Failure (Prelude.Maybe ChannelUpdate)@ * 'Proto.LndGrpc_Fields.htlcMsat' @:: Lens' Failure Data.Word.Word64@ * 'Proto.LndGrpc_Fields.onionSha256' @:: Lens' Failure Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.cltvExpiry' @:: Lens' Failure Data.Word.Word32@ * 'Proto.LndGrpc_Fields.flags' @:: Lens' Failure Data.Word.Word32@ * 'Proto.LndGrpc_Fields.failureSourceIndex' @:: Lens' Failure Data.Word.Word32@ * 'Proto.LndGrpc_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) instance Prelude.Show Failure where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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) 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) 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__ () {- | Fields : * 'Proto.LndGrpc_Fields.name' @:: Lens' Feature Data.Text.Text@ * 'Proto.LndGrpc_Fields.isRequired' @:: Lens' Feature Prelude.Bool@ * 'Proto.LndGrpc_Fields.isKnown' @:: Lens' Feature Prelude.Bool@ -} data Feature = Feature'_constructor {_Feature'name :: !Data.Text.Text, _Feature'isRequired :: !Prelude.Bool, _Feature'isKnown :: !Prelude.Bool, _Feature'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Feature where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField Feature "name" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Feature'name (\ x__ y__ -> x__ {_Feature'name = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Feature "isRequired" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Feature'isRequired (\ x__ y__ -> x__ {_Feature'isRequired = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Feature "isKnown" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Feature'isKnown (\ x__ y__ -> x__ {_Feature'isKnown = y__})) Prelude.id instance Data.ProtoLens.Message Feature where messageName _ = Data.Text.pack "lnrpc.Feature" packedMessageDescriptor _ = "\n\ \\aFeature\DC2\DC2\n\ \\EOTname\CAN\STX \SOH(\tR\EOTname\DC2\US\n\ \\vis_required\CAN\ETX \SOH(\bR\n\ \isRequired\DC2\EM\n\ \\bis_known\CAN\EOT \SOH(\bR\aisKnown" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let name__field_descriptor = Data.ProtoLens.FieldDescriptor "name" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"name")) :: Data.ProtoLens.FieldDescriptor Feature isRequired__field_descriptor = Data.ProtoLens.FieldDescriptor "is_required" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"isRequired")) :: Data.ProtoLens.FieldDescriptor Feature isKnown__field_descriptor = Data.ProtoLens.FieldDescriptor "is_known" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"isKnown")) :: Data.ProtoLens.FieldDescriptor Feature in Data.Map.fromList [(Data.ProtoLens.Tag 2, name__field_descriptor), (Data.ProtoLens.Tag 3, isRequired__field_descriptor), (Data.ProtoLens.Tag 4, isKnown__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Feature'_unknownFields (\ x__ y__ -> x__ {_Feature'_unknownFields = y__}) defMessage = Feature'_constructor {_Feature'name = Data.ProtoLens.fieldDefault, _Feature'isRequired = Data.ProtoLens.fieldDefault, _Feature'isKnown = Data.ProtoLens.fieldDefault, _Feature'_unknownFields = []} parseMessage = let loop :: Feature -> Data.ProtoLens.Encoding.Bytes.Parser Feature loop x = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do (let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail ((Prelude.++) "Missing required fields: " (Prelude.show (missing :: [Prelude.String])))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do 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)) "name" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "is_required" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"isRequired") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "is_known" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"isKnown") 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) "Feature" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _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 @"isRequired") _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.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"isKnown") _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 Feature where rnf = \ x__ -> Control.DeepSeq.deepseq (_Feature'_unknownFields x__) (Control.DeepSeq.deepseq (_Feature'name x__) (Control.DeepSeq.deepseq (_Feature'isRequired x__) (Control.DeepSeq.deepseq (_Feature'isKnown x__) ()))) newtype FeatureBit'UnrecognizedValue = FeatureBit'UnrecognizedValue Data.Int.Int32 deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) data FeatureBit = DATALOSS_PROTECT_REQ | DATALOSS_PROTECT_OPT | INITIAL_ROUING_SYNC | UPFRONT_SHUTDOWN_SCRIPT_REQ | UPFRONT_SHUTDOWN_SCRIPT_OPT | GOSSIP_QUERIES_REQ | GOSSIP_QUERIES_OPT | TLV_ONION_REQ | TLV_ONION_OPT | EXT_GOSSIP_QUERIES_REQ | EXT_GOSSIP_QUERIES_OPT | STATIC_REMOTE_KEY_REQ | STATIC_REMOTE_KEY_OPT | PAYMENT_ADDR_REQ | PAYMENT_ADDR_OPT | MPP_REQ | MPP_OPT | WUMBO_CHANNELS_REQ | WUMBO_CHANNELS_OPT | ANCHORS_REQ | ANCHORS_OPT | ANCHORS_ZERO_FEE_HTLC_REQ | ANCHORS_ZERO_FEE_HTLC_OPT | AMP_REQ | AMP_OPT | FeatureBit'Unrecognized !FeatureBit'UnrecognizedValue deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.MessageEnum FeatureBit where maybeToEnum 0 = Prelude.Just DATALOSS_PROTECT_REQ maybeToEnum 1 = Prelude.Just DATALOSS_PROTECT_OPT maybeToEnum 3 = Prelude.Just INITIAL_ROUING_SYNC maybeToEnum 4 = Prelude.Just UPFRONT_SHUTDOWN_SCRIPT_REQ maybeToEnum 5 = Prelude.Just UPFRONT_SHUTDOWN_SCRIPT_OPT maybeToEnum 6 = Prelude.Just GOSSIP_QUERIES_REQ maybeToEnum 7 = Prelude.Just GOSSIP_QUERIES_OPT maybeToEnum 8 = Prelude.Just TLV_ONION_REQ maybeToEnum 9 = Prelude.Just TLV_ONION_OPT maybeToEnum 10 = Prelude.Just EXT_GOSSIP_QUERIES_REQ maybeToEnum 11 = Prelude.Just EXT_GOSSIP_QUERIES_OPT maybeToEnum 12 = Prelude.Just STATIC_REMOTE_KEY_REQ maybeToEnum 13 = Prelude.Just STATIC_REMOTE_KEY_OPT maybeToEnum 14 = Prelude.Just PAYMENT_ADDR_REQ maybeToEnum 15 = Prelude.Just PAYMENT_ADDR_OPT maybeToEnum 16 = Prelude.Just MPP_REQ maybeToEnum 17 = Prelude.Just MPP_OPT maybeToEnum 18 = Prelude.Just WUMBO_CHANNELS_REQ maybeToEnum 19 = Prelude.Just WUMBO_CHANNELS_OPT maybeToEnum 20 = Prelude.Just ANCHORS_REQ maybeToEnum 21 = Prelude.Just ANCHORS_OPT maybeToEnum 22 = Prelude.Just ANCHORS_ZERO_FEE_HTLC_REQ maybeToEnum 23 = Prelude.Just ANCHORS_ZERO_FEE_HTLC_OPT maybeToEnum 30 = Prelude.Just AMP_REQ maybeToEnum 31 = Prelude.Just AMP_OPT maybeToEnum k = Prelude.Just (FeatureBit'Unrecognized (FeatureBit'UnrecognizedValue (Prelude.fromIntegral k))) showEnum DATALOSS_PROTECT_REQ = "DATALOSS_PROTECT_REQ" showEnum DATALOSS_PROTECT_OPT = "DATALOSS_PROTECT_OPT" showEnum INITIAL_ROUING_SYNC = "INITIAL_ROUING_SYNC" showEnum UPFRONT_SHUTDOWN_SCRIPT_REQ = "UPFRONT_SHUTDOWN_SCRIPT_REQ" showEnum UPFRONT_SHUTDOWN_SCRIPT_OPT = "UPFRONT_SHUTDOWN_SCRIPT_OPT" showEnum GOSSIP_QUERIES_REQ = "GOSSIP_QUERIES_REQ" showEnum GOSSIP_QUERIES_OPT = "GOSSIP_QUERIES_OPT" showEnum TLV_ONION_REQ = "TLV_ONION_REQ" showEnum TLV_ONION_OPT = "TLV_ONION_OPT" showEnum EXT_GOSSIP_QUERIES_REQ = "EXT_GOSSIP_QUERIES_REQ" showEnum EXT_GOSSIP_QUERIES_OPT = "EXT_GOSSIP_QUERIES_OPT" showEnum STATIC_REMOTE_KEY_REQ = "STATIC_REMOTE_KEY_REQ" showEnum STATIC_REMOTE_KEY_OPT = "STATIC_REMOTE_KEY_OPT" showEnum PAYMENT_ADDR_REQ = "PAYMENT_ADDR_REQ" showEnum PAYMENT_ADDR_OPT = "PAYMENT_ADDR_OPT" showEnum MPP_REQ = "MPP_REQ" showEnum MPP_OPT = "MPP_OPT" showEnum WUMBO_CHANNELS_REQ = "WUMBO_CHANNELS_REQ" showEnum WUMBO_CHANNELS_OPT = "WUMBO_CHANNELS_OPT" showEnum ANCHORS_REQ = "ANCHORS_REQ" showEnum ANCHORS_OPT = "ANCHORS_OPT" showEnum ANCHORS_ZERO_FEE_HTLC_REQ = "ANCHORS_ZERO_FEE_HTLC_REQ" showEnum ANCHORS_ZERO_FEE_HTLC_OPT = "ANCHORS_ZERO_FEE_HTLC_OPT" showEnum AMP_REQ = "AMP_REQ" showEnum AMP_OPT = "AMP_OPT" showEnum (FeatureBit'Unrecognized (FeatureBit'UnrecognizedValue k)) = Prelude.show k readEnum k | (Prelude.==) k "DATALOSS_PROTECT_REQ" = Prelude.Just DATALOSS_PROTECT_REQ | (Prelude.==) k "DATALOSS_PROTECT_OPT" = Prelude.Just DATALOSS_PROTECT_OPT | (Prelude.==) k "INITIAL_ROUING_SYNC" = Prelude.Just INITIAL_ROUING_SYNC | (Prelude.==) k "UPFRONT_SHUTDOWN_SCRIPT_REQ" = Prelude.Just UPFRONT_SHUTDOWN_SCRIPT_REQ | (Prelude.==) k "UPFRONT_SHUTDOWN_SCRIPT_OPT" = Prelude.Just UPFRONT_SHUTDOWN_SCRIPT_OPT | (Prelude.==) k "GOSSIP_QUERIES_REQ" = Prelude.Just GOSSIP_QUERIES_REQ | (Prelude.==) k "GOSSIP_QUERIES_OPT" = Prelude.Just GOSSIP_QUERIES_OPT | (Prelude.==) k "TLV_ONION_REQ" = Prelude.Just TLV_ONION_REQ | (Prelude.==) k "TLV_ONION_OPT" = Prelude.Just TLV_ONION_OPT | (Prelude.==) k "EXT_GOSSIP_QUERIES_REQ" = Prelude.Just EXT_GOSSIP_QUERIES_REQ | (Prelude.==) k "EXT_GOSSIP_QUERIES_OPT" = Prelude.Just EXT_GOSSIP_QUERIES_OPT | (Prelude.==) k "STATIC_REMOTE_KEY_REQ" = Prelude.Just STATIC_REMOTE_KEY_REQ | (Prelude.==) k "STATIC_REMOTE_KEY_OPT" = Prelude.Just STATIC_REMOTE_KEY_OPT | (Prelude.==) k "PAYMENT_ADDR_REQ" = Prelude.Just PAYMENT_ADDR_REQ | (Prelude.==) k "PAYMENT_ADDR_OPT" = Prelude.Just PAYMENT_ADDR_OPT | (Prelude.==) k "MPP_REQ" = Prelude.Just MPP_REQ | (Prelude.==) k "MPP_OPT" = Prelude.Just MPP_OPT | (Prelude.==) k "WUMBO_CHANNELS_REQ" = Prelude.Just WUMBO_CHANNELS_REQ | (Prelude.==) k "WUMBO_CHANNELS_OPT" = Prelude.Just WUMBO_CHANNELS_OPT | (Prelude.==) k "ANCHORS_REQ" = Prelude.Just ANCHORS_REQ | (Prelude.==) k "ANCHORS_OPT" = Prelude.Just ANCHORS_OPT | (Prelude.==) k "ANCHORS_ZERO_FEE_HTLC_REQ" = Prelude.Just ANCHORS_ZERO_FEE_HTLC_REQ | (Prelude.==) k "ANCHORS_ZERO_FEE_HTLC_OPT" = Prelude.Just ANCHORS_ZERO_FEE_HTLC_OPT | (Prelude.==) k "AMP_REQ" = Prelude.Just AMP_REQ | (Prelude.==) k "AMP_OPT" = Prelude.Just AMP_OPT | Prelude.otherwise = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum instance Prelude.Bounded FeatureBit where minBound = DATALOSS_PROTECT_REQ maxBound = AMP_OPT instance Prelude.Enum FeatureBit where toEnum k__ = Prelude.maybe (Prelude.error ((Prelude.++) "toEnum: unknown value for enum FeatureBit: " (Prelude.show k__))) Prelude.id (Data.ProtoLens.maybeToEnum k__) fromEnum DATALOSS_PROTECT_REQ = 0 fromEnum DATALOSS_PROTECT_OPT = 1 fromEnum INITIAL_ROUING_SYNC = 3 fromEnum UPFRONT_SHUTDOWN_SCRIPT_REQ = 4 fromEnum UPFRONT_SHUTDOWN_SCRIPT_OPT = 5 fromEnum GOSSIP_QUERIES_REQ = 6 fromEnum GOSSIP_QUERIES_OPT = 7 fromEnum TLV_ONION_REQ = 8 fromEnum TLV_ONION_OPT = 9 fromEnum EXT_GOSSIP_QUERIES_REQ = 10 fromEnum EXT_GOSSIP_QUERIES_OPT = 11 fromEnum STATIC_REMOTE_KEY_REQ = 12 fromEnum STATIC_REMOTE_KEY_OPT = 13 fromEnum PAYMENT_ADDR_REQ = 14 fromEnum PAYMENT_ADDR_OPT = 15 fromEnum MPP_REQ = 16 fromEnum MPP_OPT = 17 fromEnum WUMBO_CHANNELS_REQ = 18 fromEnum WUMBO_CHANNELS_OPT = 19 fromEnum ANCHORS_REQ = 20 fromEnum ANCHORS_OPT = 21 fromEnum ANCHORS_ZERO_FEE_HTLC_REQ = 22 fromEnum ANCHORS_ZERO_FEE_HTLC_OPT = 23 fromEnum AMP_REQ = 30 fromEnum AMP_OPT = 31 fromEnum (FeatureBit'Unrecognized (FeatureBit'UnrecognizedValue k)) = Prelude.fromIntegral k succ AMP_OPT = Prelude.error "FeatureBit.succ: bad argument AMP_OPT. This value would be out of bounds." succ DATALOSS_PROTECT_REQ = DATALOSS_PROTECT_OPT succ DATALOSS_PROTECT_OPT = INITIAL_ROUING_SYNC succ INITIAL_ROUING_SYNC = UPFRONT_SHUTDOWN_SCRIPT_REQ succ UPFRONT_SHUTDOWN_SCRIPT_REQ = UPFRONT_SHUTDOWN_SCRIPT_OPT succ UPFRONT_SHUTDOWN_SCRIPT_OPT = GOSSIP_QUERIES_REQ succ GOSSIP_QUERIES_REQ = GOSSIP_QUERIES_OPT succ GOSSIP_QUERIES_OPT = TLV_ONION_REQ succ TLV_ONION_REQ = TLV_ONION_OPT succ TLV_ONION_OPT = EXT_GOSSIP_QUERIES_REQ succ EXT_GOSSIP_QUERIES_REQ = EXT_GOSSIP_QUERIES_OPT succ EXT_GOSSIP_QUERIES_OPT = STATIC_REMOTE_KEY_REQ succ STATIC_REMOTE_KEY_REQ = STATIC_REMOTE_KEY_OPT succ STATIC_REMOTE_KEY_OPT = PAYMENT_ADDR_REQ succ PAYMENT_ADDR_REQ = PAYMENT_ADDR_OPT succ PAYMENT_ADDR_OPT = MPP_REQ succ MPP_REQ = MPP_OPT succ MPP_OPT = WUMBO_CHANNELS_REQ succ WUMBO_CHANNELS_REQ = WUMBO_CHANNELS_OPT succ WUMBO_CHANNELS_OPT = ANCHORS_REQ succ ANCHORS_REQ = ANCHORS_OPT succ ANCHORS_OPT = ANCHORS_ZERO_FEE_HTLC_REQ succ ANCHORS_ZERO_FEE_HTLC_REQ = ANCHORS_ZERO_FEE_HTLC_OPT succ ANCHORS_ZERO_FEE_HTLC_OPT = AMP_REQ succ AMP_REQ = AMP_OPT succ (FeatureBit'Unrecognized _) = Prelude.error "FeatureBit.succ: bad argument: unrecognized value" pred DATALOSS_PROTECT_REQ = Prelude.error "FeatureBit.pred: bad argument DATALOSS_PROTECT_REQ. This value would be out of bounds." pred DATALOSS_PROTECT_OPT = DATALOSS_PROTECT_REQ pred INITIAL_ROUING_SYNC = DATALOSS_PROTECT_OPT pred UPFRONT_SHUTDOWN_SCRIPT_REQ = INITIAL_ROUING_SYNC pred UPFRONT_SHUTDOWN_SCRIPT_OPT = UPFRONT_SHUTDOWN_SCRIPT_REQ pred GOSSIP_QUERIES_REQ = UPFRONT_SHUTDOWN_SCRIPT_OPT pred GOSSIP_QUERIES_OPT = GOSSIP_QUERIES_REQ pred TLV_ONION_REQ = GOSSIP_QUERIES_OPT pred TLV_ONION_OPT = TLV_ONION_REQ pred EXT_GOSSIP_QUERIES_REQ = TLV_ONION_OPT pred EXT_GOSSIP_QUERIES_OPT = EXT_GOSSIP_QUERIES_REQ pred STATIC_REMOTE_KEY_REQ = EXT_GOSSIP_QUERIES_OPT pred STATIC_REMOTE_KEY_OPT = STATIC_REMOTE_KEY_REQ pred PAYMENT_ADDR_REQ = STATIC_REMOTE_KEY_OPT pred PAYMENT_ADDR_OPT = PAYMENT_ADDR_REQ pred MPP_REQ = PAYMENT_ADDR_OPT pred MPP_OPT = MPP_REQ pred WUMBO_CHANNELS_REQ = MPP_OPT pred WUMBO_CHANNELS_OPT = WUMBO_CHANNELS_REQ pred ANCHORS_REQ = WUMBO_CHANNELS_OPT pred ANCHORS_OPT = ANCHORS_REQ pred ANCHORS_ZERO_FEE_HTLC_REQ = ANCHORS_OPT pred ANCHORS_ZERO_FEE_HTLC_OPT = ANCHORS_ZERO_FEE_HTLC_REQ pred AMP_REQ = ANCHORS_ZERO_FEE_HTLC_OPT pred AMP_OPT = AMP_REQ pred (FeatureBit'Unrecognized _) = Prelude.error "FeatureBit.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 FeatureBit where fieldDefault = DATALOSS_PROTECT_REQ instance Control.DeepSeq.NFData FeatureBit where rnf x__ = Prelude.seq x__ () {- | Fields : * 'Proto.LndGrpc_Fields.maybe'limit' @:: Lens' FeeLimit (Prelude.Maybe FeeLimit'Limit)@ * 'Proto.LndGrpc_Fields.maybe'fixed' @:: Lens' FeeLimit (Prelude.Maybe Data.Int.Int64)@ * 'Proto.LndGrpc_Fields.fixed' @:: Lens' FeeLimit Data.Int.Int64@ * 'Proto.LndGrpc_Fields.maybe'fixedMsat' @:: Lens' FeeLimit (Prelude.Maybe Data.Int.Int64)@ * 'Proto.LndGrpc_Fields.fixedMsat' @:: Lens' FeeLimit Data.Int.Int64@ * 'Proto.LndGrpc_Fields.maybe'percent' @:: Lens' FeeLimit (Prelude.Maybe Data.Int.Int64)@ * 'Proto.LndGrpc_Fields.percent' @:: Lens' FeeLimit Data.Int.Int64@ -} data FeeLimit = FeeLimit'_constructor {_FeeLimit'limit :: !(Prelude.Maybe FeeLimit'Limit), _FeeLimit'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show FeeLimit where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) data FeeLimit'Limit = FeeLimit'Fixed !Data.Int.Int64 | FeeLimit'FixedMsat !Data.Int.Int64 | FeeLimit'Percent !Data.Int.Int64 deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.Field.HasField FeeLimit "maybe'limit" (Prelude.Maybe FeeLimit'Limit) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FeeLimit'limit (\ x__ y__ -> x__ {_FeeLimit'limit = y__})) Prelude.id instance Data.ProtoLens.Field.HasField FeeLimit "maybe'fixed" (Prelude.Maybe Data.Int.Int64) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FeeLimit'limit (\ x__ y__ -> x__ {_FeeLimit'limit = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (FeeLimit'Fixed x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap FeeLimit'Fixed y__)) instance Data.ProtoLens.Field.HasField FeeLimit "fixed" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FeeLimit'limit (\ x__ y__ -> x__ {_FeeLimit'limit = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (FeeLimit'Fixed x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap FeeLimit'Fixed y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) instance Data.ProtoLens.Field.HasField FeeLimit "maybe'fixedMsat" (Prelude.Maybe Data.Int.Int64) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FeeLimit'limit (\ x__ y__ -> x__ {_FeeLimit'limit = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (FeeLimit'FixedMsat x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap FeeLimit'FixedMsat y__)) instance Data.ProtoLens.Field.HasField FeeLimit "fixedMsat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FeeLimit'limit (\ x__ y__ -> x__ {_FeeLimit'limit = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (FeeLimit'FixedMsat x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap FeeLimit'FixedMsat y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) instance Data.ProtoLens.Field.HasField FeeLimit "maybe'percent" (Prelude.Maybe Data.Int.Int64) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FeeLimit'limit (\ x__ y__ -> x__ {_FeeLimit'limit = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (FeeLimit'Percent x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap FeeLimit'Percent y__)) instance Data.ProtoLens.Field.HasField FeeLimit "percent" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FeeLimit'limit (\ x__ y__ -> x__ {_FeeLimit'limit = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (FeeLimit'Percent x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap FeeLimit'Percent y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) instance Data.ProtoLens.Message FeeLimit where messageName _ = Data.Text.pack "lnrpc.FeeLimit" packedMessageDescriptor _ = "\n\ \\bFeeLimit\DC2\SYN\n\ \\ENQfixed\CAN\SOH \SOH(\ETXH\NULR\ENQfixed\DC2\US\n\ \\n\ \fixed_msat\CAN\ETX \SOH(\ETXH\NULR\tfixedMsat\DC2\SUB\n\ \\apercent\CAN\STX \SOH(\ETXH\NULR\apercentB\a\n\ \\ENQlimit" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let fixed__field_descriptor = Data.ProtoLens.FieldDescriptor "fixed" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'fixed")) :: Data.ProtoLens.FieldDescriptor FeeLimit fixedMsat__field_descriptor = Data.ProtoLens.FieldDescriptor "fixed_msat" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'fixedMsat")) :: Data.ProtoLens.FieldDescriptor FeeLimit percent__field_descriptor = Data.ProtoLens.FieldDescriptor "percent" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'percent")) :: Data.ProtoLens.FieldDescriptor FeeLimit in Data.Map.fromList [(Data.ProtoLens.Tag 1, fixed__field_descriptor), (Data.ProtoLens.Tag 3, fixedMsat__field_descriptor), (Data.ProtoLens.Tag 2, percent__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _FeeLimit'_unknownFields (\ x__ y__ -> x__ {_FeeLimit'_unknownFields = y__}) defMessage = FeeLimit'_constructor {_FeeLimit'limit = Prelude.Nothing, _FeeLimit'_unknownFields = []} parseMessage = let loop :: FeeLimit -> Data.ProtoLens.Encoding.Bytes.Parser FeeLimit 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) "fixed" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"fixed") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "fixed_msat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"fixedMsat") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "percent" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"percent") 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) "FeeLimit" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'limit") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just (FeeLimit'Fixed v)) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 8) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral v) (Prelude.Just (FeeLimit'FixedMsat v)) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 24) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral v) (Prelude.Just (FeeLimit'Percent v)) -> (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 FeeLimit where rnf = \ x__ -> Control.DeepSeq.deepseq (_FeeLimit'_unknownFields x__) (Control.DeepSeq.deepseq (_FeeLimit'limit x__) ()) instance Control.DeepSeq.NFData FeeLimit'Limit where rnf (FeeLimit'Fixed x__) = Control.DeepSeq.rnf x__ rnf (FeeLimit'FixedMsat x__) = Control.DeepSeq.rnf x__ rnf (FeeLimit'Percent x__) = Control.DeepSeq.rnf x__ _FeeLimit'Fixed :: Data.ProtoLens.Prism.Prism' FeeLimit'Limit Data.Int.Int64 _FeeLimit'Fixed = Data.ProtoLens.Prism.prism' FeeLimit'Fixed (\ p__ -> case p__ of (FeeLimit'Fixed p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) _FeeLimit'FixedMsat :: Data.ProtoLens.Prism.Prism' FeeLimit'Limit Data.Int.Int64 _FeeLimit'FixedMsat = Data.ProtoLens.Prism.prism' FeeLimit'FixedMsat (\ p__ -> case p__ of (FeeLimit'FixedMsat p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) _FeeLimit'Percent :: Data.ProtoLens.Prism.Prism' FeeLimit'Limit Data.Int.Int64 _FeeLimit'Percent = Data.ProtoLens.Prism.prism' FeeLimit'Percent (\ p__ -> case p__ of (FeeLimit'Percent p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) {- | Fields : -} data FeeReportRequest = FeeReportRequest'_constructor {_FeeReportRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show FeeReportRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.channelFees' @:: Lens' FeeReportResponse [ChannelFeeReport]@ * 'Proto.LndGrpc_Fields.vec'channelFees' @:: Lens' FeeReportResponse (Data.Vector.Vector ChannelFeeReport)@ * 'Proto.LndGrpc_Fields.dayFeeSum' @:: Lens' FeeReportResponse Data.Word.Word64@ * 'Proto.LndGrpc_Fields.weekFeeSum' @:: Lens' FeeReportResponse Data.Word.Word64@ * 'Proto.LndGrpc_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) instance Prelude.Show FeeReportResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.value' @:: Lens' FloatMetric Prelude.Double@ * 'Proto.LndGrpc_Fields.normalizedValue' @:: Lens' FloatMetric Prelude.Double@ -} data FloatMetric = FloatMetric'_constructor {_FloatMetric'value :: !Prelude.Double, _FloatMetric'normalizedValue :: !Prelude.Double, _FloatMetric'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show FloatMetric where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField FloatMetric "value" Prelude.Double where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FloatMetric'value (\ x__ y__ -> x__ {_FloatMetric'value = y__})) Prelude.id instance Data.ProtoLens.Field.HasField FloatMetric "normalizedValue" Prelude.Double where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FloatMetric'normalizedValue (\ x__ y__ -> x__ {_FloatMetric'normalizedValue = y__})) Prelude.id instance Data.ProtoLens.Message FloatMetric where messageName _ = Data.Text.pack "lnrpc.FloatMetric" packedMessageDescriptor _ = "\n\ \\vFloatMetric\DC2\DC4\n\ \\ENQvalue\CAN\SOH \SOH(\SOHR\ENQvalue\DC2)\n\ \\DLEnormalized_value\CAN\STX \SOH(\SOHR\SInormalizedValue" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let value__field_descriptor = Data.ProtoLens.FieldDescriptor "value" (Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Double) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: Data.ProtoLens.FieldDescriptor FloatMetric normalizedValue__field_descriptor = Data.ProtoLens.FieldDescriptor "normalized_value" (Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Double) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"normalizedValue")) :: Data.ProtoLens.FieldDescriptor FloatMetric in Data.Map.fromList [(Data.ProtoLens.Tag 1, value__field_descriptor), (Data.ProtoLens.Tag 2, normalizedValue__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _FloatMetric'_unknownFields (\ x__ y__ -> x__ {_FloatMetric'_unknownFields = y__}) defMessage = FloatMetric'_constructor {_FloatMetric'value = Data.ProtoLens.fieldDefault, _FloatMetric'normalizedValue = Data.ProtoLens.fieldDefault, _FloatMetric'_unknownFields = []} parseMessage = let loop :: FloatMetric -> Data.ProtoLens.Encoding.Bytes.Parser FloatMetric 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 9 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Data.ProtoLens.Encoding.Bytes.wordToDouble Data.ProtoLens.Encoding.Bytes.getFixed64) "value" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) 17 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Data.ProtoLens.Encoding.Bytes.wordToDouble Data.ProtoLens.Encoding.Bytes.getFixed64) "normalized_value" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"normalizedValue") 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) "FloatMetric" buildMessage = \ _x -> (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 9) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putFixed64 Data.ProtoLens.Encoding.Bytes.doubleToWord _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"normalizedValue") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 17) ((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 FloatMetric where rnf = \ x__ -> Control.DeepSeq.deepseq (_FloatMetric'_unknownFields x__) (Control.DeepSeq.deepseq (_FloatMetric'value x__) (Control.DeepSeq.deepseq (_FloatMetric'normalizedValue x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.timestamp' @:: Lens' ForwardingEvent Data.Word.Word64@ * 'Proto.LndGrpc_Fields.chanIdIn' @:: Lens' ForwardingEvent Data.Word.Word64@ * 'Proto.LndGrpc_Fields.chanIdOut' @:: Lens' ForwardingEvent Data.Word.Word64@ * 'Proto.LndGrpc_Fields.amtIn' @:: Lens' ForwardingEvent Data.Word.Word64@ * 'Proto.LndGrpc_Fields.amtOut' @:: Lens' ForwardingEvent Data.Word.Word64@ * 'Proto.LndGrpc_Fields.fee' @:: Lens' ForwardingEvent Data.Word.Word64@ * 'Proto.LndGrpc_Fields.feeMsat' @:: Lens' ForwardingEvent Data.Word.Word64@ * 'Proto.LndGrpc_Fields.amtInMsat' @:: Lens' ForwardingEvent Data.Word.Word64@ * 'Proto.LndGrpc_Fields.amtOutMsat' @:: Lens' ForwardingEvent Data.Word.Word64@ * 'Proto.LndGrpc_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) instance Prelude.Show ForwardingEvent where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.startTime' @:: Lens' ForwardingHistoryRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.endTime' @:: Lens' ForwardingHistoryRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.indexOffset' @:: Lens' ForwardingHistoryRequest Data.Word.Word32@ * 'Proto.LndGrpc_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) instance Prelude.Show ForwardingHistoryRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.forwardingEvents' @:: Lens' ForwardingHistoryResponse [ForwardingEvent]@ * 'Proto.LndGrpc_Fields.vec'forwardingEvents' @:: Lens' ForwardingHistoryResponse (Data.Vector.Vector ForwardingEvent)@ * 'Proto.LndGrpc_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) instance Prelude.Show ForwardingHistoryResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.signedPsbt' @:: Lens' FundingPsbtFinalize Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.pendingChanId' @:: Lens' FundingPsbtFinalize Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.finalRawTx' @:: Lens' FundingPsbtFinalize Data.ByteString.ByteString@ -} data FundingPsbtFinalize = FundingPsbtFinalize'_constructor {_FundingPsbtFinalize'signedPsbt :: !Data.ByteString.ByteString, _FundingPsbtFinalize'pendingChanId :: !Data.ByteString.ByteString, _FundingPsbtFinalize'finalRawTx :: !Data.ByteString.ByteString, _FundingPsbtFinalize'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show FundingPsbtFinalize where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField FundingPsbtFinalize "signedPsbt" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingPsbtFinalize'signedPsbt (\ x__ y__ -> x__ {_FundingPsbtFinalize'signedPsbt = y__})) Prelude.id instance Data.ProtoLens.Field.HasField FundingPsbtFinalize "pendingChanId" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingPsbtFinalize'pendingChanId (\ x__ y__ -> x__ {_FundingPsbtFinalize'pendingChanId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField FundingPsbtFinalize "finalRawTx" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingPsbtFinalize'finalRawTx (\ x__ y__ -> x__ {_FundingPsbtFinalize'finalRawTx = y__})) Prelude.id instance Data.ProtoLens.Message FundingPsbtFinalize where messageName _ = Data.Text.pack "lnrpc.FundingPsbtFinalize" packedMessageDescriptor _ = "\n\ \\DC3FundingPsbtFinalize\DC2\US\n\ \\vsigned_psbt\CAN\SOH \SOH(\fR\n\ \signedPsbt\DC2&\n\ \\SIpending_chan_id\CAN\STX \SOH(\fR\rpendingChanId\DC2 \n\ \\ffinal_raw_tx\CAN\ETX \SOH(\fR\n\ \finalRawTx" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let signedPsbt__field_descriptor = Data.ProtoLens.FieldDescriptor "signed_psbt" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"signedPsbt")) :: Data.ProtoLens.FieldDescriptor FundingPsbtFinalize pendingChanId__field_descriptor = Data.ProtoLens.FieldDescriptor "pending_chan_id" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pendingChanId")) :: Data.ProtoLens.FieldDescriptor FundingPsbtFinalize finalRawTx__field_descriptor = Data.ProtoLens.FieldDescriptor "final_raw_tx" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"finalRawTx")) :: Data.ProtoLens.FieldDescriptor FundingPsbtFinalize in Data.Map.fromList [(Data.ProtoLens.Tag 1, signedPsbt__field_descriptor), (Data.ProtoLens.Tag 2, pendingChanId__field_descriptor), (Data.ProtoLens.Tag 3, finalRawTx__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _FundingPsbtFinalize'_unknownFields (\ x__ y__ -> x__ {_FundingPsbtFinalize'_unknownFields = y__}) defMessage = FundingPsbtFinalize'_constructor {_FundingPsbtFinalize'signedPsbt = Data.ProtoLens.fieldDefault, _FundingPsbtFinalize'pendingChanId = Data.ProtoLens.fieldDefault, _FundingPsbtFinalize'finalRawTx = Data.ProtoLens.fieldDefault, _FundingPsbtFinalize'_unknownFields = []} parseMessage = let loop :: FundingPsbtFinalize -> Data.ProtoLens.Encoding.Bytes.Parser FundingPsbtFinalize 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)) "signed_psbt" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"signedPsbt") y x) 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "pending_chan_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pendingChanId") y x) 26 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "final_raw_tx" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"finalRawTx") 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) "FundingPsbtFinalize" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"signedPsbt") _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 @"pendingChanId") _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 @"finalRawTx") _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 FundingPsbtFinalize where rnf = \ x__ -> Control.DeepSeq.deepseq (_FundingPsbtFinalize'_unknownFields x__) (Control.DeepSeq.deepseq (_FundingPsbtFinalize'signedPsbt x__) (Control.DeepSeq.deepseq (_FundingPsbtFinalize'pendingChanId x__) (Control.DeepSeq.deepseq (_FundingPsbtFinalize'finalRawTx x__) ()))) {- | Fields : * 'Proto.LndGrpc_Fields.fundedPsbt' @:: Lens' FundingPsbtVerify Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.pendingChanId' @:: Lens' FundingPsbtVerify Data.ByteString.ByteString@ -} data FundingPsbtVerify = FundingPsbtVerify'_constructor {_FundingPsbtVerify'fundedPsbt :: !Data.ByteString.ByteString, _FundingPsbtVerify'pendingChanId :: !Data.ByteString.ByteString, _FundingPsbtVerify'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show FundingPsbtVerify where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField FundingPsbtVerify "fundedPsbt" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingPsbtVerify'fundedPsbt (\ x__ y__ -> x__ {_FundingPsbtVerify'fundedPsbt = y__})) Prelude.id instance Data.ProtoLens.Field.HasField FundingPsbtVerify "pendingChanId" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingPsbtVerify'pendingChanId (\ x__ y__ -> x__ {_FundingPsbtVerify'pendingChanId = y__})) Prelude.id instance Data.ProtoLens.Message FundingPsbtVerify where messageName _ = Data.Text.pack "lnrpc.FundingPsbtVerify" packedMessageDescriptor _ = "\n\ \\DC1FundingPsbtVerify\DC2\US\n\ \\vfunded_psbt\CAN\SOH \SOH(\fR\n\ \fundedPsbt\DC2&\n\ \\SIpending_chan_id\CAN\STX \SOH(\fR\rpendingChanId" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let fundedPsbt__field_descriptor = Data.ProtoLens.FieldDescriptor "funded_psbt" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"fundedPsbt")) :: Data.ProtoLens.FieldDescriptor FundingPsbtVerify pendingChanId__field_descriptor = Data.ProtoLens.FieldDescriptor "pending_chan_id" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pendingChanId")) :: Data.ProtoLens.FieldDescriptor FundingPsbtVerify in Data.Map.fromList [(Data.ProtoLens.Tag 1, fundedPsbt__field_descriptor), (Data.ProtoLens.Tag 2, pendingChanId__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _FundingPsbtVerify'_unknownFields (\ x__ y__ -> x__ {_FundingPsbtVerify'_unknownFields = y__}) defMessage = FundingPsbtVerify'_constructor {_FundingPsbtVerify'fundedPsbt = Data.ProtoLens.fieldDefault, _FundingPsbtVerify'pendingChanId = Data.ProtoLens.fieldDefault, _FundingPsbtVerify'_unknownFields = []} parseMessage = let loop :: FundingPsbtVerify -> Data.ProtoLens.Encoding.Bytes.Parser FundingPsbtVerify 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)) "funded_psbt" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"fundedPsbt") y x) 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "pending_chan_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pendingChanId") 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) "FundingPsbtVerify" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"fundedPsbt") _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 @"pendingChanId") _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 FundingPsbtVerify where rnf = \ x__ -> Control.DeepSeq.deepseq (_FundingPsbtVerify'_unknownFields x__) (Control.DeepSeq.deepseq (_FundingPsbtVerify'fundedPsbt x__) (Control.DeepSeq.deepseq (_FundingPsbtVerify'pendingChanId x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.maybe'shim' @:: Lens' FundingShim (Prelude.Maybe FundingShim'Shim)@ * 'Proto.LndGrpc_Fields.maybe'chanPointShim' @:: Lens' FundingShim (Prelude.Maybe ChanPointShim)@ * 'Proto.LndGrpc_Fields.chanPointShim' @:: Lens' FundingShim ChanPointShim@ * 'Proto.LndGrpc_Fields.maybe'psbtShim' @:: Lens' FundingShim (Prelude.Maybe PsbtShim)@ * 'Proto.LndGrpc_Fields.psbtShim' @:: Lens' FundingShim PsbtShim@ -} data FundingShim = FundingShim'_constructor {_FundingShim'shim :: !(Prelude.Maybe FundingShim'Shim), _FundingShim'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show FundingShim where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) data FundingShim'Shim = FundingShim'ChanPointShim !ChanPointShim | FundingShim'PsbtShim !PsbtShim deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.Field.HasField FundingShim "maybe'shim" (Prelude.Maybe FundingShim'Shim) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingShim'shim (\ x__ y__ -> x__ {_FundingShim'shim = y__})) Prelude.id instance Data.ProtoLens.Field.HasField FundingShim "maybe'chanPointShim" (Prelude.Maybe ChanPointShim) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingShim'shim (\ x__ y__ -> x__ {_FundingShim'shim = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (FundingShim'ChanPointShim x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap FundingShim'ChanPointShim y__)) instance Data.ProtoLens.Field.HasField FundingShim "chanPointShim" ChanPointShim where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingShim'shim (\ x__ y__ -> x__ {_FundingShim'shim = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (FundingShim'ChanPointShim x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap FundingShim'ChanPointShim y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Field.HasField FundingShim "maybe'psbtShim" (Prelude.Maybe PsbtShim) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingShim'shim (\ x__ y__ -> x__ {_FundingShim'shim = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (FundingShim'PsbtShim x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap FundingShim'PsbtShim y__)) instance Data.ProtoLens.Field.HasField FundingShim "psbtShim" PsbtShim where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingShim'shim (\ x__ y__ -> x__ {_FundingShim'shim = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (FundingShim'PsbtShim x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap FundingShim'PsbtShim y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Message FundingShim where messageName _ = Data.Text.pack "lnrpc.FundingShim" packedMessageDescriptor _ = "\n\ \\vFundingShim\DC2>\n\ \\SIchan_point_shim\CAN\SOH \SOH(\v2\DC4.lnrpc.ChanPointShimH\NULR\rchanPointShim\DC2.\n\ \\tpsbt_shim\CAN\STX \SOH(\v2\SI.lnrpc.PsbtShimH\NULR\bpsbtShimB\ACK\n\ \\EOTshim" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let chanPointShim__field_descriptor = Data.ProtoLens.FieldDescriptor "chan_point_shim" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChanPointShim) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'chanPointShim")) :: Data.ProtoLens.FieldDescriptor FundingShim psbtShim__field_descriptor = Data.ProtoLens.FieldDescriptor "psbt_shim" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor PsbtShim) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'psbtShim")) :: Data.ProtoLens.FieldDescriptor FundingShim in Data.Map.fromList [(Data.ProtoLens.Tag 1, chanPointShim__field_descriptor), (Data.ProtoLens.Tag 2, psbtShim__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _FundingShim'_unknownFields (\ x__ y__ -> x__ {_FundingShim'_unknownFields = y__}) defMessage = FundingShim'_constructor {_FundingShim'shim = Prelude.Nothing, _FundingShim'_unknownFields = []} parseMessage = let loop :: FundingShim -> Data.ProtoLens.Encoding.Bytes.Parser FundingShim 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_shim" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"chanPointShim") 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) "psbt_shim" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"psbtShim") 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) "FundingShim" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'shim") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just (FundingShim'ChanPointShim 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 (FundingShim'PsbtShim 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 FundingShim where rnf = \ x__ -> Control.DeepSeq.deepseq (_FundingShim'_unknownFields x__) (Control.DeepSeq.deepseq (_FundingShim'shim x__) ()) instance Control.DeepSeq.NFData FundingShim'Shim where rnf (FundingShim'ChanPointShim x__) = Control.DeepSeq.rnf x__ rnf (FundingShim'PsbtShim x__) = Control.DeepSeq.rnf x__ _FundingShim'ChanPointShim :: Data.ProtoLens.Prism.Prism' FundingShim'Shim ChanPointShim _FundingShim'ChanPointShim = Data.ProtoLens.Prism.prism' FundingShim'ChanPointShim (\ p__ -> case p__ of (FundingShim'ChanPointShim p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) _FundingShim'PsbtShim :: Data.ProtoLens.Prism.Prism' FundingShim'Shim PsbtShim _FundingShim'PsbtShim = Data.ProtoLens.Prism.prism' FundingShim'PsbtShim (\ p__ -> case p__ of (FundingShim'PsbtShim p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) {- | Fields : * 'Proto.LndGrpc_Fields.pendingChanId' @:: Lens' FundingShimCancel Data.ByteString.ByteString@ -} data FundingShimCancel = FundingShimCancel'_constructor {_FundingShimCancel'pendingChanId :: !Data.ByteString.ByteString, _FundingShimCancel'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show FundingShimCancel where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField FundingShimCancel "pendingChanId" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingShimCancel'pendingChanId (\ x__ y__ -> x__ {_FundingShimCancel'pendingChanId = y__})) Prelude.id instance Data.ProtoLens.Message FundingShimCancel where messageName _ = Data.Text.pack "lnrpc.FundingShimCancel" packedMessageDescriptor _ = "\n\ \\DC1FundingShimCancel\DC2&\n\ \\SIpending_chan_id\CAN\SOH \SOH(\fR\rpendingChanId" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let pendingChanId__field_descriptor = Data.ProtoLens.FieldDescriptor "pending_chan_id" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pendingChanId")) :: Data.ProtoLens.FieldDescriptor FundingShimCancel in Data.Map.fromList [(Data.ProtoLens.Tag 1, pendingChanId__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _FundingShimCancel'_unknownFields (\ x__ y__ -> x__ {_FundingShimCancel'_unknownFields = y__}) defMessage = FundingShimCancel'_constructor {_FundingShimCancel'pendingChanId = Data.ProtoLens.fieldDefault, _FundingShimCancel'_unknownFields = []} parseMessage = let loop :: FundingShimCancel -> Data.ProtoLens.Encoding.Bytes.Parser FundingShimCancel 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)) "pending_chan_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pendingChanId") 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) "FundingShimCancel" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"pendingChanId") _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 FundingShimCancel where rnf = \ x__ -> Control.DeepSeq.deepseq (_FundingShimCancel'_unknownFields x__) (Control.DeepSeq.deepseq (_FundingShimCancel'pendingChanId x__) ()) {- | Fields : -} data FundingStateStepResp = FundingStateStepResp'_constructor {_FundingStateStepResp'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show FundingStateStepResp where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Message FundingStateStepResp where messageName _ = Data.Text.pack "lnrpc.FundingStateStepResp" packedMessageDescriptor _ = "\n\ \\DC4FundingStateStepResp" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let in Data.Map.fromList [] unknownFields = Lens.Family2.Unchecked.lens _FundingStateStepResp'_unknownFields (\ x__ y__ -> x__ {_FundingStateStepResp'_unknownFields = y__}) defMessage = FundingStateStepResp'_constructor {_FundingStateStepResp'_unknownFields = []} parseMessage = let loop :: FundingStateStepResp -> Data.ProtoLens.Encoding.Bytes.Parser FundingStateStepResp 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) "FundingStateStepResp" buildMessage = \ _x -> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) instance Control.DeepSeq.NFData FundingStateStepResp where rnf = \ x__ -> Control.DeepSeq.deepseq (_FundingStateStepResp'_unknownFields x__) () {- | Fields : * 'Proto.LndGrpc_Fields.maybe'trigger' @:: Lens' FundingTransitionMsg (Prelude.Maybe FundingTransitionMsg'Trigger)@ * 'Proto.LndGrpc_Fields.maybe'shimRegister' @:: Lens' FundingTransitionMsg (Prelude.Maybe FundingShim)@ * 'Proto.LndGrpc_Fields.shimRegister' @:: Lens' FundingTransitionMsg FundingShim@ * 'Proto.LndGrpc_Fields.maybe'shimCancel' @:: Lens' FundingTransitionMsg (Prelude.Maybe FundingShimCancel)@ * 'Proto.LndGrpc_Fields.shimCancel' @:: Lens' FundingTransitionMsg FundingShimCancel@ * 'Proto.LndGrpc_Fields.maybe'psbtVerify' @:: Lens' FundingTransitionMsg (Prelude.Maybe FundingPsbtVerify)@ * 'Proto.LndGrpc_Fields.psbtVerify' @:: Lens' FundingTransitionMsg FundingPsbtVerify@ * 'Proto.LndGrpc_Fields.maybe'psbtFinalize' @:: Lens' FundingTransitionMsg (Prelude.Maybe FundingPsbtFinalize)@ * 'Proto.LndGrpc_Fields.psbtFinalize' @:: Lens' FundingTransitionMsg FundingPsbtFinalize@ -} data FundingTransitionMsg = FundingTransitionMsg'_constructor {_FundingTransitionMsg'trigger :: !(Prelude.Maybe FundingTransitionMsg'Trigger), _FundingTransitionMsg'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show FundingTransitionMsg where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) data FundingTransitionMsg'Trigger = FundingTransitionMsg'ShimRegister !FundingShim | FundingTransitionMsg'ShimCancel !FundingShimCancel | FundingTransitionMsg'PsbtVerify !FundingPsbtVerify | FundingTransitionMsg'PsbtFinalize !FundingPsbtFinalize deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.Field.HasField FundingTransitionMsg "maybe'trigger" (Prelude.Maybe FundingTransitionMsg'Trigger) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingTransitionMsg'trigger (\ x__ y__ -> x__ {_FundingTransitionMsg'trigger = y__})) Prelude.id instance Data.ProtoLens.Field.HasField FundingTransitionMsg "maybe'shimRegister" (Prelude.Maybe FundingShim) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingTransitionMsg'trigger (\ x__ y__ -> x__ {_FundingTransitionMsg'trigger = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (FundingTransitionMsg'ShimRegister x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap FundingTransitionMsg'ShimRegister y__)) instance Data.ProtoLens.Field.HasField FundingTransitionMsg "shimRegister" FundingShim where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingTransitionMsg'trigger (\ x__ y__ -> x__ {_FundingTransitionMsg'trigger = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (FundingTransitionMsg'ShimRegister x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap FundingTransitionMsg'ShimRegister y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Field.HasField FundingTransitionMsg "maybe'shimCancel" (Prelude.Maybe FundingShimCancel) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingTransitionMsg'trigger (\ x__ y__ -> x__ {_FundingTransitionMsg'trigger = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (FundingTransitionMsg'ShimCancel x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap FundingTransitionMsg'ShimCancel y__)) instance Data.ProtoLens.Field.HasField FundingTransitionMsg "shimCancel" FundingShimCancel where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingTransitionMsg'trigger (\ x__ y__ -> x__ {_FundingTransitionMsg'trigger = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (FundingTransitionMsg'ShimCancel x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap FundingTransitionMsg'ShimCancel y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Field.HasField FundingTransitionMsg "maybe'psbtVerify" (Prelude.Maybe FundingPsbtVerify) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingTransitionMsg'trigger (\ x__ y__ -> x__ {_FundingTransitionMsg'trigger = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (FundingTransitionMsg'PsbtVerify x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap FundingTransitionMsg'PsbtVerify y__)) instance Data.ProtoLens.Field.HasField FundingTransitionMsg "psbtVerify" FundingPsbtVerify where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingTransitionMsg'trigger (\ x__ y__ -> x__ {_FundingTransitionMsg'trigger = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (FundingTransitionMsg'PsbtVerify x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap FundingTransitionMsg'PsbtVerify y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Field.HasField FundingTransitionMsg "maybe'psbtFinalize" (Prelude.Maybe FundingPsbtFinalize) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingTransitionMsg'trigger (\ x__ y__ -> x__ {_FundingTransitionMsg'trigger = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (FundingTransitionMsg'PsbtFinalize x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap FundingTransitionMsg'PsbtFinalize y__)) instance Data.ProtoLens.Field.HasField FundingTransitionMsg "psbtFinalize" FundingPsbtFinalize where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _FundingTransitionMsg'trigger (\ x__ y__ -> x__ {_FundingTransitionMsg'trigger = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (FundingTransitionMsg'PsbtFinalize x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap FundingTransitionMsg'PsbtFinalize y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Message FundingTransitionMsg where messageName _ = Data.Text.pack "lnrpc.FundingTransitionMsg" packedMessageDescriptor _ = "\n\ \\DC4FundingTransitionMsg\DC29\n\ \\rshim_register\CAN\SOH \SOH(\v2\DC2.lnrpc.FundingShimH\NULR\fshimRegister\DC2;\n\ \\vshim_cancel\CAN\STX \SOH(\v2\CAN.lnrpc.FundingShimCancelH\NULR\n\ \shimCancel\DC2;\n\ \\vpsbt_verify\CAN\ETX \SOH(\v2\CAN.lnrpc.FundingPsbtVerifyH\NULR\n\ \psbtVerify\DC2A\n\ \\rpsbt_finalize\CAN\EOT \SOH(\v2\SUB.lnrpc.FundingPsbtFinalizeH\NULR\fpsbtFinalizeB\t\n\ \\atrigger" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let shimRegister__field_descriptor = Data.ProtoLens.FieldDescriptor "shim_register" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor FundingShim) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'shimRegister")) :: Data.ProtoLens.FieldDescriptor FundingTransitionMsg shimCancel__field_descriptor = Data.ProtoLens.FieldDescriptor "shim_cancel" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor FundingShimCancel) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'shimCancel")) :: Data.ProtoLens.FieldDescriptor FundingTransitionMsg psbtVerify__field_descriptor = Data.ProtoLens.FieldDescriptor "psbt_verify" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor FundingPsbtVerify) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'psbtVerify")) :: Data.ProtoLens.FieldDescriptor FundingTransitionMsg psbtFinalize__field_descriptor = Data.ProtoLens.FieldDescriptor "psbt_finalize" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor FundingPsbtFinalize) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'psbtFinalize")) :: Data.ProtoLens.FieldDescriptor FundingTransitionMsg in Data.Map.fromList [(Data.ProtoLens.Tag 1, shimRegister__field_descriptor), (Data.ProtoLens.Tag 2, shimCancel__field_descriptor), (Data.ProtoLens.Tag 3, psbtVerify__field_descriptor), (Data.ProtoLens.Tag 4, psbtFinalize__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _FundingTransitionMsg'_unknownFields (\ x__ y__ -> x__ {_FundingTransitionMsg'_unknownFields = y__}) defMessage = FundingTransitionMsg'_constructor {_FundingTransitionMsg'trigger = Prelude.Nothing, _FundingTransitionMsg'_unknownFields = []} parseMessage = let loop :: FundingTransitionMsg -> Data.ProtoLens.Encoding.Bytes.Parser FundingTransitionMsg 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) "shim_register" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"shimRegister") 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) "shim_cancel" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"shimCancel") 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) "psbt_verify" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"psbtVerify") 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) "psbt_finalize" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"psbtFinalize") 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) "FundingTransitionMsg" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'trigger") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just (FundingTransitionMsg'ShimRegister 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 (FundingTransitionMsg'ShimCancel 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 (FundingTransitionMsg'PsbtVerify 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) (Prelude.Just (FundingTransitionMsg'PsbtFinalize 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)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData FundingTransitionMsg where rnf = \ x__ -> Control.DeepSeq.deepseq (_FundingTransitionMsg'_unknownFields x__) (Control.DeepSeq.deepseq (_FundingTransitionMsg'trigger x__) ()) instance Control.DeepSeq.NFData FundingTransitionMsg'Trigger where rnf (FundingTransitionMsg'ShimRegister x__) = Control.DeepSeq.rnf x__ rnf (FundingTransitionMsg'ShimCancel x__) = Control.DeepSeq.rnf x__ rnf (FundingTransitionMsg'PsbtVerify x__) = Control.DeepSeq.rnf x__ rnf (FundingTransitionMsg'PsbtFinalize x__) = Control.DeepSeq.rnf x__ _FundingTransitionMsg'ShimRegister :: Data.ProtoLens.Prism.Prism' FundingTransitionMsg'Trigger FundingShim _FundingTransitionMsg'ShimRegister = Data.ProtoLens.Prism.prism' FundingTransitionMsg'ShimRegister (\ p__ -> case p__ of (FundingTransitionMsg'ShimRegister p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) _FundingTransitionMsg'ShimCancel :: Data.ProtoLens.Prism.Prism' FundingTransitionMsg'Trigger FundingShimCancel _FundingTransitionMsg'ShimCancel = Data.ProtoLens.Prism.prism' FundingTransitionMsg'ShimCancel (\ p__ -> case p__ of (FundingTransitionMsg'ShimCancel p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) _FundingTransitionMsg'PsbtVerify :: Data.ProtoLens.Prism.Prism' FundingTransitionMsg'Trigger FundingPsbtVerify _FundingTransitionMsg'PsbtVerify = Data.ProtoLens.Prism.prism' FundingTransitionMsg'PsbtVerify (\ p__ -> case p__ of (FundingTransitionMsg'PsbtVerify p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) _FundingTransitionMsg'PsbtFinalize :: Data.ProtoLens.Prism.Prism' FundingTransitionMsg'Trigger FundingPsbtFinalize _FundingTransitionMsg'PsbtFinalize = Data.ProtoLens.Prism.prism' FundingTransitionMsg'PsbtFinalize (\ p__ -> case p__ of (FundingTransitionMsg'PsbtFinalize p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) {- | Fields : -} data GetInfoRequest = GetInfoRequest'_constructor {_GetInfoRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show GetInfoRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Message GetInfoRequest where messageName _ = Data.Text.pack "lnrpc.GetInfoRequest" packedMessageDescriptor _ = "\n\ \\SOGetInfoRequest" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let in Data.Map.fromList [] unknownFields = Lens.Family2.Unchecked.lens _GetInfoRequest'_unknownFields (\ x__ y__ -> x__ {_GetInfoRequest'_unknownFields = y__}) defMessage = GetInfoRequest'_constructor {_GetInfoRequest'_unknownFields = []} parseMessage = let loop :: GetInfoRequest -> Data.ProtoLens.Encoding.Bytes.Parser GetInfoRequest 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) "GetInfoRequest" buildMessage = \ _x -> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) instance Control.DeepSeq.NFData GetInfoRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_GetInfoRequest'_unknownFields x__) () {- | Fields : * 'Proto.LndGrpc_Fields.version' @:: Lens' GetInfoResponse Data.Text.Text@ * 'Proto.LndGrpc_Fields.commitHash' @:: Lens' GetInfoResponse Data.Text.Text@ * 'Proto.LndGrpc_Fields.identityPubkey' @:: Lens' GetInfoResponse Data.Text.Text@ * 'Proto.LndGrpc_Fields.alias' @:: Lens' GetInfoResponse Data.Text.Text@ * 'Proto.LndGrpc_Fields.color' @:: Lens' GetInfoResponse Data.Text.Text@ * 'Proto.LndGrpc_Fields.numPendingChannels' @:: Lens' GetInfoResponse Data.Word.Word32@ * 'Proto.LndGrpc_Fields.numActiveChannels' @:: Lens' GetInfoResponse Data.Word.Word32@ * 'Proto.LndGrpc_Fields.numInactiveChannels' @:: Lens' GetInfoResponse Data.Word.Word32@ * 'Proto.LndGrpc_Fields.numPeers' @:: Lens' GetInfoResponse Data.Word.Word32@ * 'Proto.LndGrpc_Fields.blockHeight' @:: Lens' GetInfoResponse Data.Word.Word32@ * 'Proto.LndGrpc_Fields.blockHash' @:: Lens' GetInfoResponse Data.Text.Text@ * 'Proto.LndGrpc_Fields.bestHeaderTimestamp' @:: Lens' GetInfoResponse Data.Int.Int64@ * 'Proto.LndGrpc_Fields.syncedToChain' @:: Lens' GetInfoResponse Prelude.Bool@ * 'Proto.LndGrpc_Fields.syncedToGraph' @:: Lens' GetInfoResponse Prelude.Bool@ * 'Proto.LndGrpc_Fields.testnet' @:: Lens' GetInfoResponse Prelude.Bool@ * 'Proto.LndGrpc_Fields.chains' @:: Lens' GetInfoResponse [Chain]@ * 'Proto.LndGrpc_Fields.vec'chains' @:: Lens' GetInfoResponse (Data.Vector.Vector Chain)@ * 'Proto.LndGrpc_Fields.uris' @:: Lens' GetInfoResponse [Data.Text.Text]@ * 'Proto.LndGrpc_Fields.vec'uris' @:: Lens' GetInfoResponse (Data.Vector.Vector Data.Text.Text)@ * 'Proto.LndGrpc_Fields.features' @:: Lens' GetInfoResponse (Data.Map.Map Data.Word.Word32 Feature)@ -} data GetInfoResponse = GetInfoResponse'_constructor {_GetInfoResponse'version :: !Data.Text.Text, _GetInfoResponse'commitHash :: !Data.Text.Text, _GetInfoResponse'identityPubkey :: !Data.Text.Text, _GetInfoResponse'alias :: !Data.Text.Text, _GetInfoResponse'color :: !Data.Text.Text, _GetInfoResponse'numPendingChannels :: !Data.Word.Word32, _GetInfoResponse'numActiveChannels :: !Data.Word.Word32, _GetInfoResponse'numInactiveChannels :: !Data.Word.Word32, _GetInfoResponse'numPeers :: !Data.Word.Word32, _GetInfoResponse'blockHeight :: !Data.Word.Word32, _GetInfoResponse'blockHash :: !Data.Text.Text, _GetInfoResponse'bestHeaderTimestamp :: !Data.Int.Int64, _GetInfoResponse'syncedToChain :: !Prelude.Bool, _GetInfoResponse'syncedToGraph :: !Prelude.Bool, _GetInfoResponse'testnet :: !Prelude.Bool, _GetInfoResponse'chains :: !(Data.Vector.Vector Chain), _GetInfoResponse'uris :: !(Data.Vector.Vector Data.Text.Text), _GetInfoResponse'features :: !(Data.Map.Map Data.Word.Word32 Feature), _GetInfoResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show GetInfoResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField GetInfoResponse "version" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'version (\ x__ y__ -> x__ {_GetInfoResponse'version = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetInfoResponse "commitHash" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'commitHash (\ x__ y__ -> x__ {_GetInfoResponse'commitHash = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetInfoResponse "identityPubkey" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'identityPubkey (\ x__ y__ -> x__ {_GetInfoResponse'identityPubkey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetInfoResponse "alias" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'alias (\ x__ y__ -> x__ {_GetInfoResponse'alias = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetInfoResponse "color" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'color (\ x__ y__ -> x__ {_GetInfoResponse'color = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetInfoResponse "numPendingChannels" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'numPendingChannels (\ x__ y__ -> x__ {_GetInfoResponse'numPendingChannels = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetInfoResponse "numActiveChannels" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'numActiveChannels (\ x__ y__ -> x__ {_GetInfoResponse'numActiveChannels = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetInfoResponse "numInactiveChannels" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'numInactiveChannels (\ x__ y__ -> x__ {_GetInfoResponse'numInactiveChannels = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetInfoResponse "numPeers" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'numPeers (\ x__ y__ -> x__ {_GetInfoResponse'numPeers = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetInfoResponse "blockHeight" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'blockHeight (\ x__ y__ -> x__ {_GetInfoResponse'blockHeight = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetInfoResponse "blockHash" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'blockHash (\ x__ y__ -> x__ {_GetInfoResponse'blockHash = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetInfoResponse "bestHeaderTimestamp" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'bestHeaderTimestamp (\ x__ y__ -> x__ {_GetInfoResponse'bestHeaderTimestamp = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetInfoResponse "syncedToChain" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'syncedToChain (\ x__ y__ -> x__ {_GetInfoResponse'syncedToChain = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetInfoResponse "syncedToGraph" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'syncedToGraph (\ x__ y__ -> x__ {_GetInfoResponse'syncedToGraph = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetInfoResponse "testnet" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'testnet (\ x__ y__ -> x__ {_GetInfoResponse'testnet = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetInfoResponse "chains" [Chain] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'chains (\ x__ y__ -> x__ {_GetInfoResponse'chains = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField GetInfoResponse "vec'chains" (Data.Vector.Vector Chain) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'chains (\ x__ y__ -> x__ {_GetInfoResponse'chains = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetInfoResponse "uris" [Data.Text.Text] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'uris (\ x__ y__ -> x__ {_GetInfoResponse'uris = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField GetInfoResponse "vec'uris" (Data.Vector.Vector Data.Text.Text) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'uris (\ x__ y__ -> x__ {_GetInfoResponse'uris = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetInfoResponse "features" (Data.Map.Map Data.Word.Word32 Feature) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'features (\ x__ y__ -> x__ {_GetInfoResponse'features = y__})) Prelude.id instance Data.ProtoLens.Message GetInfoResponse where messageName _ = Data.Text.pack "lnrpc.GetInfoResponse" packedMessageDescriptor _ = "\n\ \\SIGetInfoResponse\DC2\CAN\n\ \\aversion\CAN\SO \SOH(\tR\aversion\DC2\US\n\ \\vcommit_hash\CAN\DC4 \SOH(\tR\n\ \commitHash\DC2'\n\ \\SIidentity_pubkey\CAN\SOH \SOH(\tR\SOidentityPubkey\DC2\DC4\n\ \\ENQalias\CAN\STX \SOH(\tR\ENQalias\DC2\DC4\n\ \\ENQcolor\CAN\DC1 \SOH(\tR\ENQcolor\DC20\n\ \\DC4num_pending_channels\CAN\ETX \SOH(\rR\DC2numPendingChannels\DC2.\n\ \\DC3num_active_channels\CAN\EOT \SOH(\rR\DC1numActiveChannels\DC22\n\ \\NAKnum_inactive_channels\CAN\SI \SOH(\rR\DC3numInactiveChannels\DC2\ESC\n\ \\tnum_peers\CAN\ENQ \SOH(\rR\bnumPeers\DC2!\n\ \\fblock_height\CAN\ACK \SOH(\rR\vblockHeight\DC2\GS\n\ \\n\ \block_hash\CAN\b \SOH(\tR\tblockHash\DC22\n\ \\NAKbest_header_timestamp\CAN\r \SOH(\ETXR\DC3bestHeaderTimestamp\DC2&\n\ \\SIsynced_to_chain\CAN\t \SOH(\bR\rsyncedToChain\DC2&\n\ \\SIsynced_to_graph\CAN\DC2 \SOH(\bR\rsyncedToGraph\DC2\FS\n\ \\atestnet\CAN\n\ \ \SOH(\bR\atestnetB\STX\CAN\SOH\DC2$\n\ \\ACKchains\CAN\DLE \ETX(\v2\f.lnrpc.ChainR\ACKchains\DC2\DC2\n\ \\EOTuris\CAN\f \ETX(\tR\EOTuris\DC2@\n\ \\bfeatures\CAN\DC3 \ETX(\v2$.lnrpc.GetInfoResponse.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\SOHJ\EOT\b\v\DLE\f" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let version__field_descriptor = Data.ProtoLens.FieldDescriptor "version" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"version")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse commitHash__field_descriptor = Data.ProtoLens.FieldDescriptor "commit_hash" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"commitHash")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse identityPubkey__field_descriptor = Data.ProtoLens.FieldDescriptor "identity_pubkey" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"identityPubkey")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse alias__field_descriptor = Data.ProtoLens.FieldDescriptor "alias" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"alias")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse color__field_descriptor = Data.ProtoLens.FieldDescriptor "color" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"color")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse numPendingChannels__field_descriptor = Data.ProtoLens.FieldDescriptor "num_pending_channels" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"numPendingChannels")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse numActiveChannels__field_descriptor = Data.ProtoLens.FieldDescriptor "num_active_channels" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"numActiveChannels")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse numInactiveChannels__field_descriptor = Data.ProtoLens.FieldDescriptor "num_inactive_channels" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"numInactiveChannels")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse numPeers__field_descriptor = Data.ProtoLens.FieldDescriptor "num_peers" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"numPeers")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse blockHeight__field_descriptor = Data.ProtoLens.FieldDescriptor "block_height" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"blockHeight")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse blockHash__field_descriptor = Data.ProtoLens.FieldDescriptor "block_hash" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"blockHash")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse bestHeaderTimestamp__field_descriptor = Data.ProtoLens.FieldDescriptor "best_header_timestamp" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"bestHeaderTimestamp")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse syncedToChain__field_descriptor = Data.ProtoLens.FieldDescriptor "synced_to_chain" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"syncedToChain")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse syncedToGraph__field_descriptor = Data.ProtoLens.FieldDescriptor "synced_to_graph" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"syncedToGraph")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse testnet__field_descriptor = Data.ProtoLens.FieldDescriptor "testnet" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"testnet")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse chains__field_descriptor = Data.ProtoLens.FieldDescriptor "chains" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Chain) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"chains")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse uris__field_descriptor = Data.ProtoLens.FieldDescriptor "uris" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"uris")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse features__field_descriptor = Data.ProtoLens.FieldDescriptor "features" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor GetInfoResponse'FeaturesEntry) (Data.ProtoLens.MapField (Data.ProtoLens.Field.field @"key") (Data.ProtoLens.Field.field @"value") (Data.ProtoLens.Field.field @"features")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse in Data.Map.fromList [(Data.ProtoLens.Tag 14, version__field_descriptor), (Data.ProtoLens.Tag 20, commitHash__field_descriptor), (Data.ProtoLens.Tag 1, identityPubkey__field_descriptor), (Data.ProtoLens.Tag 2, alias__field_descriptor), (Data.ProtoLens.Tag 17, color__field_descriptor), (Data.ProtoLens.Tag 3, numPendingChannels__field_descriptor), (Data.ProtoLens.Tag 4, numActiveChannels__field_descriptor), (Data.ProtoLens.Tag 15, numInactiveChannels__field_descriptor), (Data.ProtoLens.Tag 5, numPeers__field_descriptor), (Data.ProtoLens.Tag 6, blockHeight__field_descriptor), (Data.ProtoLens.Tag 8, blockHash__field_descriptor), (Data.ProtoLens.Tag 13, bestHeaderTimestamp__field_descriptor), (Data.ProtoLens.Tag 9, syncedToChain__field_descriptor), (Data.ProtoLens.Tag 18, syncedToGraph__field_descriptor), (Data.ProtoLens.Tag 10, testnet__field_descriptor), (Data.ProtoLens.Tag 16, chains__field_descriptor), (Data.ProtoLens.Tag 12, uris__field_descriptor), (Data.ProtoLens.Tag 19, features__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _GetInfoResponse'_unknownFields (\ x__ y__ -> x__ {_GetInfoResponse'_unknownFields = y__}) defMessage = GetInfoResponse'_constructor {_GetInfoResponse'version = Data.ProtoLens.fieldDefault, _GetInfoResponse'commitHash = Data.ProtoLens.fieldDefault, _GetInfoResponse'identityPubkey = Data.ProtoLens.fieldDefault, _GetInfoResponse'alias = Data.ProtoLens.fieldDefault, _GetInfoResponse'color = Data.ProtoLens.fieldDefault, _GetInfoResponse'numPendingChannels = Data.ProtoLens.fieldDefault, _GetInfoResponse'numActiveChannels = Data.ProtoLens.fieldDefault, _GetInfoResponse'numInactiveChannels = Data.ProtoLens.fieldDefault, _GetInfoResponse'numPeers = Data.ProtoLens.fieldDefault, _GetInfoResponse'blockHeight = Data.ProtoLens.fieldDefault, _GetInfoResponse'blockHash = Data.ProtoLens.fieldDefault, _GetInfoResponse'bestHeaderTimestamp = Data.ProtoLens.fieldDefault, _GetInfoResponse'syncedToChain = Data.ProtoLens.fieldDefault, _GetInfoResponse'syncedToGraph = Data.ProtoLens.fieldDefault, _GetInfoResponse'testnet = Data.ProtoLens.fieldDefault, _GetInfoResponse'chains = Data.Vector.Generic.empty, _GetInfoResponse'uris = Data.Vector.Generic.empty, _GetInfoResponse'features = Data.Map.empty, _GetInfoResponse'_unknownFields = []} parseMessage = let loop :: GetInfoResponse -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Chain -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text -> Data.ProtoLens.Encoding.Bytes.Parser GetInfoResponse loop x mutable'chains mutable'uris = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'chains <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'chains) frozen'uris <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'uris) (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'chains") frozen'chains (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'uris") frozen'uris x))) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 114 -> 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)) "version" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"version") y x) mutable'chains mutable'uris 162 -> 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)) "commit_hash" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"commitHash") y x) mutable'chains mutable'uris 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)) "identity_pubkey" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"identityPubkey") y x) mutable'chains mutable'uris 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)) "alias" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"alias") y x) mutable'chains mutable'uris 138 -> 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)) "color" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"color") y x) mutable'chains mutable'uris 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "num_pending_channels" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"numPendingChannels") y x) mutable'chains mutable'uris 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "num_active_channels" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"numActiveChannels") y x) mutable'chains mutable'uris 120 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "num_inactive_channels" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"numInactiveChannels") y x) mutable'chains mutable'uris 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "num_peers" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"numPeers") y x) mutable'chains mutable'uris 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "block_height" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"blockHeight") y x) mutable'chains mutable'uris 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)) "block_hash" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"blockHash") y x) mutable'chains mutable'uris 104 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "best_header_timestamp" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bestHeaderTimestamp") y x) mutable'chains mutable'uris 72 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "synced_to_chain" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"syncedToChain") y x) mutable'chains mutable'uris 144 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "synced_to_graph" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"syncedToGraph") y x) mutable'chains mutable'uris 80 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "testnet" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"testnet") y x) mutable'chains mutable'uris 130 -> do !y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "chains" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'chains y) loop x v mutable'uris 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)) "uris" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'uris y) loop x mutable'chains v 154 -> do !(entry :: GetInfoResponse'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'chains mutable'uris) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'chains mutable'uris in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'chains <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'uris <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'chains mutable'uris) "GetInfoResponse" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"version") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (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.Text.Encoding.encodeUtf8 _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"commitHash") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 162) ((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 @"identityPubkey") _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 @"alias") _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 @"color") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 138) ((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 @"numPendingChannels") _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 @"numActiveChannels") _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 @"numInactiveChannels") _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 Prelude.fromIntegral _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"numPeers") _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 @"blockHeight") _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 @"blockHash") _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 @"bestHeaderTimestamp") _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.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"syncedToChain") _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 (\ b -> if b then 1 else 0) _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"syncedToGraph") _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 (\ b -> if b then 1 else 0) _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"testnet") _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 (\ b -> if b then 1 else 0) _v)) ((Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 130) ((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'chains") _x)) ((Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (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)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'uris") _x)) ((Data.Monoid.<>) (Data.Monoid.mconcat (Prelude.map (\ _v -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 154) ((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 :: GetInfoResponse'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 GetInfoResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_GetInfoResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_GetInfoResponse'version x__) (Control.DeepSeq.deepseq (_GetInfoResponse'commitHash x__) (Control.DeepSeq.deepseq (_GetInfoResponse'identityPubkey x__) (Control.DeepSeq.deepseq (_GetInfoResponse'alias x__) (Control.DeepSeq.deepseq (_GetInfoResponse'color x__) (Control.DeepSeq.deepseq (_GetInfoResponse'numPendingChannels x__) (Control.DeepSeq.deepseq (_GetInfoResponse'numActiveChannels x__) (Control.DeepSeq.deepseq (_GetInfoResponse'numInactiveChannels x__) (Control.DeepSeq.deepseq (_GetInfoResponse'numPeers x__) (Control.DeepSeq.deepseq (_GetInfoResponse'blockHeight x__) (Control.DeepSeq.deepseq (_GetInfoResponse'blockHash x__) (Control.DeepSeq.deepseq (_GetInfoResponse'bestHeaderTimestamp x__) (Control.DeepSeq.deepseq (_GetInfoResponse'syncedToChain x__) (Control.DeepSeq.deepseq (_GetInfoResponse'syncedToGraph x__) (Control.DeepSeq.deepseq (_GetInfoResponse'testnet x__) (Control.DeepSeq.deepseq (_GetInfoResponse'chains x__) (Control.DeepSeq.deepseq (_GetInfoResponse'uris x__) (Control.DeepSeq.deepseq (_GetInfoResponse'features x__) ())))))))))))))))))) {- | Fields : * 'Proto.LndGrpc_Fields.key' @:: Lens' GetInfoResponse'FeaturesEntry Data.Word.Word32@ * 'Proto.LndGrpc_Fields.value' @:: Lens' GetInfoResponse'FeaturesEntry Feature@ * 'Proto.LndGrpc_Fields.maybe'value' @:: Lens' GetInfoResponse'FeaturesEntry (Prelude.Maybe Feature)@ -} data GetInfoResponse'FeaturesEntry = GetInfoResponse'FeaturesEntry'_constructor {_GetInfoResponse'FeaturesEntry'key :: !Data.Word.Word32, _GetInfoResponse'FeaturesEntry'value :: !(Prelude.Maybe Feature), _GetInfoResponse'FeaturesEntry'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show GetInfoResponse'FeaturesEntry where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField GetInfoResponse'FeaturesEntry "key" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'FeaturesEntry'key (\ x__ y__ -> x__ {_GetInfoResponse'FeaturesEntry'key = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetInfoResponse'FeaturesEntry "value" Feature where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'FeaturesEntry'value (\ x__ y__ -> x__ {_GetInfoResponse'FeaturesEntry'value = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField GetInfoResponse'FeaturesEntry "maybe'value" (Prelude.Maybe Feature) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetInfoResponse'FeaturesEntry'value (\ x__ y__ -> x__ {_GetInfoResponse'FeaturesEntry'value = y__})) Prelude.id instance Data.ProtoLens.Message GetInfoResponse'FeaturesEntry where messageName _ = Data.Text.pack "lnrpc.GetInfoResponse.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 GetInfoResponse'FeaturesEntry value__field_descriptor = Data.ProtoLens.FieldDescriptor "value" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Feature) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'value")) :: Data.ProtoLens.FieldDescriptor GetInfoResponse'FeaturesEntry in Data.Map.fromList [(Data.ProtoLens.Tag 1, key__field_descriptor), (Data.ProtoLens.Tag 2, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _GetInfoResponse'FeaturesEntry'_unknownFields (\ x__ y__ -> x__ {_GetInfoResponse'FeaturesEntry'_unknownFields = y__}) defMessage = GetInfoResponse'FeaturesEntry'_constructor {_GetInfoResponse'FeaturesEntry'key = Data.ProtoLens.fieldDefault, _GetInfoResponse'FeaturesEntry'value = Prelude.Nothing, _GetInfoResponse'FeaturesEntry'_unknownFields = []} parseMessage = let loop :: GetInfoResponse'FeaturesEntry -> Data.ProtoLens.Encoding.Bytes.Parser GetInfoResponse'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 GetInfoResponse'FeaturesEntry where rnf = \ x__ -> Control.DeepSeq.deepseq (_GetInfoResponse'FeaturesEntry'_unknownFields x__) (Control.DeepSeq.deepseq (_GetInfoResponse'FeaturesEntry'key x__) (Control.DeepSeq.deepseq (_GetInfoResponse'FeaturesEntry'value x__) ())) {- | Fields : -} data GetRecoveryInfoRequest = GetRecoveryInfoRequest'_constructor {_GetRecoveryInfoRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show GetRecoveryInfoRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Message GetRecoveryInfoRequest where messageName _ = Data.Text.pack "lnrpc.GetRecoveryInfoRequest" packedMessageDescriptor _ = "\n\ \\SYNGetRecoveryInfoRequest" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let in Data.Map.fromList [] unknownFields = Lens.Family2.Unchecked.lens _GetRecoveryInfoRequest'_unknownFields (\ x__ y__ -> x__ {_GetRecoveryInfoRequest'_unknownFields = y__}) defMessage = GetRecoveryInfoRequest'_constructor {_GetRecoveryInfoRequest'_unknownFields = []} parseMessage = let loop :: GetRecoveryInfoRequest -> Data.ProtoLens.Encoding.Bytes.Parser GetRecoveryInfoRequest 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) "GetRecoveryInfoRequest" buildMessage = \ _x -> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) instance Control.DeepSeq.NFData GetRecoveryInfoRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_GetRecoveryInfoRequest'_unknownFields x__) () {- | Fields : * 'Proto.LndGrpc_Fields.recoveryMode' @:: Lens' GetRecoveryInfoResponse Prelude.Bool@ * 'Proto.LndGrpc_Fields.recoveryFinished' @:: Lens' GetRecoveryInfoResponse Prelude.Bool@ * 'Proto.LndGrpc_Fields.progress' @:: Lens' GetRecoveryInfoResponse Prelude.Double@ -} data GetRecoveryInfoResponse = GetRecoveryInfoResponse'_constructor {_GetRecoveryInfoResponse'recoveryMode :: !Prelude.Bool, _GetRecoveryInfoResponse'recoveryFinished :: !Prelude.Bool, _GetRecoveryInfoResponse'progress :: !Prelude.Double, _GetRecoveryInfoResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show GetRecoveryInfoResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField GetRecoveryInfoResponse "recoveryMode" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetRecoveryInfoResponse'recoveryMode (\ x__ y__ -> x__ {_GetRecoveryInfoResponse'recoveryMode = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetRecoveryInfoResponse "recoveryFinished" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetRecoveryInfoResponse'recoveryFinished (\ x__ y__ -> x__ {_GetRecoveryInfoResponse'recoveryFinished = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetRecoveryInfoResponse "progress" Prelude.Double where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetRecoveryInfoResponse'progress (\ x__ y__ -> x__ {_GetRecoveryInfoResponse'progress = y__})) Prelude.id instance Data.ProtoLens.Message GetRecoveryInfoResponse where messageName _ = Data.Text.pack "lnrpc.GetRecoveryInfoResponse" packedMessageDescriptor _ = "\n\ \\ETBGetRecoveryInfoResponse\DC2#\n\ \\rrecovery_mode\CAN\SOH \SOH(\bR\frecoveryMode\DC2+\n\ \\DC1recovery_finished\CAN\STX \SOH(\bR\DLErecoveryFinished\DC2\SUB\n\ \\bprogress\CAN\ETX \SOH(\SOHR\bprogress" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let recoveryMode__field_descriptor = Data.ProtoLens.FieldDescriptor "recovery_mode" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"recoveryMode")) :: Data.ProtoLens.FieldDescriptor GetRecoveryInfoResponse recoveryFinished__field_descriptor = Data.ProtoLens.FieldDescriptor "recovery_finished" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"recoveryFinished")) :: Data.ProtoLens.FieldDescriptor GetRecoveryInfoResponse progress__field_descriptor = Data.ProtoLens.FieldDescriptor "progress" (Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Double) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"progress")) :: Data.ProtoLens.FieldDescriptor GetRecoveryInfoResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, recoveryMode__field_descriptor), (Data.ProtoLens.Tag 2, recoveryFinished__field_descriptor), (Data.ProtoLens.Tag 3, progress__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _GetRecoveryInfoResponse'_unknownFields (\ x__ y__ -> x__ {_GetRecoveryInfoResponse'_unknownFields = y__}) defMessage = GetRecoveryInfoResponse'_constructor {_GetRecoveryInfoResponse'recoveryMode = Data.ProtoLens.fieldDefault, _GetRecoveryInfoResponse'recoveryFinished = Data.ProtoLens.fieldDefault, _GetRecoveryInfoResponse'progress = Data.ProtoLens.fieldDefault, _GetRecoveryInfoResponse'_unknownFields = []} parseMessage = let loop :: GetRecoveryInfoResponse -> Data.ProtoLens.Encoding.Bytes.Parser GetRecoveryInfoResponse 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) "recovery_mode" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"recoveryMode") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "recovery_finished" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"recoveryFinished") y x) 25 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Data.ProtoLens.Encoding.Bytes.wordToDouble Data.ProtoLens.Encoding.Bytes.getFixed64) "progress" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"progress") 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) "GetRecoveryInfoResponse" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"recoveryMode") _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 @"recoveryFinished") _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 @"progress") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 25) ((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 GetRecoveryInfoResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_GetRecoveryInfoResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_GetRecoveryInfoResponse'recoveryMode x__) (Control.DeepSeq.deepseq (_GetRecoveryInfoResponse'recoveryFinished x__) (Control.DeepSeq.deepseq (_GetRecoveryInfoResponse'progress x__) ()))) {- | Fields : * 'Proto.LndGrpc_Fields.startHeight' @:: Lens' GetTransactionsRequest Data.Int.Int32@ * 'Proto.LndGrpc_Fields.endHeight' @:: Lens' GetTransactionsRequest Data.Int.Int32@ * 'Proto.LndGrpc_Fields.account' @:: Lens' GetTransactionsRequest Data.Text.Text@ -} data GetTransactionsRequest = GetTransactionsRequest'_constructor {_GetTransactionsRequest'startHeight :: !Data.Int.Int32, _GetTransactionsRequest'endHeight :: !Data.Int.Int32, _GetTransactionsRequest'account :: !Data.Text.Text, _GetTransactionsRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show GetTransactionsRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField GetTransactionsRequest "startHeight" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetTransactionsRequest'startHeight (\ x__ y__ -> x__ {_GetTransactionsRequest'startHeight = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetTransactionsRequest "endHeight" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetTransactionsRequest'endHeight (\ x__ y__ -> x__ {_GetTransactionsRequest'endHeight = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GetTransactionsRequest "account" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GetTransactionsRequest'account (\ x__ y__ -> x__ {_GetTransactionsRequest'account = y__})) Prelude.id instance Data.ProtoLens.Message GetTransactionsRequest where messageName _ = Data.Text.pack "lnrpc.GetTransactionsRequest" packedMessageDescriptor _ = "\n\ \\SYNGetTransactionsRequest\DC2!\n\ \\fstart_height\CAN\SOH \SOH(\ENQR\vstartHeight\DC2\GS\n\ \\n\ \end_height\CAN\STX \SOH(\ENQR\tendHeight\DC2\CAN\n\ \\aaccount\CAN\ETX \SOH(\tR\aaccount" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let startHeight__field_descriptor = Data.ProtoLens.FieldDescriptor "start_height" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"startHeight")) :: Data.ProtoLens.FieldDescriptor GetTransactionsRequest endHeight__field_descriptor = Data.ProtoLens.FieldDescriptor "end_height" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"endHeight")) :: Data.ProtoLens.FieldDescriptor GetTransactionsRequest account__field_descriptor = Data.ProtoLens.FieldDescriptor "account" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"account")) :: Data.ProtoLens.FieldDescriptor GetTransactionsRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, startHeight__field_descriptor), (Data.ProtoLens.Tag 2, endHeight__field_descriptor), (Data.ProtoLens.Tag 3, account__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _GetTransactionsRequest'_unknownFields (\ x__ y__ -> x__ {_GetTransactionsRequest'_unknownFields = y__}) defMessage = GetTransactionsRequest'_constructor {_GetTransactionsRequest'startHeight = Data.ProtoLens.fieldDefault, _GetTransactionsRequest'endHeight = Data.ProtoLens.fieldDefault, _GetTransactionsRequest'account = Data.ProtoLens.fieldDefault, _GetTransactionsRequest'_unknownFields = []} parseMessage = let loop :: GetTransactionsRequest -> Data.ProtoLens.Encoding.Bytes.Parser GetTransactionsRequest 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) "start_height" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"startHeight") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "end_height" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"endHeight") 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)) "account" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"account") 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) "GetTransactionsRequest" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"startHeight") _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.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"endHeight") _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 @"account") _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 GetTransactionsRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_GetTransactionsRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_GetTransactionsRequest'startHeight x__) (Control.DeepSeq.deepseq (_GetTransactionsRequest'endHeight x__) (Control.DeepSeq.deepseq (_GetTransactionsRequest'account x__) ()))) {- | Fields : -} data GraphTopologySubscription = GraphTopologySubscription'_constructor {_GraphTopologySubscription'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show GraphTopologySubscription where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Message GraphTopologySubscription where messageName _ = Data.Text.pack "lnrpc.GraphTopologySubscription" packedMessageDescriptor _ = "\n\ \\EMGraphTopologySubscription" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let in Data.Map.fromList [] unknownFields = Lens.Family2.Unchecked.lens _GraphTopologySubscription'_unknownFields (\ x__ y__ -> x__ {_GraphTopologySubscription'_unknownFields = y__}) defMessage = GraphTopologySubscription'_constructor {_GraphTopologySubscription'_unknownFields = []} parseMessage = let loop :: GraphTopologySubscription -> Data.ProtoLens.Encoding.Bytes.Parser GraphTopologySubscription 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) "GraphTopologySubscription" buildMessage = \ _x -> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) instance Control.DeepSeq.NFData GraphTopologySubscription where rnf = \ x__ -> Control.DeepSeq.deepseq (_GraphTopologySubscription'_unknownFields x__) () {- | Fields : * 'Proto.LndGrpc_Fields.nodeUpdates' @:: Lens' GraphTopologyUpdate [NodeUpdate]@ * 'Proto.LndGrpc_Fields.vec'nodeUpdates' @:: Lens' GraphTopologyUpdate (Data.Vector.Vector NodeUpdate)@ * 'Proto.LndGrpc_Fields.channelUpdates' @:: Lens' GraphTopologyUpdate [ChannelEdgeUpdate]@ * 'Proto.LndGrpc_Fields.vec'channelUpdates' @:: Lens' GraphTopologyUpdate (Data.Vector.Vector ChannelEdgeUpdate)@ * 'Proto.LndGrpc_Fields.closedChans' @:: Lens' GraphTopologyUpdate [ClosedChannelUpdate]@ * 'Proto.LndGrpc_Fields.vec'closedChans' @:: Lens' GraphTopologyUpdate (Data.Vector.Vector ClosedChannelUpdate)@ -} data GraphTopologyUpdate = GraphTopologyUpdate'_constructor {_GraphTopologyUpdate'nodeUpdates :: !(Data.Vector.Vector NodeUpdate), _GraphTopologyUpdate'channelUpdates :: !(Data.Vector.Vector ChannelEdgeUpdate), _GraphTopologyUpdate'closedChans :: !(Data.Vector.Vector ClosedChannelUpdate), _GraphTopologyUpdate'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show GraphTopologyUpdate where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField GraphTopologyUpdate "nodeUpdates" [NodeUpdate] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GraphTopologyUpdate'nodeUpdates (\ x__ y__ -> x__ {_GraphTopologyUpdate'nodeUpdates = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField GraphTopologyUpdate "vec'nodeUpdates" (Data.Vector.Vector NodeUpdate) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GraphTopologyUpdate'nodeUpdates (\ x__ y__ -> x__ {_GraphTopologyUpdate'nodeUpdates = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GraphTopologyUpdate "channelUpdates" [ChannelEdgeUpdate] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GraphTopologyUpdate'channelUpdates (\ x__ y__ -> x__ {_GraphTopologyUpdate'channelUpdates = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField GraphTopologyUpdate "vec'channelUpdates" (Data.Vector.Vector ChannelEdgeUpdate) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GraphTopologyUpdate'channelUpdates (\ x__ y__ -> x__ {_GraphTopologyUpdate'channelUpdates = y__})) Prelude.id instance Data.ProtoLens.Field.HasField GraphTopologyUpdate "closedChans" [ClosedChannelUpdate] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GraphTopologyUpdate'closedChans (\ x__ y__ -> x__ {_GraphTopologyUpdate'closedChans = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField GraphTopologyUpdate "vec'closedChans" (Data.Vector.Vector ClosedChannelUpdate) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _GraphTopologyUpdate'closedChans (\ x__ y__ -> x__ {_GraphTopologyUpdate'closedChans = y__})) Prelude.id instance Data.ProtoLens.Message GraphTopologyUpdate where messageName _ = Data.Text.pack "lnrpc.GraphTopologyUpdate" packedMessageDescriptor _ = "\n\ \\DC3GraphTopologyUpdate\DC24\n\ \\fnode_updates\CAN\SOH \ETX(\v2\DC1.lnrpc.NodeUpdateR\vnodeUpdates\DC2A\n\ \\SIchannel_updates\CAN\STX \ETX(\v2\CAN.lnrpc.ChannelEdgeUpdateR\SOchannelUpdates\DC2=\n\ \\fclosed_chans\CAN\ETX \ETX(\v2\SUB.lnrpc.ClosedChannelUpdateR\vclosedChans" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let nodeUpdates__field_descriptor = Data.ProtoLens.FieldDescriptor "node_updates" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor NodeUpdate) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"nodeUpdates")) :: Data.ProtoLens.FieldDescriptor GraphTopologyUpdate channelUpdates__field_descriptor = Data.ProtoLens.FieldDescriptor "channel_updates" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChannelEdgeUpdate) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"channelUpdates")) :: Data.ProtoLens.FieldDescriptor GraphTopologyUpdate closedChans__field_descriptor = Data.ProtoLens.FieldDescriptor "closed_chans" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ClosedChannelUpdate) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"closedChans")) :: Data.ProtoLens.FieldDescriptor GraphTopologyUpdate in Data.Map.fromList [(Data.ProtoLens.Tag 1, nodeUpdates__field_descriptor), (Data.ProtoLens.Tag 2, channelUpdates__field_descriptor), (Data.ProtoLens.Tag 3, closedChans__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _GraphTopologyUpdate'_unknownFields (\ x__ y__ -> x__ {_GraphTopologyUpdate'_unknownFields = y__}) defMessage = GraphTopologyUpdate'_constructor {_GraphTopologyUpdate'nodeUpdates = Data.Vector.Generic.empty, _GraphTopologyUpdate'channelUpdates = Data.Vector.Generic.empty, _GraphTopologyUpdate'closedChans = Data.Vector.Generic.empty, _GraphTopologyUpdate'_unknownFields = []} parseMessage = let loop :: GraphTopologyUpdate -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ChannelEdgeUpdate -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ClosedChannelUpdate -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NodeUpdate -> Data.ProtoLens.Encoding.Bytes.Parser GraphTopologyUpdate loop x mutable'channelUpdates mutable'closedChans mutable'nodeUpdates = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'channelUpdates <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'channelUpdates) frozen'closedChans <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'closedChans) frozen'nodeUpdates <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'nodeUpdates) (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'channelUpdates") frozen'channelUpdates (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'closedChans") frozen'closedChans (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'nodeUpdates") frozen'nodeUpdates 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) "node_updates" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'nodeUpdates y) loop x mutable'channelUpdates mutable'closedChans v 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) "channel_updates" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'channelUpdates y) loop x v mutable'closedChans mutable'nodeUpdates 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) "closed_chans" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'closedChans y) loop x mutable'channelUpdates v mutable'nodeUpdates wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'channelUpdates mutable'closedChans mutable'nodeUpdates in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'channelUpdates <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'closedChans <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'nodeUpdates <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'channelUpdates mutable'closedChans mutable'nodeUpdates) "GraphTopologyUpdate" 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'nodeUpdates") _x)) ((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'channelUpdates") _x)) ((Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 26) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'closedChans") _x)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) instance Control.DeepSeq.NFData GraphTopologyUpdate where rnf = \ x__ -> Control.DeepSeq.deepseq (_GraphTopologyUpdate'_unknownFields x__) (Control.DeepSeq.deepseq (_GraphTopologyUpdate'nodeUpdates x__) (Control.DeepSeq.deepseq (_GraphTopologyUpdate'channelUpdates x__) (Control.DeepSeq.deepseq (_GraphTopologyUpdate'closedChans x__) ()))) {- | Fields : * 'Proto.LndGrpc_Fields.incoming' @:: Lens' HTLC Prelude.Bool@ * 'Proto.LndGrpc_Fields.amount' @:: Lens' HTLC Data.Int.Int64@ * 'Proto.LndGrpc_Fields.hashLock' @:: Lens' HTLC Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.expirationHeight' @:: Lens' HTLC Data.Word.Word32@ * 'Proto.LndGrpc_Fields.htlcIndex' @:: Lens' HTLC Data.Word.Word64@ * 'Proto.LndGrpc_Fields.forwardingChannel' @:: Lens' HTLC Data.Word.Word64@ * 'Proto.LndGrpc_Fields.forwardingHtlcIndex' @:: Lens' HTLC Data.Word.Word64@ -} data HTLC = HTLC'_constructor {_HTLC'incoming :: !Prelude.Bool, _HTLC'amount :: !Data.Int.Int64, _HTLC'hashLock :: !Data.ByteString.ByteString, _HTLC'expirationHeight :: !Data.Word.Word32, _HTLC'htlcIndex :: !Data.Word.Word64, _HTLC'forwardingChannel :: !Data.Word.Word64, _HTLC'forwardingHtlcIndex :: !Data.Word.Word64, _HTLC'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show HTLC where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField HTLC "incoming" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _HTLC'incoming (\ x__ y__ -> x__ {_HTLC'incoming = y__})) Prelude.id instance Data.ProtoLens.Field.HasField HTLC "amount" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _HTLC'amount (\ x__ y__ -> x__ {_HTLC'amount = y__})) Prelude.id instance Data.ProtoLens.Field.HasField HTLC "hashLock" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _HTLC'hashLock (\ x__ y__ -> x__ {_HTLC'hashLock = y__})) Prelude.id instance Data.ProtoLens.Field.HasField HTLC "expirationHeight" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _HTLC'expirationHeight (\ x__ y__ -> x__ {_HTLC'expirationHeight = y__})) Prelude.id instance Data.ProtoLens.Field.HasField HTLC "htlcIndex" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _HTLC'htlcIndex (\ x__ y__ -> x__ {_HTLC'htlcIndex = y__})) Prelude.id instance Data.ProtoLens.Field.HasField HTLC "forwardingChannel" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _HTLC'forwardingChannel (\ x__ y__ -> x__ {_HTLC'forwardingChannel = y__})) Prelude.id instance Data.ProtoLens.Field.HasField HTLC "forwardingHtlcIndex" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _HTLC'forwardingHtlcIndex (\ x__ y__ -> x__ {_HTLC'forwardingHtlcIndex = y__})) Prelude.id instance Data.ProtoLens.Message HTLC where messageName _ = Data.Text.pack "lnrpc.HTLC" packedMessageDescriptor _ = "\n\ \\EOTHTLC\DC2\SUB\n\ \\bincoming\CAN\SOH \SOH(\bR\bincoming\DC2\SYN\n\ \\ACKamount\CAN\STX \SOH(\ETXR\ACKamount\DC2\ESC\n\ \\thash_lock\CAN\ETX \SOH(\fR\bhashLock\DC2+\n\ \\DC1expiration_height\CAN\EOT \SOH(\rR\DLEexpirationHeight\DC2\GS\n\ \\n\ \htlc_index\CAN\ENQ \SOH(\EOTR\thtlcIndex\DC2-\n\ \\DC2forwarding_channel\CAN\ACK \SOH(\EOTR\DC1forwardingChannel\DC22\n\ \\NAKforwarding_htlc_index\CAN\a \SOH(\EOTR\DC3forwardingHtlcIndex" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let incoming__field_descriptor = Data.ProtoLens.FieldDescriptor "incoming" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"incoming")) :: Data.ProtoLens.FieldDescriptor HTLC amount__field_descriptor = Data.ProtoLens.FieldDescriptor "amount" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"amount")) :: Data.ProtoLens.FieldDescriptor HTLC hashLock__field_descriptor = Data.ProtoLens.FieldDescriptor "hash_lock" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hashLock")) :: Data.ProtoLens.FieldDescriptor HTLC expirationHeight__field_descriptor = Data.ProtoLens.FieldDescriptor "expiration_height" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"expirationHeight")) :: Data.ProtoLens.FieldDescriptor HTLC 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 HTLC forwardingChannel__field_descriptor = Data.ProtoLens.FieldDescriptor "forwarding_channel" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"forwardingChannel")) :: Data.ProtoLens.FieldDescriptor HTLC forwardingHtlcIndex__field_descriptor = Data.ProtoLens.FieldDescriptor "forwarding_htlc_index" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"forwardingHtlcIndex")) :: Data.ProtoLens.FieldDescriptor HTLC in Data.Map.fromList [(Data.ProtoLens.Tag 1, incoming__field_descriptor), (Data.ProtoLens.Tag 2, amount__field_descriptor), (Data.ProtoLens.Tag 3, hashLock__field_descriptor), (Data.ProtoLens.Tag 4, expirationHeight__field_descriptor), (Data.ProtoLens.Tag 5, htlcIndex__field_descriptor), (Data.ProtoLens.Tag 6, forwardingChannel__field_descriptor), (Data.ProtoLens.Tag 7, forwardingHtlcIndex__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _HTLC'_unknownFields (\ x__ y__ -> x__ {_HTLC'_unknownFields = y__}) defMessage = HTLC'_constructor {_HTLC'incoming = Data.ProtoLens.fieldDefault, _HTLC'amount = Data.ProtoLens.fieldDefault, _HTLC'hashLock = Data.ProtoLens.fieldDefault, _HTLC'expirationHeight = Data.ProtoLens.fieldDefault, _HTLC'htlcIndex = Data.ProtoLens.fieldDefault, _HTLC'forwardingChannel = Data.ProtoLens.fieldDefault, _HTLC'forwardingHtlcIndex = Data.ProtoLens.fieldDefault, _HTLC'_unknownFields = []} parseMessage = let loop :: HTLC -> Data.ProtoLens.Encoding.Bytes.Parser HTLC 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) "incoming" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"incoming") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "amount" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"amount") y x) 26 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "hash_lock" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hashLock") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "expiration_height" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"expirationHeight") y x) 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "htlc_index" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"htlcIndex") y x) 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "forwarding_channel" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"forwardingChannel") y x) 56 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "forwarding_htlc_index" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"forwardingHtlcIndex") 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) "HTLC" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"incoming") _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 @"amount") _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 @"hashLock") _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 @"expirationHeight") _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 @"htlcIndex") _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 @"forwardingChannel") _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 @"forwardingHtlcIndex") _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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))))) instance Control.DeepSeq.NFData HTLC where rnf = \ x__ -> Control.DeepSeq.deepseq (_HTLC'_unknownFields x__) (Control.DeepSeq.deepseq (_HTLC'incoming x__) (Control.DeepSeq.deepseq (_HTLC'amount x__) (Control.DeepSeq.deepseq (_HTLC'hashLock x__) (Control.DeepSeq.deepseq (_HTLC'expirationHeight x__) (Control.DeepSeq.deepseq (_HTLC'htlcIndex x__) (Control.DeepSeq.deepseq (_HTLC'forwardingChannel x__) (Control.DeepSeq.deepseq (_HTLC'forwardingHtlcIndex x__) ()))))))) {- | Fields : * 'Proto.LndGrpc_Fields.attemptId' @:: Lens' HTLCAttempt Data.Word.Word64@ * 'Proto.LndGrpc_Fields.status' @:: Lens' HTLCAttempt HTLCAttempt'HTLCStatus@ * 'Proto.LndGrpc_Fields.route' @:: Lens' HTLCAttempt Route@ * 'Proto.LndGrpc_Fields.maybe'route' @:: Lens' HTLCAttempt (Prelude.Maybe Route)@ * 'Proto.LndGrpc_Fields.attemptTimeNs' @:: Lens' HTLCAttempt Data.Int.Int64@ * 'Proto.LndGrpc_Fields.resolveTimeNs' @:: Lens' HTLCAttempt Data.Int.Int64@ * 'Proto.LndGrpc_Fields.failure' @:: Lens' HTLCAttempt Failure@ * 'Proto.LndGrpc_Fields.maybe'failure' @:: Lens' HTLCAttempt (Prelude.Maybe Failure)@ * 'Proto.LndGrpc_Fields.preimage' @:: Lens' HTLCAttempt Data.ByteString.ByteString@ -} data HTLCAttempt = HTLCAttempt'_constructor {_HTLCAttempt'attemptId :: !Data.Word.Word64, _HTLCAttempt'status :: !HTLCAttempt'HTLCStatus, _HTLCAttempt'route :: !(Prelude.Maybe 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) instance Prelude.Show HTLCAttempt where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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" 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 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 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) data HTLCAttempt'HTLCStatus = HTLCAttempt'IN_FLIGHT | HTLCAttempt'SUCCEEDED | HTLCAttempt'FAILED | HTLCAttempt'HTLCStatus'Unrecognized !HTLCAttempt'HTLCStatus'UnrecognizedValue deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) 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__ () {- | Fields : * 'Proto.LndGrpc_Fields.chanId' @:: Lens' Hop Data.Word.Word64@ * 'Proto.LndGrpc_Fields.chanCapacity' @:: Lens' Hop Data.Int.Int64@ * 'Proto.LndGrpc_Fields.amtToForward' @:: Lens' Hop Data.Int.Int64@ * 'Proto.LndGrpc_Fields.fee' @:: Lens' Hop Data.Int.Int64@ * 'Proto.LndGrpc_Fields.expiry' @:: Lens' Hop Data.Word.Word32@ * 'Proto.LndGrpc_Fields.amtToForwardMsat' @:: Lens' Hop Data.Int.Int64@ * 'Proto.LndGrpc_Fields.feeMsat' @:: Lens' Hop Data.Int.Int64@ * 'Proto.LndGrpc_Fields.pubKey' @:: Lens' Hop Data.Text.Text@ * 'Proto.LndGrpc_Fields.tlvPayload' @:: Lens' Hop Prelude.Bool@ * 'Proto.LndGrpc_Fields.mppRecord' @:: Lens' Hop MPPRecord@ * 'Proto.LndGrpc_Fields.maybe'mppRecord' @:: Lens' Hop (Prelude.Maybe MPPRecord)@ * 'Proto.LndGrpc_Fields.ampRecord' @:: Lens' Hop AMPRecord@ * 'Proto.LndGrpc_Fields.maybe'ampRecord' @:: Lens' Hop (Prelude.Maybe AMPRecord)@ * 'Proto.LndGrpc_Fields.customRecords' @:: Lens' Hop (Data.Map.Map Data.Word.Word64 Data.ByteString.ByteString)@ -} data Hop = Hop'_constructor {_Hop'chanId :: !Data.Word.Word64, _Hop'chanCapacity :: !Data.Int.Int64, _Hop'amtToForward :: !Data.Int.Int64, _Hop'fee :: !Data.Int.Int64, _Hop'expiry :: !Data.Word.Word32, _Hop'amtToForwardMsat :: !Data.Int.Int64, _Hop'feeMsat :: !Data.Int.Int64, _Hop'pubKey :: !Data.Text.Text, _Hop'tlvPayload :: !Prelude.Bool, _Hop'mppRecord :: !(Prelude.Maybe MPPRecord), _Hop'ampRecord :: !(Prelude.Maybe AMPRecord), _Hop'customRecords :: !(Data.Map.Map Data.Word.Word64 Data.ByteString.ByteString), _Hop'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Hop where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField Hop "chanId" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Hop'chanId (\ x__ y__ -> x__ {_Hop'chanId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Hop "chanCapacity" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Hop'chanCapacity (\ x__ y__ -> x__ {_Hop'chanCapacity = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Hop "amtToForward" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Hop'amtToForward (\ x__ y__ -> x__ {_Hop'amtToForward = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Hop "fee" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Hop'fee (\ x__ y__ -> x__ {_Hop'fee = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Hop "expiry" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Hop'expiry (\ x__ y__ -> x__ {_Hop'expiry = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Hop "amtToForwardMsat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Hop'amtToForwardMsat (\ x__ y__ -> x__ {_Hop'amtToForwardMsat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Hop "feeMsat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Hop'feeMsat (\ x__ y__ -> x__ {_Hop'feeMsat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Hop "pubKey" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Hop'pubKey (\ x__ y__ -> x__ {_Hop'pubKey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Hop "tlvPayload" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Hop'tlvPayload (\ x__ y__ -> x__ {_Hop'tlvPayload = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Hop "mppRecord" MPPRecord where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Hop'mppRecord (\ x__ y__ -> x__ {_Hop'mppRecord = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField Hop "maybe'mppRecord" (Prelude.Maybe MPPRecord) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Hop'mppRecord (\ x__ y__ -> x__ {_Hop'mppRecord = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Hop "ampRecord" AMPRecord where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Hop'ampRecord (\ x__ y__ -> x__ {_Hop'ampRecord = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField Hop "maybe'ampRecord" (Prelude.Maybe AMPRecord) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Hop'ampRecord (\ x__ y__ -> x__ {_Hop'ampRecord = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Hop "customRecords" (Data.Map.Map Data.Word.Word64 Data.ByteString.ByteString) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Hop'customRecords (\ x__ y__ -> x__ {_Hop'customRecords = y__})) Prelude.id instance Data.ProtoLens.Message Hop where messageName _ = Data.Text.pack "lnrpc.Hop" packedMessageDescriptor _ = "\n\ \\ETXHop\DC2\ESC\n\ \\achan_id\CAN\SOH \SOH(\EOTR\ACKchanIdB\STX0\SOH\DC2'\n\ \\rchan_capacity\CAN\STX \SOH(\ETXR\fchanCapacityB\STX\CAN\SOH\DC2(\n\ \\SOamt_to_forward\CAN\ETX \SOH(\ETXR\famtToForwardB\STX\CAN\SOH\DC2\DC4\n\ \\ETXfee\CAN\EOT \SOH(\ETXR\ETXfeeB\STX\CAN\SOH\DC2\SYN\n\ \\ACKexpiry\CAN\ENQ \SOH(\rR\ACKexpiry\DC2-\n\ \\DC3amt_to_forward_msat\CAN\ACK \SOH(\ETXR\DLEamtToForwardMsat\DC2\EM\n\ \\bfee_msat\CAN\a \SOH(\ETXR\afeeMsat\DC2\ETB\n\ \\apub_key\CAN\b \SOH(\tR\ACKpubKey\DC2\US\n\ \\vtlv_payload\CAN\t \SOH(\bR\n\ \tlvPayload\DC2/\n\ \\n\ \mpp_record\CAN\n\ \ \SOH(\v2\DLE.lnrpc.MPPRecordR\tmppRecord\DC2/\n\ \\n\ \amp_record\CAN\f \SOH(\v2\DLE.lnrpc.AMPRecordR\tampRecord\DC2D\n\ \\SOcustom_records\CAN\v \ETX(\v2\GS.lnrpc.Hop.CustomRecordsEntryR\rcustomRecords\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 Hop chanCapacity__field_descriptor = Data.ProtoLens.FieldDescriptor "chan_capacity" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"chanCapacity")) :: Data.ProtoLens.FieldDescriptor Hop amtToForward__field_descriptor = Data.ProtoLens.FieldDescriptor "amt_to_forward" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"amtToForward")) :: Data.ProtoLens.FieldDescriptor Hop 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 Hop expiry__field_descriptor = Data.ProtoLens.FieldDescriptor "expiry" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"expiry")) :: Data.ProtoLens.FieldDescriptor Hop amtToForwardMsat__field_descriptor = Data.ProtoLens.FieldDescriptor "amt_to_forward_msat" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"amtToForwardMsat")) :: Data.ProtoLens.FieldDescriptor Hop 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 Hop pubKey__field_descriptor = Data.ProtoLens.FieldDescriptor "pub_key" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pubKey")) :: Data.ProtoLens.FieldDescriptor Hop tlvPayload__field_descriptor = Data.ProtoLens.FieldDescriptor "tlv_payload" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"tlvPayload")) :: Data.ProtoLens.FieldDescriptor Hop mppRecord__field_descriptor = Data.ProtoLens.FieldDescriptor "mpp_record" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor MPPRecord) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'mppRecord")) :: Data.ProtoLens.FieldDescriptor Hop ampRecord__field_descriptor = Data.ProtoLens.FieldDescriptor "amp_record" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor AMPRecord) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'ampRecord")) :: Data.ProtoLens.FieldDescriptor Hop customRecords__field_descriptor = Data.ProtoLens.FieldDescriptor "custom_records" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Hop'CustomRecordsEntry) (Data.ProtoLens.MapField (Data.ProtoLens.Field.field @"key") (Data.ProtoLens.Field.field @"value") (Data.ProtoLens.Field.field @"customRecords")) :: Data.ProtoLens.FieldDescriptor Hop in Data.Map.fromList [(Data.ProtoLens.Tag 1, chanId__field_descriptor), (Data.ProtoLens.Tag 2, chanCapacity__field_descriptor), (Data.ProtoLens.Tag 3, amtToForward__field_descriptor), (Data.ProtoLens.Tag 4, fee__field_descriptor), (Data.ProtoLens.Tag 5, expiry__field_descriptor), (Data.ProtoLens.Tag 6, amtToForwardMsat__field_descriptor), (Data.ProtoLens.Tag 7, feeMsat__field_descriptor), (Data.ProtoLens.Tag 8, pubKey__field_descriptor), (Data.ProtoLens.Tag 9, tlvPayload__field_descriptor), (Data.ProtoLens.Tag 10, mppRecord__field_descriptor), (Data.ProtoLens.Tag 12, ampRecord__field_descriptor), (Data.ProtoLens.Tag 11, customRecords__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Hop'_unknownFields (\ x__ y__ -> x__ {_Hop'_unknownFields = y__}) defMessage = Hop'_constructor {_Hop'chanId = Data.ProtoLens.fieldDefault, _Hop'chanCapacity = Data.ProtoLens.fieldDefault, _Hop'amtToForward = Data.ProtoLens.fieldDefault, _Hop'fee = Data.ProtoLens.fieldDefault, _Hop'expiry = Data.ProtoLens.fieldDefault, _Hop'amtToForwardMsat = Data.ProtoLens.fieldDefault, _Hop'feeMsat = Data.ProtoLens.fieldDefault, _Hop'pubKey = Data.ProtoLens.fieldDefault, _Hop'tlvPayload = Data.ProtoLens.fieldDefault, _Hop'mppRecord = Prelude.Nothing, _Hop'ampRecord = Prelude.Nothing, _Hop'customRecords = Data.Map.empty, _Hop'_unknownFields = []} parseMessage = let loop :: Hop -> Data.ProtoLens.Encoding.Bytes.Parser Hop 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.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "chan_capacity" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"chanCapacity") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "amt_to_forward" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"amtToForward") y x) 32 -> 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) 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) 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "amt_to_forward_msat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"amtToForwardMsat") y x) 56 -> 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) 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)) "pub_key" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pubKey") y x) 72 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "tlv_payload" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"tlvPayload") y x) 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) "mpp_record" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"mppRecord") y x) 98 -> 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_record" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ampRecord") y x) 90 -> do !(entry :: Hop'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)) 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) "Hop" 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 @"chanCapacity") _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 @"amtToForward") _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 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 @"amtToForwardMsat") _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 @"feeMsat") _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 @"pubKey") _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 @"tlvPayload") _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 (\ b -> if b then 1 else 0) _v)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'mppRecord") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _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)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'ampRecord") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (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.ProtoLens.encodeMessage _v)) ((Data.Monoid.<>) (Data.Monoid.mconcat (Prelude.map (\ _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 (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 :: Hop'CustomRecordsEntry))))) (Data.Map.toList (Lens.Family2.view (Data.ProtoLens.Field.field @"customRecords") _x)))) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))))))))) instance Control.DeepSeq.NFData Hop where rnf = \ x__ -> Control.DeepSeq.deepseq (_Hop'_unknownFields x__) (Control.DeepSeq.deepseq (_Hop'chanId x__) (Control.DeepSeq.deepseq (_Hop'chanCapacity x__) (Control.DeepSeq.deepseq (_Hop'amtToForward x__) (Control.DeepSeq.deepseq (_Hop'fee x__) (Control.DeepSeq.deepseq (_Hop'expiry x__) (Control.DeepSeq.deepseq (_Hop'amtToForwardMsat x__) (Control.DeepSeq.deepseq (_Hop'feeMsat x__) (Control.DeepSeq.deepseq (_Hop'pubKey x__) (Control.DeepSeq.deepseq (_Hop'tlvPayload x__) (Control.DeepSeq.deepseq (_Hop'mppRecord x__) (Control.DeepSeq.deepseq (_Hop'ampRecord x__) (Control.DeepSeq.deepseq (_Hop'customRecords x__) ())))))))))))) {- | Fields : * 'Proto.LndGrpc_Fields.key' @:: Lens' Hop'CustomRecordsEntry Data.Word.Word64@ * 'Proto.LndGrpc_Fields.value' @:: Lens' Hop'CustomRecordsEntry Data.ByteString.ByteString@ -} data Hop'CustomRecordsEntry = Hop'CustomRecordsEntry'_constructor {_Hop'CustomRecordsEntry'key :: !Data.Word.Word64, _Hop'CustomRecordsEntry'value :: !Data.ByteString.ByteString, _Hop'CustomRecordsEntry'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Hop'CustomRecordsEntry where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField Hop'CustomRecordsEntry "key" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Hop'CustomRecordsEntry'key (\ x__ y__ -> x__ {_Hop'CustomRecordsEntry'key = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Hop'CustomRecordsEntry "value" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Hop'CustomRecordsEntry'value (\ x__ y__ -> x__ {_Hop'CustomRecordsEntry'value = y__})) Prelude.id instance Data.ProtoLens.Message Hop'CustomRecordsEntry where messageName _ = Data.Text.pack "lnrpc.Hop.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 Hop'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 Hop'CustomRecordsEntry in Data.Map.fromList [(Data.ProtoLens.Tag 1, key__field_descriptor), (Data.ProtoLens.Tag 2, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Hop'CustomRecordsEntry'_unknownFields (\ x__ y__ -> x__ {_Hop'CustomRecordsEntry'_unknownFields = y__}) defMessage = Hop'CustomRecordsEntry'_constructor {_Hop'CustomRecordsEntry'key = Data.ProtoLens.fieldDefault, _Hop'CustomRecordsEntry'value = Data.ProtoLens.fieldDefault, _Hop'CustomRecordsEntry'_unknownFields = []} parseMessage = let loop :: Hop'CustomRecordsEntry -> Data.ProtoLens.Encoding.Bytes.Parser Hop'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 Hop'CustomRecordsEntry where rnf = \ x__ -> Control.DeepSeq.deepseq (_Hop'CustomRecordsEntry'_unknownFields x__) (Control.DeepSeq.deepseq (_Hop'CustomRecordsEntry'key x__) (Control.DeepSeq.deepseq (_Hop'CustomRecordsEntry'value x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.nodeId' @:: Lens' HopHint Data.Text.Text@ * 'Proto.LndGrpc_Fields.chanId' @:: Lens' HopHint Data.Word.Word64@ * 'Proto.LndGrpc_Fields.feeBaseMsat' @:: Lens' HopHint Data.Word.Word32@ * 'Proto.LndGrpc_Fields.feeProportionalMillionths' @:: Lens' HopHint Data.Word.Word32@ * 'Proto.LndGrpc_Fields.cltvExpiryDelta' @:: Lens' HopHint Data.Word.Word32@ -} data HopHint = HopHint'_constructor {_HopHint'nodeId :: !Data.Text.Text, _HopHint'chanId :: !Data.Word.Word64, _HopHint'feeBaseMsat :: !Data.Word.Word32, _HopHint'feeProportionalMillionths :: !Data.Word.Word32, _HopHint'cltvExpiryDelta :: !Data.Word.Word32, _HopHint'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show HopHint where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField HopHint "nodeId" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _HopHint'nodeId (\ x__ y__ -> x__ {_HopHint'nodeId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField HopHint "chanId" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _HopHint'chanId (\ x__ y__ -> x__ {_HopHint'chanId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField HopHint "feeBaseMsat" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _HopHint'feeBaseMsat (\ x__ y__ -> x__ {_HopHint'feeBaseMsat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField HopHint "feeProportionalMillionths" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _HopHint'feeProportionalMillionths (\ x__ y__ -> x__ {_HopHint'feeProportionalMillionths = y__})) Prelude.id instance Data.ProtoLens.Field.HasField HopHint "cltvExpiryDelta" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _HopHint'cltvExpiryDelta (\ x__ y__ -> x__ {_HopHint'cltvExpiryDelta = y__})) Prelude.id instance Data.ProtoLens.Message HopHint where messageName _ = Data.Text.pack "lnrpc.HopHint" packedMessageDescriptor _ = "\n\ \\aHopHint\DC2\ETB\n\ \\anode_id\CAN\SOH \SOH(\tR\ACKnodeId\DC2\ESC\n\ \\achan_id\CAN\STX \SOH(\EOTR\ACKchanIdB\STX0\SOH\DC2\"\n\ \\rfee_base_msat\CAN\ETX \SOH(\rR\vfeeBaseMsat\DC2>\n\ \\ESCfee_proportional_millionths\CAN\EOT \SOH(\rR\EMfeeProportionalMillionths\DC2*\n\ \\DC1cltv_expiry_delta\CAN\ENQ \SOH(\rR\SIcltvExpiryDelta" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let nodeId__field_descriptor = Data.ProtoLens.FieldDescriptor "node_id" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"nodeId")) :: Data.ProtoLens.FieldDescriptor HopHint 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 HopHint feeBaseMsat__field_descriptor = Data.ProtoLens.FieldDescriptor "fee_base_msat" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"feeBaseMsat")) :: Data.ProtoLens.FieldDescriptor HopHint feeProportionalMillionths__field_descriptor = Data.ProtoLens.FieldDescriptor "fee_proportional_millionths" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"feeProportionalMillionths")) :: Data.ProtoLens.FieldDescriptor HopHint cltvExpiryDelta__field_descriptor = Data.ProtoLens.FieldDescriptor "cltv_expiry_delta" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"cltvExpiryDelta")) :: Data.ProtoLens.FieldDescriptor HopHint in Data.Map.fromList [(Data.ProtoLens.Tag 1, nodeId__field_descriptor), (Data.ProtoLens.Tag 2, chanId__field_descriptor), (Data.ProtoLens.Tag 3, feeBaseMsat__field_descriptor), (Data.ProtoLens.Tag 4, feeProportionalMillionths__field_descriptor), (Data.ProtoLens.Tag 5, cltvExpiryDelta__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _HopHint'_unknownFields (\ x__ y__ -> x__ {_HopHint'_unknownFields = y__}) defMessage = HopHint'_constructor {_HopHint'nodeId = Data.ProtoLens.fieldDefault, _HopHint'chanId = Data.ProtoLens.fieldDefault, _HopHint'feeBaseMsat = Data.ProtoLens.fieldDefault, _HopHint'feeProportionalMillionths = Data.ProtoLens.fieldDefault, _HopHint'cltvExpiryDelta = Data.ProtoLens.fieldDefault, _HopHint'_unknownFields = []} parseMessage = let loop :: HopHint -> Data.ProtoLens.Encoding.Bytes.Parser HopHint 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)) "node_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"nodeId") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "chan_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"chanId") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "fee_base_msat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"feeBaseMsat") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "fee_proportional_millionths" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"feeProportionalMillionths") y x) 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "cltv_expiry_delta" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cltvExpiryDelta") 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) "HopHint" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"nodeId") _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 @"chanId") _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 @"feeBaseMsat") _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 @"feeProportionalMillionths") _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 @"cltvExpiryDelta") _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 HopHint where rnf = \ x__ -> Control.DeepSeq.deepseq (_HopHint'_unknownFields x__) (Control.DeepSeq.deepseq (_HopHint'nodeId x__) (Control.DeepSeq.deepseq (_HopHint'chanId x__) (Control.DeepSeq.deepseq (_HopHint'feeBaseMsat x__) (Control.DeepSeq.deepseq (_HopHint'feeProportionalMillionths x__) (Control.DeepSeq.deepseq (_HopHint'cltvExpiryDelta x__) ()))))) newtype Initiator'UnrecognizedValue = Initiator'UnrecognizedValue Data.Int.Int32 deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) data Initiator = INITIATOR_UNKNOWN | INITIATOR_LOCAL | INITIATOR_REMOTE | INITIATOR_BOTH | Initiator'Unrecognized !Initiator'UnrecognizedValue deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.MessageEnum Initiator where maybeToEnum 0 = Prelude.Just INITIATOR_UNKNOWN maybeToEnum 1 = Prelude.Just INITIATOR_LOCAL maybeToEnum 2 = Prelude.Just INITIATOR_REMOTE maybeToEnum 3 = Prelude.Just INITIATOR_BOTH maybeToEnum k = Prelude.Just (Initiator'Unrecognized (Initiator'UnrecognizedValue (Prelude.fromIntegral k))) showEnum INITIATOR_UNKNOWN = "INITIATOR_UNKNOWN" showEnum INITIATOR_LOCAL = "INITIATOR_LOCAL" showEnum INITIATOR_REMOTE = "INITIATOR_REMOTE" showEnum INITIATOR_BOTH = "INITIATOR_BOTH" showEnum (Initiator'Unrecognized (Initiator'UnrecognizedValue k)) = Prelude.show k readEnum k | (Prelude.==) k "INITIATOR_UNKNOWN" = Prelude.Just INITIATOR_UNKNOWN | (Prelude.==) k "INITIATOR_LOCAL" = Prelude.Just INITIATOR_LOCAL | (Prelude.==) k "INITIATOR_REMOTE" = Prelude.Just INITIATOR_REMOTE | (Prelude.==) k "INITIATOR_BOTH" = Prelude.Just INITIATOR_BOTH | Prelude.otherwise = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum instance Prelude.Bounded Initiator where minBound = INITIATOR_UNKNOWN maxBound = INITIATOR_BOTH instance Prelude.Enum Initiator where toEnum k__ = Prelude.maybe (Prelude.error ((Prelude.++) "toEnum: unknown value for enum Initiator: " (Prelude.show k__))) Prelude.id (Data.ProtoLens.maybeToEnum k__) fromEnum INITIATOR_UNKNOWN = 0 fromEnum INITIATOR_LOCAL = 1 fromEnum INITIATOR_REMOTE = 2 fromEnum INITIATOR_BOTH = 3 fromEnum (Initiator'Unrecognized (Initiator'UnrecognizedValue k)) = Prelude.fromIntegral k succ INITIATOR_BOTH = Prelude.error "Initiator.succ: bad argument INITIATOR_BOTH. This value would be out of bounds." succ INITIATOR_UNKNOWN = INITIATOR_LOCAL succ INITIATOR_LOCAL = INITIATOR_REMOTE succ INITIATOR_REMOTE = INITIATOR_BOTH succ (Initiator'Unrecognized _) = Prelude.error "Initiator.succ: bad argument: unrecognized value" pred INITIATOR_UNKNOWN = Prelude.error "Initiator.pred: bad argument INITIATOR_UNKNOWN. This value would be out of bounds." pred INITIATOR_LOCAL = INITIATOR_UNKNOWN pred INITIATOR_REMOTE = INITIATOR_LOCAL pred INITIATOR_BOTH = INITIATOR_REMOTE pred (Initiator'Unrecognized _) = Prelude.error "Initiator.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 Initiator where fieldDefault = INITIATOR_UNKNOWN instance Control.DeepSeq.NFData Initiator where rnf x__ = Prelude.seq x__ () {- | Fields : * 'Proto.LndGrpc_Fields.memo' @:: Lens' Invoice Data.Text.Text@ * 'Proto.LndGrpc_Fields.rPreimage' @:: Lens' Invoice Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.rHash' @:: Lens' Invoice Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.value' @:: Lens' Invoice Data.Int.Int64@ * 'Proto.LndGrpc_Fields.valueMsat' @:: Lens' Invoice Data.Int.Int64@ * 'Proto.LndGrpc_Fields.settled' @:: Lens' Invoice Prelude.Bool@ * 'Proto.LndGrpc_Fields.creationDate' @:: Lens' Invoice Data.Int.Int64@ * 'Proto.LndGrpc_Fields.settleDate' @:: Lens' Invoice Data.Int.Int64@ * 'Proto.LndGrpc_Fields.paymentRequest' @:: Lens' Invoice Data.Text.Text@ * 'Proto.LndGrpc_Fields.descriptionHash' @:: Lens' Invoice Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.expiry' @:: Lens' Invoice Data.Int.Int64@ * 'Proto.LndGrpc_Fields.fallbackAddr' @:: Lens' Invoice Data.Text.Text@ * 'Proto.LndGrpc_Fields.cltvExpiry' @:: Lens' Invoice Data.Word.Word64@ * 'Proto.LndGrpc_Fields.routeHints' @:: Lens' Invoice [RouteHint]@ * 'Proto.LndGrpc_Fields.vec'routeHints' @:: Lens' Invoice (Data.Vector.Vector RouteHint)@ * 'Proto.LndGrpc_Fields.private' @:: Lens' Invoice Prelude.Bool@ * 'Proto.LndGrpc_Fields.addIndex' @:: Lens' Invoice Data.Word.Word64@ * 'Proto.LndGrpc_Fields.settleIndex' @:: Lens' Invoice Data.Word.Word64@ * 'Proto.LndGrpc_Fields.amtPaid' @:: Lens' Invoice Data.Int.Int64@ * 'Proto.LndGrpc_Fields.amtPaidSat' @:: Lens' Invoice Data.Int.Int64@ * 'Proto.LndGrpc_Fields.amtPaidMsat' @:: Lens' Invoice Data.Int.Int64@ * 'Proto.LndGrpc_Fields.state' @:: Lens' Invoice Invoice'InvoiceState@ * 'Proto.LndGrpc_Fields.htlcs' @:: Lens' Invoice [InvoiceHTLC]@ * 'Proto.LndGrpc_Fields.vec'htlcs' @:: Lens' Invoice (Data.Vector.Vector InvoiceHTLC)@ * 'Proto.LndGrpc_Fields.features' @:: Lens' Invoice (Data.Map.Map Data.Word.Word32 Feature)@ * 'Proto.LndGrpc_Fields.isKeysend' @:: Lens' Invoice Prelude.Bool@ * 'Proto.LndGrpc_Fields.paymentAddr' @:: Lens' Invoice Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.isAmp' @:: Lens' Invoice Prelude.Bool@ -} 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 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 Feature), _Invoice'isKeysend :: !Prelude.Bool, _Invoice'paymentAddr :: !Data.ByteString.ByteString, _Invoice'isAmp :: !Prelude.Bool, _Invoice'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Invoice where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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" [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 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 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.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\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\"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 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 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)] 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'_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 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 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.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__) ())))))))))))))))))))))))))) {- | Fields : * 'Proto.LndGrpc_Fields.key' @:: Lens' Invoice'FeaturesEntry Data.Word.Word32@ * 'Proto.LndGrpc_Fields.value' @:: Lens' Invoice'FeaturesEntry Feature@ * 'Proto.LndGrpc_Fields.maybe'value' @:: Lens' Invoice'FeaturesEntry (Prelude.Maybe Feature)@ -} data Invoice'FeaturesEntry = Invoice'FeaturesEntry'_constructor {_Invoice'FeaturesEntry'key :: !Data.Word.Word32, _Invoice'FeaturesEntry'value :: !(Prelude.Maybe Feature), _Invoice'FeaturesEntry'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Invoice'FeaturesEntry where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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" 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 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 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) 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) 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__ () {- | Fields : * 'Proto.LndGrpc_Fields.chanId' @:: Lens' InvoiceHTLC Data.Word.Word64@ * 'Proto.LndGrpc_Fields.htlcIndex' @:: Lens' InvoiceHTLC Data.Word.Word64@ * 'Proto.LndGrpc_Fields.amtMsat' @:: Lens' InvoiceHTLC Data.Word.Word64@ * 'Proto.LndGrpc_Fields.acceptHeight' @:: Lens' InvoiceHTLC Data.Int.Int32@ * 'Proto.LndGrpc_Fields.acceptTime' @:: Lens' InvoiceHTLC Data.Int.Int64@ * 'Proto.LndGrpc_Fields.resolveTime' @:: Lens' InvoiceHTLC Data.Int.Int64@ * 'Proto.LndGrpc_Fields.expiryHeight' @:: Lens' InvoiceHTLC Data.Int.Int32@ * 'Proto.LndGrpc_Fields.state' @:: Lens' InvoiceHTLC InvoiceHTLCState@ * 'Proto.LndGrpc_Fields.customRecords' @:: Lens' InvoiceHTLC (Data.Map.Map Data.Word.Word64 Data.ByteString.ByteString)@ * 'Proto.LndGrpc_Fields.mppTotalAmtMsat' @:: Lens' InvoiceHTLC Data.Word.Word64@ * 'Proto.LndGrpc_Fields.amp' @:: Lens' InvoiceHTLC AMP@ * 'Proto.LndGrpc_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) instance Prelude.Show InvoiceHTLC where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.key' @:: Lens' InvoiceHTLC'CustomRecordsEntry Data.Word.Word64@ * 'Proto.LndGrpc_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) instance Prelude.Show InvoiceHTLC'CustomRecordsEntry where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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) data InvoiceHTLCState = ACCEPTED | SETTLED | CANCELED | InvoiceHTLCState'Unrecognized !InvoiceHTLCState'UnrecognizedValue deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) 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__ () {- | Fields : * 'Proto.LndGrpc_Fields.addIndex' @:: Lens' InvoiceSubscription Data.Word.Word64@ * 'Proto.LndGrpc_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) instance Prelude.Show InvoiceSubscription where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.rawKeyBytes' @:: Lens' KeyDescriptor Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.keyLoc' @:: Lens' KeyDescriptor KeyLocator@ * 'Proto.LndGrpc_Fields.maybe'keyLoc' @:: Lens' KeyDescriptor (Prelude.Maybe KeyLocator)@ -} data KeyDescriptor = KeyDescriptor'_constructor {_KeyDescriptor'rawKeyBytes :: !Data.ByteString.ByteString, _KeyDescriptor'keyLoc :: !(Prelude.Maybe KeyLocator), _KeyDescriptor'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show KeyDescriptor where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField KeyDescriptor "rawKeyBytes" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _KeyDescriptor'rawKeyBytes (\ x__ y__ -> x__ {_KeyDescriptor'rawKeyBytes = y__})) Prelude.id instance Data.ProtoLens.Field.HasField KeyDescriptor "keyLoc" KeyLocator where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _KeyDescriptor'keyLoc (\ x__ y__ -> x__ {_KeyDescriptor'keyLoc = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField KeyDescriptor "maybe'keyLoc" (Prelude.Maybe KeyLocator) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _KeyDescriptor'keyLoc (\ x__ y__ -> x__ {_KeyDescriptor'keyLoc = y__})) Prelude.id instance Data.ProtoLens.Message KeyDescriptor where messageName _ = Data.Text.pack "lnrpc.KeyDescriptor" packedMessageDescriptor _ = "\n\ \\rKeyDescriptor\DC2\"\n\ \\rraw_key_bytes\CAN\SOH \SOH(\fR\vrawKeyBytes\DC2*\n\ \\akey_loc\CAN\STX \SOH(\v2\DC1.lnrpc.KeyLocatorR\ACKkeyLoc" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let rawKeyBytes__field_descriptor = Data.ProtoLens.FieldDescriptor "raw_key_bytes" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"rawKeyBytes")) :: Data.ProtoLens.FieldDescriptor KeyDescriptor keyLoc__field_descriptor = Data.ProtoLens.FieldDescriptor "key_loc" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor KeyLocator) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'keyLoc")) :: Data.ProtoLens.FieldDescriptor KeyDescriptor in Data.Map.fromList [(Data.ProtoLens.Tag 1, rawKeyBytes__field_descriptor), (Data.ProtoLens.Tag 2, keyLoc__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _KeyDescriptor'_unknownFields (\ x__ y__ -> x__ {_KeyDescriptor'_unknownFields = y__}) defMessage = KeyDescriptor'_constructor {_KeyDescriptor'rawKeyBytes = Data.ProtoLens.fieldDefault, _KeyDescriptor'keyLoc = Prelude.Nothing, _KeyDescriptor'_unknownFields = []} parseMessage = let loop :: KeyDescriptor -> Data.ProtoLens.Encoding.Bytes.Parser KeyDescriptor 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)) "raw_key_bytes" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"rawKeyBytes") 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) "key_loc" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"keyLoc") 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) "KeyDescriptor" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"rawKeyBytes") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) _v)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'keyLoc") _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 KeyDescriptor where rnf = \ x__ -> Control.DeepSeq.deepseq (_KeyDescriptor'_unknownFields x__) (Control.DeepSeq.deepseq (_KeyDescriptor'rawKeyBytes x__) (Control.DeepSeq.deepseq (_KeyDescriptor'keyLoc x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.keyFamily' @:: Lens' KeyLocator Data.Int.Int32@ * 'Proto.LndGrpc_Fields.keyIndex' @:: Lens' KeyLocator Data.Int.Int32@ -} data KeyLocator = KeyLocator'_constructor {_KeyLocator'keyFamily :: !Data.Int.Int32, _KeyLocator'keyIndex :: !Data.Int.Int32, _KeyLocator'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show KeyLocator where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField KeyLocator "keyFamily" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _KeyLocator'keyFamily (\ x__ y__ -> x__ {_KeyLocator'keyFamily = y__})) Prelude.id instance Data.ProtoLens.Field.HasField KeyLocator "keyIndex" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _KeyLocator'keyIndex (\ x__ y__ -> x__ {_KeyLocator'keyIndex = y__})) Prelude.id instance Data.ProtoLens.Message KeyLocator where messageName _ = Data.Text.pack "lnrpc.KeyLocator" packedMessageDescriptor _ = "\n\ \\n\ \KeyLocator\DC2\GS\n\ \\n\ \key_family\CAN\SOH \SOH(\ENQR\tkeyFamily\DC2\ESC\n\ \\tkey_index\CAN\STX \SOH(\ENQR\bkeyIndex" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let keyFamily__field_descriptor = Data.ProtoLens.FieldDescriptor "key_family" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"keyFamily")) :: Data.ProtoLens.FieldDescriptor KeyLocator keyIndex__field_descriptor = Data.ProtoLens.FieldDescriptor "key_index" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"keyIndex")) :: Data.ProtoLens.FieldDescriptor KeyLocator in Data.Map.fromList [(Data.ProtoLens.Tag 1, keyFamily__field_descriptor), (Data.ProtoLens.Tag 2, keyIndex__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _KeyLocator'_unknownFields (\ x__ y__ -> x__ {_KeyLocator'_unknownFields = y__}) defMessage = KeyLocator'_constructor {_KeyLocator'keyFamily = Data.ProtoLens.fieldDefault, _KeyLocator'keyIndex = Data.ProtoLens.fieldDefault, _KeyLocator'_unknownFields = []} parseMessage = let loop :: KeyLocator -> Data.ProtoLens.Encoding.Bytes.Parser KeyLocator 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_family" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"keyFamily") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "key_index" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"keyIndex") 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) "KeyLocator" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"keyFamily") _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.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"keyIndex") _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 KeyLocator where rnf = \ x__ -> Control.DeepSeq.deepseq (_KeyLocator'_unknownFields x__) (Control.DeepSeq.deepseq (_KeyLocator'keyFamily x__) (Control.DeepSeq.deepseq (_KeyLocator'keyIndex x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.pubkey' @:: Lens' LightningAddress Data.Text.Text@ * 'Proto.LndGrpc_Fields.host' @:: Lens' LightningAddress Data.Text.Text@ -} data LightningAddress = LightningAddress'_constructor {_LightningAddress'pubkey :: !Data.Text.Text, _LightningAddress'host :: !Data.Text.Text, _LightningAddress'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show LightningAddress where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField LightningAddress "pubkey" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _LightningAddress'pubkey (\ x__ y__ -> x__ {_LightningAddress'pubkey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField LightningAddress "host" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _LightningAddress'host (\ x__ y__ -> x__ {_LightningAddress'host = y__})) Prelude.id instance Data.ProtoLens.Message LightningAddress where messageName _ = Data.Text.pack "lnrpc.LightningAddress" packedMessageDescriptor _ = "\n\ \\DLELightningAddress\DC2\SYN\n\ \\ACKpubkey\CAN\SOH \SOH(\tR\ACKpubkey\DC2\DC2\n\ \\EOThost\CAN\STX \SOH(\tR\EOThost" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let pubkey__field_descriptor = Data.ProtoLens.FieldDescriptor "pubkey" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pubkey")) :: Data.ProtoLens.FieldDescriptor LightningAddress host__field_descriptor = Data.ProtoLens.FieldDescriptor "host" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"host")) :: Data.ProtoLens.FieldDescriptor LightningAddress in Data.Map.fromList [(Data.ProtoLens.Tag 1, pubkey__field_descriptor), (Data.ProtoLens.Tag 2, host__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _LightningAddress'_unknownFields (\ x__ y__ -> x__ {_LightningAddress'_unknownFields = y__}) defMessage = LightningAddress'_constructor {_LightningAddress'pubkey = Data.ProtoLens.fieldDefault, _LightningAddress'host = Data.ProtoLens.fieldDefault, _LightningAddress'_unknownFields = []} parseMessage = let loop :: LightningAddress -> Data.ProtoLens.Encoding.Bytes.Parser LightningAddress 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)) "pubkey" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pubkey") 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)) "host" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"host") 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) "LightningAddress" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"pubkey") _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 @"host") _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 LightningAddress where rnf = \ x__ -> Control.DeepSeq.deepseq (_LightningAddress'_unknownFields x__) (Control.DeepSeq.deepseq (_LightningAddress'pubkey x__) (Control.DeepSeq.deepseq (_LightningAddress'host x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.lastUpdate' @:: Lens' LightningNode Data.Word.Word32@ * 'Proto.LndGrpc_Fields.pubKey' @:: Lens' LightningNode Data.Text.Text@ * 'Proto.LndGrpc_Fields.alias' @:: Lens' LightningNode Data.Text.Text@ * 'Proto.LndGrpc_Fields.addresses' @:: Lens' LightningNode [NodeAddress]@ * 'Proto.LndGrpc_Fields.vec'addresses' @:: Lens' LightningNode (Data.Vector.Vector NodeAddress)@ * 'Proto.LndGrpc_Fields.color' @:: Lens' LightningNode Data.Text.Text@ * 'Proto.LndGrpc_Fields.features' @:: Lens' LightningNode (Data.Map.Map Data.Word.Word32 Feature)@ -} data LightningNode = LightningNode'_constructor {_LightningNode'lastUpdate :: !Data.Word.Word32, _LightningNode'pubKey :: !Data.Text.Text, _LightningNode'alias :: !Data.Text.Text, _LightningNode'addresses :: !(Data.Vector.Vector NodeAddress), _LightningNode'color :: !Data.Text.Text, _LightningNode'features :: !(Data.Map.Map Data.Word.Word32 Feature), _LightningNode'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show LightningNode where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField LightningNode "lastUpdate" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _LightningNode'lastUpdate (\ x__ y__ -> x__ {_LightningNode'lastUpdate = y__})) Prelude.id instance Data.ProtoLens.Field.HasField LightningNode "pubKey" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _LightningNode'pubKey (\ x__ y__ -> x__ {_LightningNode'pubKey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField LightningNode "alias" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _LightningNode'alias (\ x__ y__ -> x__ {_LightningNode'alias = y__})) Prelude.id instance Data.ProtoLens.Field.HasField LightningNode "addresses" [NodeAddress] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _LightningNode'addresses (\ x__ y__ -> x__ {_LightningNode'addresses = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField LightningNode "vec'addresses" (Data.Vector.Vector NodeAddress) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _LightningNode'addresses (\ x__ y__ -> x__ {_LightningNode'addresses = y__})) Prelude.id instance Data.ProtoLens.Field.HasField LightningNode "color" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _LightningNode'color (\ x__ y__ -> x__ {_LightningNode'color = y__})) Prelude.id instance Data.ProtoLens.Field.HasField LightningNode "features" (Data.Map.Map Data.Word.Word32 Feature) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _LightningNode'features (\ x__ y__ -> x__ {_LightningNode'features = y__})) Prelude.id instance Data.ProtoLens.Message LightningNode where messageName _ = Data.Text.pack "lnrpc.LightningNode" packedMessageDescriptor _ = "\n\ \\rLightningNode\DC2\US\n\ \\vlast_update\CAN\SOH \SOH(\rR\n\ \lastUpdate\DC2\ETB\n\ \\apub_key\CAN\STX \SOH(\tR\ACKpubKey\DC2\DC4\n\ \\ENQalias\CAN\ETX \SOH(\tR\ENQalias\DC20\n\ \\taddresses\CAN\EOT \ETX(\v2\DC2.lnrpc.NodeAddressR\taddresses\DC2\DC4\n\ \\ENQcolor\CAN\ENQ \SOH(\tR\ENQcolor\DC2>\n\ \\bfeatures\CAN\ACK \ETX(\v2\".lnrpc.LightningNode.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 lastUpdate__field_descriptor = Data.ProtoLens.FieldDescriptor "last_update" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"lastUpdate")) :: Data.ProtoLens.FieldDescriptor LightningNode pubKey__field_descriptor = Data.ProtoLens.FieldDescriptor "pub_key" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pubKey")) :: Data.ProtoLens.FieldDescriptor LightningNode alias__field_descriptor = Data.ProtoLens.FieldDescriptor "alias" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"alias")) :: Data.ProtoLens.FieldDescriptor LightningNode addresses__field_descriptor = Data.ProtoLens.FieldDescriptor "addresses" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor NodeAddress) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"addresses")) :: Data.ProtoLens.FieldDescriptor LightningNode color__field_descriptor = Data.ProtoLens.FieldDescriptor "color" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"color")) :: Data.ProtoLens.FieldDescriptor LightningNode features__field_descriptor = Data.ProtoLens.FieldDescriptor "features" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor LightningNode'FeaturesEntry) (Data.ProtoLens.MapField (Data.ProtoLens.Field.field @"key") (Data.ProtoLens.Field.field @"value") (Data.ProtoLens.Field.field @"features")) :: Data.ProtoLens.FieldDescriptor LightningNode in Data.Map.fromList [(Data.ProtoLens.Tag 1, lastUpdate__field_descriptor), (Data.ProtoLens.Tag 2, pubKey__field_descriptor), (Data.ProtoLens.Tag 3, alias__field_descriptor), (Data.ProtoLens.Tag 4, addresses__field_descriptor), (Data.ProtoLens.Tag 5, color__field_descriptor), (Data.ProtoLens.Tag 6, features__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _LightningNode'_unknownFields (\ x__ y__ -> x__ {_LightningNode'_unknownFields = y__}) defMessage = LightningNode'_constructor {_LightningNode'lastUpdate = Data.ProtoLens.fieldDefault, _LightningNode'pubKey = Data.ProtoLens.fieldDefault, _LightningNode'alias = Data.ProtoLens.fieldDefault, _LightningNode'addresses = Data.Vector.Generic.empty, _LightningNode'color = Data.ProtoLens.fieldDefault, _LightningNode'features = Data.Map.empty, _LightningNode'_unknownFields = []} parseMessage = let loop :: LightningNode -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NodeAddress -> Data.ProtoLens.Encoding.Bytes.Parser LightningNode loop x mutable'addresses = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'addresses <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'addresses) (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'addresses") frozen'addresses 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) "last_update" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"lastUpdate") y x) mutable'addresses 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)) "pub_key" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pubKey") y x) mutable'addresses 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)) "alias" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"alias") y x) mutable'addresses 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) "addresses" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'addresses y) loop x v 42 -> 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)) "color" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"color") y x) mutable'addresses 50 -> do !(entry :: LightningNode'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'addresses) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'addresses in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'addresses <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'addresses) "LightningNode" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"lastUpdate") _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.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"pubKey") _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 @"alias") _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.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 34) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'addresses") _x)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"color") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (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.Text.Encoding.encodeUtf8 _v)) ((Data.Monoid.<>) (Data.Monoid.mconcat (Prelude.map (\ _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 (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 :: LightningNode'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 LightningNode where rnf = \ x__ -> Control.DeepSeq.deepseq (_LightningNode'_unknownFields x__) (Control.DeepSeq.deepseq (_LightningNode'lastUpdate x__) (Control.DeepSeq.deepseq (_LightningNode'pubKey x__) (Control.DeepSeq.deepseq (_LightningNode'alias x__) (Control.DeepSeq.deepseq (_LightningNode'addresses x__) (Control.DeepSeq.deepseq (_LightningNode'color x__) (Control.DeepSeq.deepseq (_LightningNode'features x__) ())))))) {- | Fields : * 'Proto.LndGrpc_Fields.key' @:: Lens' LightningNode'FeaturesEntry Data.Word.Word32@ * 'Proto.LndGrpc_Fields.value' @:: Lens' LightningNode'FeaturesEntry Feature@ * 'Proto.LndGrpc_Fields.maybe'value' @:: Lens' LightningNode'FeaturesEntry (Prelude.Maybe Feature)@ -} data LightningNode'FeaturesEntry = LightningNode'FeaturesEntry'_constructor {_LightningNode'FeaturesEntry'key :: !Data.Word.Word32, _LightningNode'FeaturesEntry'value :: !(Prelude.Maybe Feature), _LightningNode'FeaturesEntry'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show LightningNode'FeaturesEntry where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField LightningNode'FeaturesEntry "key" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _LightningNode'FeaturesEntry'key (\ x__ y__ -> x__ {_LightningNode'FeaturesEntry'key = y__})) Prelude.id instance Data.ProtoLens.Field.HasField LightningNode'FeaturesEntry "value" Feature where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _LightningNode'FeaturesEntry'value (\ x__ y__ -> x__ {_LightningNode'FeaturesEntry'value = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField LightningNode'FeaturesEntry "maybe'value" (Prelude.Maybe Feature) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _LightningNode'FeaturesEntry'value (\ x__ y__ -> x__ {_LightningNode'FeaturesEntry'value = y__})) Prelude.id instance Data.ProtoLens.Message LightningNode'FeaturesEntry where messageName _ = Data.Text.pack "lnrpc.LightningNode.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 LightningNode'FeaturesEntry value__field_descriptor = Data.ProtoLens.FieldDescriptor "value" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Feature) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'value")) :: Data.ProtoLens.FieldDescriptor LightningNode'FeaturesEntry in Data.Map.fromList [(Data.ProtoLens.Tag 1, key__field_descriptor), (Data.ProtoLens.Tag 2, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _LightningNode'FeaturesEntry'_unknownFields (\ x__ y__ -> x__ {_LightningNode'FeaturesEntry'_unknownFields = y__}) defMessage = LightningNode'FeaturesEntry'_constructor {_LightningNode'FeaturesEntry'key = Data.ProtoLens.fieldDefault, _LightningNode'FeaturesEntry'value = Prelude.Nothing, _LightningNode'FeaturesEntry'_unknownFields = []} parseMessage = let loop :: LightningNode'FeaturesEntry -> Data.ProtoLens.Encoding.Bytes.Parser LightningNode'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 LightningNode'FeaturesEntry where rnf = \ x__ -> Control.DeepSeq.deepseq (_LightningNode'FeaturesEntry'_unknownFields x__) (Control.DeepSeq.deepseq (_LightningNode'FeaturesEntry'key x__) (Control.DeepSeq.deepseq (_LightningNode'FeaturesEntry'value x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.activeOnly' @:: Lens' ListChannelsRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.inactiveOnly' @:: Lens' ListChannelsRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.publicOnly' @:: Lens' ListChannelsRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.privateOnly' @:: Lens' ListChannelsRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.peer' @:: Lens' ListChannelsRequest Data.ByteString.ByteString@ -} data ListChannelsRequest = ListChannelsRequest'_constructor {_ListChannelsRequest'activeOnly :: !Prelude.Bool, _ListChannelsRequest'inactiveOnly :: !Prelude.Bool, _ListChannelsRequest'publicOnly :: !Prelude.Bool, _ListChannelsRequest'privateOnly :: !Prelude.Bool, _ListChannelsRequest'peer :: !Data.ByteString.ByteString, _ListChannelsRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ListChannelsRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ListChannelsRequest "activeOnly" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ListChannelsRequest'activeOnly (\ x__ y__ -> x__ {_ListChannelsRequest'activeOnly = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ListChannelsRequest "inactiveOnly" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ListChannelsRequest'inactiveOnly (\ x__ y__ -> x__ {_ListChannelsRequest'inactiveOnly = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ListChannelsRequest "publicOnly" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ListChannelsRequest'publicOnly (\ x__ y__ -> x__ {_ListChannelsRequest'publicOnly = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ListChannelsRequest "privateOnly" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ListChannelsRequest'privateOnly (\ x__ y__ -> x__ {_ListChannelsRequest'privateOnly = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ListChannelsRequest "peer" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ListChannelsRequest'peer (\ x__ y__ -> x__ {_ListChannelsRequest'peer = y__})) Prelude.id instance Data.ProtoLens.Message ListChannelsRequest where messageName _ = Data.Text.pack "lnrpc.ListChannelsRequest" packedMessageDescriptor _ = "\n\ \\DC3ListChannelsRequest\DC2\US\n\ \\vactive_only\CAN\SOH \SOH(\bR\n\ \activeOnly\DC2#\n\ \\rinactive_only\CAN\STX \SOH(\bR\finactiveOnly\DC2\US\n\ \\vpublic_only\CAN\ETX \SOH(\bR\n\ \publicOnly\DC2!\n\ \\fprivate_only\CAN\EOT \SOH(\bR\vprivateOnly\DC2\DC2\n\ \\EOTpeer\CAN\ENQ \SOH(\fR\EOTpeer" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let activeOnly__field_descriptor = Data.ProtoLens.FieldDescriptor "active_only" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"activeOnly")) :: Data.ProtoLens.FieldDescriptor ListChannelsRequest inactiveOnly__field_descriptor = Data.ProtoLens.FieldDescriptor "inactive_only" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"inactiveOnly")) :: Data.ProtoLens.FieldDescriptor ListChannelsRequest publicOnly__field_descriptor = Data.ProtoLens.FieldDescriptor "public_only" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"publicOnly")) :: Data.ProtoLens.FieldDescriptor ListChannelsRequest privateOnly__field_descriptor = Data.ProtoLens.FieldDescriptor "private_only" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"privateOnly")) :: Data.ProtoLens.FieldDescriptor ListChannelsRequest peer__field_descriptor = Data.ProtoLens.FieldDescriptor "peer" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"peer")) :: Data.ProtoLens.FieldDescriptor ListChannelsRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, activeOnly__field_descriptor), (Data.ProtoLens.Tag 2, inactiveOnly__field_descriptor), (Data.ProtoLens.Tag 3, publicOnly__field_descriptor), (Data.ProtoLens.Tag 4, privateOnly__field_descriptor), (Data.ProtoLens.Tag 5, peer__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ListChannelsRequest'_unknownFields (\ x__ y__ -> x__ {_ListChannelsRequest'_unknownFields = y__}) defMessage = ListChannelsRequest'_constructor {_ListChannelsRequest'activeOnly = Data.ProtoLens.fieldDefault, _ListChannelsRequest'inactiveOnly = Data.ProtoLens.fieldDefault, _ListChannelsRequest'publicOnly = Data.ProtoLens.fieldDefault, _ListChannelsRequest'privateOnly = Data.ProtoLens.fieldDefault, _ListChannelsRequest'peer = Data.ProtoLens.fieldDefault, _ListChannelsRequest'_unknownFields = []} parseMessage = let loop :: ListChannelsRequest -> Data.ProtoLens.Encoding.Bytes.Parser ListChannelsRequest 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) "active_only" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"activeOnly") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "inactive_only" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"inactiveOnly") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "public_only" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"publicOnly") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "private_only" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"privateOnly") y x) 42 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "peer" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"peer") 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) "ListChannelsRequest" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"activeOnly") _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 @"inactiveOnly") _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 @"publicOnly") _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.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"privateOnly") _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.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"peer") _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 ListChannelsRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_ListChannelsRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_ListChannelsRequest'activeOnly x__) (Control.DeepSeq.deepseq (_ListChannelsRequest'inactiveOnly x__) (Control.DeepSeq.deepseq (_ListChannelsRequest'publicOnly x__) (Control.DeepSeq.deepseq (_ListChannelsRequest'privateOnly x__) (Control.DeepSeq.deepseq (_ListChannelsRequest'peer x__) ()))))) {- | Fields : * 'Proto.LndGrpc_Fields.channels' @:: Lens' ListChannelsResponse [Channel]@ * 'Proto.LndGrpc_Fields.vec'channels' @:: Lens' ListChannelsResponse (Data.Vector.Vector Channel)@ -} data ListChannelsResponse = ListChannelsResponse'_constructor {_ListChannelsResponse'channels :: !(Data.Vector.Vector Channel), _ListChannelsResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ListChannelsResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ListChannelsResponse "channels" [Channel] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ListChannelsResponse'channels (\ x__ y__ -> x__ {_ListChannelsResponse'channels = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField ListChannelsResponse "vec'channels" (Data.Vector.Vector Channel) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ListChannelsResponse'channels (\ x__ y__ -> x__ {_ListChannelsResponse'channels = y__})) Prelude.id instance Data.ProtoLens.Message ListChannelsResponse where messageName _ = Data.Text.pack "lnrpc.ListChannelsResponse" packedMessageDescriptor _ = "\n\ \\DC4ListChannelsResponse\DC2*\n\ \\bchannels\CAN\v \ETX(\v2\SO.lnrpc.ChannelR\bchannels" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let channels__field_descriptor = Data.ProtoLens.FieldDescriptor "channels" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Channel) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"channels")) :: Data.ProtoLens.FieldDescriptor ListChannelsResponse in Data.Map.fromList [(Data.ProtoLens.Tag 11, channels__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ListChannelsResponse'_unknownFields (\ x__ y__ -> x__ {_ListChannelsResponse'_unknownFields = y__}) defMessage = ListChannelsResponse'_constructor {_ListChannelsResponse'channels = Data.Vector.Generic.empty, _ListChannelsResponse'_unknownFields = []} parseMessage = let loop :: ListChannelsResponse -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Channel -> Data.ProtoLens.Encoding.Bytes.Parser ListChannelsResponse loop x mutable'channels = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'channels <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'channels) (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'channels") frozen'channels x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 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) "channels" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'channels 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'channels in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'channels <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'channels) "ListChannelsResponse" buildMessage = \ _x -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _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)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'channels") _x)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData ListChannelsResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_ListChannelsResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_ListChannelsResponse'channels x__) ()) {- | Fields : * 'Proto.LndGrpc_Fields.pendingOnly' @:: Lens' ListInvoiceRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.indexOffset' @:: Lens' ListInvoiceRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.numMaxInvoices' @:: Lens' ListInvoiceRequest Data.Word.Word64@ * 'Proto.LndGrpc_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) instance Prelude.Show ListInvoiceRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.invoices' @:: Lens' ListInvoiceResponse [Invoice]@ * 'Proto.LndGrpc_Fields.vec'invoices' @:: Lens' ListInvoiceResponse (Data.Vector.Vector Invoice)@ * 'Proto.LndGrpc_Fields.lastIndexOffset' @:: Lens' ListInvoiceResponse Data.Word.Word64@ * 'Proto.LndGrpc_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) instance Prelude.Show ListInvoiceResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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) instance Prelude.Show ListMacaroonIDsRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.rootKeyIds' @:: Lens' ListMacaroonIDsResponse [Data.Word.Word64]@ * 'Proto.LndGrpc_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) instance Prelude.Show ListMacaroonIDsResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.includeIncomplete' @:: Lens' ListPaymentsRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.indexOffset' @:: Lens' ListPaymentsRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.maxPayments' @:: Lens' ListPaymentsRequest Data.Word.Word64@ * 'Proto.LndGrpc_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) instance Prelude.Show ListPaymentsRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.payments' @:: Lens' ListPaymentsResponse [Payment]@ * 'Proto.LndGrpc_Fields.vec'payments' @:: Lens' ListPaymentsResponse (Data.Vector.Vector Payment)@ * 'Proto.LndGrpc_Fields.firstIndexOffset' @:: Lens' ListPaymentsResponse Data.Word.Word64@ * 'Proto.LndGrpc_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) instance Prelude.Show ListPaymentsResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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 : * 'Proto.LndGrpc_Fields.latestError' @:: Lens' ListPeersRequest Prelude.Bool@ -} data ListPeersRequest = ListPeersRequest'_constructor {_ListPeersRequest'latestError :: !Prelude.Bool, _ListPeersRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ListPeersRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ListPeersRequest "latestError" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ListPeersRequest'latestError (\ x__ y__ -> x__ {_ListPeersRequest'latestError = y__})) Prelude.id instance Data.ProtoLens.Message ListPeersRequest where messageName _ = Data.Text.pack "lnrpc.ListPeersRequest" packedMessageDescriptor _ = "\n\ \\DLEListPeersRequest\DC2!\n\ \\flatest_error\CAN\SOH \SOH(\bR\vlatestError" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let latestError__field_descriptor = Data.ProtoLens.FieldDescriptor "latest_error" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"latestError")) :: Data.ProtoLens.FieldDescriptor ListPeersRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, latestError__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ListPeersRequest'_unknownFields (\ x__ y__ -> x__ {_ListPeersRequest'_unknownFields = y__}) defMessage = ListPeersRequest'_constructor {_ListPeersRequest'latestError = Data.ProtoLens.fieldDefault, _ListPeersRequest'_unknownFields = []} parseMessage = let loop :: ListPeersRequest -> Data.ProtoLens.Encoding.Bytes.Parser ListPeersRequest 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) "latest_error" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"latestError") 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) "ListPeersRequest" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"latestError") _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 ListPeersRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_ListPeersRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_ListPeersRequest'latestError x__) ()) {- | Fields : * 'Proto.LndGrpc_Fields.peers' @:: Lens' ListPeersResponse [Peer]@ * 'Proto.LndGrpc_Fields.vec'peers' @:: Lens' ListPeersResponse (Data.Vector.Vector Peer)@ -} data ListPeersResponse = ListPeersResponse'_constructor {_ListPeersResponse'peers :: !(Data.Vector.Vector Peer), _ListPeersResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ListPeersResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ListPeersResponse "peers" [Peer] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ListPeersResponse'peers (\ x__ y__ -> x__ {_ListPeersResponse'peers = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField ListPeersResponse "vec'peers" (Data.Vector.Vector Peer) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ListPeersResponse'peers (\ x__ y__ -> x__ {_ListPeersResponse'peers = y__})) Prelude.id instance Data.ProtoLens.Message ListPeersResponse where messageName _ = Data.Text.pack "lnrpc.ListPeersResponse" packedMessageDescriptor _ = "\n\ \\DC1ListPeersResponse\DC2!\n\ \\ENQpeers\CAN\SOH \ETX(\v2\v.lnrpc.PeerR\ENQpeers" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let peers__field_descriptor = Data.ProtoLens.FieldDescriptor "peers" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Peer) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"peers")) :: Data.ProtoLens.FieldDescriptor ListPeersResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, peers__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ListPeersResponse'_unknownFields (\ x__ y__ -> x__ {_ListPeersResponse'_unknownFields = y__}) defMessage = ListPeersResponse'_constructor {_ListPeersResponse'peers = Data.Vector.Generic.empty, _ListPeersResponse'_unknownFields = []} parseMessage = let loop :: ListPeersResponse -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Peer -> Data.ProtoLens.Encoding.Bytes.Parser ListPeersResponse loop x mutable'peers = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'peers <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'peers) (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'peers") frozen'peers 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) "peers" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'peers 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'peers in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'peers <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'peers) "ListPeersResponse" 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'peers") _x)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData ListPeersResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_ListPeersResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_ListPeersResponse'peers x__) ()) {- | Fields : -} data ListPermissionsRequest = ListPermissionsRequest'_constructor {_ListPermissionsRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ListPermissionsRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_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) instance Prelude.Show ListPermissionsResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.key' @:: Lens' ListPermissionsResponse'MethodPermissionsEntry Data.Text.Text@ * 'Proto.LndGrpc_Fields.value' @:: Lens' ListPermissionsResponse'MethodPermissionsEntry MacaroonPermissionList@ * 'Proto.LndGrpc_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) instance Prelude.Show ListPermissionsResponse'MethodPermissionsEntry where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.minConfs' @:: Lens' ListUnspentRequest Data.Int.Int32@ * 'Proto.LndGrpc_Fields.maxConfs' @:: Lens' ListUnspentRequest Data.Int.Int32@ * 'Proto.LndGrpc_Fields.account' @:: Lens' ListUnspentRequest Data.Text.Text@ -} data ListUnspentRequest = ListUnspentRequest'_constructor {_ListUnspentRequest'minConfs :: !Data.Int.Int32, _ListUnspentRequest'maxConfs :: !Data.Int.Int32, _ListUnspentRequest'account :: !Data.Text.Text, _ListUnspentRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ListUnspentRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ListUnspentRequest "minConfs" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ListUnspentRequest'minConfs (\ x__ y__ -> x__ {_ListUnspentRequest'minConfs = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ListUnspentRequest "maxConfs" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ListUnspentRequest'maxConfs (\ x__ y__ -> x__ {_ListUnspentRequest'maxConfs = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ListUnspentRequest "account" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ListUnspentRequest'account (\ x__ y__ -> x__ {_ListUnspentRequest'account = y__})) Prelude.id instance Data.ProtoLens.Message ListUnspentRequest where messageName _ = Data.Text.pack "lnrpc.ListUnspentRequest" packedMessageDescriptor _ = "\n\ \\DC2ListUnspentRequest\DC2\ESC\n\ \\tmin_confs\CAN\SOH \SOH(\ENQR\bminConfs\DC2\ESC\n\ \\tmax_confs\CAN\STX \SOH(\ENQR\bmaxConfs\DC2\CAN\n\ \\aaccount\CAN\ETX \SOH(\tR\aaccount" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let minConfs__field_descriptor = Data.ProtoLens.FieldDescriptor "min_confs" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"minConfs")) :: Data.ProtoLens.FieldDescriptor ListUnspentRequest maxConfs__field_descriptor = Data.ProtoLens.FieldDescriptor "max_confs" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"maxConfs")) :: Data.ProtoLens.FieldDescriptor ListUnspentRequest account__field_descriptor = Data.ProtoLens.FieldDescriptor "account" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"account")) :: Data.ProtoLens.FieldDescriptor ListUnspentRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, minConfs__field_descriptor), (Data.ProtoLens.Tag 2, maxConfs__field_descriptor), (Data.ProtoLens.Tag 3, account__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ListUnspentRequest'_unknownFields (\ x__ y__ -> x__ {_ListUnspentRequest'_unknownFields = y__}) defMessage = ListUnspentRequest'_constructor {_ListUnspentRequest'minConfs = Data.ProtoLens.fieldDefault, _ListUnspentRequest'maxConfs = Data.ProtoLens.fieldDefault, _ListUnspentRequest'account = Data.ProtoLens.fieldDefault, _ListUnspentRequest'_unknownFields = []} parseMessage = let loop :: ListUnspentRequest -> Data.ProtoLens.Encoding.Bytes.Parser ListUnspentRequest 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) "min_confs" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"minConfs") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "max_confs" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"maxConfs") 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)) "account" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"account") 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) "ListUnspentRequest" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"minConfs") _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.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"maxConfs") _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 @"account") _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 ListUnspentRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_ListUnspentRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_ListUnspentRequest'minConfs x__) (Control.DeepSeq.deepseq (_ListUnspentRequest'maxConfs x__) (Control.DeepSeq.deepseq (_ListUnspentRequest'account x__) ()))) {- | Fields : * 'Proto.LndGrpc_Fields.utxos' @:: Lens' ListUnspentResponse [Utxo]@ * 'Proto.LndGrpc_Fields.vec'utxos' @:: Lens' ListUnspentResponse (Data.Vector.Vector Utxo)@ -} data ListUnspentResponse = ListUnspentResponse'_constructor {_ListUnspentResponse'utxos :: !(Data.Vector.Vector Utxo), _ListUnspentResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ListUnspentResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ListUnspentResponse "utxos" [Utxo] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ListUnspentResponse'utxos (\ x__ y__ -> x__ {_ListUnspentResponse'utxos = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField ListUnspentResponse "vec'utxos" (Data.Vector.Vector Utxo) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ListUnspentResponse'utxos (\ x__ y__ -> x__ {_ListUnspentResponse'utxos = y__})) Prelude.id instance Data.ProtoLens.Message ListUnspentResponse where messageName _ = Data.Text.pack "lnrpc.ListUnspentResponse" packedMessageDescriptor _ = "\n\ \\DC3ListUnspentResponse\DC2!\n\ \\ENQutxos\CAN\SOH \ETX(\v2\v.lnrpc.UtxoR\ENQutxos" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let utxos__field_descriptor = Data.ProtoLens.FieldDescriptor "utxos" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Utxo) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"utxos")) :: Data.ProtoLens.FieldDescriptor ListUnspentResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, utxos__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ListUnspentResponse'_unknownFields (\ x__ y__ -> x__ {_ListUnspentResponse'_unknownFields = y__}) defMessage = ListUnspentResponse'_constructor {_ListUnspentResponse'utxos = Data.Vector.Generic.empty, _ListUnspentResponse'_unknownFields = []} parseMessage = let loop :: ListUnspentResponse -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Utxo -> Data.ProtoLens.Encoding.Bytes.Parser ListUnspentResponse loop x mutable'utxos = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'utxos <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'utxos) (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'utxos") frozen'utxos 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) "utxos" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'utxos 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'utxos in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'utxos <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'utxos) "ListUnspentResponse" 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'utxos") _x)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData ListUnspentResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_ListUnspentResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_ListUnspentResponse'utxos x__) ()) {- | Fields : * 'Proto.LndGrpc_Fields.paymentAddr' @:: Lens' MPPRecord Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.totalAmtMsat' @:: Lens' MPPRecord Data.Int.Int64@ -} data MPPRecord = MPPRecord'_constructor {_MPPRecord'paymentAddr :: !Data.ByteString.ByteString, _MPPRecord'totalAmtMsat :: !Data.Int.Int64, _MPPRecord'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show MPPRecord where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField MPPRecord "paymentAddr" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _MPPRecord'paymentAddr (\ x__ y__ -> x__ {_MPPRecord'paymentAddr = y__})) Prelude.id instance Data.ProtoLens.Field.HasField MPPRecord "totalAmtMsat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _MPPRecord'totalAmtMsat (\ x__ y__ -> x__ {_MPPRecord'totalAmtMsat = y__})) Prelude.id instance Data.ProtoLens.Message MPPRecord where messageName _ = Data.Text.pack "lnrpc.MPPRecord" packedMessageDescriptor _ = "\n\ \\tMPPRecord\DC2!\n\ \\fpayment_addr\CAN\v \SOH(\fR\vpaymentAddr\DC2$\n\ \\SOtotal_amt_msat\CAN\n\ \ \SOH(\ETXR\ftotalAmtMsat" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let 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 MPPRecord totalAmtMsat__field_descriptor = Data.ProtoLens.FieldDescriptor "total_amt_msat" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"totalAmtMsat")) :: Data.ProtoLens.FieldDescriptor MPPRecord in Data.Map.fromList [(Data.ProtoLens.Tag 11, paymentAddr__field_descriptor), (Data.ProtoLens.Tag 10, totalAmtMsat__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _MPPRecord'_unknownFields (\ x__ y__ -> x__ {_MPPRecord'_unknownFields = y__}) defMessage = MPPRecord'_constructor {_MPPRecord'paymentAddr = Data.ProtoLens.fieldDefault, _MPPRecord'totalAmtMsat = Data.ProtoLens.fieldDefault, _MPPRecord'_unknownFields = []} parseMessage = let loop :: MPPRecord -> Data.ProtoLens.Encoding.Bytes.Parser MPPRecord 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 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) 80 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "total_amt_msat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"totalAmtMsat") 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) "MPPRecord" buildMessage = \ _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 @"totalAmtMsat") _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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))) instance Control.DeepSeq.NFData MPPRecord where rnf = \ x__ -> Control.DeepSeq.deepseq (_MPPRecord'_unknownFields x__) (Control.DeepSeq.deepseq (_MPPRecord'paymentAddr x__) (Control.DeepSeq.deepseq (_MPPRecord'totalAmtMsat x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.nonce' @:: Lens' MacaroonId Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.storageId' @:: Lens' MacaroonId Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.ops' @:: Lens' MacaroonId [Op]@ * 'Proto.LndGrpc_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) instance Prelude.Show MacaroonId where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.entity' @:: Lens' MacaroonPermission Data.Text.Text@ * 'Proto.LndGrpc_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) instance Prelude.Show MacaroonPermission where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.permissions' @:: Lens' MacaroonPermissionList [MacaroonPermission]@ * 'Proto.LndGrpc_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) instance Prelude.Show MacaroonPermissionList where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.chanPoints' @:: Lens' MultiChanBackup [ChannelPoint]@ * 'Proto.LndGrpc_Fields.vec'chanPoints' @:: Lens' MultiChanBackup (Data.Vector.Vector ChannelPoint)@ * 'Proto.LndGrpc_Fields.multiChanBackup' @:: Lens' MultiChanBackup Data.ByteString.ByteString@ -} data MultiChanBackup = MultiChanBackup'_constructor {_MultiChanBackup'chanPoints :: !(Data.Vector.Vector ChannelPoint), _MultiChanBackup'multiChanBackup :: !Data.ByteString.ByteString, _MultiChanBackup'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show MultiChanBackup where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField MultiChanBackup "chanPoints" [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 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 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 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.LndGrpc_Fields.graphDiameter' @:: Lens' NetworkInfo Data.Word.Word32@ * 'Proto.LndGrpc_Fields.avgOutDegree' @:: Lens' NetworkInfo Prelude.Double@ * 'Proto.LndGrpc_Fields.maxOutDegree' @:: Lens' NetworkInfo Data.Word.Word32@ * 'Proto.LndGrpc_Fields.numNodes' @:: Lens' NetworkInfo Data.Word.Word32@ * 'Proto.LndGrpc_Fields.numChannels' @:: Lens' NetworkInfo Data.Word.Word32@ * 'Proto.LndGrpc_Fields.totalNetworkCapacity' @:: Lens' NetworkInfo Data.Int.Int64@ * 'Proto.LndGrpc_Fields.avgChannelSize' @:: Lens' NetworkInfo Prelude.Double@ * 'Proto.LndGrpc_Fields.minChannelSize' @:: Lens' NetworkInfo Data.Int.Int64@ * 'Proto.LndGrpc_Fields.maxChannelSize' @:: Lens' NetworkInfo Data.Int.Int64@ * 'Proto.LndGrpc_Fields.medianChannelSizeSat' @:: Lens' NetworkInfo Data.Int.Int64@ * 'Proto.LndGrpc_Fields.numZombieChans' @:: Lens' NetworkInfo Data.Word.Word64@ -} data NetworkInfo = NetworkInfo'_constructor {_NetworkInfo'graphDiameter :: !Data.Word.Word32, _NetworkInfo'avgOutDegree :: !Prelude.Double, _NetworkInfo'maxOutDegree :: !Data.Word.Word32, _NetworkInfo'numNodes :: !Data.Word.Word32, _NetworkInfo'numChannels :: !Data.Word.Word32, _NetworkInfo'totalNetworkCapacity :: !Data.Int.Int64, _NetworkInfo'avgChannelSize :: !Prelude.Double, _NetworkInfo'minChannelSize :: !Data.Int.Int64, _NetworkInfo'maxChannelSize :: !Data.Int.Int64, _NetworkInfo'medianChannelSizeSat :: !Data.Int.Int64, _NetworkInfo'numZombieChans :: !Data.Word.Word64, _NetworkInfo'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show NetworkInfo where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField NetworkInfo "graphDiameter" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NetworkInfo'graphDiameter (\ x__ y__ -> x__ {_NetworkInfo'graphDiameter = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NetworkInfo "avgOutDegree" Prelude.Double where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NetworkInfo'avgOutDegree (\ x__ y__ -> x__ {_NetworkInfo'avgOutDegree = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NetworkInfo "maxOutDegree" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NetworkInfo'maxOutDegree (\ x__ y__ -> x__ {_NetworkInfo'maxOutDegree = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NetworkInfo "numNodes" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NetworkInfo'numNodes (\ x__ y__ -> x__ {_NetworkInfo'numNodes = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NetworkInfo "numChannels" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NetworkInfo'numChannels (\ x__ y__ -> x__ {_NetworkInfo'numChannels = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NetworkInfo "totalNetworkCapacity" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NetworkInfo'totalNetworkCapacity (\ x__ y__ -> x__ {_NetworkInfo'totalNetworkCapacity = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NetworkInfo "avgChannelSize" Prelude.Double where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NetworkInfo'avgChannelSize (\ x__ y__ -> x__ {_NetworkInfo'avgChannelSize = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NetworkInfo "minChannelSize" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NetworkInfo'minChannelSize (\ x__ y__ -> x__ {_NetworkInfo'minChannelSize = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NetworkInfo "maxChannelSize" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NetworkInfo'maxChannelSize (\ x__ y__ -> x__ {_NetworkInfo'maxChannelSize = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NetworkInfo "medianChannelSizeSat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NetworkInfo'medianChannelSizeSat (\ x__ y__ -> x__ {_NetworkInfo'medianChannelSizeSat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NetworkInfo "numZombieChans" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NetworkInfo'numZombieChans (\ x__ y__ -> x__ {_NetworkInfo'numZombieChans = y__})) Prelude.id instance Data.ProtoLens.Message NetworkInfo where messageName _ = Data.Text.pack "lnrpc.NetworkInfo" packedMessageDescriptor _ = "\n\ \\vNetworkInfo\DC2%\n\ \\SOgraph_diameter\CAN\SOH \SOH(\rR\rgraphDiameter\DC2$\n\ \\SOavg_out_degree\CAN\STX \SOH(\SOHR\favgOutDegree\DC2$\n\ \\SOmax_out_degree\CAN\ETX \SOH(\rR\fmaxOutDegree\DC2\ESC\n\ \\tnum_nodes\CAN\EOT \SOH(\rR\bnumNodes\DC2!\n\ \\fnum_channels\CAN\ENQ \SOH(\rR\vnumChannels\DC24\n\ \\SYNtotal_network_capacity\CAN\ACK \SOH(\ETXR\DC4totalNetworkCapacity\DC2(\n\ \\DLEavg_channel_size\CAN\a \SOH(\SOHR\SOavgChannelSize\DC2(\n\ \\DLEmin_channel_size\CAN\b \SOH(\ETXR\SOminChannelSize\DC2(\n\ \\DLEmax_channel_size\CAN\t \SOH(\ETXR\SOmaxChannelSize\DC25\n\ \\ETBmedian_channel_size_sat\CAN\n\ \ \SOH(\ETXR\DC4medianChannelSizeSat\DC2(\n\ \\DLEnum_zombie_chans\CAN\v \SOH(\EOTR\SOnumZombieChans" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let graphDiameter__field_descriptor = Data.ProtoLens.FieldDescriptor "graph_diameter" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"graphDiameter")) :: Data.ProtoLens.FieldDescriptor NetworkInfo avgOutDegree__field_descriptor = Data.ProtoLens.FieldDescriptor "avg_out_degree" (Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Double) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"avgOutDegree")) :: Data.ProtoLens.FieldDescriptor NetworkInfo maxOutDegree__field_descriptor = Data.ProtoLens.FieldDescriptor "max_out_degree" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"maxOutDegree")) :: Data.ProtoLens.FieldDescriptor NetworkInfo numNodes__field_descriptor = Data.ProtoLens.FieldDescriptor "num_nodes" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"numNodes")) :: Data.ProtoLens.FieldDescriptor NetworkInfo numChannels__field_descriptor = Data.ProtoLens.FieldDescriptor "num_channels" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"numChannels")) :: Data.ProtoLens.FieldDescriptor NetworkInfo totalNetworkCapacity__field_descriptor = Data.ProtoLens.FieldDescriptor "total_network_capacity" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"totalNetworkCapacity")) :: Data.ProtoLens.FieldDescriptor NetworkInfo avgChannelSize__field_descriptor = Data.ProtoLens.FieldDescriptor "avg_channel_size" (Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Double) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"avgChannelSize")) :: Data.ProtoLens.FieldDescriptor NetworkInfo minChannelSize__field_descriptor = Data.ProtoLens.FieldDescriptor "min_channel_size" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"minChannelSize")) :: Data.ProtoLens.FieldDescriptor NetworkInfo maxChannelSize__field_descriptor = Data.ProtoLens.FieldDescriptor "max_channel_size" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"maxChannelSize")) :: Data.ProtoLens.FieldDescriptor NetworkInfo medianChannelSizeSat__field_descriptor = Data.ProtoLens.FieldDescriptor "median_channel_size_sat" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"medianChannelSizeSat")) :: Data.ProtoLens.FieldDescriptor NetworkInfo numZombieChans__field_descriptor = Data.ProtoLens.FieldDescriptor "num_zombie_chans" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"numZombieChans")) :: Data.ProtoLens.FieldDescriptor NetworkInfo in Data.Map.fromList [(Data.ProtoLens.Tag 1, graphDiameter__field_descriptor), (Data.ProtoLens.Tag 2, avgOutDegree__field_descriptor), (Data.ProtoLens.Tag 3, maxOutDegree__field_descriptor), (Data.ProtoLens.Tag 4, numNodes__field_descriptor), (Data.ProtoLens.Tag 5, numChannels__field_descriptor), (Data.ProtoLens.Tag 6, totalNetworkCapacity__field_descriptor), (Data.ProtoLens.Tag 7, avgChannelSize__field_descriptor), (Data.ProtoLens.Tag 8, minChannelSize__field_descriptor), (Data.ProtoLens.Tag 9, maxChannelSize__field_descriptor), (Data.ProtoLens.Tag 10, medianChannelSizeSat__field_descriptor), (Data.ProtoLens.Tag 11, numZombieChans__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _NetworkInfo'_unknownFields (\ x__ y__ -> x__ {_NetworkInfo'_unknownFields = y__}) defMessage = NetworkInfo'_constructor {_NetworkInfo'graphDiameter = Data.ProtoLens.fieldDefault, _NetworkInfo'avgOutDegree = Data.ProtoLens.fieldDefault, _NetworkInfo'maxOutDegree = Data.ProtoLens.fieldDefault, _NetworkInfo'numNodes = Data.ProtoLens.fieldDefault, _NetworkInfo'numChannels = Data.ProtoLens.fieldDefault, _NetworkInfo'totalNetworkCapacity = Data.ProtoLens.fieldDefault, _NetworkInfo'avgChannelSize = Data.ProtoLens.fieldDefault, _NetworkInfo'minChannelSize = Data.ProtoLens.fieldDefault, _NetworkInfo'maxChannelSize = Data.ProtoLens.fieldDefault, _NetworkInfo'medianChannelSizeSat = Data.ProtoLens.fieldDefault, _NetworkInfo'numZombieChans = Data.ProtoLens.fieldDefault, _NetworkInfo'_unknownFields = []} parseMessage = let loop :: NetworkInfo -> Data.ProtoLens.Encoding.Bytes.Parser NetworkInfo 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) "graph_diameter" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"graphDiameter") y x) 17 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Data.ProtoLens.Encoding.Bytes.wordToDouble Data.ProtoLens.Encoding.Bytes.getFixed64) "avg_out_degree" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"avgOutDegree") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "max_out_degree" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"maxOutDegree") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "num_nodes" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"numNodes") y x) 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "num_channels" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"numChannels") y x) 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "total_network_capacity" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"totalNetworkCapacity") y x) 57 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Data.ProtoLens.Encoding.Bytes.wordToDouble Data.ProtoLens.Encoding.Bytes.getFixed64) "avg_channel_size" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"avgChannelSize") y x) 64 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "min_channel_size" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"minChannelSize") y x) 72 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "max_channel_size" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"maxChannelSize") y x) 80 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "median_channel_size_sat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"medianChannelSizeSat") y x) 88 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "num_zombie_chans" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"numZombieChans") 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) "NetworkInfo" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"graphDiameter") _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.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"avgOutDegree") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 17) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putFixed64 Data.ProtoLens.Encoding.Bytes.doubleToWord _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"maxOutDegree") _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 @"numNodes") _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 @"numChannels") _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 @"totalNetworkCapacity") _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 @"avgChannelSize") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 57) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putFixed64 Data.ProtoLens.Encoding.Bytes.doubleToWord _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"minChannelSize") _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 @"maxChannelSize") _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 @"medianChannelSizeSat") _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 @"numZombieChans") _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 NetworkInfo where rnf = \ x__ -> Control.DeepSeq.deepseq (_NetworkInfo'_unknownFields x__) (Control.DeepSeq.deepseq (_NetworkInfo'graphDiameter x__) (Control.DeepSeq.deepseq (_NetworkInfo'avgOutDegree x__) (Control.DeepSeq.deepseq (_NetworkInfo'maxOutDegree x__) (Control.DeepSeq.deepseq (_NetworkInfo'numNodes x__) (Control.DeepSeq.deepseq (_NetworkInfo'numChannels x__) (Control.DeepSeq.deepseq (_NetworkInfo'totalNetworkCapacity x__) (Control.DeepSeq.deepseq (_NetworkInfo'avgChannelSize x__) (Control.DeepSeq.deepseq (_NetworkInfo'minChannelSize x__) (Control.DeepSeq.deepseq (_NetworkInfo'maxChannelSize x__) (Control.DeepSeq.deepseq (_NetworkInfo'medianChannelSizeSat x__) (Control.DeepSeq.deepseq (_NetworkInfo'numZombieChans x__) ()))))))))))) {- | Fields : -} data NetworkInfoRequest = NetworkInfoRequest'_constructor {_NetworkInfoRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show NetworkInfoRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Message NetworkInfoRequest where messageName _ = Data.Text.pack "lnrpc.NetworkInfoRequest" packedMessageDescriptor _ = "\n\ \\DC2NetworkInfoRequest" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let in Data.Map.fromList [] unknownFields = Lens.Family2.Unchecked.lens _NetworkInfoRequest'_unknownFields (\ x__ y__ -> x__ {_NetworkInfoRequest'_unknownFields = y__}) defMessage = NetworkInfoRequest'_constructor {_NetworkInfoRequest'_unknownFields = []} parseMessage = let loop :: NetworkInfoRequest -> Data.ProtoLens.Encoding.Bytes.Parser NetworkInfoRequest 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) "NetworkInfoRequest" buildMessage = \ _x -> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) instance Control.DeepSeq.NFData NetworkInfoRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_NetworkInfoRequest'_unknownFields x__) () {- | Fields : * 'Proto.LndGrpc_Fields.type'' @:: Lens' NewAddressRequest AddressType@ * 'Proto.LndGrpc_Fields.account' @:: Lens' NewAddressRequest Data.Text.Text@ -} data NewAddressRequest = NewAddressRequest'_constructor {_NewAddressRequest'type' :: !AddressType, _NewAddressRequest'account :: !Data.Text.Text, _NewAddressRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show NewAddressRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField NewAddressRequest "type'" AddressType where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NewAddressRequest'type' (\ x__ y__ -> x__ {_NewAddressRequest'type' = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NewAddressRequest "account" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NewAddressRequest'account (\ x__ y__ -> x__ {_NewAddressRequest'account = y__})) Prelude.id instance Data.ProtoLens.Message NewAddressRequest where messageName _ = Data.Text.pack "lnrpc.NewAddressRequest" packedMessageDescriptor _ = "\n\ \\DC1NewAddressRequest\DC2&\n\ \\EOTtype\CAN\SOH \SOH(\SO2\DC2.lnrpc.AddressTypeR\EOTtype\DC2\CAN\n\ \\aaccount\CAN\STX \SOH(\tR\aaccount" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let type'__field_descriptor = Data.ProtoLens.FieldDescriptor "type" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor AddressType) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"type'")) :: Data.ProtoLens.FieldDescriptor NewAddressRequest account__field_descriptor = Data.ProtoLens.FieldDescriptor "account" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"account")) :: Data.ProtoLens.FieldDescriptor NewAddressRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, type'__field_descriptor), (Data.ProtoLens.Tag 2, account__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _NewAddressRequest'_unknownFields (\ x__ y__ -> x__ {_NewAddressRequest'_unknownFields = y__}) defMessage = NewAddressRequest'_constructor {_NewAddressRequest'type' = Data.ProtoLens.fieldDefault, _NewAddressRequest'account = Data.ProtoLens.fieldDefault, _NewAddressRequest'_unknownFields = []} parseMessage = let loop :: NewAddressRequest -> Data.ProtoLens.Encoding.Bytes.Parser NewAddressRequest 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)) "type" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") 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)) "account" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"account") 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) "NewAddressRequest" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"type'") _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 @"account") _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 NewAddressRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_NewAddressRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_NewAddressRequest'type' x__) (Control.DeepSeq.deepseq (_NewAddressRequest'account x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.address' @:: Lens' NewAddressResponse Data.Text.Text@ -} data NewAddressResponse = NewAddressResponse'_constructor {_NewAddressResponse'address :: !Data.Text.Text, _NewAddressResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show NewAddressResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField NewAddressResponse "address" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NewAddressResponse'address (\ x__ y__ -> x__ {_NewAddressResponse'address = y__})) Prelude.id instance Data.ProtoLens.Message NewAddressResponse where messageName _ = Data.Text.pack "lnrpc.NewAddressResponse" packedMessageDescriptor _ = "\n\ \\DC2NewAddressResponse\DC2\CAN\n\ \\aaddress\CAN\SOH \SOH(\tR\aaddress" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let address__field_descriptor = Data.ProtoLens.FieldDescriptor "address" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"address")) :: Data.ProtoLens.FieldDescriptor NewAddressResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, address__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _NewAddressResponse'_unknownFields (\ x__ y__ -> x__ {_NewAddressResponse'_unknownFields = y__}) defMessage = NewAddressResponse'_constructor {_NewAddressResponse'address = Data.ProtoLens.fieldDefault, _NewAddressResponse'_unknownFields = []} parseMessage = let loop :: NewAddressResponse -> Data.ProtoLens.Encoding.Bytes.Parser NewAddressResponse 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)) "address" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"address") 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) "NewAddressResponse" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"address") _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 NewAddressResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_NewAddressResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_NewAddressResponse'address x__) ()) {- | Fields : * 'Proto.LndGrpc_Fields.network' @:: Lens' NodeAddress Data.Text.Text@ * 'Proto.LndGrpc_Fields.addr' @:: Lens' NodeAddress Data.Text.Text@ -} data NodeAddress = NodeAddress'_constructor {_NodeAddress'network :: !Data.Text.Text, _NodeAddress'addr :: !Data.Text.Text, _NodeAddress'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show NodeAddress where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField NodeAddress "network" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeAddress'network (\ x__ y__ -> x__ {_NodeAddress'network = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NodeAddress "addr" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeAddress'addr (\ x__ y__ -> x__ {_NodeAddress'addr = y__})) Prelude.id instance Data.ProtoLens.Message NodeAddress where messageName _ = Data.Text.pack "lnrpc.NodeAddress" packedMessageDescriptor _ = "\n\ \\vNodeAddress\DC2\CAN\n\ \\anetwork\CAN\SOH \SOH(\tR\anetwork\DC2\DC2\n\ \\EOTaddr\CAN\STX \SOH(\tR\EOTaddr" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let network__field_descriptor = Data.ProtoLens.FieldDescriptor "network" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"network")) :: Data.ProtoLens.FieldDescriptor NodeAddress addr__field_descriptor = Data.ProtoLens.FieldDescriptor "addr" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"addr")) :: Data.ProtoLens.FieldDescriptor NodeAddress in Data.Map.fromList [(Data.ProtoLens.Tag 1, network__field_descriptor), (Data.ProtoLens.Tag 2, addr__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _NodeAddress'_unknownFields (\ x__ y__ -> x__ {_NodeAddress'_unknownFields = y__}) defMessage = NodeAddress'_constructor {_NodeAddress'network = Data.ProtoLens.fieldDefault, _NodeAddress'addr = Data.ProtoLens.fieldDefault, _NodeAddress'_unknownFields = []} parseMessage = let loop :: NodeAddress -> Data.ProtoLens.Encoding.Bytes.Parser NodeAddress 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)) "network" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"network") 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)) "addr" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"addr") 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) "NodeAddress" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"network") _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 @"addr") _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 NodeAddress where rnf = \ x__ -> Control.DeepSeq.deepseq (_NodeAddress'_unknownFields x__) (Control.DeepSeq.deepseq (_NodeAddress'network x__) (Control.DeepSeq.deepseq (_NodeAddress'addr x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.node' @:: Lens' NodeInfo LightningNode@ * 'Proto.LndGrpc_Fields.maybe'node' @:: Lens' NodeInfo (Prelude.Maybe LightningNode)@ * 'Proto.LndGrpc_Fields.numChannels' @:: Lens' NodeInfo Data.Word.Word32@ * 'Proto.LndGrpc_Fields.totalCapacity' @:: Lens' NodeInfo Data.Int.Int64@ * 'Proto.LndGrpc_Fields.channels' @:: Lens' NodeInfo [ChannelEdge]@ * 'Proto.LndGrpc_Fields.vec'channels' @:: Lens' NodeInfo (Data.Vector.Vector ChannelEdge)@ -} data NodeInfo = NodeInfo'_constructor {_NodeInfo'node :: !(Prelude.Maybe LightningNode), _NodeInfo'numChannels :: !Data.Word.Word32, _NodeInfo'totalCapacity :: !Data.Int.Int64, _NodeInfo'channels :: !(Data.Vector.Vector ChannelEdge), _NodeInfo'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show NodeInfo where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField NodeInfo "node" LightningNode where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeInfo'node (\ x__ y__ -> x__ {_NodeInfo'node = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField NodeInfo "maybe'node" (Prelude.Maybe LightningNode) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeInfo'node (\ x__ y__ -> x__ {_NodeInfo'node = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NodeInfo "numChannels" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeInfo'numChannels (\ x__ y__ -> x__ {_NodeInfo'numChannels = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NodeInfo "totalCapacity" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeInfo'totalCapacity (\ x__ y__ -> x__ {_NodeInfo'totalCapacity = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NodeInfo "channels" [ChannelEdge] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeInfo'channels (\ x__ y__ -> x__ {_NodeInfo'channels = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField NodeInfo "vec'channels" (Data.Vector.Vector ChannelEdge) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeInfo'channels (\ x__ y__ -> x__ {_NodeInfo'channels = y__})) Prelude.id instance Data.ProtoLens.Message NodeInfo where messageName _ = Data.Text.pack "lnrpc.NodeInfo" packedMessageDescriptor _ = "\n\ \\bNodeInfo\DC2(\n\ \\EOTnode\CAN\SOH \SOH(\v2\DC4.lnrpc.LightningNodeR\EOTnode\DC2!\n\ \\fnum_channels\CAN\STX \SOH(\rR\vnumChannels\DC2%\n\ \\SOtotal_capacity\CAN\ETX \SOH(\ETXR\rtotalCapacity\DC2.\n\ \\bchannels\CAN\EOT \ETX(\v2\DC2.lnrpc.ChannelEdgeR\bchannels" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let node__field_descriptor = Data.ProtoLens.FieldDescriptor "node" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor LightningNode) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'node")) :: Data.ProtoLens.FieldDescriptor NodeInfo numChannels__field_descriptor = Data.ProtoLens.FieldDescriptor "num_channels" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"numChannels")) :: Data.ProtoLens.FieldDescriptor NodeInfo totalCapacity__field_descriptor = Data.ProtoLens.FieldDescriptor "total_capacity" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"totalCapacity")) :: Data.ProtoLens.FieldDescriptor NodeInfo channels__field_descriptor = Data.ProtoLens.FieldDescriptor "channels" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChannelEdge) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"channels")) :: Data.ProtoLens.FieldDescriptor NodeInfo in Data.Map.fromList [(Data.ProtoLens.Tag 1, node__field_descriptor), (Data.ProtoLens.Tag 2, numChannels__field_descriptor), (Data.ProtoLens.Tag 3, totalCapacity__field_descriptor), (Data.ProtoLens.Tag 4, channels__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _NodeInfo'_unknownFields (\ x__ y__ -> x__ {_NodeInfo'_unknownFields = y__}) defMessage = NodeInfo'_constructor {_NodeInfo'node = Prelude.Nothing, _NodeInfo'numChannels = Data.ProtoLens.fieldDefault, _NodeInfo'totalCapacity = Data.ProtoLens.fieldDefault, _NodeInfo'channels = Data.Vector.Generic.empty, _NodeInfo'_unknownFields = []} parseMessage = let loop :: NodeInfo -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ChannelEdge -> Data.ProtoLens.Encoding.Bytes.Parser NodeInfo loop x mutable'channels = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'channels <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'channels) (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'channels") frozen'channels 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) "node" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"node") y x) mutable'channels 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "num_channels" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"numChannels") y x) mutable'channels 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "total_capacity" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"totalCapacity") y x) mutable'channels 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) "channels" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'channels 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'channels in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'channels <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'channels) "NodeInfo" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'node") _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 @"numChannels") _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 @"totalCapacity") _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.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 34) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'channels") _x)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) instance Control.DeepSeq.NFData NodeInfo where rnf = \ x__ -> Control.DeepSeq.deepseq (_NodeInfo'_unknownFields x__) (Control.DeepSeq.deepseq (_NodeInfo'node x__) (Control.DeepSeq.deepseq (_NodeInfo'numChannels x__) (Control.DeepSeq.deepseq (_NodeInfo'totalCapacity x__) (Control.DeepSeq.deepseq (_NodeInfo'channels x__) ())))) {- | Fields : * 'Proto.LndGrpc_Fields.pubKey' @:: Lens' NodeInfoRequest Data.Text.Text@ * 'Proto.LndGrpc_Fields.includeChannels' @:: Lens' NodeInfoRequest Prelude.Bool@ -} data NodeInfoRequest = NodeInfoRequest'_constructor {_NodeInfoRequest'pubKey :: !Data.Text.Text, _NodeInfoRequest'includeChannels :: !Prelude.Bool, _NodeInfoRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show NodeInfoRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField NodeInfoRequest "pubKey" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeInfoRequest'pubKey (\ x__ y__ -> x__ {_NodeInfoRequest'pubKey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NodeInfoRequest "includeChannels" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeInfoRequest'includeChannels (\ x__ y__ -> x__ {_NodeInfoRequest'includeChannels = y__})) Prelude.id instance Data.ProtoLens.Message NodeInfoRequest where messageName _ = Data.Text.pack "lnrpc.NodeInfoRequest" packedMessageDescriptor _ = "\n\ \\SINodeInfoRequest\DC2\ETB\n\ \\apub_key\CAN\SOH \SOH(\tR\ACKpubKey\DC2)\n\ \\DLEinclude_channels\CAN\STX \SOH(\bR\SIincludeChannels" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let pubKey__field_descriptor = Data.ProtoLens.FieldDescriptor "pub_key" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pubKey")) :: Data.ProtoLens.FieldDescriptor NodeInfoRequest includeChannels__field_descriptor = Data.ProtoLens.FieldDescriptor "include_channels" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"includeChannels")) :: Data.ProtoLens.FieldDescriptor NodeInfoRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, pubKey__field_descriptor), (Data.ProtoLens.Tag 2, includeChannels__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _NodeInfoRequest'_unknownFields (\ x__ y__ -> x__ {_NodeInfoRequest'_unknownFields = y__}) defMessage = NodeInfoRequest'_constructor {_NodeInfoRequest'pubKey = Data.ProtoLens.fieldDefault, _NodeInfoRequest'includeChannels = Data.ProtoLens.fieldDefault, _NodeInfoRequest'_unknownFields = []} parseMessage = let loop :: NodeInfoRequest -> Data.ProtoLens.Encoding.Bytes.Parser NodeInfoRequest 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)) "pub_key" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pubKey") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "include_channels" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"includeChannels") 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) "NodeInfoRequest" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"pubKey") _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 @"includeChannels") _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 NodeInfoRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_NodeInfoRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_NodeInfoRequest'pubKey x__) (Control.DeepSeq.deepseq (_NodeInfoRequest'includeChannels x__) ())) newtype NodeMetricType'UnrecognizedValue = NodeMetricType'UnrecognizedValue Data.Int.Int32 deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) data NodeMetricType = UNKNOWN | BETWEENNESS_CENTRALITY | NodeMetricType'Unrecognized !NodeMetricType'UnrecognizedValue deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.MessageEnum NodeMetricType where maybeToEnum 0 = Prelude.Just UNKNOWN maybeToEnum 1 = Prelude.Just BETWEENNESS_CENTRALITY maybeToEnum k = Prelude.Just (NodeMetricType'Unrecognized (NodeMetricType'UnrecognizedValue (Prelude.fromIntegral k))) showEnum UNKNOWN = "UNKNOWN" showEnum BETWEENNESS_CENTRALITY = "BETWEENNESS_CENTRALITY" showEnum (NodeMetricType'Unrecognized (NodeMetricType'UnrecognizedValue k)) = Prelude.show k readEnum k | (Prelude.==) k "UNKNOWN" = Prelude.Just UNKNOWN | (Prelude.==) k "BETWEENNESS_CENTRALITY" = Prelude.Just BETWEENNESS_CENTRALITY | Prelude.otherwise = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum instance Prelude.Bounded NodeMetricType where minBound = UNKNOWN maxBound = BETWEENNESS_CENTRALITY instance Prelude.Enum NodeMetricType where toEnum k__ = Prelude.maybe (Prelude.error ((Prelude.++) "toEnum: unknown value for enum NodeMetricType: " (Prelude.show k__))) Prelude.id (Data.ProtoLens.maybeToEnum k__) fromEnum UNKNOWN = 0 fromEnum BETWEENNESS_CENTRALITY = 1 fromEnum (NodeMetricType'Unrecognized (NodeMetricType'UnrecognizedValue k)) = Prelude.fromIntegral k succ BETWEENNESS_CENTRALITY = Prelude.error "NodeMetricType.succ: bad argument BETWEENNESS_CENTRALITY. This value would be out of bounds." succ UNKNOWN = BETWEENNESS_CENTRALITY succ (NodeMetricType'Unrecognized _) = Prelude.error "NodeMetricType.succ: bad argument: unrecognized value" pred UNKNOWN = Prelude.error "NodeMetricType.pred: bad argument UNKNOWN. This value would be out of bounds." pred BETWEENNESS_CENTRALITY = UNKNOWN pred (NodeMetricType'Unrecognized _) = Prelude.error "NodeMetricType.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 NodeMetricType where fieldDefault = UNKNOWN instance Control.DeepSeq.NFData NodeMetricType where rnf x__ = Prelude.seq x__ () {- | Fields : * 'Proto.LndGrpc_Fields.types' @:: Lens' NodeMetricsRequest [NodeMetricType]@ * 'Proto.LndGrpc_Fields.vec'types' @:: Lens' NodeMetricsRequest (Data.Vector.Vector NodeMetricType)@ -} data NodeMetricsRequest = NodeMetricsRequest'_constructor {_NodeMetricsRequest'types :: !(Data.Vector.Vector NodeMetricType), _NodeMetricsRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show NodeMetricsRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField NodeMetricsRequest "types" [NodeMetricType] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeMetricsRequest'types (\ x__ y__ -> x__ {_NodeMetricsRequest'types = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField NodeMetricsRequest "vec'types" (Data.Vector.Vector NodeMetricType) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeMetricsRequest'types (\ x__ y__ -> x__ {_NodeMetricsRequest'types = y__})) Prelude.id instance Data.ProtoLens.Message NodeMetricsRequest where messageName _ = Data.Text.pack "lnrpc.NodeMetricsRequest" packedMessageDescriptor _ = "\n\ \\DC2NodeMetricsRequest\DC2+\n\ \\ENQtypes\CAN\SOH \ETX(\SO2\NAK.lnrpc.NodeMetricTypeR\ENQtypes" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let types__field_descriptor = Data.ProtoLens.FieldDescriptor "types" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor NodeMetricType) (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed (Data.ProtoLens.Field.field @"types")) :: Data.ProtoLens.FieldDescriptor NodeMetricsRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, types__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _NodeMetricsRequest'_unknownFields (\ x__ y__ -> x__ {_NodeMetricsRequest'_unknownFields = y__}) defMessage = NodeMetricsRequest'_constructor {_NodeMetricsRequest'types = Data.Vector.Generic.empty, _NodeMetricsRequest'_unknownFields = []} parseMessage = let loop :: NodeMetricsRequest -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NodeMetricType -> Data.ProtoLens.Encoding.Bytes.Parser NodeMetricsRequest loop x mutable'types = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'types <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'types) (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'types") frozen'types 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)) "types" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'types 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.>) (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) "types" qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append qs q) ploop qs' in ploop) mutable'types) loop x y wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'types in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'types <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'types) "NodeMetricsRequest" buildMessage = \ _x -> (Data.Monoid.<>) (let p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'types") _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 ((Prelude..) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) Prelude.fromEnum) p)))) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData NodeMetricsRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_NodeMetricsRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_NodeMetricsRequest'types x__) ()) {- | Fields : * 'Proto.LndGrpc_Fields.betweennessCentrality' @:: Lens' NodeMetricsResponse (Data.Map.Map Data.Text.Text FloatMetric)@ -} data NodeMetricsResponse = NodeMetricsResponse'_constructor {_NodeMetricsResponse'betweennessCentrality :: !(Data.Map.Map Data.Text.Text FloatMetric), _NodeMetricsResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show NodeMetricsResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField NodeMetricsResponse "betweennessCentrality" (Data.Map.Map Data.Text.Text FloatMetric) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeMetricsResponse'betweennessCentrality (\ x__ y__ -> x__ {_NodeMetricsResponse'betweennessCentrality = y__})) Prelude.id instance Data.ProtoLens.Message NodeMetricsResponse where messageName _ = Data.Text.pack "lnrpc.NodeMetricsResponse" packedMessageDescriptor _ = "\n\ \\DC3NodeMetricsResponse\DC2l\n\ \\SYNbetweenness_centrality\CAN\SOH \ETX(\v25.lnrpc.NodeMetricsResponse.BetweennessCentralityEntryR\NAKbetweennessCentrality\SUB\\\n\ \\SUBBetweennessCentralityEntry\DC2\DLE\n\ \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2(\n\ \\ENQvalue\CAN\STX \SOH(\v2\DC2.lnrpc.FloatMetricR\ENQvalue:\STX8\SOH" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let betweennessCentrality__field_descriptor = Data.ProtoLens.FieldDescriptor "betweenness_centrality" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor NodeMetricsResponse'BetweennessCentralityEntry) (Data.ProtoLens.MapField (Data.ProtoLens.Field.field @"key") (Data.ProtoLens.Field.field @"value") (Data.ProtoLens.Field.field @"betweennessCentrality")) :: Data.ProtoLens.FieldDescriptor NodeMetricsResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, betweennessCentrality__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _NodeMetricsResponse'_unknownFields (\ x__ y__ -> x__ {_NodeMetricsResponse'_unknownFields = y__}) defMessage = NodeMetricsResponse'_constructor {_NodeMetricsResponse'betweennessCentrality = Data.Map.empty, _NodeMetricsResponse'_unknownFields = []} parseMessage = let loop :: NodeMetricsResponse -> Data.ProtoLens.Encoding.Bytes.Parser NodeMetricsResponse 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 :: NodeMetricsResponse'BetweennessCentralityEntry) <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "betweenness_centrality" (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 @"betweennessCentrality") (\ !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) "NodeMetricsResponse" 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 :: NodeMetricsResponse'BetweennessCentralityEntry))))) (Data.Map.toList (Lens.Family2.view (Data.ProtoLens.Field.field @"betweennessCentrality") _x)))) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData NodeMetricsResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_NodeMetricsResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_NodeMetricsResponse'betweennessCentrality x__) ()) {- | Fields : * 'Proto.LndGrpc_Fields.key' @:: Lens' NodeMetricsResponse'BetweennessCentralityEntry Data.Text.Text@ * 'Proto.LndGrpc_Fields.value' @:: Lens' NodeMetricsResponse'BetweennessCentralityEntry FloatMetric@ * 'Proto.LndGrpc_Fields.maybe'value' @:: Lens' NodeMetricsResponse'BetweennessCentralityEntry (Prelude.Maybe FloatMetric)@ -} data NodeMetricsResponse'BetweennessCentralityEntry = NodeMetricsResponse'BetweennessCentralityEntry'_constructor {_NodeMetricsResponse'BetweennessCentralityEntry'key :: !Data.Text.Text, _NodeMetricsResponse'BetweennessCentralityEntry'value :: !(Prelude.Maybe FloatMetric), _NodeMetricsResponse'BetweennessCentralityEntry'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show NodeMetricsResponse'BetweennessCentralityEntry where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField NodeMetricsResponse'BetweennessCentralityEntry "key" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeMetricsResponse'BetweennessCentralityEntry'key (\ x__ y__ -> x__ {_NodeMetricsResponse'BetweennessCentralityEntry'key = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NodeMetricsResponse'BetweennessCentralityEntry "value" FloatMetric where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeMetricsResponse'BetweennessCentralityEntry'value (\ x__ y__ -> x__ {_NodeMetricsResponse'BetweennessCentralityEntry'value = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField NodeMetricsResponse'BetweennessCentralityEntry "maybe'value" (Prelude.Maybe FloatMetric) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeMetricsResponse'BetweennessCentralityEntry'value (\ x__ y__ -> x__ {_NodeMetricsResponse'BetweennessCentralityEntry'value = y__})) Prelude.id instance Data.ProtoLens.Message NodeMetricsResponse'BetweennessCentralityEntry where messageName _ = Data.Text.pack "lnrpc.NodeMetricsResponse.BetweennessCentralityEntry" packedMessageDescriptor _ = "\n\ \\SUBBetweennessCentralityEntry\DC2\DLE\n\ \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2(\n\ \\ENQvalue\CAN\STX \SOH(\v2\DC2.lnrpc.FloatMetricR\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 NodeMetricsResponse'BetweennessCentralityEntry value__field_descriptor = Data.ProtoLens.FieldDescriptor "value" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor FloatMetric) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'value")) :: Data.ProtoLens.FieldDescriptor NodeMetricsResponse'BetweennessCentralityEntry in Data.Map.fromList [(Data.ProtoLens.Tag 1, key__field_descriptor), (Data.ProtoLens.Tag 2, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _NodeMetricsResponse'BetweennessCentralityEntry'_unknownFields (\ x__ y__ -> x__ {_NodeMetricsResponse'BetweennessCentralityEntry'_unknownFields = y__}) defMessage = NodeMetricsResponse'BetweennessCentralityEntry'_constructor {_NodeMetricsResponse'BetweennessCentralityEntry'key = Data.ProtoLens.fieldDefault, _NodeMetricsResponse'BetweennessCentralityEntry'value = Prelude.Nothing, _NodeMetricsResponse'BetweennessCentralityEntry'_unknownFields = []} parseMessage = let loop :: NodeMetricsResponse'BetweennessCentralityEntry -> Data.ProtoLens.Encoding.Bytes.Parser NodeMetricsResponse'BetweennessCentralityEntry 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) "BetweennessCentralityEntry" 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 NodeMetricsResponse'BetweennessCentralityEntry where rnf = \ x__ -> Control.DeepSeq.deepseq (_NodeMetricsResponse'BetweennessCentralityEntry'_unknownFields x__) (Control.DeepSeq.deepseq (_NodeMetricsResponse'BetweennessCentralityEntry'key x__) (Control.DeepSeq.deepseq (_NodeMetricsResponse'BetweennessCentralityEntry'value x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.from' @:: Lens' NodePair Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.to' @:: Lens' NodePair Data.ByteString.ByteString@ -} data NodePair = NodePair'_constructor {_NodePair'from :: !Data.ByteString.ByteString, _NodePair'to :: !Data.ByteString.ByteString, _NodePair'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show NodePair where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField NodePair "from" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodePair'from (\ x__ y__ -> x__ {_NodePair'from = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NodePair "to" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodePair'to (\ x__ y__ -> x__ {_NodePair'to = y__})) Prelude.id instance Data.ProtoLens.Message NodePair where messageName _ = Data.Text.pack "lnrpc.NodePair" packedMessageDescriptor _ = "\n\ \\bNodePair\DC2\DC2\n\ \\EOTfrom\CAN\SOH \SOH(\fR\EOTfrom\DC2\SO\n\ \\STXto\CAN\STX \SOH(\fR\STXto" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let from__field_descriptor = Data.ProtoLens.FieldDescriptor "from" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"from")) :: Data.ProtoLens.FieldDescriptor NodePair to__field_descriptor = Data.ProtoLens.FieldDescriptor "to" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"to")) :: Data.ProtoLens.FieldDescriptor NodePair in Data.Map.fromList [(Data.ProtoLens.Tag 1, from__field_descriptor), (Data.ProtoLens.Tag 2, to__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _NodePair'_unknownFields (\ x__ y__ -> x__ {_NodePair'_unknownFields = y__}) defMessage = NodePair'_constructor {_NodePair'from = Data.ProtoLens.fieldDefault, _NodePair'to = Data.ProtoLens.fieldDefault, _NodePair'_unknownFields = []} parseMessage = let loop :: NodePair -> Data.ProtoLens.Encoding.Bytes.Parser NodePair 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)) "from" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"from") y x) 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "to" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"to") 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) "NodePair" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"from") _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 @"to") _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 NodePair where rnf = \ x__ -> Control.DeepSeq.deepseq (_NodePair'_unknownFields x__) (Control.DeepSeq.deepseq (_NodePair'from x__) (Control.DeepSeq.deepseq (_NodePair'to x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.addresses' @:: Lens' NodeUpdate [Data.Text.Text]@ * 'Proto.LndGrpc_Fields.vec'addresses' @:: Lens' NodeUpdate (Data.Vector.Vector Data.Text.Text)@ * 'Proto.LndGrpc_Fields.identityKey' @:: Lens' NodeUpdate Data.Text.Text@ * 'Proto.LndGrpc_Fields.globalFeatures' @:: Lens' NodeUpdate Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.alias' @:: Lens' NodeUpdate Data.Text.Text@ * 'Proto.LndGrpc_Fields.color' @:: Lens' NodeUpdate Data.Text.Text@ * 'Proto.LndGrpc_Fields.nodeAddresses' @:: Lens' NodeUpdate [NodeAddress]@ * 'Proto.LndGrpc_Fields.vec'nodeAddresses' @:: Lens' NodeUpdate (Data.Vector.Vector NodeAddress)@ * 'Proto.LndGrpc_Fields.features' @:: Lens' NodeUpdate (Data.Map.Map Data.Word.Word32 Feature)@ -} data NodeUpdate = NodeUpdate'_constructor {_NodeUpdate'addresses :: !(Data.Vector.Vector Data.Text.Text), _NodeUpdate'identityKey :: !Data.Text.Text, _NodeUpdate'globalFeatures :: !Data.ByteString.ByteString, _NodeUpdate'alias :: !Data.Text.Text, _NodeUpdate'color :: !Data.Text.Text, _NodeUpdate'nodeAddresses :: !(Data.Vector.Vector NodeAddress), _NodeUpdate'features :: !(Data.Map.Map Data.Word.Word32 Feature), _NodeUpdate'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show NodeUpdate where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField NodeUpdate "addresses" [Data.Text.Text] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeUpdate'addresses (\ x__ y__ -> x__ {_NodeUpdate'addresses = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField NodeUpdate "vec'addresses" (Data.Vector.Vector Data.Text.Text) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeUpdate'addresses (\ x__ y__ -> x__ {_NodeUpdate'addresses = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NodeUpdate "identityKey" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeUpdate'identityKey (\ x__ y__ -> x__ {_NodeUpdate'identityKey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NodeUpdate "globalFeatures" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeUpdate'globalFeatures (\ x__ y__ -> x__ {_NodeUpdate'globalFeatures = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NodeUpdate "alias" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeUpdate'alias (\ x__ y__ -> x__ {_NodeUpdate'alias = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NodeUpdate "color" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeUpdate'color (\ x__ y__ -> x__ {_NodeUpdate'color = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NodeUpdate "nodeAddresses" [NodeAddress] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeUpdate'nodeAddresses (\ x__ y__ -> x__ {_NodeUpdate'nodeAddresses = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField NodeUpdate "vec'nodeAddresses" (Data.Vector.Vector NodeAddress) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeUpdate'nodeAddresses (\ x__ y__ -> x__ {_NodeUpdate'nodeAddresses = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NodeUpdate "features" (Data.Map.Map Data.Word.Word32 Feature) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeUpdate'features (\ x__ y__ -> x__ {_NodeUpdate'features = y__})) Prelude.id instance Data.ProtoLens.Message NodeUpdate where messageName _ = Data.Text.pack "lnrpc.NodeUpdate" packedMessageDescriptor _ = "\n\ \\n\ \NodeUpdate\DC2 \n\ \\taddresses\CAN\SOH \ETX(\tR\taddressesB\STX\CAN\SOH\DC2!\n\ \\fidentity_key\CAN\STX \SOH(\tR\videntityKey\DC2+\n\ \\SIglobal_features\CAN\ETX \SOH(\fR\SOglobalFeaturesB\STX\CAN\SOH\DC2\DC4\n\ \\ENQalias\CAN\EOT \SOH(\tR\ENQalias\DC2\DC4\n\ \\ENQcolor\CAN\ENQ \SOH(\tR\ENQcolor\DC29\n\ \\SOnode_addresses\CAN\a \ETX(\v2\DC2.lnrpc.NodeAddressR\rnodeAddresses\DC2;\n\ \\bfeatures\CAN\ACK \ETX(\v2\US.lnrpc.NodeUpdate.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 addresses__field_descriptor = Data.ProtoLens.FieldDescriptor "addresses" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"addresses")) :: Data.ProtoLens.FieldDescriptor NodeUpdate identityKey__field_descriptor = Data.ProtoLens.FieldDescriptor "identity_key" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"identityKey")) :: Data.ProtoLens.FieldDescriptor NodeUpdate globalFeatures__field_descriptor = Data.ProtoLens.FieldDescriptor "global_features" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"globalFeatures")) :: Data.ProtoLens.FieldDescriptor NodeUpdate alias__field_descriptor = Data.ProtoLens.FieldDescriptor "alias" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"alias")) :: Data.ProtoLens.FieldDescriptor NodeUpdate color__field_descriptor = Data.ProtoLens.FieldDescriptor "color" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"color")) :: Data.ProtoLens.FieldDescriptor NodeUpdate nodeAddresses__field_descriptor = Data.ProtoLens.FieldDescriptor "node_addresses" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor NodeAddress) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"nodeAddresses")) :: Data.ProtoLens.FieldDescriptor NodeUpdate features__field_descriptor = Data.ProtoLens.FieldDescriptor "features" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor NodeUpdate'FeaturesEntry) (Data.ProtoLens.MapField (Data.ProtoLens.Field.field @"key") (Data.ProtoLens.Field.field @"value") (Data.ProtoLens.Field.field @"features")) :: Data.ProtoLens.FieldDescriptor NodeUpdate in Data.Map.fromList [(Data.ProtoLens.Tag 1, addresses__field_descriptor), (Data.ProtoLens.Tag 2, identityKey__field_descriptor), (Data.ProtoLens.Tag 3, globalFeatures__field_descriptor), (Data.ProtoLens.Tag 4, alias__field_descriptor), (Data.ProtoLens.Tag 5, color__field_descriptor), (Data.ProtoLens.Tag 7, nodeAddresses__field_descriptor), (Data.ProtoLens.Tag 6, features__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _NodeUpdate'_unknownFields (\ x__ y__ -> x__ {_NodeUpdate'_unknownFields = y__}) defMessage = NodeUpdate'_constructor {_NodeUpdate'addresses = Data.Vector.Generic.empty, _NodeUpdate'identityKey = Data.ProtoLens.fieldDefault, _NodeUpdate'globalFeatures = Data.ProtoLens.fieldDefault, _NodeUpdate'alias = Data.ProtoLens.fieldDefault, _NodeUpdate'color = Data.ProtoLens.fieldDefault, _NodeUpdate'nodeAddresses = Data.Vector.Generic.empty, _NodeUpdate'features = Data.Map.empty, _NodeUpdate'_unknownFields = []} parseMessage = let loop :: NodeUpdate -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NodeAddress -> Data.ProtoLens.Encoding.Bytes.Parser NodeUpdate loop x mutable'addresses mutable'nodeAddresses = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'addresses <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'addresses) frozen'nodeAddresses <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'nodeAddresses) (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'addresses") frozen'addresses (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'nodeAddresses") frozen'nodeAddresses 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)) "addresses" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'addresses y) loop x v mutable'nodeAddresses 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)) "identity_key" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"identityKey") y x) mutable'addresses mutable'nodeAddresses 26 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "global_features" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"globalFeatures") y x) mutable'addresses mutable'nodeAddresses 34 -> 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)) "alias" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"alias") y x) mutable'addresses mutable'nodeAddresses 42 -> 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)) "color" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"color") y x) mutable'addresses mutable'nodeAddresses 58 -> do !y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "node_addresses" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'nodeAddresses y) loop x mutable'addresses v 50 -> do !(entry :: NodeUpdate'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'addresses mutable'nodeAddresses) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'addresses mutable'nodeAddresses in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'addresses <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'nodeAddresses <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'addresses mutable'nodeAddresses) "NodeUpdate" 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.Text.Encoding.encodeUtf8 _v)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'addresses") _x)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"identityKey") _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 @"globalFeatures") _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 @"alias") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (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.Text.Encoding.encodeUtf8 _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"color") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (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.Text.Encoding.encodeUtf8 _v)) ((Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (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.ProtoLens.encodeMessage _v)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'nodeAddresses") _x)) ((Data.Monoid.<>) (Data.Monoid.mconcat (Prelude.map (\ _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 (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 :: NodeUpdate'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 NodeUpdate where rnf = \ x__ -> Control.DeepSeq.deepseq (_NodeUpdate'_unknownFields x__) (Control.DeepSeq.deepseq (_NodeUpdate'addresses x__) (Control.DeepSeq.deepseq (_NodeUpdate'identityKey x__) (Control.DeepSeq.deepseq (_NodeUpdate'globalFeatures x__) (Control.DeepSeq.deepseq (_NodeUpdate'alias x__) (Control.DeepSeq.deepseq (_NodeUpdate'color x__) (Control.DeepSeq.deepseq (_NodeUpdate'nodeAddresses x__) (Control.DeepSeq.deepseq (_NodeUpdate'features x__) ()))))))) {- | Fields : * 'Proto.LndGrpc_Fields.key' @:: Lens' NodeUpdate'FeaturesEntry Data.Word.Word32@ * 'Proto.LndGrpc_Fields.value' @:: Lens' NodeUpdate'FeaturesEntry Feature@ * 'Proto.LndGrpc_Fields.maybe'value' @:: Lens' NodeUpdate'FeaturesEntry (Prelude.Maybe Feature)@ -} data NodeUpdate'FeaturesEntry = NodeUpdate'FeaturesEntry'_constructor {_NodeUpdate'FeaturesEntry'key :: !Data.Word.Word32, _NodeUpdate'FeaturesEntry'value :: !(Prelude.Maybe Feature), _NodeUpdate'FeaturesEntry'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show NodeUpdate'FeaturesEntry where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField NodeUpdate'FeaturesEntry "key" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeUpdate'FeaturesEntry'key (\ x__ y__ -> x__ {_NodeUpdate'FeaturesEntry'key = y__})) Prelude.id instance Data.ProtoLens.Field.HasField NodeUpdate'FeaturesEntry "value" Feature where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeUpdate'FeaturesEntry'value (\ x__ y__ -> x__ {_NodeUpdate'FeaturesEntry'value = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField NodeUpdate'FeaturesEntry "maybe'value" (Prelude.Maybe Feature) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _NodeUpdate'FeaturesEntry'value (\ x__ y__ -> x__ {_NodeUpdate'FeaturesEntry'value = y__})) Prelude.id instance Data.ProtoLens.Message NodeUpdate'FeaturesEntry where messageName _ = Data.Text.pack "lnrpc.NodeUpdate.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 NodeUpdate'FeaturesEntry value__field_descriptor = Data.ProtoLens.FieldDescriptor "value" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Feature) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'value")) :: Data.ProtoLens.FieldDescriptor NodeUpdate'FeaturesEntry in Data.Map.fromList [(Data.ProtoLens.Tag 1, key__field_descriptor), (Data.ProtoLens.Tag 2, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _NodeUpdate'FeaturesEntry'_unknownFields (\ x__ y__ -> x__ {_NodeUpdate'FeaturesEntry'_unknownFields = y__}) defMessage = NodeUpdate'FeaturesEntry'_constructor {_NodeUpdate'FeaturesEntry'key = Data.ProtoLens.fieldDefault, _NodeUpdate'FeaturesEntry'value = Prelude.Nothing, _NodeUpdate'FeaturesEntry'_unknownFields = []} parseMessage = let loop :: NodeUpdate'FeaturesEntry -> Data.ProtoLens.Encoding.Bytes.Parser NodeUpdate'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 NodeUpdate'FeaturesEntry where rnf = \ x__ -> Control.DeepSeq.deepseq (_NodeUpdate'FeaturesEntry'_unknownFields x__) (Control.DeepSeq.deepseq (_NodeUpdate'FeaturesEntry'key x__) (Control.DeepSeq.deepseq (_NodeUpdate'FeaturesEntry'value x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.entity' @:: Lens' Op Data.Text.Text@ * 'Proto.LndGrpc_Fields.actions' @:: Lens' Op [Data.Text.Text]@ * 'Proto.LndGrpc_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) instance Prelude.Show Op where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.satPerVbyte' @:: Lens' OpenChannelRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.nodePubkey' @:: Lens' OpenChannelRequest Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.nodePubkeyString' @:: Lens' OpenChannelRequest Data.Text.Text@ * 'Proto.LndGrpc_Fields.localFundingAmount' @:: Lens' OpenChannelRequest Data.Int.Int64@ * 'Proto.LndGrpc_Fields.pushSat' @:: Lens' OpenChannelRequest Data.Int.Int64@ * 'Proto.LndGrpc_Fields.targetConf' @:: Lens' OpenChannelRequest Data.Int.Int32@ * 'Proto.LndGrpc_Fields.satPerByte' @:: Lens' OpenChannelRequest Data.Int.Int64@ * 'Proto.LndGrpc_Fields.private' @:: Lens' OpenChannelRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.minHtlcMsat' @:: Lens' OpenChannelRequest Data.Int.Int64@ * 'Proto.LndGrpc_Fields.remoteCsvDelay' @:: Lens' OpenChannelRequest Data.Word.Word32@ * 'Proto.LndGrpc_Fields.minConfs' @:: Lens' OpenChannelRequest Data.Int.Int32@ * 'Proto.LndGrpc_Fields.spendUnconfirmed' @:: Lens' OpenChannelRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.closeAddress' @:: Lens' OpenChannelRequest Data.Text.Text@ * 'Proto.LndGrpc_Fields.fundingShim' @:: Lens' OpenChannelRequest FundingShim@ * 'Proto.LndGrpc_Fields.maybe'fundingShim' @:: Lens' OpenChannelRequest (Prelude.Maybe FundingShim)@ * 'Proto.LndGrpc_Fields.remoteMaxValueInFlightMsat' @:: Lens' OpenChannelRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.remoteMaxHtlcs' @:: Lens' OpenChannelRequest Data.Word.Word32@ * 'Proto.LndGrpc_Fields.maxLocalCsv' @:: Lens' OpenChannelRequest Data.Word.Word32@ -} data OpenChannelRequest = OpenChannelRequest'_constructor {_OpenChannelRequest'satPerVbyte :: !Data.Word.Word64, _OpenChannelRequest'nodePubkey :: !Data.ByteString.ByteString, _OpenChannelRequest'nodePubkeyString :: !Data.Text.Text, _OpenChannelRequest'localFundingAmount :: !Data.Int.Int64, _OpenChannelRequest'pushSat :: !Data.Int.Int64, _OpenChannelRequest'targetConf :: !Data.Int.Int32, _OpenChannelRequest'satPerByte :: !Data.Int.Int64, _OpenChannelRequest'private :: !Prelude.Bool, _OpenChannelRequest'minHtlcMsat :: !Data.Int.Int64, _OpenChannelRequest'remoteCsvDelay :: !Data.Word.Word32, _OpenChannelRequest'minConfs :: !Data.Int.Int32, _OpenChannelRequest'spendUnconfirmed :: !Prelude.Bool, _OpenChannelRequest'closeAddress :: !Data.Text.Text, _OpenChannelRequest'fundingShim :: !(Prelude.Maybe FundingShim), _OpenChannelRequest'remoteMaxValueInFlightMsat :: !Data.Word.Word64, _OpenChannelRequest'remoteMaxHtlcs :: !Data.Word.Word32, _OpenChannelRequest'maxLocalCsv :: !Data.Word.Word32, _OpenChannelRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show OpenChannelRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField OpenChannelRequest "satPerVbyte" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenChannelRequest'satPerVbyte (\ x__ y__ -> x__ {_OpenChannelRequest'satPerVbyte = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OpenChannelRequest "nodePubkey" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenChannelRequest'nodePubkey (\ x__ y__ -> x__ {_OpenChannelRequest'nodePubkey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OpenChannelRequest "nodePubkeyString" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenChannelRequest'nodePubkeyString (\ x__ y__ -> x__ {_OpenChannelRequest'nodePubkeyString = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OpenChannelRequest "localFundingAmount" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenChannelRequest'localFundingAmount (\ x__ y__ -> x__ {_OpenChannelRequest'localFundingAmount = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OpenChannelRequest "pushSat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenChannelRequest'pushSat (\ x__ y__ -> x__ {_OpenChannelRequest'pushSat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OpenChannelRequest "targetConf" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenChannelRequest'targetConf (\ x__ y__ -> x__ {_OpenChannelRequest'targetConf = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OpenChannelRequest "satPerByte" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenChannelRequest'satPerByte (\ x__ y__ -> x__ {_OpenChannelRequest'satPerByte = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OpenChannelRequest "private" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenChannelRequest'private (\ x__ y__ -> x__ {_OpenChannelRequest'private = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OpenChannelRequest "minHtlcMsat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenChannelRequest'minHtlcMsat (\ x__ y__ -> x__ {_OpenChannelRequest'minHtlcMsat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OpenChannelRequest "remoteCsvDelay" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenChannelRequest'remoteCsvDelay (\ x__ y__ -> x__ {_OpenChannelRequest'remoteCsvDelay = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OpenChannelRequest "minConfs" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenChannelRequest'minConfs (\ x__ y__ -> x__ {_OpenChannelRequest'minConfs = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OpenChannelRequest "spendUnconfirmed" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenChannelRequest'spendUnconfirmed (\ x__ y__ -> x__ {_OpenChannelRequest'spendUnconfirmed = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OpenChannelRequest "closeAddress" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenChannelRequest'closeAddress (\ x__ y__ -> x__ {_OpenChannelRequest'closeAddress = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OpenChannelRequest "fundingShim" FundingShim where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenChannelRequest'fundingShim (\ x__ y__ -> x__ {_OpenChannelRequest'fundingShim = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField OpenChannelRequest "maybe'fundingShim" (Prelude.Maybe FundingShim) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenChannelRequest'fundingShim (\ x__ y__ -> x__ {_OpenChannelRequest'fundingShim = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OpenChannelRequest "remoteMaxValueInFlightMsat" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenChannelRequest'remoteMaxValueInFlightMsat (\ x__ y__ -> x__ {_OpenChannelRequest'remoteMaxValueInFlightMsat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OpenChannelRequest "remoteMaxHtlcs" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenChannelRequest'remoteMaxHtlcs (\ x__ y__ -> x__ {_OpenChannelRequest'remoteMaxHtlcs = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OpenChannelRequest "maxLocalCsv" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenChannelRequest'maxLocalCsv (\ x__ y__ -> x__ {_OpenChannelRequest'maxLocalCsv = y__})) Prelude.id instance Data.ProtoLens.Message OpenChannelRequest where messageName _ = Data.Text.pack "lnrpc.OpenChannelRequest" packedMessageDescriptor _ = "\n\ \\DC2OpenChannelRequest\DC2\"\n\ \\rsat_per_vbyte\CAN\SOH \SOH(\EOTR\vsatPerVbyte\DC2\US\n\ \\vnode_pubkey\CAN\STX \SOH(\fR\n\ \nodePubkey\DC20\n\ \\DC2node_pubkey_string\CAN\ETX \SOH(\tR\DLEnodePubkeyStringB\STX\CAN\SOH\DC20\n\ \\DC4local_funding_amount\CAN\EOT \SOH(\ETXR\DC2localFundingAmount\DC2\EM\n\ \\bpush_sat\CAN\ENQ \SOH(\ETXR\apushSat\DC2\US\n\ \\vtarget_conf\CAN\ACK \SOH(\ENQR\n\ \targetConf\DC2$\n\ \\fsat_per_byte\CAN\a \SOH(\ETXR\n\ \satPerByteB\STX\CAN\SOH\DC2\CAN\n\ \\aprivate\CAN\b \SOH(\bR\aprivate\DC2\"\n\ \\rmin_htlc_msat\CAN\t \SOH(\ETXR\vminHtlcMsat\DC2(\n\ \\DLEremote_csv_delay\CAN\n\ \ \SOH(\rR\SOremoteCsvDelay\DC2\ESC\n\ \\tmin_confs\CAN\v \SOH(\ENQR\bminConfs\DC2+\n\ \\DC1spend_unconfirmed\CAN\f \SOH(\bR\DLEspendUnconfirmed\DC2#\n\ \\rclose_address\CAN\r \SOH(\tR\fcloseAddress\DC25\n\ \\ffunding_shim\CAN\SO \SOH(\v2\DC2.lnrpc.FundingShimR\vfundingShim\DC2C\n\ \\USremote_max_value_in_flight_msat\CAN\SI \SOH(\EOTR\SUBremoteMaxValueInFlightMsat\DC2(\n\ \\DLEremote_max_htlcs\CAN\DLE \SOH(\rR\SOremoteMaxHtlcs\DC2\"\n\ \\rmax_local_csv\CAN\DC1 \SOH(\rR\vmaxLocalCsv" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let satPerVbyte__field_descriptor = Data.ProtoLens.FieldDescriptor "sat_per_vbyte" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"satPerVbyte")) :: Data.ProtoLens.FieldDescriptor OpenChannelRequest nodePubkey__field_descriptor = Data.ProtoLens.FieldDescriptor "node_pubkey" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"nodePubkey")) :: Data.ProtoLens.FieldDescriptor OpenChannelRequest nodePubkeyString__field_descriptor = Data.ProtoLens.FieldDescriptor "node_pubkey_string" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"nodePubkeyString")) :: Data.ProtoLens.FieldDescriptor OpenChannelRequest localFundingAmount__field_descriptor = Data.ProtoLens.FieldDescriptor "local_funding_amount" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"localFundingAmount")) :: Data.ProtoLens.FieldDescriptor OpenChannelRequest pushSat__field_descriptor = Data.ProtoLens.FieldDescriptor "push_sat" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pushSat")) :: Data.ProtoLens.FieldDescriptor OpenChannelRequest targetConf__field_descriptor = Data.ProtoLens.FieldDescriptor "target_conf" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"targetConf")) :: Data.ProtoLens.FieldDescriptor OpenChannelRequest satPerByte__field_descriptor = Data.ProtoLens.FieldDescriptor "sat_per_byte" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"satPerByte")) :: Data.ProtoLens.FieldDescriptor OpenChannelRequest 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 OpenChannelRequest minHtlcMsat__field_descriptor = Data.ProtoLens.FieldDescriptor "min_htlc_msat" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"minHtlcMsat")) :: Data.ProtoLens.FieldDescriptor OpenChannelRequest remoteCsvDelay__field_descriptor = Data.ProtoLens.FieldDescriptor "remote_csv_delay" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"remoteCsvDelay")) :: Data.ProtoLens.FieldDescriptor OpenChannelRequest minConfs__field_descriptor = Data.ProtoLens.FieldDescriptor "min_confs" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"minConfs")) :: Data.ProtoLens.FieldDescriptor OpenChannelRequest spendUnconfirmed__field_descriptor = Data.ProtoLens.FieldDescriptor "spend_unconfirmed" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"spendUnconfirmed")) :: Data.ProtoLens.FieldDescriptor OpenChannelRequest closeAddress__field_descriptor = Data.ProtoLens.FieldDescriptor "close_address" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"closeAddress")) :: Data.ProtoLens.FieldDescriptor OpenChannelRequest fundingShim__field_descriptor = Data.ProtoLens.FieldDescriptor "funding_shim" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor FundingShim) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'fundingShim")) :: Data.ProtoLens.FieldDescriptor OpenChannelRequest remoteMaxValueInFlightMsat__field_descriptor = Data.ProtoLens.FieldDescriptor "remote_max_value_in_flight_msat" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"remoteMaxValueInFlightMsat")) :: Data.ProtoLens.FieldDescriptor OpenChannelRequest remoteMaxHtlcs__field_descriptor = Data.ProtoLens.FieldDescriptor "remote_max_htlcs" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"remoteMaxHtlcs")) :: Data.ProtoLens.FieldDescriptor OpenChannelRequest maxLocalCsv__field_descriptor = Data.ProtoLens.FieldDescriptor "max_local_csv" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"maxLocalCsv")) :: Data.ProtoLens.FieldDescriptor OpenChannelRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, satPerVbyte__field_descriptor), (Data.ProtoLens.Tag 2, nodePubkey__field_descriptor), (Data.ProtoLens.Tag 3, nodePubkeyString__field_descriptor), (Data.ProtoLens.Tag 4, localFundingAmount__field_descriptor), (Data.ProtoLens.Tag 5, pushSat__field_descriptor), (Data.ProtoLens.Tag 6, targetConf__field_descriptor), (Data.ProtoLens.Tag 7, satPerByte__field_descriptor), (Data.ProtoLens.Tag 8, private__field_descriptor), (Data.ProtoLens.Tag 9, minHtlcMsat__field_descriptor), (Data.ProtoLens.Tag 10, remoteCsvDelay__field_descriptor), (Data.ProtoLens.Tag 11, minConfs__field_descriptor), (Data.ProtoLens.Tag 12, spendUnconfirmed__field_descriptor), (Data.ProtoLens.Tag 13, closeAddress__field_descriptor), (Data.ProtoLens.Tag 14, fundingShim__field_descriptor), (Data.ProtoLens.Tag 15, remoteMaxValueInFlightMsat__field_descriptor), (Data.ProtoLens.Tag 16, remoteMaxHtlcs__field_descriptor), (Data.ProtoLens.Tag 17, maxLocalCsv__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _OpenChannelRequest'_unknownFields (\ x__ y__ -> x__ {_OpenChannelRequest'_unknownFields = y__}) defMessage = OpenChannelRequest'_constructor {_OpenChannelRequest'satPerVbyte = Data.ProtoLens.fieldDefault, _OpenChannelRequest'nodePubkey = Data.ProtoLens.fieldDefault, _OpenChannelRequest'nodePubkeyString = Data.ProtoLens.fieldDefault, _OpenChannelRequest'localFundingAmount = Data.ProtoLens.fieldDefault, _OpenChannelRequest'pushSat = Data.ProtoLens.fieldDefault, _OpenChannelRequest'targetConf = Data.ProtoLens.fieldDefault, _OpenChannelRequest'satPerByte = Data.ProtoLens.fieldDefault, _OpenChannelRequest'private = Data.ProtoLens.fieldDefault, _OpenChannelRequest'minHtlcMsat = Data.ProtoLens.fieldDefault, _OpenChannelRequest'remoteCsvDelay = Data.ProtoLens.fieldDefault, _OpenChannelRequest'minConfs = Data.ProtoLens.fieldDefault, _OpenChannelRequest'spendUnconfirmed = Data.ProtoLens.fieldDefault, _OpenChannelRequest'closeAddress = Data.ProtoLens.fieldDefault, _OpenChannelRequest'fundingShim = Prelude.Nothing, _OpenChannelRequest'remoteMaxValueInFlightMsat = Data.ProtoLens.fieldDefault, _OpenChannelRequest'remoteMaxHtlcs = Data.ProtoLens.fieldDefault, _OpenChannelRequest'maxLocalCsv = Data.ProtoLens.fieldDefault, _OpenChannelRequest'_unknownFields = []} parseMessage = let loop :: OpenChannelRequest -> Data.ProtoLens.Encoding.Bytes.Parser OpenChannelRequest 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 "sat_per_vbyte" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"satPerVbyte") y x) 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "node_pubkey" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"nodePubkey") 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)) "node_pubkey_string" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"nodePubkeyString") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "local_funding_amount" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"localFundingAmount") y x) 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "push_sat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pushSat") y x) 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "target_conf" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"targetConf") y x) 56 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "sat_per_byte" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"satPerByte") y x) 64 -> 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) 72 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "min_htlc_msat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"minHtlcMsat") y x) 80 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "remote_csv_delay" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"remoteCsvDelay") y x) 88 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "min_confs" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"minConfs") y x) 96 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "spend_unconfirmed" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"spendUnconfirmed") y x) 106 -> 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)) "close_address" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"closeAddress") y x) 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) "funding_shim" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"fundingShim") y x) 120 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "remote_max_value_in_flight_msat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"remoteMaxValueInFlightMsat") y x) 128 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "remote_max_htlcs" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"remoteMaxHtlcs") y x) 136 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "max_local_csv" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"maxLocalCsv") 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) "OpenChannelRequest" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"satPerVbyte") _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 @"nodePubkey") _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 @"nodePubkeyString") _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 @"localFundingAmount") _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 @"pushSat") _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 @"targetConf") _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 @"satPerByte") _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 @"private") _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.<>) (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 72) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"remoteCsvDelay") _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 @"minConfs") _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 @"spendUnconfirmed") _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 (\ b -> if b then 1 else 0) _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"closeAddress") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (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.Text.Encoding.encodeUtf8 _v)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'fundingShim") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _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)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"remoteMaxValueInFlightMsat") _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 @"remoteMaxHtlcs") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 128) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"maxLocalCsv") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 136) ((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 OpenChannelRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_OpenChannelRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_OpenChannelRequest'satPerVbyte x__) (Control.DeepSeq.deepseq (_OpenChannelRequest'nodePubkey x__) (Control.DeepSeq.deepseq (_OpenChannelRequest'nodePubkeyString x__) (Control.DeepSeq.deepseq (_OpenChannelRequest'localFundingAmount x__) (Control.DeepSeq.deepseq (_OpenChannelRequest'pushSat x__) (Control.DeepSeq.deepseq (_OpenChannelRequest'targetConf x__) (Control.DeepSeq.deepseq (_OpenChannelRequest'satPerByte x__) (Control.DeepSeq.deepseq (_OpenChannelRequest'private x__) (Control.DeepSeq.deepseq (_OpenChannelRequest'minHtlcMsat x__) (Control.DeepSeq.deepseq (_OpenChannelRequest'remoteCsvDelay x__) (Control.DeepSeq.deepseq (_OpenChannelRequest'minConfs x__) (Control.DeepSeq.deepseq (_OpenChannelRequest'spendUnconfirmed x__) (Control.DeepSeq.deepseq (_OpenChannelRequest'closeAddress x__) (Control.DeepSeq.deepseq (_OpenChannelRequest'fundingShim x__) (Control.DeepSeq.deepseq (_OpenChannelRequest'remoteMaxValueInFlightMsat x__) (Control.DeepSeq.deepseq (_OpenChannelRequest'remoteMaxHtlcs x__) (Control.DeepSeq.deepseq (_OpenChannelRequest'maxLocalCsv x__) ()))))))))))))))))) {- | Fields : * 'Proto.LndGrpc_Fields.pendingChanId' @:: Lens' OpenStatusUpdate Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.maybe'update' @:: Lens' OpenStatusUpdate (Prelude.Maybe OpenStatusUpdate'Update)@ * 'Proto.LndGrpc_Fields.maybe'chanPending' @:: Lens' OpenStatusUpdate (Prelude.Maybe PendingUpdate)@ * 'Proto.LndGrpc_Fields.chanPending' @:: Lens' OpenStatusUpdate PendingUpdate@ * 'Proto.LndGrpc_Fields.maybe'chanOpen' @:: Lens' OpenStatusUpdate (Prelude.Maybe ChannelOpenUpdate)@ * 'Proto.LndGrpc_Fields.chanOpen' @:: Lens' OpenStatusUpdate ChannelOpenUpdate@ * 'Proto.LndGrpc_Fields.maybe'psbtFund' @:: Lens' OpenStatusUpdate (Prelude.Maybe ReadyForPsbtFunding)@ * 'Proto.LndGrpc_Fields.psbtFund' @:: Lens' OpenStatusUpdate ReadyForPsbtFunding@ -} data OpenStatusUpdate = OpenStatusUpdate'_constructor {_OpenStatusUpdate'pendingChanId :: !Data.ByteString.ByteString, _OpenStatusUpdate'update :: !(Prelude.Maybe OpenStatusUpdate'Update), _OpenStatusUpdate'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show OpenStatusUpdate where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) data OpenStatusUpdate'Update = OpenStatusUpdate'ChanPending !PendingUpdate | OpenStatusUpdate'ChanOpen !ChannelOpenUpdate | OpenStatusUpdate'PsbtFund !ReadyForPsbtFunding deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.Field.HasField OpenStatusUpdate "pendingChanId" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenStatusUpdate'pendingChanId (\ x__ y__ -> x__ {_OpenStatusUpdate'pendingChanId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OpenStatusUpdate "maybe'update" (Prelude.Maybe OpenStatusUpdate'Update) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenStatusUpdate'update (\ x__ y__ -> x__ {_OpenStatusUpdate'update = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OpenStatusUpdate "maybe'chanPending" (Prelude.Maybe PendingUpdate) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenStatusUpdate'update (\ x__ y__ -> x__ {_OpenStatusUpdate'update = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (OpenStatusUpdate'ChanPending x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap OpenStatusUpdate'ChanPending y__)) instance Data.ProtoLens.Field.HasField OpenStatusUpdate "chanPending" PendingUpdate where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenStatusUpdate'update (\ x__ y__ -> x__ {_OpenStatusUpdate'update = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (OpenStatusUpdate'ChanPending x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap OpenStatusUpdate'ChanPending y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Field.HasField OpenStatusUpdate "maybe'chanOpen" (Prelude.Maybe ChannelOpenUpdate) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenStatusUpdate'update (\ x__ y__ -> x__ {_OpenStatusUpdate'update = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (OpenStatusUpdate'ChanOpen x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap OpenStatusUpdate'ChanOpen y__)) instance Data.ProtoLens.Field.HasField OpenStatusUpdate "chanOpen" ChannelOpenUpdate where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenStatusUpdate'update (\ x__ y__ -> x__ {_OpenStatusUpdate'update = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (OpenStatusUpdate'ChanOpen x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap OpenStatusUpdate'ChanOpen y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Field.HasField OpenStatusUpdate "maybe'psbtFund" (Prelude.Maybe ReadyForPsbtFunding) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenStatusUpdate'update (\ x__ y__ -> x__ {_OpenStatusUpdate'update = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (OpenStatusUpdate'PsbtFund x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap OpenStatusUpdate'PsbtFund y__)) instance Data.ProtoLens.Field.HasField OpenStatusUpdate "psbtFund" ReadyForPsbtFunding where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OpenStatusUpdate'update (\ x__ y__ -> x__ {_OpenStatusUpdate'update = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (OpenStatusUpdate'PsbtFund x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap OpenStatusUpdate'PsbtFund y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Message OpenStatusUpdate where messageName _ = Data.Text.pack "lnrpc.OpenStatusUpdate" packedMessageDescriptor _ = "\n\ \\DLEOpenStatusUpdate\DC29\n\ \\fchan_pending\CAN\SOH \SOH(\v2\DC4.lnrpc.PendingUpdateH\NULR\vchanPending\DC27\n\ \\tchan_open\CAN\ETX \SOH(\v2\CAN.lnrpc.ChannelOpenUpdateH\NULR\bchanOpen\DC29\n\ \\tpsbt_fund\CAN\ENQ \SOH(\v2\SUB.lnrpc.ReadyForPsbtFundingH\NULR\bpsbtFund\DC2&\n\ \\SIpending_chan_id\CAN\EOT \SOH(\fR\rpendingChanIdB\b\n\ \\ACKupdate" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let pendingChanId__field_descriptor = Data.ProtoLens.FieldDescriptor "pending_chan_id" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pendingChanId")) :: Data.ProtoLens.FieldDescriptor OpenStatusUpdate chanPending__field_descriptor = Data.ProtoLens.FieldDescriptor "chan_pending" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor PendingUpdate) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'chanPending")) :: Data.ProtoLens.FieldDescriptor OpenStatusUpdate chanOpen__field_descriptor = Data.ProtoLens.FieldDescriptor "chan_open" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChannelOpenUpdate) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'chanOpen")) :: Data.ProtoLens.FieldDescriptor OpenStatusUpdate psbtFund__field_descriptor = Data.ProtoLens.FieldDescriptor "psbt_fund" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ReadyForPsbtFunding) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'psbtFund")) :: Data.ProtoLens.FieldDescriptor OpenStatusUpdate in Data.Map.fromList [(Data.ProtoLens.Tag 4, pendingChanId__field_descriptor), (Data.ProtoLens.Tag 1, chanPending__field_descriptor), (Data.ProtoLens.Tag 3, chanOpen__field_descriptor), (Data.ProtoLens.Tag 5, psbtFund__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _OpenStatusUpdate'_unknownFields (\ x__ y__ -> x__ {_OpenStatusUpdate'_unknownFields = y__}) defMessage = OpenStatusUpdate'_constructor {_OpenStatusUpdate'pendingChanId = Data.ProtoLens.fieldDefault, _OpenStatusUpdate'update = Prelude.Nothing, _OpenStatusUpdate'_unknownFields = []} parseMessage = let loop :: OpenStatusUpdate -> Data.ProtoLens.Encoding.Bytes.Parser OpenStatusUpdate 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 34 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "pending_chan_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pendingChanId") y x) 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "chan_pending" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"chanPending") 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) "chan_open" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"chanOpen") 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) "psbt_fund" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"psbtFund") 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) "OpenStatusUpdate" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"pendingChanId") _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.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'update") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just (OpenStatusUpdate'ChanPending 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 (OpenStatusUpdate'ChanOpen 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) (Prelude.Just (OpenStatusUpdate'PsbtFund 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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))) instance Control.DeepSeq.NFData OpenStatusUpdate where rnf = \ x__ -> Control.DeepSeq.deepseq (_OpenStatusUpdate'_unknownFields x__) (Control.DeepSeq.deepseq (_OpenStatusUpdate'pendingChanId x__) (Control.DeepSeq.deepseq (_OpenStatusUpdate'update x__) ())) instance Control.DeepSeq.NFData OpenStatusUpdate'Update where rnf (OpenStatusUpdate'ChanPending x__) = Control.DeepSeq.rnf x__ rnf (OpenStatusUpdate'ChanOpen x__) = Control.DeepSeq.rnf x__ rnf (OpenStatusUpdate'PsbtFund x__) = Control.DeepSeq.rnf x__ _OpenStatusUpdate'ChanPending :: Data.ProtoLens.Prism.Prism' OpenStatusUpdate'Update PendingUpdate _OpenStatusUpdate'ChanPending = Data.ProtoLens.Prism.prism' OpenStatusUpdate'ChanPending (\ p__ -> case p__ of (OpenStatusUpdate'ChanPending p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) _OpenStatusUpdate'ChanOpen :: Data.ProtoLens.Prism.Prism' OpenStatusUpdate'Update ChannelOpenUpdate _OpenStatusUpdate'ChanOpen = Data.ProtoLens.Prism.prism' OpenStatusUpdate'ChanOpen (\ p__ -> case p__ of (OpenStatusUpdate'ChanOpen p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) _OpenStatusUpdate'PsbtFund :: Data.ProtoLens.Prism.Prism' OpenStatusUpdate'Update ReadyForPsbtFunding _OpenStatusUpdate'PsbtFund = Data.ProtoLens.Prism.prism' OpenStatusUpdate'PsbtFund (\ p__ -> case p__ of (OpenStatusUpdate'PsbtFund p__val) -> Prelude.Just p__val _otherwise -> Prelude.Nothing) {- | Fields : * 'Proto.LndGrpc_Fields.txidBytes' @:: Lens' OutPoint Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.txidStr' @:: Lens' OutPoint Data.Text.Text@ * 'Proto.LndGrpc_Fields.outputIndex' @:: Lens' OutPoint Data.Word.Word32@ -} data OutPoint = OutPoint'_constructor {_OutPoint'txidBytes :: !Data.ByteString.ByteString, _OutPoint'txidStr :: !Data.Text.Text, _OutPoint'outputIndex :: !Data.Word.Word32, _OutPoint'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show OutPoint where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField OutPoint "txidBytes" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OutPoint'txidBytes (\ x__ y__ -> x__ {_OutPoint'txidBytes = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OutPoint "txidStr" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OutPoint'txidStr (\ x__ y__ -> x__ {_OutPoint'txidStr = y__})) Prelude.id instance Data.ProtoLens.Field.HasField OutPoint "outputIndex" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _OutPoint'outputIndex (\ x__ y__ -> x__ {_OutPoint'outputIndex = y__})) Prelude.id instance Data.ProtoLens.Message OutPoint where messageName _ = Data.Text.pack "lnrpc.OutPoint" packedMessageDescriptor _ = "\n\ \\bOutPoint\DC2\GS\n\ \\n\ \txid_bytes\CAN\SOH \SOH(\fR\ttxidBytes\DC2\EM\n\ \\btxid_str\CAN\STX \SOH(\tR\atxidStr\DC2!\n\ \\foutput_index\CAN\ETX \SOH(\rR\voutputIndex" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let txidBytes__field_descriptor = Data.ProtoLens.FieldDescriptor "txid_bytes" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"txidBytes")) :: Data.ProtoLens.FieldDescriptor OutPoint txidStr__field_descriptor = Data.ProtoLens.FieldDescriptor "txid_str" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"txidStr")) :: Data.ProtoLens.FieldDescriptor OutPoint outputIndex__field_descriptor = Data.ProtoLens.FieldDescriptor "output_index" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"outputIndex")) :: Data.ProtoLens.FieldDescriptor OutPoint in Data.Map.fromList [(Data.ProtoLens.Tag 1, txidBytes__field_descriptor), (Data.ProtoLens.Tag 2, txidStr__field_descriptor), (Data.ProtoLens.Tag 3, outputIndex__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _OutPoint'_unknownFields (\ x__ y__ -> x__ {_OutPoint'_unknownFields = y__}) defMessage = OutPoint'_constructor {_OutPoint'txidBytes = Data.ProtoLens.fieldDefault, _OutPoint'txidStr = Data.ProtoLens.fieldDefault, _OutPoint'outputIndex = Data.ProtoLens.fieldDefault, _OutPoint'_unknownFields = []} parseMessage = let loop :: OutPoint -> Data.ProtoLens.Encoding.Bytes.Parser OutPoint 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)) "txid_bytes" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"txidBytes") 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)) "txid_str" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"txidStr") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "output_index" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"outputIndex") 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) "OutPoint" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"txidBytes") _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 @"txidStr") _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 @"outputIndex") _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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) instance Control.DeepSeq.NFData OutPoint where rnf = \ x__ -> Control.DeepSeq.deepseq (_OutPoint'_unknownFields x__) (Control.DeepSeq.deepseq (_OutPoint'txidBytes x__) (Control.DeepSeq.deepseq (_OutPoint'txidStr x__) (Control.DeepSeq.deepseq (_OutPoint'outputIndex x__) ()))) {- | Fields : * 'Proto.LndGrpc_Fields.destination' @:: Lens' PayReq Data.Text.Text@ * 'Proto.LndGrpc_Fields.paymentHash' @:: Lens' PayReq Data.Text.Text@ * 'Proto.LndGrpc_Fields.numSatoshis' @:: Lens' PayReq Data.Int.Int64@ * 'Proto.LndGrpc_Fields.timestamp' @:: Lens' PayReq Data.Int.Int64@ * 'Proto.LndGrpc_Fields.expiry' @:: Lens' PayReq Data.Int.Int64@ * 'Proto.LndGrpc_Fields.description' @:: Lens' PayReq Data.Text.Text@ * 'Proto.LndGrpc_Fields.descriptionHash' @:: Lens' PayReq Data.Text.Text@ * 'Proto.LndGrpc_Fields.fallbackAddr' @:: Lens' PayReq Data.Text.Text@ * 'Proto.LndGrpc_Fields.cltvExpiry' @:: Lens' PayReq Data.Int.Int64@ * 'Proto.LndGrpc_Fields.routeHints' @:: Lens' PayReq [RouteHint]@ * 'Proto.LndGrpc_Fields.vec'routeHints' @:: Lens' PayReq (Data.Vector.Vector RouteHint)@ * 'Proto.LndGrpc_Fields.paymentAddr' @:: Lens' PayReq Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.numMsat' @:: Lens' PayReq Data.Int.Int64@ * 'Proto.LndGrpc_Fields.features' @:: Lens' PayReq (Data.Map.Map Data.Word.Word32 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 RouteHint), _PayReq'paymentAddr :: !Data.ByteString.ByteString, _PayReq'numMsat :: !Data.Int.Int64, _PayReq'features :: !(Data.Map.Map Data.Word.Word32 Feature), _PayReq'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show PayReq where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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" [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 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 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 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 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.LndGrpc_Fields.key' @:: Lens' PayReq'FeaturesEntry Data.Word.Word32@ * 'Proto.LndGrpc_Fields.value' @:: Lens' PayReq'FeaturesEntry Feature@ * 'Proto.LndGrpc_Fields.maybe'value' @:: Lens' PayReq'FeaturesEntry (Prelude.Maybe Feature)@ -} data PayReq'FeaturesEntry = PayReq'FeaturesEntry'_constructor {_PayReq'FeaturesEntry'key :: !Data.Word.Word32, _PayReq'FeaturesEntry'value :: !(Prelude.Maybe Feature), _PayReq'FeaturesEntry'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show PayReq'FeaturesEntry where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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" 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 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 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.LndGrpc_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) instance Prelude.Show PayReqString where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.paymentHash' @:: Lens' Payment Data.Text.Text@ * 'Proto.LndGrpc_Fields.value' @:: Lens' Payment Data.Int.Int64@ * 'Proto.LndGrpc_Fields.creationDate' @:: Lens' Payment Data.Int.Int64@ * 'Proto.LndGrpc_Fields.fee' @:: Lens' Payment Data.Int.Int64@ * 'Proto.LndGrpc_Fields.paymentPreimage' @:: Lens' Payment Data.Text.Text@ * 'Proto.LndGrpc_Fields.valueSat' @:: Lens' Payment Data.Int.Int64@ * 'Proto.LndGrpc_Fields.valueMsat' @:: Lens' Payment Data.Int.Int64@ * 'Proto.LndGrpc_Fields.paymentRequest' @:: Lens' Payment Data.Text.Text@ * 'Proto.LndGrpc_Fields.status' @:: Lens' Payment Payment'PaymentStatus@ * 'Proto.LndGrpc_Fields.feeSat' @:: Lens' Payment Data.Int.Int64@ * 'Proto.LndGrpc_Fields.feeMsat' @:: Lens' Payment Data.Int.Int64@ * 'Proto.LndGrpc_Fields.creationTimeNs' @:: Lens' Payment Data.Int.Int64@ * 'Proto.LndGrpc_Fields.htlcs' @:: Lens' Payment [HTLCAttempt]@ * 'Proto.LndGrpc_Fields.vec'htlcs' @:: Lens' Payment (Data.Vector.Vector HTLCAttempt)@ * 'Proto.LndGrpc_Fields.paymentIndex' @:: Lens' Payment Data.Word.Word64@ * 'Proto.LndGrpc_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) instance Prelude.Show Payment where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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) 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) 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__ () newtype PaymentFailureReason'UnrecognizedValue = PaymentFailureReason'UnrecognizedValue Data.Int.Int32 deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) 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) 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__ () {- | Fields : * 'Proto.LndGrpc_Fields.rHashStr' @:: Lens' PaymentHash Data.Text.Text@ * 'Proto.LndGrpc_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) instance Prelude.Show PaymentHash where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.pubKey' @:: Lens' Peer Data.Text.Text@ * 'Proto.LndGrpc_Fields.address' @:: Lens' Peer Data.Text.Text@ * 'Proto.LndGrpc_Fields.bytesSent' @:: Lens' Peer Data.Word.Word64@ * 'Proto.LndGrpc_Fields.bytesRecv' @:: Lens' Peer Data.Word.Word64@ * 'Proto.LndGrpc_Fields.satSent' @:: Lens' Peer Data.Int.Int64@ * 'Proto.LndGrpc_Fields.satRecv' @:: Lens' Peer Data.Int.Int64@ * 'Proto.LndGrpc_Fields.inbound' @:: Lens' Peer Prelude.Bool@ * 'Proto.LndGrpc_Fields.pingTime' @:: Lens' Peer Data.Int.Int64@ * 'Proto.LndGrpc_Fields.syncType' @:: Lens' Peer Peer'SyncType@ * 'Proto.LndGrpc_Fields.features' @:: Lens' Peer (Data.Map.Map Data.Word.Word32 Feature)@ * 'Proto.LndGrpc_Fields.errors' @:: Lens' Peer [TimestampedError]@ * 'Proto.LndGrpc_Fields.vec'errors' @:: Lens' Peer (Data.Vector.Vector TimestampedError)@ * 'Proto.LndGrpc_Fields.flapCount' @:: Lens' Peer Data.Int.Int32@ * 'Proto.LndGrpc_Fields.lastFlapNs' @:: Lens' Peer Data.Int.Int64@ -} data Peer = Peer'_constructor {_Peer'pubKey :: !Data.Text.Text, _Peer'address :: !Data.Text.Text, _Peer'bytesSent :: !Data.Word.Word64, _Peer'bytesRecv :: !Data.Word.Word64, _Peer'satSent :: !Data.Int.Int64, _Peer'satRecv :: !Data.Int.Int64, _Peer'inbound :: !Prelude.Bool, _Peer'pingTime :: !Data.Int.Int64, _Peer'syncType :: !Peer'SyncType, _Peer'features :: !(Data.Map.Map Data.Word.Word32 Feature), _Peer'errors :: !(Data.Vector.Vector TimestampedError), _Peer'flapCount :: !Data.Int.Int32, _Peer'lastFlapNs :: !Data.Int.Int64, _Peer'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Peer where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField Peer "pubKey" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Peer'pubKey (\ x__ y__ -> x__ {_Peer'pubKey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Peer "address" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Peer'address (\ x__ y__ -> x__ {_Peer'address = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Peer "bytesSent" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Peer'bytesSent (\ x__ y__ -> x__ {_Peer'bytesSent = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Peer "bytesRecv" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Peer'bytesRecv (\ x__ y__ -> x__ {_Peer'bytesRecv = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Peer "satSent" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Peer'satSent (\ x__ y__ -> x__ {_Peer'satSent = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Peer "satRecv" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Peer'satRecv (\ x__ y__ -> x__ {_Peer'satRecv = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Peer "inbound" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Peer'inbound (\ x__ y__ -> x__ {_Peer'inbound = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Peer "pingTime" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Peer'pingTime (\ x__ y__ -> x__ {_Peer'pingTime = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Peer "syncType" Peer'SyncType where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Peer'syncType (\ x__ y__ -> x__ {_Peer'syncType = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Peer "features" (Data.Map.Map Data.Word.Word32 Feature) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Peer'features (\ x__ y__ -> x__ {_Peer'features = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Peer "errors" [TimestampedError] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Peer'errors (\ x__ y__ -> x__ {_Peer'errors = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField Peer "vec'errors" (Data.Vector.Vector TimestampedError) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Peer'errors (\ x__ y__ -> x__ {_Peer'errors = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Peer "flapCount" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Peer'flapCount (\ x__ y__ -> x__ {_Peer'flapCount = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Peer "lastFlapNs" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Peer'lastFlapNs (\ x__ y__ -> x__ {_Peer'lastFlapNs = y__})) Prelude.id instance Data.ProtoLens.Message Peer where messageName _ = Data.Text.pack "lnrpc.Peer" packedMessageDescriptor _ = "\n\ \\EOTPeer\DC2\ETB\n\ \\apub_key\CAN\SOH \SOH(\tR\ACKpubKey\DC2\CAN\n\ \\aaddress\CAN\ETX \SOH(\tR\aaddress\DC2\GS\n\ \\n\ \bytes_sent\CAN\EOT \SOH(\EOTR\tbytesSent\DC2\GS\n\ \\n\ \bytes_recv\CAN\ENQ \SOH(\EOTR\tbytesRecv\DC2\EM\n\ \\bsat_sent\CAN\ACK \SOH(\ETXR\asatSent\DC2\EM\n\ \\bsat_recv\CAN\a \SOH(\ETXR\asatRecv\DC2\CAN\n\ \\ainbound\CAN\b \SOH(\bR\ainbound\DC2\ESC\n\ \\tping_time\CAN\t \SOH(\ETXR\bpingTime\DC21\n\ \\tsync_type\CAN\n\ \ \SOH(\SO2\DC4.lnrpc.Peer.SyncTypeR\bsyncType\DC25\n\ \\bfeatures\CAN\v \ETX(\v2\EM.lnrpc.Peer.FeaturesEntryR\bfeatures\DC2/\n\ \\ACKerrors\CAN\f \ETX(\v2\ETB.lnrpc.TimestampedErrorR\ACKerrors\DC2\GS\n\ \\n\ \flap_count\CAN\r \SOH(\ENQR\tflapCount\DC2 \n\ \\flast_flap_ns\CAN\SO \SOH(\ETXR\n\ \lastFlapNs\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\"P\n\ \\bSyncType\DC2\DLE\n\ \\fUNKNOWN_SYNC\DLE\NUL\DC2\SI\n\ \\vACTIVE_SYNC\DLE\SOH\DC2\DLE\n\ \\fPASSIVE_SYNC\DLE\STX\DC2\SI\n\ \\vPINNED_SYNC\DLE\ETX" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let pubKey__field_descriptor = Data.ProtoLens.FieldDescriptor "pub_key" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pubKey")) :: Data.ProtoLens.FieldDescriptor Peer address__field_descriptor = Data.ProtoLens.FieldDescriptor "address" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"address")) :: Data.ProtoLens.FieldDescriptor Peer bytesSent__field_descriptor = Data.ProtoLens.FieldDescriptor "bytes_sent" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"bytesSent")) :: Data.ProtoLens.FieldDescriptor Peer bytesRecv__field_descriptor = Data.ProtoLens.FieldDescriptor "bytes_recv" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"bytesRecv")) :: Data.ProtoLens.FieldDescriptor Peer satSent__field_descriptor = Data.ProtoLens.FieldDescriptor "sat_sent" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"satSent")) :: Data.ProtoLens.FieldDescriptor Peer satRecv__field_descriptor = Data.ProtoLens.FieldDescriptor "sat_recv" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"satRecv")) :: Data.ProtoLens.FieldDescriptor Peer inbound__field_descriptor = Data.ProtoLens.FieldDescriptor "inbound" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"inbound")) :: Data.ProtoLens.FieldDescriptor Peer pingTime__field_descriptor = Data.ProtoLens.FieldDescriptor "ping_time" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pingTime")) :: Data.ProtoLens.FieldDescriptor Peer syncType__field_descriptor = Data.ProtoLens.FieldDescriptor "sync_type" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor Peer'SyncType) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"syncType")) :: Data.ProtoLens.FieldDescriptor Peer features__field_descriptor = Data.ProtoLens.FieldDescriptor "features" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Peer'FeaturesEntry) (Data.ProtoLens.MapField (Data.ProtoLens.Field.field @"key") (Data.ProtoLens.Field.field @"value") (Data.ProtoLens.Field.field @"features")) :: Data.ProtoLens.FieldDescriptor Peer errors__field_descriptor = Data.ProtoLens.FieldDescriptor "errors" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor TimestampedError) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"errors")) :: Data.ProtoLens.FieldDescriptor Peer flapCount__field_descriptor = Data.ProtoLens.FieldDescriptor "flap_count" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"flapCount")) :: Data.ProtoLens.FieldDescriptor Peer lastFlapNs__field_descriptor = Data.ProtoLens.FieldDescriptor "last_flap_ns" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"lastFlapNs")) :: Data.ProtoLens.FieldDescriptor Peer in Data.Map.fromList [(Data.ProtoLens.Tag 1, pubKey__field_descriptor), (Data.ProtoLens.Tag 3, address__field_descriptor), (Data.ProtoLens.Tag 4, bytesSent__field_descriptor), (Data.ProtoLens.Tag 5, bytesRecv__field_descriptor), (Data.ProtoLens.Tag 6, satSent__field_descriptor), (Data.ProtoLens.Tag 7, satRecv__field_descriptor), (Data.ProtoLens.Tag 8, inbound__field_descriptor), (Data.ProtoLens.Tag 9, pingTime__field_descriptor), (Data.ProtoLens.Tag 10, syncType__field_descriptor), (Data.ProtoLens.Tag 11, features__field_descriptor), (Data.ProtoLens.Tag 12, errors__field_descriptor), (Data.ProtoLens.Tag 13, flapCount__field_descriptor), (Data.ProtoLens.Tag 14, lastFlapNs__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Peer'_unknownFields (\ x__ y__ -> x__ {_Peer'_unknownFields = y__}) defMessage = Peer'_constructor {_Peer'pubKey = Data.ProtoLens.fieldDefault, _Peer'address = Data.ProtoLens.fieldDefault, _Peer'bytesSent = Data.ProtoLens.fieldDefault, _Peer'bytesRecv = Data.ProtoLens.fieldDefault, _Peer'satSent = Data.ProtoLens.fieldDefault, _Peer'satRecv = Data.ProtoLens.fieldDefault, _Peer'inbound = Data.ProtoLens.fieldDefault, _Peer'pingTime = Data.ProtoLens.fieldDefault, _Peer'syncType = Data.ProtoLens.fieldDefault, _Peer'features = Data.Map.empty, _Peer'errors = Data.Vector.Generic.empty, _Peer'flapCount = Data.ProtoLens.fieldDefault, _Peer'lastFlapNs = Data.ProtoLens.fieldDefault, _Peer'_unknownFields = []} parseMessage = let loop :: Peer -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TimestampedError -> Data.ProtoLens.Encoding.Bytes.Parser Peer loop x mutable'errors = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'errors <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'errors) (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'errors") frozen'errors 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)) "pub_key" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pubKey") y x) mutable'errors 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)) "address" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"address") y x) mutable'errors 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "bytes_sent" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bytesSent") y x) mutable'errors 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "bytes_recv" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bytesRecv") y x) mutable'errors 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "sat_sent" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"satSent") y x) mutable'errors 56 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "sat_recv" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"satRecv") y x) mutable'errors 64 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "inbound" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"inbound") y x) mutable'errors 72 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "ping_time" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pingTime") y x) mutable'errors 80 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) "sync_type" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"syncType") y x) mutable'errors 90 -> do !(entry :: Peer'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'errors) 98 -> do !y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "errors" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'errors y) loop x v 104 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "flap_count" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"flapCount") y x) mutable'errors 112 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "last_flap_ns" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"lastFlapNs") y x) mutable'errors wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'errors in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'errors <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'errors) "Peer" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"pubKey") _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 @"address") _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 @"bytesSent") _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 @"bytesRecv") _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 @"satSent") _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 @"satRecv") _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 @"inbound") _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.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"pingTime") _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 @"syncType") _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.<>) (Data.Monoid.mconcat (Prelude.map (\ _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 (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 :: Peer'FeaturesEntry))))) (Data.Map.toList (Lens.Family2.view (Data.ProtoLens.Field.field @"features") _x)))) ((Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (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.ProtoLens.encodeMessage _v)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'errors") _x)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"flapCount") _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.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"lastFlapNs") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 112) ((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 Peer where rnf = \ x__ -> Control.DeepSeq.deepseq (_Peer'_unknownFields x__) (Control.DeepSeq.deepseq (_Peer'pubKey x__) (Control.DeepSeq.deepseq (_Peer'address x__) (Control.DeepSeq.deepseq (_Peer'bytesSent x__) (Control.DeepSeq.deepseq (_Peer'bytesRecv x__) (Control.DeepSeq.deepseq (_Peer'satSent x__) (Control.DeepSeq.deepseq (_Peer'satRecv x__) (Control.DeepSeq.deepseq (_Peer'inbound x__) (Control.DeepSeq.deepseq (_Peer'pingTime x__) (Control.DeepSeq.deepseq (_Peer'syncType x__) (Control.DeepSeq.deepseq (_Peer'features x__) (Control.DeepSeq.deepseq (_Peer'errors x__) (Control.DeepSeq.deepseq (_Peer'flapCount x__) (Control.DeepSeq.deepseq (_Peer'lastFlapNs x__) ()))))))))))))) {- | Fields : * 'Proto.LndGrpc_Fields.key' @:: Lens' Peer'FeaturesEntry Data.Word.Word32@ * 'Proto.LndGrpc_Fields.value' @:: Lens' Peer'FeaturesEntry Feature@ * 'Proto.LndGrpc_Fields.maybe'value' @:: Lens' Peer'FeaturesEntry (Prelude.Maybe Feature)@ -} data Peer'FeaturesEntry = Peer'FeaturesEntry'_constructor {_Peer'FeaturesEntry'key :: !Data.Word.Word32, _Peer'FeaturesEntry'value :: !(Prelude.Maybe Feature), _Peer'FeaturesEntry'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Peer'FeaturesEntry where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField Peer'FeaturesEntry "key" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Peer'FeaturesEntry'key (\ x__ y__ -> x__ {_Peer'FeaturesEntry'key = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Peer'FeaturesEntry "value" Feature where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Peer'FeaturesEntry'value (\ x__ y__ -> x__ {_Peer'FeaturesEntry'value = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField Peer'FeaturesEntry "maybe'value" (Prelude.Maybe Feature) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Peer'FeaturesEntry'value (\ x__ y__ -> x__ {_Peer'FeaturesEntry'value = y__})) Prelude.id instance Data.ProtoLens.Message Peer'FeaturesEntry where messageName _ = Data.Text.pack "lnrpc.Peer.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 Peer'FeaturesEntry value__field_descriptor = Data.ProtoLens.FieldDescriptor "value" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Feature) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'value")) :: Data.ProtoLens.FieldDescriptor Peer'FeaturesEntry in Data.Map.fromList [(Data.ProtoLens.Tag 1, key__field_descriptor), (Data.ProtoLens.Tag 2, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Peer'FeaturesEntry'_unknownFields (\ x__ y__ -> x__ {_Peer'FeaturesEntry'_unknownFields = y__}) defMessage = Peer'FeaturesEntry'_constructor {_Peer'FeaturesEntry'key = Data.ProtoLens.fieldDefault, _Peer'FeaturesEntry'value = Prelude.Nothing, _Peer'FeaturesEntry'_unknownFields = []} parseMessage = let loop :: Peer'FeaturesEntry -> Data.ProtoLens.Encoding.Bytes.Parser Peer'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 Peer'FeaturesEntry where rnf = \ x__ -> Control.DeepSeq.deepseq (_Peer'FeaturesEntry'_unknownFields x__) (Control.DeepSeq.deepseq (_Peer'FeaturesEntry'key x__) (Control.DeepSeq.deepseq (_Peer'FeaturesEntry'value x__) ())) newtype Peer'SyncType'UnrecognizedValue = Peer'SyncType'UnrecognizedValue Data.Int.Int32 deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) data Peer'SyncType = Peer'UNKNOWN_SYNC | Peer'ACTIVE_SYNC | Peer'PASSIVE_SYNC | Peer'PINNED_SYNC | Peer'SyncType'Unrecognized !Peer'SyncType'UnrecognizedValue deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.MessageEnum Peer'SyncType where maybeToEnum 0 = Prelude.Just Peer'UNKNOWN_SYNC maybeToEnum 1 = Prelude.Just Peer'ACTIVE_SYNC maybeToEnum 2 = Prelude.Just Peer'PASSIVE_SYNC maybeToEnum 3 = Prelude.Just Peer'PINNED_SYNC maybeToEnum k = Prelude.Just (Peer'SyncType'Unrecognized (Peer'SyncType'UnrecognizedValue (Prelude.fromIntegral k))) showEnum Peer'UNKNOWN_SYNC = "UNKNOWN_SYNC" showEnum Peer'ACTIVE_SYNC = "ACTIVE_SYNC" showEnum Peer'PASSIVE_SYNC = "PASSIVE_SYNC" showEnum Peer'PINNED_SYNC = "PINNED_SYNC" showEnum (Peer'SyncType'Unrecognized (Peer'SyncType'UnrecognizedValue k)) = Prelude.show k readEnum k | (Prelude.==) k "UNKNOWN_SYNC" = Prelude.Just Peer'UNKNOWN_SYNC | (Prelude.==) k "ACTIVE_SYNC" = Prelude.Just Peer'ACTIVE_SYNC | (Prelude.==) k "PASSIVE_SYNC" = Prelude.Just Peer'PASSIVE_SYNC | (Prelude.==) k "PINNED_SYNC" = Prelude.Just Peer'PINNED_SYNC | Prelude.otherwise = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum instance Prelude.Bounded Peer'SyncType where minBound = Peer'UNKNOWN_SYNC maxBound = Peer'PINNED_SYNC instance Prelude.Enum Peer'SyncType where toEnum k__ = Prelude.maybe (Prelude.error ((Prelude.++) "toEnum: unknown value for enum SyncType: " (Prelude.show k__))) Prelude.id (Data.ProtoLens.maybeToEnum k__) fromEnum Peer'UNKNOWN_SYNC = 0 fromEnum Peer'ACTIVE_SYNC = 1 fromEnum Peer'PASSIVE_SYNC = 2 fromEnum Peer'PINNED_SYNC = 3 fromEnum (Peer'SyncType'Unrecognized (Peer'SyncType'UnrecognizedValue k)) = Prelude.fromIntegral k succ Peer'PINNED_SYNC = Prelude.error "Peer'SyncType.succ: bad argument Peer'PINNED_SYNC. This value would be out of bounds." succ Peer'UNKNOWN_SYNC = Peer'ACTIVE_SYNC succ Peer'ACTIVE_SYNC = Peer'PASSIVE_SYNC succ Peer'PASSIVE_SYNC = Peer'PINNED_SYNC succ (Peer'SyncType'Unrecognized _) = Prelude.error "Peer'SyncType.succ: bad argument: unrecognized value" pred Peer'UNKNOWN_SYNC = Prelude.error "Peer'SyncType.pred: bad argument Peer'UNKNOWN_SYNC. This value would be out of bounds." pred Peer'ACTIVE_SYNC = Peer'UNKNOWN_SYNC pred Peer'PASSIVE_SYNC = Peer'ACTIVE_SYNC pred Peer'PINNED_SYNC = Peer'PASSIVE_SYNC pred (Peer'SyncType'Unrecognized _) = Prelude.error "Peer'SyncType.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 Peer'SyncType where fieldDefault = Peer'UNKNOWN_SYNC instance Control.DeepSeq.NFData Peer'SyncType where rnf x__ = Prelude.seq x__ () {- | Fields : * 'Proto.LndGrpc_Fields.pubKey' @:: Lens' PeerEvent Data.Text.Text@ * 'Proto.LndGrpc_Fields.type'' @:: Lens' PeerEvent PeerEvent'EventType@ -} data PeerEvent = PeerEvent'_constructor {_PeerEvent'pubKey :: !Data.Text.Text, _PeerEvent'type' :: !PeerEvent'EventType, _PeerEvent'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show PeerEvent where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField PeerEvent "pubKey" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PeerEvent'pubKey (\ x__ y__ -> x__ {_PeerEvent'pubKey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PeerEvent "type'" PeerEvent'EventType where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PeerEvent'type' (\ x__ y__ -> x__ {_PeerEvent'type' = y__})) Prelude.id instance Data.ProtoLens.Message PeerEvent where messageName _ = Data.Text.pack "lnrpc.PeerEvent" packedMessageDescriptor _ = "\n\ \\tPeerEvent\DC2\ETB\n\ \\apub_key\CAN\SOH \SOH(\tR\ACKpubKey\DC2.\n\ \\EOTtype\CAN\STX \SOH(\SO2\SUB.lnrpc.PeerEvent.EventTypeR\EOTtype\".\n\ \\tEventType\DC2\SI\n\ \\vPEER_ONLINE\DLE\NUL\DC2\DLE\n\ \\fPEER_OFFLINE\DLE\SOH" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let pubKey__field_descriptor = Data.ProtoLens.FieldDescriptor "pub_key" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pubKey")) :: Data.ProtoLens.FieldDescriptor PeerEvent type'__field_descriptor = Data.ProtoLens.FieldDescriptor "type" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor PeerEvent'EventType) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"type'")) :: Data.ProtoLens.FieldDescriptor PeerEvent in Data.Map.fromList [(Data.ProtoLens.Tag 1, pubKey__field_descriptor), (Data.ProtoLens.Tag 2, type'__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _PeerEvent'_unknownFields (\ x__ y__ -> x__ {_PeerEvent'_unknownFields = y__}) defMessage = PeerEvent'_constructor {_PeerEvent'pubKey = Data.ProtoLens.fieldDefault, _PeerEvent'type' = Data.ProtoLens.fieldDefault, _PeerEvent'_unknownFields = []} parseMessage = let loop :: PeerEvent -> Data.ProtoLens.Encoding.Bytes.Parser PeerEvent 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)) "pub_key" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pubKey") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) "type" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") 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) "PeerEvent" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"pubKey") _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 @"type'") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 16) ((Prelude..) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) Prelude.fromEnum _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))) instance Control.DeepSeq.NFData PeerEvent where rnf = \ x__ -> Control.DeepSeq.deepseq (_PeerEvent'_unknownFields x__) (Control.DeepSeq.deepseq (_PeerEvent'pubKey x__) (Control.DeepSeq.deepseq (_PeerEvent'type' x__) ())) newtype PeerEvent'EventType'UnrecognizedValue = PeerEvent'EventType'UnrecognizedValue Data.Int.Int32 deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) data PeerEvent'EventType = PeerEvent'PEER_ONLINE | PeerEvent'PEER_OFFLINE | PeerEvent'EventType'Unrecognized !PeerEvent'EventType'UnrecognizedValue deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.MessageEnum PeerEvent'EventType where maybeToEnum 0 = Prelude.Just PeerEvent'PEER_ONLINE maybeToEnum 1 = Prelude.Just PeerEvent'PEER_OFFLINE maybeToEnum k = Prelude.Just (PeerEvent'EventType'Unrecognized (PeerEvent'EventType'UnrecognizedValue (Prelude.fromIntegral k))) showEnum PeerEvent'PEER_ONLINE = "PEER_ONLINE" showEnum PeerEvent'PEER_OFFLINE = "PEER_OFFLINE" showEnum (PeerEvent'EventType'Unrecognized (PeerEvent'EventType'UnrecognizedValue k)) = Prelude.show k readEnum k | (Prelude.==) k "PEER_ONLINE" = Prelude.Just PeerEvent'PEER_ONLINE | (Prelude.==) k "PEER_OFFLINE" = Prelude.Just PeerEvent'PEER_OFFLINE | Prelude.otherwise = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum instance Prelude.Bounded PeerEvent'EventType where minBound = PeerEvent'PEER_ONLINE maxBound = PeerEvent'PEER_OFFLINE instance Prelude.Enum PeerEvent'EventType where toEnum k__ = Prelude.maybe (Prelude.error ((Prelude.++) "toEnum: unknown value for enum EventType: " (Prelude.show k__))) Prelude.id (Data.ProtoLens.maybeToEnum k__) fromEnum PeerEvent'PEER_ONLINE = 0 fromEnum PeerEvent'PEER_OFFLINE = 1 fromEnum (PeerEvent'EventType'Unrecognized (PeerEvent'EventType'UnrecognizedValue k)) = Prelude.fromIntegral k succ PeerEvent'PEER_OFFLINE = Prelude.error "PeerEvent'EventType.succ: bad argument PeerEvent'PEER_OFFLINE. This value would be out of bounds." succ PeerEvent'PEER_ONLINE = PeerEvent'PEER_OFFLINE succ (PeerEvent'EventType'Unrecognized _) = Prelude.error "PeerEvent'EventType.succ: bad argument: unrecognized value" pred PeerEvent'PEER_ONLINE = Prelude.error "PeerEvent'EventType.pred: bad argument PeerEvent'PEER_ONLINE. This value would be out of bounds." pred PeerEvent'PEER_OFFLINE = PeerEvent'PEER_ONLINE pred (PeerEvent'EventType'Unrecognized _) = Prelude.error "PeerEvent'EventType.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 PeerEvent'EventType where fieldDefault = PeerEvent'PEER_ONLINE instance Control.DeepSeq.NFData PeerEvent'EventType where rnf x__ = Prelude.seq x__ () {- | Fields : -} data PeerEventSubscription = PeerEventSubscription'_constructor {_PeerEventSubscription'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show PeerEventSubscription where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Message PeerEventSubscription where messageName _ = Data.Text.pack "lnrpc.PeerEventSubscription" packedMessageDescriptor _ = "\n\ \\NAKPeerEventSubscription" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let in Data.Map.fromList [] unknownFields = Lens.Family2.Unchecked.lens _PeerEventSubscription'_unknownFields (\ x__ y__ -> x__ {_PeerEventSubscription'_unknownFields = y__}) defMessage = PeerEventSubscription'_constructor {_PeerEventSubscription'_unknownFields = []} parseMessage = let loop :: PeerEventSubscription -> Data.ProtoLens.Encoding.Bytes.Parser PeerEventSubscription 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) "PeerEventSubscription" buildMessage = \ _x -> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) instance Control.DeepSeq.NFData PeerEventSubscription where rnf = \ x__ -> Control.DeepSeq.deepseq (_PeerEventSubscription'_unknownFields x__) () {- | Fields : -} data PendingChannelsRequest = PendingChannelsRequest'_constructor {_PendingChannelsRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show PendingChannelsRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Message PendingChannelsRequest where messageName _ = Data.Text.pack "lnrpc.PendingChannelsRequest" packedMessageDescriptor _ = "\n\ \\SYNPendingChannelsRequest" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let in Data.Map.fromList [] unknownFields = Lens.Family2.Unchecked.lens _PendingChannelsRequest'_unknownFields (\ x__ y__ -> x__ {_PendingChannelsRequest'_unknownFields = y__}) defMessage = PendingChannelsRequest'_constructor {_PendingChannelsRequest'_unknownFields = []} parseMessage = let loop :: PendingChannelsRequest -> Data.ProtoLens.Encoding.Bytes.Parser PendingChannelsRequest 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) "PendingChannelsRequest" buildMessage = \ _x -> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) instance Control.DeepSeq.NFData PendingChannelsRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_PendingChannelsRequest'_unknownFields x__) () {- | Fields : * 'Proto.LndGrpc_Fields.totalLimboBalance' @:: Lens' PendingChannelsResponse Data.Int.Int64@ * 'Proto.LndGrpc_Fields.pendingOpenChannels' @:: Lens' PendingChannelsResponse [PendingChannelsResponse'PendingOpenChannel]@ * 'Proto.LndGrpc_Fields.vec'pendingOpenChannels' @:: Lens' PendingChannelsResponse (Data.Vector.Vector PendingChannelsResponse'PendingOpenChannel)@ * 'Proto.LndGrpc_Fields.pendingClosingChannels' @:: Lens' PendingChannelsResponse [PendingChannelsResponse'ClosedChannel]@ * 'Proto.LndGrpc_Fields.vec'pendingClosingChannels' @:: Lens' PendingChannelsResponse (Data.Vector.Vector PendingChannelsResponse'ClosedChannel)@ * 'Proto.LndGrpc_Fields.pendingForceClosingChannels' @:: Lens' PendingChannelsResponse [PendingChannelsResponse'ForceClosedChannel]@ * 'Proto.LndGrpc_Fields.vec'pendingForceClosingChannels' @:: Lens' PendingChannelsResponse (Data.Vector.Vector PendingChannelsResponse'ForceClosedChannel)@ * 'Proto.LndGrpc_Fields.waitingCloseChannels' @:: Lens' PendingChannelsResponse [PendingChannelsResponse'WaitingCloseChannel]@ * 'Proto.LndGrpc_Fields.vec'waitingCloseChannels' @:: Lens' PendingChannelsResponse (Data.Vector.Vector PendingChannelsResponse'WaitingCloseChannel)@ -} data PendingChannelsResponse = PendingChannelsResponse'_constructor {_PendingChannelsResponse'totalLimboBalance :: !Data.Int.Int64, _PendingChannelsResponse'pendingOpenChannels :: !(Data.Vector.Vector PendingChannelsResponse'PendingOpenChannel), _PendingChannelsResponse'pendingClosingChannels :: !(Data.Vector.Vector PendingChannelsResponse'ClosedChannel), _PendingChannelsResponse'pendingForceClosingChannels :: !(Data.Vector.Vector PendingChannelsResponse'ForceClosedChannel), _PendingChannelsResponse'waitingCloseChannels :: !(Data.Vector.Vector PendingChannelsResponse'WaitingCloseChannel), _PendingChannelsResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show PendingChannelsResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField PendingChannelsResponse "totalLimboBalance" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'totalLimboBalance (\ x__ y__ -> x__ {_PendingChannelsResponse'totalLimboBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse "pendingOpenChannels" [PendingChannelsResponse'PendingOpenChannel] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'pendingOpenChannels (\ x__ y__ -> x__ {_PendingChannelsResponse'pendingOpenChannels = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField PendingChannelsResponse "vec'pendingOpenChannels" (Data.Vector.Vector PendingChannelsResponse'PendingOpenChannel) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'pendingOpenChannels (\ x__ y__ -> x__ {_PendingChannelsResponse'pendingOpenChannels = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse "pendingClosingChannels" [PendingChannelsResponse'ClosedChannel] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'pendingClosingChannels (\ x__ y__ -> x__ {_PendingChannelsResponse'pendingClosingChannels = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField PendingChannelsResponse "vec'pendingClosingChannels" (Data.Vector.Vector PendingChannelsResponse'ClosedChannel) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'pendingClosingChannels (\ x__ y__ -> x__ {_PendingChannelsResponse'pendingClosingChannels = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse "pendingForceClosingChannels" [PendingChannelsResponse'ForceClosedChannel] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'pendingForceClosingChannels (\ x__ y__ -> x__ {_PendingChannelsResponse'pendingForceClosingChannels = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField PendingChannelsResponse "vec'pendingForceClosingChannels" (Data.Vector.Vector PendingChannelsResponse'ForceClosedChannel) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'pendingForceClosingChannels (\ x__ y__ -> x__ {_PendingChannelsResponse'pendingForceClosingChannels = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse "waitingCloseChannels" [PendingChannelsResponse'WaitingCloseChannel] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'waitingCloseChannels (\ x__ y__ -> x__ {_PendingChannelsResponse'waitingCloseChannels = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField PendingChannelsResponse "vec'waitingCloseChannels" (Data.Vector.Vector PendingChannelsResponse'WaitingCloseChannel) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'waitingCloseChannels (\ x__ y__ -> x__ {_PendingChannelsResponse'waitingCloseChannels = y__})) Prelude.id instance Data.ProtoLens.Message PendingChannelsResponse where messageName _ = Data.Text.pack "lnrpc.PendingChannelsResponse" packedMessageDescriptor _ = "\n\ \\ETBPendingChannelsResponse\DC2.\n\ \\DC3total_limbo_balance\CAN\SOH \SOH(\ETXR\DC1totalLimboBalance\DC2e\n\ \\NAKpending_open_channels\CAN\STX \ETX(\v21.lnrpc.PendingChannelsResponse.PendingOpenChannelR\DC3pendingOpenChannels\DC2j\n\ \\CANpending_closing_channels\CAN\ETX \ETX(\v2,.lnrpc.PendingChannelsResponse.ClosedChannelR\SYNpendingClosingChannelsB\STX\CAN\SOH\DC2v\n\ \\RSpending_force_closing_channels\CAN\EOT \ETX(\v21.lnrpc.PendingChannelsResponse.ForceClosedChannelR\ESCpendingForceClosingChannels\DC2h\n\ \\SYNwaiting_close_channels\CAN\ENQ \ETX(\v22.lnrpc.PendingChannelsResponse.WaitingCloseChannelR\DC4waitingCloseChannels\SUB\161\ETX\n\ \\SOPendingChannel\DC2&\n\ \\SIremote_node_pub\CAN\SOH \SOH(\tR\rremoteNodePub\DC2#\n\ \\rchannel_point\CAN\STX \SOH(\tR\fchannelPoint\DC2\SUB\n\ \\bcapacity\CAN\ETX \SOH(\ETXR\bcapacity\DC2#\n\ \\rlocal_balance\CAN\EOT \SOH(\ETXR\flocalBalance\DC2%\n\ \\SOremote_balance\CAN\ENQ \SOH(\ETXR\rremoteBalance\DC23\n\ \\SYNlocal_chan_reserve_sat\CAN\ACK \SOH(\ETXR\DC3localChanReserveSat\DC25\n\ \\ETBremote_chan_reserve_sat\CAN\a \SOH(\ETXR\DC4remoteChanReserveSat\DC2.\n\ \\tinitiator\CAN\b \SOH(\SO2\DLE.lnrpc.InitiatorR\tinitiator\DC2>\n\ \\SIcommitment_type\CAN\t \SOH(\SO2\NAK.lnrpc.CommitmentTypeR\SOcommitmentType\SUB\240\SOH\n\ \\DC2PendingOpenChannel\DC2G\n\ \\achannel\CAN\SOH \SOH(\v2-.lnrpc.PendingChannelsResponse.PendingChannelR\achannel\DC2/\n\ \\DC3confirmation_height\CAN\STX \SOH(\rR\DC2confirmationHeight\DC2\GS\n\ \\n\ \commit_fee\CAN\EOT \SOH(\ETXR\tcommitFee\DC2#\n\ \\rcommit_weight\CAN\ENQ \SOH(\ETXR\fcommitWeight\DC2\FS\n\ \\n\ \fee_per_kw\CAN\ACK \SOH(\ETXR\bfeePerKw\SUB\209\SOH\n\ \\DC3WaitingCloseChannel\DC2G\n\ \\achannel\CAN\SOH \SOH(\v2-.lnrpc.PendingChannelsResponse.PendingChannelR\achannel\DC2#\n\ \\rlimbo_balance\CAN\STX \SOH(\ETXR\flimboBalance\DC2L\n\ \\vcommitments\CAN\ETX \SOH(\v2*.lnrpc.PendingChannelsResponse.CommitmentsR\vcommitments\SUB\163\STX\n\ \\vCommitments\DC2\GS\n\ \\n\ \local_txid\CAN\SOH \SOH(\tR\tlocalTxid\DC2\US\n\ \\vremote_txid\CAN\STX \SOH(\tR\n\ \remoteTxid\DC2.\n\ \\DC3remote_pending_txid\CAN\ETX \SOH(\tR\DC1remotePendingTxid\DC2/\n\ \\DC4local_commit_fee_sat\CAN\EOT \SOH(\EOTR\DC1localCommitFeeSat\DC21\n\ \\NAKremote_commit_fee_sat\CAN\ENQ \SOH(\EOTR\DC2remoteCommitFeeSat\DC2@\n\ \\GSremote_pending_commit_fee_sat\CAN\ACK \SOH(\EOTR\EMremotePendingCommitFeeSat\SUB{\n\ \\rClosedChannel\DC2G\n\ \\achannel\CAN\SOH \SOH(\v2-.lnrpc.PendingChannelsResponse.PendingChannelR\achannel\DC2!\n\ \\fclosing_txid\CAN\STX \SOH(\tR\vclosingTxid\SUB\238\ETX\n\ \\DC2ForceClosedChannel\DC2G\n\ \\achannel\CAN\SOH \SOH(\v2-.lnrpc.PendingChannelsResponse.PendingChannelR\achannel\DC2!\n\ \\fclosing_txid\CAN\STX \SOH(\tR\vclosingTxid\DC2#\n\ \\rlimbo_balance\CAN\ETX \SOH(\ETXR\flimboBalance\DC2'\n\ \\SImaturity_height\CAN\EOT \SOH(\rR\SOmaturityHeight\DC2.\n\ \\DC3blocks_til_maturity\CAN\ENQ \SOH(\ENQR\DC1blocksTilMaturity\DC2+\n\ \\DC1recovered_balance\CAN\ACK \SOH(\ETXR\DLErecoveredBalance\DC27\n\ \\rpending_htlcs\CAN\b \ETX(\v2\DC2.lnrpc.PendingHTLCR\fpendingHtlcs\DC2U\n\ \\ACKanchor\CAN\t \SOH(\SO2=.lnrpc.PendingChannelsResponse.ForceClosedChannel.AnchorStateR\ACKanchor\"1\n\ \\vAnchorState\DC2\t\n\ \\ENQLIMBO\DLE\NUL\DC2\r\n\ \\tRECOVERED\DLE\SOH\DC2\b\n\ \\EOTLOST\DLE\STX" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let totalLimboBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "total_limbo_balance" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"totalLimboBalance")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse pendingOpenChannels__field_descriptor = Data.ProtoLens.FieldDescriptor "pending_open_channels" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor PendingChannelsResponse'PendingOpenChannel) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"pendingOpenChannels")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse pendingClosingChannels__field_descriptor = Data.ProtoLens.FieldDescriptor "pending_closing_channels" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor PendingChannelsResponse'ClosedChannel) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"pendingClosingChannels")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse pendingForceClosingChannels__field_descriptor = Data.ProtoLens.FieldDescriptor "pending_force_closing_channels" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor PendingChannelsResponse'ForceClosedChannel) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"pendingForceClosingChannels")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse waitingCloseChannels__field_descriptor = Data.ProtoLens.FieldDescriptor "waiting_close_channels" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor PendingChannelsResponse'WaitingCloseChannel) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"waitingCloseChannels")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, totalLimboBalance__field_descriptor), (Data.ProtoLens.Tag 2, pendingOpenChannels__field_descriptor), (Data.ProtoLens.Tag 3, pendingClosingChannels__field_descriptor), (Data.ProtoLens.Tag 4, pendingForceClosingChannels__field_descriptor), (Data.ProtoLens.Tag 5, waitingCloseChannels__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _PendingChannelsResponse'_unknownFields (\ x__ y__ -> x__ {_PendingChannelsResponse'_unknownFields = y__}) defMessage = PendingChannelsResponse'_constructor {_PendingChannelsResponse'totalLimboBalance = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'pendingOpenChannels = Data.Vector.Generic.empty, _PendingChannelsResponse'pendingClosingChannels = Data.Vector.Generic.empty, _PendingChannelsResponse'pendingForceClosingChannels = Data.Vector.Generic.empty, _PendingChannelsResponse'waitingCloseChannels = Data.Vector.Generic.empty, _PendingChannelsResponse'_unknownFields = []} parseMessage = let loop :: PendingChannelsResponse -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PendingChannelsResponse'ClosedChannel -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PendingChannelsResponse'ForceClosedChannel -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PendingChannelsResponse'PendingOpenChannel -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PendingChannelsResponse'WaitingCloseChannel -> Data.ProtoLens.Encoding.Bytes.Parser PendingChannelsResponse loop x mutable'pendingClosingChannels mutable'pendingForceClosingChannels mutable'pendingOpenChannels mutable'waitingCloseChannels = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'pendingClosingChannels <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'pendingClosingChannels) frozen'pendingForceClosingChannels <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'pendingForceClosingChannels) frozen'pendingOpenChannels <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'pendingOpenChannels) frozen'waitingCloseChannels <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'waitingCloseChannels) (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'pendingClosingChannels") frozen'pendingClosingChannels (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'pendingForceClosingChannels") frozen'pendingForceClosingChannels (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'pendingOpenChannels") frozen'pendingOpenChannels (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'waitingCloseChannels") frozen'waitingCloseChannels 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) "total_limbo_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"totalLimboBalance") y x) mutable'pendingClosingChannels mutable'pendingForceClosingChannels mutable'pendingOpenChannels mutable'waitingCloseChannels 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) "pending_open_channels" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'pendingOpenChannels y) loop x mutable'pendingClosingChannels mutable'pendingForceClosingChannels v mutable'waitingCloseChannels 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) "pending_closing_channels" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'pendingClosingChannels y) loop x v mutable'pendingForceClosingChannels mutable'pendingOpenChannels mutable'waitingCloseChannels 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) "pending_force_closing_channels" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'pendingForceClosingChannels y) loop x mutable'pendingClosingChannels v mutable'pendingOpenChannels mutable'waitingCloseChannels 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) "waiting_close_channels" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'waitingCloseChannels y) loop x mutable'pendingClosingChannels mutable'pendingForceClosingChannels mutable'pendingOpenChannels v wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'pendingClosingChannels mutable'pendingForceClosingChannels mutable'pendingOpenChannels mutable'waitingCloseChannels in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'pendingClosingChannels <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'pendingForceClosingChannels <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'pendingOpenChannels <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'waitingCloseChannels <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'pendingClosingChannels mutable'pendingForceClosingChannels mutable'pendingOpenChannels mutable'waitingCloseChannels) "PendingChannelsResponse" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"totalLimboBalance") _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.<>) (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'pendingOpenChannels") _x)) ((Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 26) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'pendingClosingChannels") _x)) ((Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 34) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'pendingForceClosingChannels") _x)) ((Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _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)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'waitingCloseChannels") _x)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))) instance Control.DeepSeq.NFData PendingChannelsResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_PendingChannelsResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'totalLimboBalance x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'pendingOpenChannels x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'pendingClosingChannels x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'pendingForceClosingChannels x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'waitingCloseChannels x__) ()))))) {- | Fields : * 'Proto.LndGrpc_Fields.channel' @:: Lens' PendingChannelsResponse'ClosedChannel PendingChannelsResponse'PendingChannel@ * 'Proto.LndGrpc_Fields.maybe'channel' @:: Lens' PendingChannelsResponse'ClosedChannel (Prelude.Maybe PendingChannelsResponse'PendingChannel)@ * 'Proto.LndGrpc_Fields.closingTxid' @:: Lens' PendingChannelsResponse'ClosedChannel Data.Text.Text@ -} data PendingChannelsResponse'ClosedChannel = PendingChannelsResponse'ClosedChannel'_constructor {_PendingChannelsResponse'ClosedChannel'channel :: !(Prelude.Maybe PendingChannelsResponse'PendingChannel), _PendingChannelsResponse'ClosedChannel'closingTxid :: !Data.Text.Text, _PendingChannelsResponse'ClosedChannel'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show PendingChannelsResponse'ClosedChannel where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField PendingChannelsResponse'ClosedChannel "channel" PendingChannelsResponse'PendingChannel where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'ClosedChannel'channel (\ x__ y__ -> x__ {_PendingChannelsResponse'ClosedChannel'channel = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField PendingChannelsResponse'ClosedChannel "maybe'channel" (Prelude.Maybe PendingChannelsResponse'PendingChannel) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'ClosedChannel'channel (\ x__ y__ -> x__ {_PendingChannelsResponse'ClosedChannel'channel = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'ClosedChannel "closingTxid" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'ClosedChannel'closingTxid (\ x__ y__ -> x__ {_PendingChannelsResponse'ClosedChannel'closingTxid = y__})) Prelude.id instance Data.ProtoLens.Message PendingChannelsResponse'ClosedChannel where messageName _ = Data.Text.pack "lnrpc.PendingChannelsResponse.ClosedChannel" packedMessageDescriptor _ = "\n\ \\rClosedChannel\DC2G\n\ \\achannel\CAN\SOH \SOH(\v2-.lnrpc.PendingChannelsResponse.PendingChannelR\achannel\DC2!\n\ \\fclosing_txid\CAN\STX \SOH(\tR\vclosingTxid" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let channel__field_descriptor = Data.ProtoLens.FieldDescriptor "channel" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor PendingChannelsResponse'PendingChannel) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'channel")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'ClosedChannel closingTxid__field_descriptor = Data.ProtoLens.FieldDescriptor "closing_txid" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"closingTxid")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'ClosedChannel in Data.Map.fromList [(Data.ProtoLens.Tag 1, channel__field_descriptor), (Data.ProtoLens.Tag 2, closingTxid__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _PendingChannelsResponse'ClosedChannel'_unknownFields (\ x__ y__ -> x__ {_PendingChannelsResponse'ClosedChannel'_unknownFields = y__}) defMessage = PendingChannelsResponse'ClosedChannel'_constructor {_PendingChannelsResponse'ClosedChannel'channel = Prelude.Nothing, _PendingChannelsResponse'ClosedChannel'closingTxid = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'ClosedChannel'_unknownFields = []} parseMessage = let loop :: PendingChannelsResponse'ClosedChannel -> Data.ProtoLens.Encoding.Bytes.Parser PendingChannelsResponse'ClosedChannel 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" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"channel") 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)) "closing_txid" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"closingTxid") 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) "ClosedChannel" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'channel") _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 @"closingTxid") _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 PendingChannelsResponse'ClosedChannel where rnf = \ x__ -> Control.DeepSeq.deepseq (_PendingChannelsResponse'ClosedChannel'_unknownFields x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'ClosedChannel'channel x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'ClosedChannel'closingTxid x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.localTxid' @:: Lens' PendingChannelsResponse'Commitments Data.Text.Text@ * 'Proto.LndGrpc_Fields.remoteTxid' @:: Lens' PendingChannelsResponse'Commitments Data.Text.Text@ * 'Proto.LndGrpc_Fields.remotePendingTxid' @:: Lens' PendingChannelsResponse'Commitments Data.Text.Text@ * 'Proto.LndGrpc_Fields.localCommitFeeSat' @:: Lens' PendingChannelsResponse'Commitments Data.Word.Word64@ * 'Proto.LndGrpc_Fields.remoteCommitFeeSat' @:: Lens' PendingChannelsResponse'Commitments Data.Word.Word64@ * 'Proto.LndGrpc_Fields.remotePendingCommitFeeSat' @:: Lens' PendingChannelsResponse'Commitments Data.Word.Word64@ -} data PendingChannelsResponse'Commitments = PendingChannelsResponse'Commitments'_constructor {_PendingChannelsResponse'Commitments'localTxid :: !Data.Text.Text, _PendingChannelsResponse'Commitments'remoteTxid :: !Data.Text.Text, _PendingChannelsResponse'Commitments'remotePendingTxid :: !Data.Text.Text, _PendingChannelsResponse'Commitments'localCommitFeeSat :: !Data.Word.Word64, _PendingChannelsResponse'Commitments'remoteCommitFeeSat :: !Data.Word.Word64, _PendingChannelsResponse'Commitments'remotePendingCommitFeeSat :: !Data.Word.Word64, _PendingChannelsResponse'Commitments'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show PendingChannelsResponse'Commitments where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField PendingChannelsResponse'Commitments "localTxid" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'Commitments'localTxid (\ x__ y__ -> x__ {_PendingChannelsResponse'Commitments'localTxid = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'Commitments "remoteTxid" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'Commitments'remoteTxid (\ x__ y__ -> x__ {_PendingChannelsResponse'Commitments'remoteTxid = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'Commitments "remotePendingTxid" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'Commitments'remotePendingTxid (\ x__ y__ -> x__ {_PendingChannelsResponse'Commitments'remotePendingTxid = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'Commitments "localCommitFeeSat" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'Commitments'localCommitFeeSat (\ x__ y__ -> x__ {_PendingChannelsResponse'Commitments'localCommitFeeSat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'Commitments "remoteCommitFeeSat" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'Commitments'remoteCommitFeeSat (\ x__ y__ -> x__ {_PendingChannelsResponse'Commitments'remoteCommitFeeSat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'Commitments "remotePendingCommitFeeSat" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'Commitments'remotePendingCommitFeeSat (\ x__ y__ -> x__ {_PendingChannelsResponse'Commitments'remotePendingCommitFeeSat = y__})) Prelude.id instance Data.ProtoLens.Message PendingChannelsResponse'Commitments where messageName _ = Data.Text.pack "lnrpc.PendingChannelsResponse.Commitments" packedMessageDescriptor _ = "\n\ \\vCommitments\DC2\GS\n\ \\n\ \local_txid\CAN\SOH \SOH(\tR\tlocalTxid\DC2\US\n\ \\vremote_txid\CAN\STX \SOH(\tR\n\ \remoteTxid\DC2.\n\ \\DC3remote_pending_txid\CAN\ETX \SOH(\tR\DC1remotePendingTxid\DC2/\n\ \\DC4local_commit_fee_sat\CAN\EOT \SOH(\EOTR\DC1localCommitFeeSat\DC21\n\ \\NAKremote_commit_fee_sat\CAN\ENQ \SOH(\EOTR\DC2remoteCommitFeeSat\DC2@\n\ \\GSremote_pending_commit_fee_sat\CAN\ACK \SOH(\EOTR\EMremotePendingCommitFeeSat" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let localTxid__field_descriptor = Data.ProtoLens.FieldDescriptor "local_txid" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"localTxid")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'Commitments remoteTxid__field_descriptor = Data.ProtoLens.FieldDescriptor "remote_txid" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"remoteTxid")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'Commitments remotePendingTxid__field_descriptor = Data.ProtoLens.FieldDescriptor "remote_pending_txid" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"remotePendingTxid")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'Commitments localCommitFeeSat__field_descriptor = Data.ProtoLens.FieldDescriptor "local_commit_fee_sat" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"localCommitFeeSat")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'Commitments remoteCommitFeeSat__field_descriptor = Data.ProtoLens.FieldDescriptor "remote_commit_fee_sat" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"remoteCommitFeeSat")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'Commitments remotePendingCommitFeeSat__field_descriptor = Data.ProtoLens.FieldDescriptor "remote_pending_commit_fee_sat" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"remotePendingCommitFeeSat")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'Commitments in Data.Map.fromList [(Data.ProtoLens.Tag 1, localTxid__field_descriptor), (Data.ProtoLens.Tag 2, remoteTxid__field_descriptor), (Data.ProtoLens.Tag 3, remotePendingTxid__field_descriptor), (Data.ProtoLens.Tag 4, localCommitFeeSat__field_descriptor), (Data.ProtoLens.Tag 5, remoteCommitFeeSat__field_descriptor), (Data.ProtoLens.Tag 6, remotePendingCommitFeeSat__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _PendingChannelsResponse'Commitments'_unknownFields (\ x__ y__ -> x__ {_PendingChannelsResponse'Commitments'_unknownFields = y__}) defMessage = PendingChannelsResponse'Commitments'_constructor {_PendingChannelsResponse'Commitments'localTxid = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'Commitments'remoteTxid = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'Commitments'remotePendingTxid = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'Commitments'localCommitFeeSat = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'Commitments'remoteCommitFeeSat = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'Commitments'remotePendingCommitFeeSat = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'Commitments'_unknownFields = []} parseMessage = let loop :: PendingChannelsResponse'Commitments -> Data.ProtoLens.Encoding.Bytes.Parser PendingChannelsResponse'Commitments 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)) "local_txid" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"localTxid") 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)) "remote_txid" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"remoteTxid") 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)) "remote_pending_txid" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"remotePendingTxid") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "local_commit_fee_sat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"localCommitFeeSat") y x) 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "remote_commit_fee_sat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"remoteCommitFeeSat") y x) 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "remote_pending_commit_fee_sat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"remotePendingCommitFeeSat") 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) "Commitments" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"localTxid") _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 @"remoteTxid") _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 @"remotePendingTxid") _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 @"localCommitFeeSat") _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 @"remoteCommitFeeSat") _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 @"remotePendingCommitFeeSat") _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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))) instance Control.DeepSeq.NFData PendingChannelsResponse'Commitments where rnf = \ x__ -> Control.DeepSeq.deepseq (_PendingChannelsResponse'Commitments'_unknownFields x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'Commitments'localTxid x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'Commitments'remoteTxid x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'Commitments'remotePendingTxid x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'Commitments'localCommitFeeSat x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'Commitments'remoteCommitFeeSat x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'Commitments'remotePendingCommitFeeSat x__) ())))))) {- | Fields : * 'Proto.LndGrpc_Fields.channel' @:: Lens' PendingChannelsResponse'ForceClosedChannel PendingChannelsResponse'PendingChannel@ * 'Proto.LndGrpc_Fields.maybe'channel' @:: Lens' PendingChannelsResponse'ForceClosedChannel (Prelude.Maybe PendingChannelsResponse'PendingChannel)@ * 'Proto.LndGrpc_Fields.closingTxid' @:: Lens' PendingChannelsResponse'ForceClosedChannel Data.Text.Text@ * 'Proto.LndGrpc_Fields.limboBalance' @:: Lens' PendingChannelsResponse'ForceClosedChannel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.maturityHeight' @:: Lens' PendingChannelsResponse'ForceClosedChannel Data.Word.Word32@ * 'Proto.LndGrpc_Fields.blocksTilMaturity' @:: Lens' PendingChannelsResponse'ForceClosedChannel Data.Int.Int32@ * 'Proto.LndGrpc_Fields.recoveredBalance' @:: Lens' PendingChannelsResponse'ForceClosedChannel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.pendingHtlcs' @:: Lens' PendingChannelsResponse'ForceClosedChannel [PendingHTLC]@ * 'Proto.LndGrpc_Fields.vec'pendingHtlcs' @:: Lens' PendingChannelsResponse'ForceClosedChannel (Data.Vector.Vector PendingHTLC)@ * 'Proto.LndGrpc_Fields.anchor' @:: Lens' PendingChannelsResponse'ForceClosedChannel PendingChannelsResponse'ForceClosedChannel'AnchorState@ -} data PendingChannelsResponse'ForceClosedChannel = PendingChannelsResponse'ForceClosedChannel'_constructor {_PendingChannelsResponse'ForceClosedChannel'channel :: !(Prelude.Maybe PendingChannelsResponse'PendingChannel), _PendingChannelsResponse'ForceClosedChannel'closingTxid :: !Data.Text.Text, _PendingChannelsResponse'ForceClosedChannel'limboBalance :: !Data.Int.Int64, _PendingChannelsResponse'ForceClosedChannel'maturityHeight :: !Data.Word.Word32, _PendingChannelsResponse'ForceClosedChannel'blocksTilMaturity :: !Data.Int.Int32, _PendingChannelsResponse'ForceClosedChannel'recoveredBalance :: !Data.Int.Int64, _PendingChannelsResponse'ForceClosedChannel'pendingHtlcs :: !(Data.Vector.Vector PendingHTLC), _PendingChannelsResponse'ForceClosedChannel'anchor :: !PendingChannelsResponse'ForceClosedChannel'AnchorState, _PendingChannelsResponse'ForceClosedChannel'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show PendingChannelsResponse'ForceClosedChannel where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField PendingChannelsResponse'ForceClosedChannel "channel" PendingChannelsResponse'PendingChannel where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'ForceClosedChannel'channel (\ x__ y__ -> x__ {_PendingChannelsResponse'ForceClosedChannel'channel = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField PendingChannelsResponse'ForceClosedChannel "maybe'channel" (Prelude.Maybe PendingChannelsResponse'PendingChannel) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'ForceClosedChannel'channel (\ x__ y__ -> x__ {_PendingChannelsResponse'ForceClosedChannel'channel = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'ForceClosedChannel "closingTxid" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'ForceClosedChannel'closingTxid (\ x__ y__ -> x__ {_PendingChannelsResponse'ForceClosedChannel'closingTxid = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'ForceClosedChannel "limboBalance" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'ForceClosedChannel'limboBalance (\ x__ y__ -> x__ {_PendingChannelsResponse'ForceClosedChannel'limboBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'ForceClosedChannel "maturityHeight" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'ForceClosedChannel'maturityHeight (\ x__ y__ -> x__ {_PendingChannelsResponse'ForceClosedChannel'maturityHeight = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'ForceClosedChannel "blocksTilMaturity" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'ForceClosedChannel'blocksTilMaturity (\ x__ y__ -> x__ {_PendingChannelsResponse'ForceClosedChannel'blocksTilMaturity = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'ForceClosedChannel "recoveredBalance" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'ForceClosedChannel'recoveredBalance (\ x__ y__ -> x__ {_PendingChannelsResponse'ForceClosedChannel'recoveredBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'ForceClosedChannel "pendingHtlcs" [PendingHTLC] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'ForceClosedChannel'pendingHtlcs (\ x__ y__ -> x__ {_PendingChannelsResponse'ForceClosedChannel'pendingHtlcs = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField PendingChannelsResponse'ForceClosedChannel "vec'pendingHtlcs" (Data.Vector.Vector PendingHTLC) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'ForceClosedChannel'pendingHtlcs (\ x__ y__ -> x__ {_PendingChannelsResponse'ForceClosedChannel'pendingHtlcs = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'ForceClosedChannel "anchor" PendingChannelsResponse'ForceClosedChannel'AnchorState where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'ForceClosedChannel'anchor (\ x__ y__ -> x__ {_PendingChannelsResponse'ForceClosedChannel'anchor = y__})) Prelude.id instance Data.ProtoLens.Message PendingChannelsResponse'ForceClosedChannel where messageName _ = Data.Text.pack "lnrpc.PendingChannelsResponse.ForceClosedChannel" packedMessageDescriptor _ = "\n\ \\DC2ForceClosedChannel\DC2G\n\ \\achannel\CAN\SOH \SOH(\v2-.lnrpc.PendingChannelsResponse.PendingChannelR\achannel\DC2!\n\ \\fclosing_txid\CAN\STX \SOH(\tR\vclosingTxid\DC2#\n\ \\rlimbo_balance\CAN\ETX \SOH(\ETXR\flimboBalance\DC2'\n\ \\SImaturity_height\CAN\EOT \SOH(\rR\SOmaturityHeight\DC2.\n\ \\DC3blocks_til_maturity\CAN\ENQ \SOH(\ENQR\DC1blocksTilMaturity\DC2+\n\ \\DC1recovered_balance\CAN\ACK \SOH(\ETXR\DLErecoveredBalance\DC27\n\ \\rpending_htlcs\CAN\b \ETX(\v2\DC2.lnrpc.PendingHTLCR\fpendingHtlcs\DC2U\n\ \\ACKanchor\CAN\t \SOH(\SO2=.lnrpc.PendingChannelsResponse.ForceClosedChannel.AnchorStateR\ACKanchor\"1\n\ \\vAnchorState\DC2\t\n\ \\ENQLIMBO\DLE\NUL\DC2\r\n\ \\tRECOVERED\DLE\SOH\DC2\b\n\ \\EOTLOST\DLE\STX" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let channel__field_descriptor = Data.ProtoLens.FieldDescriptor "channel" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor PendingChannelsResponse'PendingChannel) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'channel")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'ForceClosedChannel closingTxid__field_descriptor = Data.ProtoLens.FieldDescriptor "closing_txid" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"closingTxid")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'ForceClosedChannel limboBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "limbo_balance" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"limboBalance")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'ForceClosedChannel maturityHeight__field_descriptor = Data.ProtoLens.FieldDescriptor "maturity_height" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"maturityHeight")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'ForceClosedChannel blocksTilMaturity__field_descriptor = Data.ProtoLens.FieldDescriptor "blocks_til_maturity" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"blocksTilMaturity")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'ForceClosedChannel recoveredBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "recovered_balance" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"recoveredBalance")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'ForceClosedChannel pendingHtlcs__field_descriptor = Data.ProtoLens.FieldDescriptor "pending_htlcs" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor PendingHTLC) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"pendingHtlcs")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'ForceClosedChannel anchor__field_descriptor = Data.ProtoLens.FieldDescriptor "anchor" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor PendingChannelsResponse'ForceClosedChannel'AnchorState) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"anchor")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'ForceClosedChannel in Data.Map.fromList [(Data.ProtoLens.Tag 1, channel__field_descriptor), (Data.ProtoLens.Tag 2, closingTxid__field_descriptor), (Data.ProtoLens.Tag 3, limboBalance__field_descriptor), (Data.ProtoLens.Tag 4, maturityHeight__field_descriptor), (Data.ProtoLens.Tag 5, blocksTilMaturity__field_descriptor), (Data.ProtoLens.Tag 6, recoveredBalance__field_descriptor), (Data.ProtoLens.Tag 8, pendingHtlcs__field_descriptor), (Data.ProtoLens.Tag 9, anchor__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _PendingChannelsResponse'ForceClosedChannel'_unknownFields (\ x__ y__ -> x__ {_PendingChannelsResponse'ForceClosedChannel'_unknownFields = y__}) defMessage = PendingChannelsResponse'ForceClosedChannel'_constructor {_PendingChannelsResponse'ForceClosedChannel'channel = Prelude.Nothing, _PendingChannelsResponse'ForceClosedChannel'closingTxid = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'ForceClosedChannel'limboBalance = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'ForceClosedChannel'maturityHeight = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'ForceClosedChannel'blocksTilMaturity = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'ForceClosedChannel'recoveredBalance = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'ForceClosedChannel'pendingHtlcs = Data.Vector.Generic.empty, _PendingChannelsResponse'ForceClosedChannel'anchor = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'ForceClosedChannel'_unknownFields = []} parseMessage = let loop :: PendingChannelsResponse'ForceClosedChannel -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PendingHTLC -> Data.ProtoLens.Encoding.Bytes.Parser PendingChannelsResponse'ForceClosedChannel loop x mutable'pendingHtlcs = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'pendingHtlcs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'pendingHtlcs) (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'pendingHtlcs") frozen'pendingHtlcs 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" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"channel") y x) mutable'pendingHtlcs 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)) "closing_txid" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"closingTxid") y x) mutable'pendingHtlcs 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "limbo_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"limboBalance") y x) mutable'pendingHtlcs 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "maturity_height" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"maturityHeight") y x) mutable'pendingHtlcs 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "blocks_til_maturity" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"blocksTilMaturity") y x) mutable'pendingHtlcs 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "recovered_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"recoveredBalance") y x) mutable'pendingHtlcs 66 -> do !y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "pending_htlcs" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'pendingHtlcs y) loop x v 72 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) "anchor" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"anchor") y x) mutable'pendingHtlcs wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'pendingHtlcs in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'pendingHtlcs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'pendingHtlcs) "ForceClosedChannel" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'channel") _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 @"closingTxid") _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 @"limboBalance") _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 @"maturityHeight") _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 @"blocksTilMaturity") _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 @"recoveredBalance") _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.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (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.ProtoLens.encodeMessage _v)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'pendingHtlcs") _x)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"anchor") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 72) ((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 PendingChannelsResponse'ForceClosedChannel where rnf = \ x__ -> Control.DeepSeq.deepseq (_PendingChannelsResponse'ForceClosedChannel'_unknownFields x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'ForceClosedChannel'channel x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'ForceClosedChannel'closingTxid x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'ForceClosedChannel'limboBalance x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'ForceClosedChannel'maturityHeight x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'ForceClosedChannel'blocksTilMaturity x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'ForceClosedChannel'recoveredBalance x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'ForceClosedChannel'pendingHtlcs x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'ForceClosedChannel'anchor x__) ())))))))) newtype PendingChannelsResponse'ForceClosedChannel'AnchorState'UnrecognizedValue = PendingChannelsResponse'ForceClosedChannel'AnchorState'UnrecognizedValue Data.Int.Int32 deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) data PendingChannelsResponse'ForceClosedChannel'AnchorState = PendingChannelsResponse'ForceClosedChannel'LIMBO | PendingChannelsResponse'ForceClosedChannel'RECOVERED | PendingChannelsResponse'ForceClosedChannel'LOST | PendingChannelsResponse'ForceClosedChannel'AnchorState'Unrecognized !PendingChannelsResponse'ForceClosedChannel'AnchorState'UnrecognizedValue deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.MessageEnum PendingChannelsResponse'ForceClosedChannel'AnchorState where maybeToEnum 0 = Prelude.Just PendingChannelsResponse'ForceClosedChannel'LIMBO maybeToEnum 1 = Prelude.Just PendingChannelsResponse'ForceClosedChannel'RECOVERED maybeToEnum 2 = Prelude.Just PendingChannelsResponse'ForceClosedChannel'LOST maybeToEnum k = Prelude.Just (PendingChannelsResponse'ForceClosedChannel'AnchorState'Unrecognized (PendingChannelsResponse'ForceClosedChannel'AnchorState'UnrecognizedValue (Prelude.fromIntegral k))) showEnum PendingChannelsResponse'ForceClosedChannel'LIMBO = "LIMBO" showEnum PendingChannelsResponse'ForceClosedChannel'RECOVERED = "RECOVERED" showEnum PendingChannelsResponse'ForceClosedChannel'LOST = "LOST" showEnum (PendingChannelsResponse'ForceClosedChannel'AnchorState'Unrecognized (PendingChannelsResponse'ForceClosedChannel'AnchorState'UnrecognizedValue k)) = Prelude.show k readEnum k | (Prelude.==) k "LIMBO" = Prelude.Just PendingChannelsResponse'ForceClosedChannel'LIMBO | (Prelude.==) k "RECOVERED" = Prelude.Just PendingChannelsResponse'ForceClosedChannel'RECOVERED | (Prelude.==) k "LOST" = Prelude.Just PendingChannelsResponse'ForceClosedChannel'LOST | Prelude.otherwise = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum instance Prelude.Bounded PendingChannelsResponse'ForceClosedChannel'AnchorState where minBound = PendingChannelsResponse'ForceClosedChannel'LIMBO maxBound = PendingChannelsResponse'ForceClosedChannel'LOST instance Prelude.Enum PendingChannelsResponse'ForceClosedChannel'AnchorState where toEnum k__ = Prelude.maybe (Prelude.error ((Prelude.++) "toEnum: unknown value for enum AnchorState: " (Prelude.show k__))) Prelude.id (Data.ProtoLens.maybeToEnum k__) fromEnum PendingChannelsResponse'ForceClosedChannel'LIMBO = 0 fromEnum PendingChannelsResponse'ForceClosedChannel'RECOVERED = 1 fromEnum PendingChannelsResponse'ForceClosedChannel'LOST = 2 fromEnum (PendingChannelsResponse'ForceClosedChannel'AnchorState'Unrecognized (PendingChannelsResponse'ForceClosedChannel'AnchorState'UnrecognizedValue k)) = Prelude.fromIntegral k succ PendingChannelsResponse'ForceClosedChannel'LOST = Prelude.error "PendingChannelsResponse'ForceClosedChannel'AnchorState.succ: bad argument PendingChannelsResponse'ForceClosedChannel'LOST. This value would be out of bounds." succ PendingChannelsResponse'ForceClosedChannel'LIMBO = PendingChannelsResponse'ForceClosedChannel'RECOVERED succ PendingChannelsResponse'ForceClosedChannel'RECOVERED = PendingChannelsResponse'ForceClosedChannel'LOST succ (PendingChannelsResponse'ForceClosedChannel'AnchorState'Unrecognized _) = Prelude.error "PendingChannelsResponse'ForceClosedChannel'AnchorState.succ: bad argument: unrecognized value" pred PendingChannelsResponse'ForceClosedChannel'LIMBO = Prelude.error "PendingChannelsResponse'ForceClosedChannel'AnchorState.pred: bad argument PendingChannelsResponse'ForceClosedChannel'LIMBO. This value would be out of bounds." pred PendingChannelsResponse'ForceClosedChannel'RECOVERED = PendingChannelsResponse'ForceClosedChannel'LIMBO pred PendingChannelsResponse'ForceClosedChannel'LOST = PendingChannelsResponse'ForceClosedChannel'RECOVERED pred (PendingChannelsResponse'ForceClosedChannel'AnchorState'Unrecognized _) = Prelude.error "PendingChannelsResponse'ForceClosedChannel'AnchorState.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 PendingChannelsResponse'ForceClosedChannel'AnchorState where fieldDefault = PendingChannelsResponse'ForceClosedChannel'LIMBO instance Control.DeepSeq.NFData PendingChannelsResponse'ForceClosedChannel'AnchorState where rnf x__ = Prelude.seq x__ () {- | Fields : * 'Proto.LndGrpc_Fields.remoteNodePub' @:: Lens' PendingChannelsResponse'PendingChannel Data.Text.Text@ * 'Proto.LndGrpc_Fields.channelPoint' @:: Lens' PendingChannelsResponse'PendingChannel Data.Text.Text@ * 'Proto.LndGrpc_Fields.capacity' @:: Lens' PendingChannelsResponse'PendingChannel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.localBalance' @:: Lens' PendingChannelsResponse'PendingChannel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.remoteBalance' @:: Lens' PendingChannelsResponse'PendingChannel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.localChanReserveSat' @:: Lens' PendingChannelsResponse'PendingChannel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.remoteChanReserveSat' @:: Lens' PendingChannelsResponse'PendingChannel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.initiator' @:: Lens' PendingChannelsResponse'PendingChannel Initiator@ * 'Proto.LndGrpc_Fields.commitmentType' @:: Lens' PendingChannelsResponse'PendingChannel CommitmentType@ -} data PendingChannelsResponse'PendingChannel = PendingChannelsResponse'PendingChannel'_constructor {_PendingChannelsResponse'PendingChannel'remoteNodePub :: !Data.Text.Text, _PendingChannelsResponse'PendingChannel'channelPoint :: !Data.Text.Text, _PendingChannelsResponse'PendingChannel'capacity :: !Data.Int.Int64, _PendingChannelsResponse'PendingChannel'localBalance :: !Data.Int.Int64, _PendingChannelsResponse'PendingChannel'remoteBalance :: !Data.Int.Int64, _PendingChannelsResponse'PendingChannel'localChanReserveSat :: !Data.Int.Int64, _PendingChannelsResponse'PendingChannel'remoteChanReserveSat :: !Data.Int.Int64, _PendingChannelsResponse'PendingChannel'initiator :: !Initiator, _PendingChannelsResponse'PendingChannel'commitmentType :: !CommitmentType, _PendingChannelsResponse'PendingChannel'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show PendingChannelsResponse'PendingChannel where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField PendingChannelsResponse'PendingChannel "remoteNodePub" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'PendingChannel'remoteNodePub (\ x__ y__ -> x__ {_PendingChannelsResponse'PendingChannel'remoteNodePub = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'PendingChannel "channelPoint" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'PendingChannel'channelPoint (\ x__ y__ -> x__ {_PendingChannelsResponse'PendingChannel'channelPoint = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'PendingChannel "capacity" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'PendingChannel'capacity (\ x__ y__ -> x__ {_PendingChannelsResponse'PendingChannel'capacity = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'PendingChannel "localBalance" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'PendingChannel'localBalance (\ x__ y__ -> x__ {_PendingChannelsResponse'PendingChannel'localBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'PendingChannel "remoteBalance" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'PendingChannel'remoteBalance (\ x__ y__ -> x__ {_PendingChannelsResponse'PendingChannel'remoteBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'PendingChannel "localChanReserveSat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'PendingChannel'localChanReserveSat (\ x__ y__ -> x__ {_PendingChannelsResponse'PendingChannel'localChanReserveSat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'PendingChannel "remoteChanReserveSat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'PendingChannel'remoteChanReserveSat (\ x__ y__ -> x__ {_PendingChannelsResponse'PendingChannel'remoteChanReserveSat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'PendingChannel "initiator" Initiator where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'PendingChannel'initiator (\ x__ y__ -> x__ {_PendingChannelsResponse'PendingChannel'initiator = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'PendingChannel "commitmentType" CommitmentType where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'PendingChannel'commitmentType (\ x__ y__ -> x__ {_PendingChannelsResponse'PendingChannel'commitmentType = y__})) Prelude.id instance Data.ProtoLens.Message PendingChannelsResponse'PendingChannel where messageName _ = Data.Text.pack "lnrpc.PendingChannelsResponse.PendingChannel" packedMessageDescriptor _ = "\n\ \\SOPendingChannel\DC2&\n\ \\SIremote_node_pub\CAN\SOH \SOH(\tR\rremoteNodePub\DC2#\n\ \\rchannel_point\CAN\STX \SOH(\tR\fchannelPoint\DC2\SUB\n\ \\bcapacity\CAN\ETX \SOH(\ETXR\bcapacity\DC2#\n\ \\rlocal_balance\CAN\EOT \SOH(\ETXR\flocalBalance\DC2%\n\ \\SOremote_balance\CAN\ENQ \SOH(\ETXR\rremoteBalance\DC23\n\ \\SYNlocal_chan_reserve_sat\CAN\ACK \SOH(\ETXR\DC3localChanReserveSat\DC25\n\ \\ETBremote_chan_reserve_sat\CAN\a \SOH(\ETXR\DC4remoteChanReserveSat\DC2.\n\ \\tinitiator\CAN\b \SOH(\SO2\DLE.lnrpc.InitiatorR\tinitiator\DC2>\n\ \\SIcommitment_type\CAN\t \SOH(\SO2\NAK.lnrpc.CommitmentTypeR\SOcommitmentType" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let remoteNodePub__field_descriptor = Data.ProtoLens.FieldDescriptor "remote_node_pub" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"remoteNodePub")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'PendingChannel 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 PendingChannelsResponse'PendingChannel capacity__field_descriptor = Data.ProtoLens.FieldDescriptor "capacity" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"capacity")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'PendingChannel localBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "local_balance" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"localBalance")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'PendingChannel remoteBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "remote_balance" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"remoteBalance")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'PendingChannel localChanReserveSat__field_descriptor = Data.ProtoLens.FieldDescriptor "local_chan_reserve_sat" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"localChanReserveSat")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'PendingChannel remoteChanReserveSat__field_descriptor = Data.ProtoLens.FieldDescriptor "remote_chan_reserve_sat" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"remoteChanReserveSat")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'PendingChannel initiator__field_descriptor = Data.ProtoLens.FieldDescriptor "initiator" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor Initiator) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"initiator")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'PendingChannel commitmentType__field_descriptor = Data.ProtoLens.FieldDescriptor "commitment_type" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor CommitmentType) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"commitmentType")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'PendingChannel in Data.Map.fromList [(Data.ProtoLens.Tag 1, remoteNodePub__field_descriptor), (Data.ProtoLens.Tag 2, channelPoint__field_descriptor), (Data.ProtoLens.Tag 3, capacity__field_descriptor), (Data.ProtoLens.Tag 4, localBalance__field_descriptor), (Data.ProtoLens.Tag 5, remoteBalance__field_descriptor), (Data.ProtoLens.Tag 6, localChanReserveSat__field_descriptor), (Data.ProtoLens.Tag 7, remoteChanReserveSat__field_descriptor), (Data.ProtoLens.Tag 8, initiator__field_descriptor), (Data.ProtoLens.Tag 9, commitmentType__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _PendingChannelsResponse'PendingChannel'_unknownFields (\ x__ y__ -> x__ {_PendingChannelsResponse'PendingChannel'_unknownFields = y__}) defMessage = PendingChannelsResponse'PendingChannel'_constructor {_PendingChannelsResponse'PendingChannel'remoteNodePub = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'PendingChannel'channelPoint = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'PendingChannel'capacity = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'PendingChannel'localBalance = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'PendingChannel'remoteBalance = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'PendingChannel'localChanReserveSat = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'PendingChannel'remoteChanReserveSat = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'PendingChannel'initiator = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'PendingChannel'commitmentType = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'PendingChannel'_unknownFields = []} parseMessage = let loop :: PendingChannelsResponse'PendingChannel -> Data.ProtoLens.Encoding.Bytes.Parser PendingChannelsResponse'PendingChannel 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)) "remote_node_pub" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"remoteNodePub") 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)) "channel_point" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"channelPoint") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "capacity" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"capacity") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "local_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"localBalance") y x) 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "remote_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"remoteBalance") y x) 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "local_chan_reserve_sat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"localChanReserveSat") y x) 56 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "remote_chan_reserve_sat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"remoteChanReserveSat") y x) 64 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) "initiator" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"initiator") y x) 72 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) "commitment_type" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"commitmentType") 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) "PendingChannel" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"remoteNodePub") _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 @"channelPoint") _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 @"capacity") _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 @"localBalance") _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 @"remoteBalance") _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 @"localChanReserveSat") _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 @"remoteChanReserveSat") _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 @"initiator") _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.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"commitmentType") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 72) ((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 PendingChannelsResponse'PendingChannel where rnf = \ x__ -> Control.DeepSeq.deepseq (_PendingChannelsResponse'PendingChannel'_unknownFields x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'PendingChannel'remoteNodePub x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'PendingChannel'channelPoint x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'PendingChannel'capacity x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'PendingChannel'localBalance x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'PendingChannel'remoteBalance x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'PendingChannel'localChanReserveSat x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'PendingChannel'remoteChanReserveSat x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'PendingChannel'initiator x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'PendingChannel'commitmentType x__) ()))))))))) {- | Fields : * 'Proto.LndGrpc_Fields.channel' @:: Lens' PendingChannelsResponse'PendingOpenChannel PendingChannelsResponse'PendingChannel@ * 'Proto.LndGrpc_Fields.maybe'channel' @:: Lens' PendingChannelsResponse'PendingOpenChannel (Prelude.Maybe PendingChannelsResponse'PendingChannel)@ * 'Proto.LndGrpc_Fields.confirmationHeight' @:: Lens' PendingChannelsResponse'PendingOpenChannel Data.Word.Word32@ * 'Proto.LndGrpc_Fields.commitFee' @:: Lens' PendingChannelsResponse'PendingOpenChannel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.commitWeight' @:: Lens' PendingChannelsResponse'PendingOpenChannel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.feePerKw' @:: Lens' PendingChannelsResponse'PendingOpenChannel Data.Int.Int64@ -} data PendingChannelsResponse'PendingOpenChannel = PendingChannelsResponse'PendingOpenChannel'_constructor {_PendingChannelsResponse'PendingOpenChannel'channel :: !(Prelude.Maybe PendingChannelsResponse'PendingChannel), _PendingChannelsResponse'PendingOpenChannel'confirmationHeight :: !Data.Word.Word32, _PendingChannelsResponse'PendingOpenChannel'commitFee :: !Data.Int.Int64, _PendingChannelsResponse'PendingOpenChannel'commitWeight :: !Data.Int.Int64, _PendingChannelsResponse'PendingOpenChannel'feePerKw :: !Data.Int.Int64, _PendingChannelsResponse'PendingOpenChannel'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show PendingChannelsResponse'PendingOpenChannel where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField PendingChannelsResponse'PendingOpenChannel "channel" PendingChannelsResponse'PendingChannel where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'PendingOpenChannel'channel (\ x__ y__ -> x__ {_PendingChannelsResponse'PendingOpenChannel'channel = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField PendingChannelsResponse'PendingOpenChannel "maybe'channel" (Prelude.Maybe PendingChannelsResponse'PendingChannel) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'PendingOpenChannel'channel (\ x__ y__ -> x__ {_PendingChannelsResponse'PendingOpenChannel'channel = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'PendingOpenChannel "confirmationHeight" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'PendingOpenChannel'confirmationHeight (\ x__ y__ -> x__ {_PendingChannelsResponse'PendingOpenChannel'confirmationHeight = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'PendingOpenChannel "commitFee" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'PendingOpenChannel'commitFee (\ x__ y__ -> x__ {_PendingChannelsResponse'PendingOpenChannel'commitFee = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'PendingOpenChannel "commitWeight" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'PendingOpenChannel'commitWeight (\ x__ y__ -> x__ {_PendingChannelsResponse'PendingOpenChannel'commitWeight = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'PendingOpenChannel "feePerKw" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'PendingOpenChannel'feePerKw (\ x__ y__ -> x__ {_PendingChannelsResponse'PendingOpenChannel'feePerKw = y__})) Prelude.id instance Data.ProtoLens.Message PendingChannelsResponse'PendingOpenChannel where messageName _ = Data.Text.pack "lnrpc.PendingChannelsResponse.PendingOpenChannel" packedMessageDescriptor _ = "\n\ \\DC2PendingOpenChannel\DC2G\n\ \\achannel\CAN\SOH \SOH(\v2-.lnrpc.PendingChannelsResponse.PendingChannelR\achannel\DC2/\n\ \\DC3confirmation_height\CAN\STX \SOH(\rR\DC2confirmationHeight\DC2\GS\n\ \\n\ \commit_fee\CAN\EOT \SOH(\ETXR\tcommitFee\DC2#\n\ \\rcommit_weight\CAN\ENQ \SOH(\ETXR\fcommitWeight\DC2\FS\n\ \\n\ \fee_per_kw\CAN\ACK \SOH(\ETXR\bfeePerKw" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let channel__field_descriptor = Data.ProtoLens.FieldDescriptor "channel" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor PendingChannelsResponse'PendingChannel) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'channel")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'PendingOpenChannel confirmationHeight__field_descriptor = Data.ProtoLens.FieldDescriptor "confirmation_height" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"confirmationHeight")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'PendingOpenChannel commitFee__field_descriptor = Data.ProtoLens.FieldDescriptor "commit_fee" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"commitFee")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'PendingOpenChannel commitWeight__field_descriptor = Data.ProtoLens.FieldDescriptor "commit_weight" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"commitWeight")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'PendingOpenChannel feePerKw__field_descriptor = Data.ProtoLens.FieldDescriptor "fee_per_kw" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"feePerKw")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'PendingOpenChannel in Data.Map.fromList [(Data.ProtoLens.Tag 1, channel__field_descriptor), (Data.ProtoLens.Tag 2, confirmationHeight__field_descriptor), (Data.ProtoLens.Tag 4, commitFee__field_descriptor), (Data.ProtoLens.Tag 5, commitWeight__field_descriptor), (Data.ProtoLens.Tag 6, feePerKw__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _PendingChannelsResponse'PendingOpenChannel'_unknownFields (\ x__ y__ -> x__ {_PendingChannelsResponse'PendingOpenChannel'_unknownFields = y__}) defMessage = PendingChannelsResponse'PendingOpenChannel'_constructor {_PendingChannelsResponse'PendingOpenChannel'channel = Prelude.Nothing, _PendingChannelsResponse'PendingOpenChannel'confirmationHeight = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'PendingOpenChannel'commitFee = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'PendingOpenChannel'commitWeight = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'PendingOpenChannel'feePerKw = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'PendingOpenChannel'_unknownFields = []} parseMessage = let loop :: PendingChannelsResponse'PendingOpenChannel -> Data.ProtoLens.Encoding.Bytes.Parser PendingChannelsResponse'PendingOpenChannel 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" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"channel") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "confirmation_height" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"confirmationHeight") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "commit_fee" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"commitFee") y x) 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "commit_weight" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"commitWeight") y x) 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "fee_per_kw" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"feePerKw") 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) "PendingOpenChannel" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'channel") _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 @"confirmationHeight") _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 @"commitFee") _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 @"commitWeight") _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 @"feePerKw") _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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))) instance Control.DeepSeq.NFData PendingChannelsResponse'PendingOpenChannel where rnf = \ x__ -> Control.DeepSeq.deepseq (_PendingChannelsResponse'PendingOpenChannel'_unknownFields x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'PendingOpenChannel'channel x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'PendingOpenChannel'confirmationHeight x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'PendingOpenChannel'commitFee x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'PendingOpenChannel'commitWeight x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'PendingOpenChannel'feePerKw x__) ()))))) {- | Fields : * 'Proto.LndGrpc_Fields.channel' @:: Lens' PendingChannelsResponse'WaitingCloseChannel PendingChannelsResponse'PendingChannel@ * 'Proto.LndGrpc_Fields.maybe'channel' @:: Lens' PendingChannelsResponse'WaitingCloseChannel (Prelude.Maybe PendingChannelsResponse'PendingChannel)@ * 'Proto.LndGrpc_Fields.limboBalance' @:: Lens' PendingChannelsResponse'WaitingCloseChannel Data.Int.Int64@ * 'Proto.LndGrpc_Fields.commitments' @:: Lens' PendingChannelsResponse'WaitingCloseChannel PendingChannelsResponse'Commitments@ * 'Proto.LndGrpc_Fields.maybe'commitments' @:: Lens' PendingChannelsResponse'WaitingCloseChannel (Prelude.Maybe PendingChannelsResponse'Commitments)@ -} data PendingChannelsResponse'WaitingCloseChannel = PendingChannelsResponse'WaitingCloseChannel'_constructor {_PendingChannelsResponse'WaitingCloseChannel'channel :: !(Prelude.Maybe PendingChannelsResponse'PendingChannel), _PendingChannelsResponse'WaitingCloseChannel'limboBalance :: !Data.Int.Int64, _PendingChannelsResponse'WaitingCloseChannel'commitments :: !(Prelude.Maybe PendingChannelsResponse'Commitments), _PendingChannelsResponse'WaitingCloseChannel'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show PendingChannelsResponse'WaitingCloseChannel where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField PendingChannelsResponse'WaitingCloseChannel "channel" PendingChannelsResponse'PendingChannel where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'WaitingCloseChannel'channel (\ x__ y__ -> x__ {_PendingChannelsResponse'WaitingCloseChannel'channel = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField PendingChannelsResponse'WaitingCloseChannel "maybe'channel" (Prelude.Maybe PendingChannelsResponse'PendingChannel) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'WaitingCloseChannel'channel (\ x__ y__ -> x__ {_PendingChannelsResponse'WaitingCloseChannel'channel = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'WaitingCloseChannel "limboBalance" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'WaitingCloseChannel'limboBalance (\ x__ y__ -> x__ {_PendingChannelsResponse'WaitingCloseChannel'limboBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingChannelsResponse'WaitingCloseChannel "commitments" PendingChannelsResponse'Commitments where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'WaitingCloseChannel'commitments (\ x__ y__ -> x__ {_PendingChannelsResponse'WaitingCloseChannel'commitments = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField PendingChannelsResponse'WaitingCloseChannel "maybe'commitments" (Prelude.Maybe PendingChannelsResponse'Commitments) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingChannelsResponse'WaitingCloseChannel'commitments (\ x__ y__ -> x__ {_PendingChannelsResponse'WaitingCloseChannel'commitments = y__})) Prelude.id instance Data.ProtoLens.Message PendingChannelsResponse'WaitingCloseChannel where messageName _ = Data.Text.pack "lnrpc.PendingChannelsResponse.WaitingCloseChannel" packedMessageDescriptor _ = "\n\ \\DC3WaitingCloseChannel\DC2G\n\ \\achannel\CAN\SOH \SOH(\v2-.lnrpc.PendingChannelsResponse.PendingChannelR\achannel\DC2#\n\ \\rlimbo_balance\CAN\STX \SOH(\ETXR\flimboBalance\DC2L\n\ \\vcommitments\CAN\ETX \SOH(\v2*.lnrpc.PendingChannelsResponse.CommitmentsR\vcommitments" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let channel__field_descriptor = Data.ProtoLens.FieldDescriptor "channel" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor PendingChannelsResponse'PendingChannel) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'channel")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'WaitingCloseChannel limboBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "limbo_balance" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"limboBalance")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'WaitingCloseChannel commitments__field_descriptor = Data.ProtoLens.FieldDescriptor "commitments" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor PendingChannelsResponse'Commitments) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'commitments")) :: Data.ProtoLens.FieldDescriptor PendingChannelsResponse'WaitingCloseChannel in Data.Map.fromList [(Data.ProtoLens.Tag 1, channel__field_descriptor), (Data.ProtoLens.Tag 2, limboBalance__field_descriptor), (Data.ProtoLens.Tag 3, commitments__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _PendingChannelsResponse'WaitingCloseChannel'_unknownFields (\ x__ y__ -> x__ {_PendingChannelsResponse'WaitingCloseChannel'_unknownFields = y__}) defMessage = PendingChannelsResponse'WaitingCloseChannel'_constructor {_PendingChannelsResponse'WaitingCloseChannel'channel = Prelude.Nothing, _PendingChannelsResponse'WaitingCloseChannel'limboBalance = Data.ProtoLens.fieldDefault, _PendingChannelsResponse'WaitingCloseChannel'commitments = Prelude.Nothing, _PendingChannelsResponse'WaitingCloseChannel'_unknownFields = []} parseMessage = let loop :: PendingChannelsResponse'WaitingCloseChannel -> Data.ProtoLens.Encoding.Bytes.Parser PendingChannelsResponse'WaitingCloseChannel 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" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"channel") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "limbo_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"limboBalance") 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) "commitments" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"commitments") 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) "WaitingCloseChannel" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'channel") _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 @"limboBalance") _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.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'commitments") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 26) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) instance Control.DeepSeq.NFData PendingChannelsResponse'WaitingCloseChannel where rnf = \ x__ -> Control.DeepSeq.deepseq (_PendingChannelsResponse'WaitingCloseChannel'_unknownFields x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'WaitingCloseChannel'channel x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'WaitingCloseChannel'limboBalance x__) (Control.DeepSeq.deepseq (_PendingChannelsResponse'WaitingCloseChannel'commitments x__) ()))) {- | Fields : * 'Proto.LndGrpc_Fields.incoming' @:: Lens' PendingHTLC Prelude.Bool@ * 'Proto.LndGrpc_Fields.amount' @:: Lens' PendingHTLC Data.Int.Int64@ * 'Proto.LndGrpc_Fields.outpoint' @:: Lens' PendingHTLC Data.Text.Text@ * 'Proto.LndGrpc_Fields.maturityHeight' @:: Lens' PendingHTLC Data.Word.Word32@ * 'Proto.LndGrpc_Fields.blocksTilMaturity' @:: Lens' PendingHTLC Data.Int.Int32@ * 'Proto.LndGrpc_Fields.stage' @:: Lens' PendingHTLC Data.Word.Word32@ -} data PendingHTLC = PendingHTLC'_constructor {_PendingHTLC'incoming :: !Prelude.Bool, _PendingHTLC'amount :: !Data.Int.Int64, _PendingHTLC'outpoint :: !Data.Text.Text, _PendingHTLC'maturityHeight :: !Data.Word.Word32, _PendingHTLC'blocksTilMaturity :: !Data.Int.Int32, _PendingHTLC'stage :: !Data.Word.Word32, _PendingHTLC'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show PendingHTLC where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField PendingHTLC "incoming" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingHTLC'incoming (\ x__ y__ -> x__ {_PendingHTLC'incoming = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingHTLC "amount" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingHTLC'amount (\ x__ y__ -> x__ {_PendingHTLC'amount = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingHTLC "outpoint" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingHTLC'outpoint (\ x__ y__ -> x__ {_PendingHTLC'outpoint = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingHTLC "maturityHeight" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingHTLC'maturityHeight (\ x__ y__ -> x__ {_PendingHTLC'maturityHeight = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingHTLC "blocksTilMaturity" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingHTLC'blocksTilMaturity (\ x__ y__ -> x__ {_PendingHTLC'blocksTilMaturity = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingHTLC "stage" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingHTLC'stage (\ x__ y__ -> x__ {_PendingHTLC'stage = y__})) Prelude.id instance Data.ProtoLens.Message PendingHTLC where messageName _ = Data.Text.pack "lnrpc.PendingHTLC" packedMessageDescriptor _ = "\n\ \\vPendingHTLC\DC2\SUB\n\ \\bincoming\CAN\SOH \SOH(\bR\bincoming\DC2\SYN\n\ \\ACKamount\CAN\STX \SOH(\ETXR\ACKamount\DC2\SUB\n\ \\boutpoint\CAN\ETX \SOH(\tR\boutpoint\DC2'\n\ \\SImaturity_height\CAN\EOT \SOH(\rR\SOmaturityHeight\DC2.\n\ \\DC3blocks_til_maturity\CAN\ENQ \SOH(\ENQR\DC1blocksTilMaturity\DC2\DC4\n\ \\ENQstage\CAN\ACK \SOH(\rR\ENQstage" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let incoming__field_descriptor = Data.ProtoLens.FieldDescriptor "incoming" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"incoming")) :: Data.ProtoLens.FieldDescriptor PendingHTLC amount__field_descriptor = Data.ProtoLens.FieldDescriptor "amount" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"amount")) :: Data.ProtoLens.FieldDescriptor PendingHTLC outpoint__field_descriptor = Data.ProtoLens.FieldDescriptor "outpoint" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"outpoint")) :: Data.ProtoLens.FieldDescriptor PendingHTLC maturityHeight__field_descriptor = Data.ProtoLens.FieldDescriptor "maturity_height" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"maturityHeight")) :: Data.ProtoLens.FieldDescriptor PendingHTLC blocksTilMaturity__field_descriptor = Data.ProtoLens.FieldDescriptor "blocks_til_maturity" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"blocksTilMaturity")) :: Data.ProtoLens.FieldDescriptor PendingHTLC stage__field_descriptor = Data.ProtoLens.FieldDescriptor "stage" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"stage")) :: Data.ProtoLens.FieldDescriptor PendingHTLC in Data.Map.fromList [(Data.ProtoLens.Tag 1, incoming__field_descriptor), (Data.ProtoLens.Tag 2, amount__field_descriptor), (Data.ProtoLens.Tag 3, outpoint__field_descriptor), (Data.ProtoLens.Tag 4, maturityHeight__field_descriptor), (Data.ProtoLens.Tag 5, blocksTilMaturity__field_descriptor), (Data.ProtoLens.Tag 6, stage__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _PendingHTLC'_unknownFields (\ x__ y__ -> x__ {_PendingHTLC'_unknownFields = y__}) defMessage = PendingHTLC'_constructor {_PendingHTLC'incoming = Data.ProtoLens.fieldDefault, _PendingHTLC'amount = Data.ProtoLens.fieldDefault, _PendingHTLC'outpoint = Data.ProtoLens.fieldDefault, _PendingHTLC'maturityHeight = Data.ProtoLens.fieldDefault, _PendingHTLC'blocksTilMaturity = Data.ProtoLens.fieldDefault, _PendingHTLC'stage = Data.ProtoLens.fieldDefault, _PendingHTLC'_unknownFields = []} parseMessage = let loop :: PendingHTLC -> Data.ProtoLens.Encoding.Bytes.Parser PendingHTLC 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) "incoming" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"incoming") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "amount" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"amount") 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)) "outpoint" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"outpoint") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "maturity_height" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"maturityHeight") y x) 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "blocks_til_maturity" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"blocksTilMaturity") y x) 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "stage" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"stage") 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) "PendingHTLC" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"incoming") _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 @"amount") _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 @"outpoint") _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 @"maturityHeight") _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 @"blocksTilMaturity") _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 @"stage") _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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))) instance Control.DeepSeq.NFData PendingHTLC where rnf = \ x__ -> Control.DeepSeq.deepseq (_PendingHTLC'_unknownFields x__) (Control.DeepSeq.deepseq (_PendingHTLC'incoming x__) (Control.DeepSeq.deepseq (_PendingHTLC'amount x__) (Control.DeepSeq.deepseq (_PendingHTLC'outpoint x__) (Control.DeepSeq.deepseq (_PendingHTLC'maturityHeight x__) (Control.DeepSeq.deepseq (_PendingHTLC'blocksTilMaturity x__) (Control.DeepSeq.deepseq (_PendingHTLC'stage x__) ())))))) {- | Fields : * 'Proto.LndGrpc_Fields.txid' @:: Lens' PendingUpdate Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.outputIndex' @:: Lens' PendingUpdate Data.Word.Word32@ -} data PendingUpdate = PendingUpdate'_constructor {_PendingUpdate'txid :: !Data.ByteString.ByteString, _PendingUpdate'outputIndex :: !Data.Word.Word32, _PendingUpdate'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show PendingUpdate where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField PendingUpdate "txid" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingUpdate'txid (\ x__ y__ -> x__ {_PendingUpdate'txid = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PendingUpdate "outputIndex" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PendingUpdate'outputIndex (\ x__ y__ -> x__ {_PendingUpdate'outputIndex = y__})) Prelude.id instance Data.ProtoLens.Message PendingUpdate where messageName _ = Data.Text.pack "lnrpc.PendingUpdate" packedMessageDescriptor _ = "\n\ \\rPendingUpdate\DC2\DC2\n\ \\EOTtxid\CAN\SOH \SOH(\fR\EOTtxid\DC2!\n\ \\foutput_index\CAN\STX \SOH(\rR\voutputIndex" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let txid__field_descriptor = Data.ProtoLens.FieldDescriptor "txid" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"txid")) :: Data.ProtoLens.FieldDescriptor PendingUpdate outputIndex__field_descriptor = Data.ProtoLens.FieldDescriptor "output_index" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"outputIndex")) :: Data.ProtoLens.FieldDescriptor PendingUpdate in Data.Map.fromList [(Data.ProtoLens.Tag 1, txid__field_descriptor), (Data.ProtoLens.Tag 2, outputIndex__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _PendingUpdate'_unknownFields (\ x__ y__ -> x__ {_PendingUpdate'_unknownFields = y__}) defMessage = PendingUpdate'_constructor {_PendingUpdate'txid = Data.ProtoLens.fieldDefault, _PendingUpdate'outputIndex = Data.ProtoLens.fieldDefault, _PendingUpdate'_unknownFields = []} parseMessage = let loop :: PendingUpdate -> Data.ProtoLens.Encoding.Bytes.Parser PendingUpdate 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)) "txid" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"txid") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "output_index" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"outputIndex") 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) "PendingUpdate" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"txid") _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 @"outputIndex") _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 PendingUpdate where rnf = \ x__ -> Control.DeepSeq.deepseq (_PendingUpdate'_unknownFields x__) (Control.DeepSeq.deepseq (_PendingUpdate'txid x__) (Control.DeepSeq.deepseq (_PendingUpdate'outputIndex x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.baseFeeMsat' @:: Lens' PolicyUpdateRequest Data.Int.Int64@ * 'Proto.LndGrpc_Fields.feeRate' @:: Lens' PolicyUpdateRequest Prelude.Double@ * 'Proto.LndGrpc_Fields.timeLockDelta' @:: Lens' PolicyUpdateRequest Data.Word.Word32@ * 'Proto.LndGrpc_Fields.maxHtlcMsat' @:: Lens' PolicyUpdateRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.minHtlcMsat' @:: Lens' PolicyUpdateRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.minHtlcMsatSpecified' @:: Lens' PolicyUpdateRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.maybe'scope' @:: Lens' PolicyUpdateRequest (Prelude.Maybe PolicyUpdateRequest'Scope)@ * 'Proto.LndGrpc_Fields.maybe'global' @:: Lens' PolicyUpdateRequest (Prelude.Maybe Prelude.Bool)@ * 'Proto.LndGrpc_Fields.global' @:: Lens' PolicyUpdateRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.maybe'chanPoint' @:: Lens' PolicyUpdateRequest (Prelude.Maybe ChannelPoint)@ * 'Proto.LndGrpc_Fields.chanPoint' @:: Lens' PolicyUpdateRequest 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) instance Prelude.Show PolicyUpdateRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) data PolicyUpdateRequest'Scope = PolicyUpdateRequest'Global !Prelude.Bool | PolicyUpdateRequest'ChanPoint !ChannelPoint deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) 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 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" 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 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 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 : -} data PolicyUpdateResponse = PolicyUpdateResponse'_constructor {_PolicyUpdateResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show PolicyUpdateResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Message PolicyUpdateResponse where messageName _ = Data.Text.pack "lnrpc.PolicyUpdateResponse" packedMessageDescriptor _ = "\n\ \\DC4PolicyUpdateResponse" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let in Data.Map.fromList [] unknownFields = Lens.Family2.Unchecked.lens _PolicyUpdateResponse'_unknownFields (\ x__ y__ -> x__ {_PolicyUpdateResponse'_unknownFields = y__}) defMessage = PolicyUpdateResponse'_constructor {_PolicyUpdateResponse'_unknownFields = []} parseMessage = let loop :: PolicyUpdateResponse -> Data.ProtoLens.Encoding.Bytes.Parser PolicyUpdateResponse 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) "PolicyUpdateResponse" buildMessage = \ _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__) () {- | Fields : * 'Proto.LndGrpc_Fields.pendingChanId' @:: Lens' PsbtShim Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.basePsbt' @:: Lens' PsbtShim Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.noPublish' @:: Lens' PsbtShim Prelude.Bool@ -} data PsbtShim = PsbtShim'_constructor {_PsbtShim'pendingChanId :: !Data.ByteString.ByteString, _PsbtShim'basePsbt :: !Data.ByteString.ByteString, _PsbtShim'noPublish :: !Prelude.Bool, _PsbtShim'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show PsbtShim where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField PsbtShim "pendingChanId" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PsbtShim'pendingChanId (\ x__ y__ -> x__ {_PsbtShim'pendingChanId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PsbtShim "basePsbt" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PsbtShim'basePsbt (\ x__ y__ -> x__ {_PsbtShim'basePsbt = y__})) Prelude.id instance Data.ProtoLens.Field.HasField PsbtShim "noPublish" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _PsbtShim'noPublish (\ x__ y__ -> x__ {_PsbtShim'noPublish = y__})) Prelude.id instance Data.ProtoLens.Message PsbtShim where messageName _ = Data.Text.pack "lnrpc.PsbtShim" packedMessageDescriptor _ = "\n\ \\bPsbtShim\DC2&\n\ \\SIpending_chan_id\CAN\SOH \SOH(\fR\rpendingChanId\DC2\ESC\n\ \\tbase_psbt\CAN\STX \SOH(\fR\bbasePsbt\DC2\GS\n\ \\n\ \no_publish\CAN\ETX \SOH(\bR\tnoPublish" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let pendingChanId__field_descriptor = Data.ProtoLens.FieldDescriptor "pending_chan_id" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pendingChanId")) :: Data.ProtoLens.FieldDescriptor PsbtShim basePsbt__field_descriptor = Data.ProtoLens.FieldDescriptor "base_psbt" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"basePsbt")) :: Data.ProtoLens.FieldDescriptor PsbtShim noPublish__field_descriptor = Data.ProtoLens.FieldDescriptor "no_publish" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"noPublish")) :: Data.ProtoLens.FieldDescriptor PsbtShim in Data.Map.fromList [(Data.ProtoLens.Tag 1, pendingChanId__field_descriptor), (Data.ProtoLens.Tag 2, basePsbt__field_descriptor), (Data.ProtoLens.Tag 3, noPublish__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _PsbtShim'_unknownFields (\ x__ y__ -> x__ {_PsbtShim'_unknownFields = y__}) defMessage = PsbtShim'_constructor {_PsbtShim'pendingChanId = Data.ProtoLens.fieldDefault, _PsbtShim'basePsbt = Data.ProtoLens.fieldDefault, _PsbtShim'noPublish = Data.ProtoLens.fieldDefault, _PsbtShim'_unknownFields = []} parseMessage = let loop :: PsbtShim -> Data.ProtoLens.Encoding.Bytes.Parser PsbtShim 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)) "pending_chan_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pendingChanId") y x) 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "base_psbt" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"basePsbt") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "no_publish" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"noPublish") 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) "PsbtShim" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"pendingChanId") _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 @"basePsbt") _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 @"noPublish") _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 PsbtShim where rnf = \ x__ -> Control.DeepSeq.deepseq (_PsbtShim'_unknownFields x__) (Control.DeepSeq.deepseq (_PsbtShim'pendingChanId x__) (Control.DeepSeq.deepseq (_PsbtShim'basePsbt x__) (Control.DeepSeq.deepseq (_PsbtShim'noPublish x__) ()))) {- | Fields : * 'Proto.LndGrpc_Fields.pubKey' @:: Lens' QueryRoutesRequest Data.Text.Text@ * 'Proto.LndGrpc_Fields.amt' @:: Lens' QueryRoutesRequest Data.Int.Int64@ * 'Proto.LndGrpc_Fields.amtMsat' @:: Lens' QueryRoutesRequest Data.Int.Int64@ * 'Proto.LndGrpc_Fields.finalCltvDelta' @:: Lens' QueryRoutesRequest Data.Int.Int32@ * 'Proto.LndGrpc_Fields.feeLimit' @:: Lens' QueryRoutesRequest FeeLimit@ * 'Proto.LndGrpc_Fields.maybe'feeLimit' @:: Lens' QueryRoutesRequest (Prelude.Maybe FeeLimit)@ * 'Proto.LndGrpc_Fields.ignoredNodes' @:: Lens' QueryRoutesRequest [Data.ByteString.ByteString]@ * 'Proto.LndGrpc_Fields.vec'ignoredNodes' @:: Lens' QueryRoutesRequest (Data.Vector.Vector Data.ByteString.ByteString)@ * 'Proto.LndGrpc_Fields.ignoredEdges' @:: Lens' QueryRoutesRequest [EdgeLocator]@ * 'Proto.LndGrpc_Fields.vec'ignoredEdges' @:: Lens' QueryRoutesRequest (Data.Vector.Vector EdgeLocator)@ * 'Proto.LndGrpc_Fields.sourcePubKey' @:: Lens' QueryRoutesRequest Data.Text.Text@ * 'Proto.LndGrpc_Fields.useMissionControl' @:: Lens' QueryRoutesRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.ignoredPairs' @:: Lens' QueryRoutesRequest [NodePair]@ * 'Proto.LndGrpc_Fields.vec'ignoredPairs' @:: Lens' QueryRoutesRequest (Data.Vector.Vector NodePair)@ * 'Proto.LndGrpc_Fields.cltvLimit' @:: Lens' QueryRoutesRequest Data.Word.Word32@ * 'Proto.LndGrpc_Fields.destCustomRecords' @:: Lens' QueryRoutesRequest (Data.Map.Map Data.Word.Word64 Data.ByteString.ByteString)@ * 'Proto.LndGrpc_Fields.outgoingChanId' @:: Lens' QueryRoutesRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.lastHopPubkey' @:: Lens' QueryRoutesRequest Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.routeHints' @:: Lens' QueryRoutesRequest [RouteHint]@ * 'Proto.LndGrpc_Fields.vec'routeHints' @:: Lens' QueryRoutesRequest (Data.Vector.Vector RouteHint)@ * 'Proto.LndGrpc_Fields.destFeatures' @:: Lens' QueryRoutesRequest [FeatureBit]@ * 'Proto.LndGrpc_Fields.vec'destFeatures' @:: Lens' QueryRoutesRequest (Data.Vector.Vector FeatureBit)@ -} data QueryRoutesRequest = QueryRoutesRequest'_constructor {_QueryRoutesRequest'pubKey :: !Data.Text.Text, _QueryRoutesRequest'amt :: !Data.Int.Int64, _QueryRoutesRequest'amtMsat :: !Data.Int.Int64, _QueryRoutesRequest'finalCltvDelta :: !Data.Int.Int32, _QueryRoutesRequest'feeLimit :: !(Prelude.Maybe FeeLimit), _QueryRoutesRequest'ignoredNodes :: !(Data.Vector.Vector Data.ByteString.ByteString), _QueryRoutesRequest'ignoredEdges :: !(Data.Vector.Vector EdgeLocator), _QueryRoutesRequest'sourcePubKey :: !Data.Text.Text, _QueryRoutesRequest'useMissionControl :: !Prelude.Bool, _QueryRoutesRequest'ignoredPairs :: !(Data.Vector.Vector NodePair), _QueryRoutesRequest'cltvLimit :: !Data.Word.Word32, _QueryRoutesRequest'destCustomRecords :: !(Data.Map.Map Data.Word.Word64 Data.ByteString.ByteString), _QueryRoutesRequest'outgoingChanId :: !Data.Word.Word64, _QueryRoutesRequest'lastHopPubkey :: !Data.ByteString.ByteString, _QueryRoutesRequest'routeHints :: !(Data.Vector.Vector RouteHint), _QueryRoutesRequest'destFeatures :: !(Data.Vector.Vector FeatureBit), _QueryRoutesRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show QueryRoutesRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField QueryRoutesRequest "pubKey" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'pubKey (\ x__ y__ -> x__ {_QueryRoutesRequest'pubKey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField QueryRoutesRequest "amt" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'amt (\ x__ y__ -> x__ {_QueryRoutesRequest'amt = y__})) Prelude.id instance Data.ProtoLens.Field.HasField QueryRoutesRequest "amtMsat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'amtMsat (\ x__ y__ -> x__ {_QueryRoutesRequest'amtMsat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField QueryRoutesRequest "finalCltvDelta" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'finalCltvDelta (\ x__ y__ -> x__ {_QueryRoutesRequest'finalCltvDelta = y__})) Prelude.id instance Data.ProtoLens.Field.HasField QueryRoutesRequest "feeLimit" FeeLimit where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'feeLimit (\ x__ y__ -> x__ {_QueryRoutesRequest'feeLimit = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField QueryRoutesRequest "maybe'feeLimit" (Prelude.Maybe FeeLimit) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'feeLimit (\ x__ y__ -> x__ {_QueryRoutesRequest'feeLimit = y__})) Prelude.id instance Data.ProtoLens.Field.HasField QueryRoutesRequest "ignoredNodes" [Data.ByteString.ByteString] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'ignoredNodes (\ x__ y__ -> x__ {_QueryRoutesRequest'ignoredNodes = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField QueryRoutesRequest "vec'ignoredNodes" (Data.Vector.Vector Data.ByteString.ByteString) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'ignoredNodes (\ x__ y__ -> x__ {_QueryRoutesRequest'ignoredNodes = y__})) Prelude.id instance Data.ProtoLens.Field.HasField QueryRoutesRequest "ignoredEdges" [EdgeLocator] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'ignoredEdges (\ x__ y__ -> x__ {_QueryRoutesRequest'ignoredEdges = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField QueryRoutesRequest "vec'ignoredEdges" (Data.Vector.Vector EdgeLocator) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'ignoredEdges (\ x__ y__ -> x__ {_QueryRoutesRequest'ignoredEdges = y__})) Prelude.id instance Data.ProtoLens.Field.HasField QueryRoutesRequest "sourcePubKey" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'sourcePubKey (\ x__ y__ -> x__ {_QueryRoutesRequest'sourcePubKey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField QueryRoutesRequest "useMissionControl" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'useMissionControl (\ x__ y__ -> x__ {_QueryRoutesRequest'useMissionControl = y__})) Prelude.id instance Data.ProtoLens.Field.HasField QueryRoutesRequest "ignoredPairs" [NodePair] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'ignoredPairs (\ x__ y__ -> x__ {_QueryRoutesRequest'ignoredPairs = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField QueryRoutesRequest "vec'ignoredPairs" (Data.Vector.Vector NodePair) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'ignoredPairs (\ x__ y__ -> x__ {_QueryRoutesRequest'ignoredPairs = y__})) Prelude.id instance Data.ProtoLens.Field.HasField QueryRoutesRequest "cltvLimit" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'cltvLimit (\ x__ y__ -> x__ {_QueryRoutesRequest'cltvLimit = y__})) Prelude.id instance Data.ProtoLens.Field.HasField QueryRoutesRequest "destCustomRecords" (Data.Map.Map Data.Word.Word64 Data.ByteString.ByteString) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'destCustomRecords (\ x__ y__ -> x__ {_QueryRoutesRequest'destCustomRecords = y__})) Prelude.id instance Data.ProtoLens.Field.HasField QueryRoutesRequest "outgoingChanId" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'outgoingChanId (\ x__ y__ -> x__ {_QueryRoutesRequest'outgoingChanId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField QueryRoutesRequest "lastHopPubkey" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'lastHopPubkey (\ x__ y__ -> x__ {_QueryRoutesRequest'lastHopPubkey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField QueryRoutesRequest "routeHints" [RouteHint] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'routeHints (\ x__ y__ -> x__ {_QueryRoutesRequest'routeHints = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField QueryRoutesRequest "vec'routeHints" (Data.Vector.Vector RouteHint) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'routeHints (\ x__ y__ -> x__ {_QueryRoutesRequest'routeHints = y__})) Prelude.id instance Data.ProtoLens.Field.HasField QueryRoutesRequest "destFeatures" [FeatureBit] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'destFeatures (\ x__ y__ -> x__ {_QueryRoutesRequest'destFeatures = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField QueryRoutesRequest "vec'destFeatures" (Data.Vector.Vector FeatureBit) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'destFeatures (\ x__ y__ -> x__ {_QueryRoutesRequest'destFeatures = y__})) Prelude.id instance Data.ProtoLens.Message QueryRoutesRequest where messageName _ = Data.Text.pack "lnrpc.QueryRoutesRequest" packedMessageDescriptor _ = "\n\ \\DC2QueryRoutesRequest\DC2\ETB\n\ \\apub_key\CAN\SOH \SOH(\tR\ACKpubKey\DC2\DLE\n\ \\ETXamt\CAN\STX \SOH(\ETXR\ETXamt\DC2\EM\n\ \\bamt_msat\CAN\f \SOH(\ETXR\aamtMsat\DC2(\n\ \\DLEfinal_cltv_delta\CAN\EOT \SOH(\ENQR\SOfinalCltvDelta\DC2,\n\ \\tfee_limit\CAN\ENQ \SOH(\v2\SI.lnrpc.FeeLimitR\bfeeLimit\DC2#\n\ \\rignored_nodes\CAN\ACK \ETX(\fR\fignoredNodes\DC2;\n\ \\rignored_edges\CAN\a \ETX(\v2\DC2.lnrpc.EdgeLocatorR\fignoredEdgesB\STX\CAN\SOH\DC2$\n\ \\SOsource_pub_key\CAN\b \SOH(\tR\fsourcePubKey\DC2.\n\ \\DC3use_mission_control\CAN\t \SOH(\bR\DC1useMissionControl\DC24\n\ \\rignored_pairs\CAN\n\ \ \ETX(\v2\SI.lnrpc.NodePairR\fignoredPairs\DC2\GS\n\ \\n\ \cltv_limit\CAN\v \SOH(\rR\tcltvLimit\DC2`\n\ \\DC3dest_custom_records\CAN\r \ETX(\v20.lnrpc.QueryRoutesRequest.DestCustomRecordsEntryR\DC1destCustomRecords\DC2,\n\ \\DLEoutgoing_chan_id\CAN\SO \SOH(\EOTR\SOoutgoingChanIdB\STX0\SOH\DC2&\n\ \\SIlast_hop_pubkey\CAN\SI \SOH(\fR\rlastHopPubkey\DC21\n\ \\vroute_hints\CAN\DLE \ETX(\v2\DLE.lnrpc.RouteHintR\n\ \routeHints\DC26\n\ \\rdest_features\CAN\DC1 \ETX(\SO2\DC1.lnrpc.FeatureBitR\fdestFeatures\SUBD\n\ \\SYNDestCustomRecordsEntry\DC2\DLE\n\ \\ETXkey\CAN\SOH \SOH(\EOTR\ETXkey\DC2\DC4\n\ \\ENQvalue\CAN\STX \SOH(\fR\ENQvalue:\STX8\SOHJ\EOT\b\ETX\DLE\EOT" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let pubKey__field_descriptor = Data.ProtoLens.FieldDescriptor "pub_key" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pubKey")) :: Data.ProtoLens.FieldDescriptor QueryRoutesRequest amt__field_descriptor = Data.ProtoLens.FieldDescriptor "amt" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"amt")) :: Data.ProtoLens.FieldDescriptor QueryRoutesRequest amtMsat__field_descriptor = Data.ProtoLens.FieldDescriptor "amt_msat" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"amtMsat")) :: Data.ProtoLens.FieldDescriptor QueryRoutesRequest finalCltvDelta__field_descriptor = Data.ProtoLens.FieldDescriptor "final_cltv_delta" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"finalCltvDelta")) :: Data.ProtoLens.FieldDescriptor QueryRoutesRequest feeLimit__field_descriptor = Data.ProtoLens.FieldDescriptor "fee_limit" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor FeeLimit) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'feeLimit")) :: Data.ProtoLens.FieldDescriptor QueryRoutesRequest ignoredNodes__field_descriptor = Data.ProtoLens.FieldDescriptor "ignored_nodes" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"ignoredNodes")) :: Data.ProtoLens.FieldDescriptor QueryRoutesRequest ignoredEdges__field_descriptor = Data.ProtoLens.FieldDescriptor "ignored_edges" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor EdgeLocator) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"ignoredEdges")) :: Data.ProtoLens.FieldDescriptor QueryRoutesRequest sourcePubKey__field_descriptor = Data.ProtoLens.FieldDescriptor "source_pub_key" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"sourcePubKey")) :: Data.ProtoLens.FieldDescriptor QueryRoutesRequest useMissionControl__field_descriptor = Data.ProtoLens.FieldDescriptor "use_mission_control" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"useMissionControl")) :: Data.ProtoLens.FieldDescriptor QueryRoutesRequest ignoredPairs__field_descriptor = Data.ProtoLens.FieldDescriptor "ignored_pairs" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor NodePair) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"ignoredPairs")) :: Data.ProtoLens.FieldDescriptor QueryRoutesRequest cltvLimit__field_descriptor = Data.ProtoLens.FieldDescriptor "cltv_limit" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"cltvLimit")) :: Data.ProtoLens.FieldDescriptor QueryRoutesRequest destCustomRecords__field_descriptor = Data.ProtoLens.FieldDescriptor "dest_custom_records" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor QueryRoutesRequest'DestCustomRecordsEntry) (Data.ProtoLens.MapField (Data.ProtoLens.Field.field @"key") (Data.ProtoLens.Field.field @"value") (Data.ProtoLens.Field.field @"destCustomRecords")) :: Data.ProtoLens.FieldDescriptor QueryRoutesRequest outgoingChanId__field_descriptor = Data.ProtoLens.FieldDescriptor "outgoing_chan_id" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"outgoingChanId")) :: Data.ProtoLens.FieldDescriptor QueryRoutesRequest lastHopPubkey__field_descriptor = Data.ProtoLens.FieldDescriptor "last_hop_pubkey" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"lastHopPubkey")) :: Data.ProtoLens.FieldDescriptor QueryRoutesRequest routeHints__field_descriptor = Data.ProtoLens.FieldDescriptor "route_hints" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor RouteHint) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"routeHints")) :: Data.ProtoLens.FieldDescriptor QueryRoutesRequest destFeatures__field_descriptor = Data.ProtoLens.FieldDescriptor "dest_features" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor FeatureBit) (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed (Data.ProtoLens.Field.field @"destFeatures")) :: Data.ProtoLens.FieldDescriptor QueryRoutesRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, pubKey__field_descriptor), (Data.ProtoLens.Tag 2, amt__field_descriptor), (Data.ProtoLens.Tag 12, amtMsat__field_descriptor), (Data.ProtoLens.Tag 4, finalCltvDelta__field_descriptor), (Data.ProtoLens.Tag 5, feeLimit__field_descriptor), (Data.ProtoLens.Tag 6, ignoredNodes__field_descriptor), (Data.ProtoLens.Tag 7, ignoredEdges__field_descriptor), (Data.ProtoLens.Tag 8, sourcePubKey__field_descriptor), (Data.ProtoLens.Tag 9, useMissionControl__field_descriptor), (Data.ProtoLens.Tag 10, ignoredPairs__field_descriptor), (Data.ProtoLens.Tag 11, cltvLimit__field_descriptor), (Data.ProtoLens.Tag 13, destCustomRecords__field_descriptor), (Data.ProtoLens.Tag 14, outgoingChanId__field_descriptor), (Data.ProtoLens.Tag 15, lastHopPubkey__field_descriptor), (Data.ProtoLens.Tag 16, routeHints__field_descriptor), (Data.ProtoLens.Tag 17, destFeatures__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _QueryRoutesRequest'_unknownFields (\ x__ y__ -> x__ {_QueryRoutesRequest'_unknownFields = y__}) defMessage = QueryRoutesRequest'_constructor {_QueryRoutesRequest'pubKey = Data.ProtoLens.fieldDefault, _QueryRoutesRequest'amt = Data.ProtoLens.fieldDefault, _QueryRoutesRequest'amtMsat = Data.ProtoLens.fieldDefault, _QueryRoutesRequest'finalCltvDelta = Data.ProtoLens.fieldDefault, _QueryRoutesRequest'feeLimit = Prelude.Nothing, _QueryRoutesRequest'ignoredNodes = Data.Vector.Generic.empty, _QueryRoutesRequest'ignoredEdges = Data.Vector.Generic.empty, _QueryRoutesRequest'sourcePubKey = Data.ProtoLens.fieldDefault, _QueryRoutesRequest'useMissionControl = Data.ProtoLens.fieldDefault, _QueryRoutesRequest'ignoredPairs = Data.Vector.Generic.empty, _QueryRoutesRequest'cltvLimit = Data.ProtoLens.fieldDefault, _QueryRoutesRequest'destCustomRecords = Data.Map.empty, _QueryRoutesRequest'outgoingChanId = Data.ProtoLens.fieldDefault, _QueryRoutesRequest'lastHopPubkey = Data.ProtoLens.fieldDefault, _QueryRoutesRequest'routeHints = Data.Vector.Generic.empty, _QueryRoutesRequest'destFeatures = Data.Vector.Generic.empty, _QueryRoutesRequest'_unknownFields = []} parseMessage = let loop :: QueryRoutesRequest -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld FeatureBit -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld EdgeLocator -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NodePair -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RouteHint -> Data.ProtoLens.Encoding.Bytes.Parser QueryRoutesRequest loop x mutable'destFeatures mutable'ignoredEdges mutable'ignoredNodes mutable'ignoredPairs mutable'routeHints = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'destFeatures <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'destFeatures) frozen'ignoredEdges <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'ignoredEdges) frozen'ignoredNodes <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'ignoredNodes) frozen'ignoredPairs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'ignoredPairs) 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'destFeatures") frozen'destFeatures (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'ignoredEdges") frozen'ignoredEdges (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'ignoredNodes") frozen'ignoredNodes (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'ignoredPairs") frozen'ignoredPairs (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)) "pub_key" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pubKey") y x) mutable'destFeatures mutable'ignoredEdges mutable'ignoredNodes mutable'ignoredPairs mutable'routeHints 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "amt" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"amt") y x) mutable'destFeatures mutable'ignoredEdges mutable'ignoredNodes mutable'ignoredPairs mutable'routeHints 96 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "amt_msat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"amtMsat") y x) mutable'destFeatures mutable'ignoredEdges mutable'ignoredNodes mutable'ignoredPairs mutable'routeHints 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "final_cltv_delta" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"finalCltvDelta") y x) mutable'destFeatures mutable'ignoredEdges mutable'ignoredNodes mutable'ignoredPairs mutable'routeHints 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) "fee_limit" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"feeLimit") y x) mutable'destFeatures mutable'ignoredEdges mutable'ignoredNodes mutable'ignoredPairs mutable'routeHints 50 -> do !y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "ignored_nodes" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'ignoredNodes y) loop x mutable'destFeatures mutable'ignoredEdges v mutable'ignoredPairs mutable'routeHints 58 -> do !y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "ignored_edges" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'ignoredEdges y) loop x mutable'destFeatures v mutable'ignoredNodes mutable'ignoredPairs 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)) "source_pub_key" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"sourcePubKey") y x) mutable'destFeatures mutable'ignoredEdges mutable'ignoredNodes mutable'ignoredPairs mutable'routeHints 72 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "use_mission_control" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"useMissionControl") y x) mutable'destFeatures mutable'ignoredEdges mutable'ignoredNodes mutable'ignoredPairs 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) "ignored_pairs" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'ignoredPairs y) loop x mutable'destFeatures mutable'ignoredEdges mutable'ignoredNodes v mutable'routeHints 88 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "cltv_limit" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cltvLimit") y x) mutable'destFeatures mutable'ignoredEdges mutable'ignoredNodes mutable'ignoredPairs mutable'routeHints 106 -> do !(entry :: QueryRoutesRequest'DestCustomRecordsEntry) <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "dest_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 @"destCustomRecords") (\ !t -> Data.Map.insert key value t) x) mutable'destFeatures mutable'ignoredEdges mutable'ignoredNodes mutable'ignoredPairs mutable'routeHints) 112 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "outgoing_chan_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"outgoingChanId") y x) mutable'destFeatures mutable'ignoredEdges mutable'ignoredNodes mutable'ignoredPairs mutable'routeHints 122 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "last_hop_pubkey" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"lastHopPubkey") y x) mutable'destFeatures mutable'ignoredEdges mutable'ignoredNodes mutable'ignoredPairs mutable'routeHints 130 -> 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'destFeatures mutable'ignoredEdges mutable'ignoredNodes mutable'ignoredPairs v 136 -> do !y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) "dest_features" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'destFeatures y) loop x v mutable'ignoredEdges mutable'ignoredNodes mutable'ignoredPairs mutable'routeHints 138 -> 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.>) (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) "dest_features" qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append qs q) ploop qs' in ploop) mutable'destFeatures) loop x y mutable'ignoredEdges mutable'ignoredNodes mutable'ignoredPairs mutable'routeHints wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'destFeatures mutable'ignoredEdges mutable'ignoredNodes mutable'ignoredPairs mutable'routeHints in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'destFeatures <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'ignoredEdges <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'ignoredNodes <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'ignoredPairs <- 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'destFeatures mutable'ignoredEdges mutable'ignoredNodes mutable'ignoredPairs mutable'routeHints) "QueryRoutesRequest" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"pubKey") _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 @"amt") _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 @"amtMsat") _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 @"finalCltvDelta") _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'feeLimit") _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.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (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)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'ignoredNodes") _x)) ((Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (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.ProtoLens.encodeMessage _v)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'ignoredEdges") _x)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"sourcePubKey") _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 @"useMissionControl") _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 (\ b -> if b then 1 else 0) _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'ignoredPairs") _x)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"cltvLimit") _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.<>) (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 :: QueryRoutesRequest'DestCustomRecordsEntry))))) (Data.Map.toList (Lens.Family2.view (Data.ProtoLens.Field.field @"destCustomRecords") _x)))) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"outgoingChanId") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 112) (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"lastHopPubkey") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 122) ((\ 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 130) ((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 p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'destFeatures") _x in if Data.Vector.Generic.null p 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)) (Data.ProtoLens.Encoding.Bytes.runBuilder (Data.ProtoLens.Encoding.Bytes.foldMapBuilder ((Prelude..) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) Prelude.fromEnum) p)))) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))))))))))))) instance Control.DeepSeq.NFData QueryRoutesRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_QueryRoutesRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_QueryRoutesRequest'pubKey x__) (Control.DeepSeq.deepseq (_QueryRoutesRequest'amt x__) (Control.DeepSeq.deepseq (_QueryRoutesRequest'amtMsat x__) (Control.DeepSeq.deepseq (_QueryRoutesRequest'finalCltvDelta x__) (Control.DeepSeq.deepseq (_QueryRoutesRequest'feeLimit x__) (Control.DeepSeq.deepseq (_QueryRoutesRequest'ignoredNodes x__) (Control.DeepSeq.deepseq (_QueryRoutesRequest'ignoredEdges x__) (Control.DeepSeq.deepseq (_QueryRoutesRequest'sourcePubKey x__) (Control.DeepSeq.deepseq (_QueryRoutesRequest'useMissionControl x__) (Control.DeepSeq.deepseq (_QueryRoutesRequest'ignoredPairs x__) (Control.DeepSeq.deepseq (_QueryRoutesRequest'cltvLimit x__) (Control.DeepSeq.deepseq (_QueryRoutesRequest'destCustomRecords x__) (Control.DeepSeq.deepseq (_QueryRoutesRequest'outgoingChanId x__) (Control.DeepSeq.deepseq (_QueryRoutesRequest'lastHopPubkey x__) (Control.DeepSeq.deepseq (_QueryRoutesRequest'routeHints x__) (Control.DeepSeq.deepseq (_QueryRoutesRequest'destFeatures x__) ())))))))))))))))) {- | Fields : * 'Proto.LndGrpc_Fields.key' @:: Lens' QueryRoutesRequest'DestCustomRecordsEntry Data.Word.Word64@ * 'Proto.LndGrpc_Fields.value' @:: Lens' QueryRoutesRequest'DestCustomRecordsEntry Data.ByteString.ByteString@ -} data QueryRoutesRequest'DestCustomRecordsEntry = QueryRoutesRequest'DestCustomRecordsEntry'_constructor {_QueryRoutesRequest'DestCustomRecordsEntry'key :: !Data.Word.Word64, _QueryRoutesRequest'DestCustomRecordsEntry'value :: !Data.ByteString.ByteString, _QueryRoutesRequest'DestCustomRecordsEntry'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show QueryRoutesRequest'DestCustomRecordsEntry where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField QueryRoutesRequest'DestCustomRecordsEntry "key" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'DestCustomRecordsEntry'key (\ x__ y__ -> x__ {_QueryRoutesRequest'DestCustomRecordsEntry'key = y__})) Prelude.id instance Data.ProtoLens.Field.HasField QueryRoutesRequest'DestCustomRecordsEntry "value" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesRequest'DestCustomRecordsEntry'value (\ x__ y__ -> x__ {_QueryRoutesRequest'DestCustomRecordsEntry'value = y__})) Prelude.id instance Data.ProtoLens.Message QueryRoutesRequest'DestCustomRecordsEntry where messageName _ = Data.Text.pack "lnrpc.QueryRoutesRequest.DestCustomRecordsEntry" packedMessageDescriptor _ = "\n\ \\SYNDestCustomRecordsEntry\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 QueryRoutesRequest'DestCustomRecordsEntry 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 QueryRoutesRequest'DestCustomRecordsEntry in Data.Map.fromList [(Data.ProtoLens.Tag 1, key__field_descriptor), (Data.ProtoLens.Tag 2, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _QueryRoutesRequest'DestCustomRecordsEntry'_unknownFields (\ x__ y__ -> x__ {_QueryRoutesRequest'DestCustomRecordsEntry'_unknownFields = y__}) defMessage = QueryRoutesRequest'DestCustomRecordsEntry'_constructor {_QueryRoutesRequest'DestCustomRecordsEntry'key = Data.ProtoLens.fieldDefault, _QueryRoutesRequest'DestCustomRecordsEntry'value = Data.ProtoLens.fieldDefault, _QueryRoutesRequest'DestCustomRecordsEntry'_unknownFields = []} parseMessage = let loop :: QueryRoutesRequest'DestCustomRecordsEntry -> Data.ProtoLens.Encoding.Bytes.Parser QueryRoutesRequest'DestCustomRecordsEntry 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) "DestCustomRecordsEntry" 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 QueryRoutesRequest'DestCustomRecordsEntry where rnf = \ x__ -> Control.DeepSeq.deepseq (_QueryRoutesRequest'DestCustomRecordsEntry'_unknownFields x__) (Control.DeepSeq.deepseq (_QueryRoutesRequest'DestCustomRecordsEntry'key x__) (Control.DeepSeq.deepseq (_QueryRoutesRequest'DestCustomRecordsEntry'value x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.routes' @:: Lens' QueryRoutesResponse [Route]@ * 'Proto.LndGrpc_Fields.vec'routes' @:: Lens' QueryRoutesResponse (Data.Vector.Vector Route)@ * 'Proto.LndGrpc_Fields.successProb' @:: Lens' QueryRoutesResponse Prelude.Double@ -} data QueryRoutesResponse = QueryRoutesResponse'_constructor {_QueryRoutesResponse'routes :: !(Data.Vector.Vector Route), _QueryRoutesResponse'successProb :: !Prelude.Double, _QueryRoutesResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show QueryRoutesResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField QueryRoutesResponse "routes" [Route] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesResponse'routes (\ x__ y__ -> x__ {_QueryRoutesResponse'routes = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField QueryRoutesResponse "vec'routes" (Data.Vector.Vector Route) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesResponse'routes (\ x__ y__ -> x__ {_QueryRoutesResponse'routes = y__})) Prelude.id instance Data.ProtoLens.Field.HasField QueryRoutesResponse "successProb" Prelude.Double where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _QueryRoutesResponse'successProb (\ x__ y__ -> x__ {_QueryRoutesResponse'successProb = y__})) Prelude.id instance Data.ProtoLens.Message QueryRoutesResponse where messageName _ = Data.Text.pack "lnrpc.QueryRoutesResponse" packedMessageDescriptor _ = "\n\ \\DC3QueryRoutesResponse\DC2$\n\ \\ACKroutes\CAN\SOH \ETX(\v2\f.lnrpc.RouteR\ACKroutes\DC2!\n\ \\fsuccess_prob\CAN\STX \SOH(\SOHR\vsuccessProb" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let routes__field_descriptor = Data.ProtoLens.FieldDescriptor "routes" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Route) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"routes")) :: Data.ProtoLens.FieldDescriptor QueryRoutesResponse successProb__field_descriptor = Data.ProtoLens.FieldDescriptor "success_prob" (Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Double) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"successProb")) :: Data.ProtoLens.FieldDescriptor QueryRoutesResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, routes__field_descriptor), (Data.ProtoLens.Tag 2, successProb__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _QueryRoutesResponse'_unknownFields (\ x__ y__ -> x__ {_QueryRoutesResponse'_unknownFields = y__}) defMessage = QueryRoutesResponse'_constructor {_QueryRoutesResponse'routes = Data.Vector.Generic.empty, _QueryRoutesResponse'successProb = Data.ProtoLens.fieldDefault, _QueryRoutesResponse'_unknownFields = []} parseMessage = let loop :: QueryRoutesResponse -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Route -> Data.ProtoLens.Encoding.Bytes.Parser QueryRoutesResponse loop x mutable'routes = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'routes <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'routes) (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'routes") frozen'routes 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) "routes" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'routes y) loop x v 17 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Data.ProtoLens.Encoding.Bytes.wordToDouble Data.ProtoLens.Encoding.Bytes.getFixed64) "success_prob" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"successProb") y x) mutable'routes wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'routes in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'routes <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'routes) "QueryRoutesResponse" 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'routes") _x)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"successProb") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 17) ((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 QueryRoutesResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_QueryRoutesResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_QueryRoutesResponse'routes x__) (Control.DeepSeq.deepseq (_QueryRoutesResponse'successProb x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.fundingAddress' @:: Lens' ReadyForPsbtFunding Data.Text.Text@ * 'Proto.LndGrpc_Fields.fundingAmount' @:: Lens' ReadyForPsbtFunding Data.Int.Int64@ * 'Proto.LndGrpc_Fields.psbt' @:: Lens' ReadyForPsbtFunding Data.ByteString.ByteString@ -} data ReadyForPsbtFunding = ReadyForPsbtFunding'_constructor {_ReadyForPsbtFunding'fundingAddress :: !Data.Text.Text, _ReadyForPsbtFunding'fundingAmount :: !Data.Int.Int64, _ReadyForPsbtFunding'psbt :: !Data.ByteString.ByteString, _ReadyForPsbtFunding'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ReadyForPsbtFunding where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ReadyForPsbtFunding "fundingAddress" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ReadyForPsbtFunding'fundingAddress (\ x__ y__ -> x__ {_ReadyForPsbtFunding'fundingAddress = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ReadyForPsbtFunding "fundingAmount" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ReadyForPsbtFunding'fundingAmount (\ x__ y__ -> x__ {_ReadyForPsbtFunding'fundingAmount = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ReadyForPsbtFunding "psbt" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ReadyForPsbtFunding'psbt (\ x__ y__ -> x__ {_ReadyForPsbtFunding'psbt = y__})) Prelude.id instance Data.ProtoLens.Message ReadyForPsbtFunding where messageName _ = Data.Text.pack "lnrpc.ReadyForPsbtFunding" packedMessageDescriptor _ = "\n\ \\DC3ReadyForPsbtFunding\DC2'\n\ \\SIfunding_address\CAN\SOH \SOH(\tR\SOfundingAddress\DC2%\n\ \\SOfunding_amount\CAN\STX \SOH(\ETXR\rfundingAmount\DC2\DC2\n\ \\EOTpsbt\CAN\ETX \SOH(\fR\EOTpsbt" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let fundingAddress__field_descriptor = Data.ProtoLens.FieldDescriptor "funding_address" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"fundingAddress")) :: Data.ProtoLens.FieldDescriptor ReadyForPsbtFunding fundingAmount__field_descriptor = Data.ProtoLens.FieldDescriptor "funding_amount" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"fundingAmount")) :: Data.ProtoLens.FieldDescriptor ReadyForPsbtFunding psbt__field_descriptor = Data.ProtoLens.FieldDescriptor "psbt" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"psbt")) :: Data.ProtoLens.FieldDescriptor ReadyForPsbtFunding in Data.Map.fromList [(Data.ProtoLens.Tag 1, fundingAddress__field_descriptor), (Data.ProtoLens.Tag 2, fundingAmount__field_descriptor), (Data.ProtoLens.Tag 3, psbt__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ReadyForPsbtFunding'_unknownFields (\ x__ y__ -> x__ {_ReadyForPsbtFunding'_unknownFields = y__}) defMessage = ReadyForPsbtFunding'_constructor {_ReadyForPsbtFunding'fundingAddress = Data.ProtoLens.fieldDefault, _ReadyForPsbtFunding'fundingAmount = Data.ProtoLens.fieldDefault, _ReadyForPsbtFunding'psbt = Data.ProtoLens.fieldDefault, _ReadyForPsbtFunding'_unknownFields = []} parseMessage = let loop :: ReadyForPsbtFunding -> Data.ProtoLens.Encoding.Bytes.Parser ReadyForPsbtFunding 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)) "funding_address" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"fundingAddress") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "funding_amount" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"fundingAmount") y x) 26 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "psbt" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"psbt") 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) "ReadyForPsbtFunding" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"fundingAddress") _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 @"fundingAmount") _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 @"psbt") _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 ReadyForPsbtFunding where rnf = \ x__ -> Control.DeepSeq.deepseq (_ReadyForPsbtFunding'_unknownFields x__) (Control.DeepSeq.deepseq (_ReadyForPsbtFunding'fundingAddress x__) (Control.DeepSeq.deepseq (_ReadyForPsbtFunding'fundingAmount x__) (Control.DeepSeq.deepseq (_ReadyForPsbtFunding'psbt x__) ()))) {- | Fields : * 'Proto.LndGrpc_Fields.resolutionType' @:: Lens' Resolution ResolutionType@ * 'Proto.LndGrpc_Fields.outcome' @:: Lens' Resolution ResolutionOutcome@ * 'Proto.LndGrpc_Fields.outpoint' @:: Lens' Resolution OutPoint@ * 'Proto.LndGrpc_Fields.maybe'outpoint' @:: Lens' Resolution (Prelude.Maybe OutPoint)@ * 'Proto.LndGrpc_Fields.amountSat' @:: Lens' Resolution Data.Word.Word64@ * 'Proto.LndGrpc_Fields.sweepTxid' @:: Lens' Resolution Data.Text.Text@ -} data Resolution = Resolution'_constructor {_Resolution'resolutionType :: !ResolutionType, _Resolution'outcome :: !ResolutionOutcome, _Resolution'outpoint :: !(Prelude.Maybe OutPoint), _Resolution'amountSat :: !Data.Word.Word64, _Resolution'sweepTxid :: !Data.Text.Text, _Resolution'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Resolution where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField Resolution "resolutionType" ResolutionType where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Resolution'resolutionType (\ x__ y__ -> x__ {_Resolution'resolutionType = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Resolution "outcome" ResolutionOutcome where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Resolution'outcome (\ x__ y__ -> x__ {_Resolution'outcome = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Resolution "outpoint" OutPoint where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Resolution'outpoint (\ x__ y__ -> x__ {_Resolution'outpoint = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField Resolution "maybe'outpoint" (Prelude.Maybe OutPoint) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Resolution'outpoint (\ x__ y__ -> x__ {_Resolution'outpoint = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Resolution "amountSat" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Resolution'amountSat (\ x__ y__ -> x__ {_Resolution'amountSat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Resolution "sweepTxid" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Resolution'sweepTxid (\ x__ y__ -> x__ {_Resolution'sweepTxid = y__})) Prelude.id instance Data.ProtoLens.Message Resolution where messageName _ = Data.Text.pack "lnrpc.Resolution" packedMessageDescriptor _ = "\n\ \\n\ \Resolution\DC2>\n\ \\SIresolution_type\CAN\SOH \SOH(\SO2\NAK.lnrpc.ResolutionTypeR\SOresolutionType\DC22\n\ \\aoutcome\CAN\STX \SOH(\SO2\CAN.lnrpc.ResolutionOutcomeR\aoutcome\DC2+\n\ \\boutpoint\CAN\ETX \SOH(\v2\SI.lnrpc.OutPointR\boutpoint\DC2\GS\n\ \\n\ \amount_sat\CAN\EOT \SOH(\EOTR\tamountSat\DC2\GS\n\ \\n\ \sweep_txid\CAN\ENQ \SOH(\tR\tsweepTxid" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let resolutionType__field_descriptor = Data.ProtoLens.FieldDescriptor "resolution_type" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor ResolutionType) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"resolutionType")) :: Data.ProtoLens.FieldDescriptor Resolution outcome__field_descriptor = Data.ProtoLens.FieldDescriptor "outcome" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor ResolutionOutcome) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"outcome")) :: Data.ProtoLens.FieldDescriptor Resolution outpoint__field_descriptor = Data.ProtoLens.FieldDescriptor "outpoint" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor OutPoint) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'outpoint")) :: Data.ProtoLens.FieldDescriptor Resolution amountSat__field_descriptor = Data.ProtoLens.FieldDescriptor "amount_sat" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"amountSat")) :: Data.ProtoLens.FieldDescriptor Resolution sweepTxid__field_descriptor = Data.ProtoLens.FieldDescriptor "sweep_txid" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"sweepTxid")) :: Data.ProtoLens.FieldDescriptor Resolution in Data.Map.fromList [(Data.ProtoLens.Tag 1, resolutionType__field_descriptor), (Data.ProtoLens.Tag 2, outcome__field_descriptor), (Data.ProtoLens.Tag 3, outpoint__field_descriptor), (Data.ProtoLens.Tag 4, amountSat__field_descriptor), (Data.ProtoLens.Tag 5, sweepTxid__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Resolution'_unknownFields (\ x__ y__ -> x__ {_Resolution'_unknownFields = y__}) defMessage = Resolution'_constructor {_Resolution'resolutionType = Data.ProtoLens.fieldDefault, _Resolution'outcome = Data.ProtoLens.fieldDefault, _Resolution'outpoint = Prelude.Nothing, _Resolution'amountSat = Data.ProtoLens.fieldDefault, _Resolution'sweepTxid = Data.ProtoLens.fieldDefault, _Resolution'_unknownFields = []} parseMessage = let loop :: Resolution -> Data.ProtoLens.Encoding.Bytes.Parser Resolution 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)) "resolution_type" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"resolutionType") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) "outcome" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"outcome") 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) "outpoint" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"outpoint") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "amount_sat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"amountSat") y x) 42 -> 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)) "sweep_txid" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"sweepTxid") 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) "Resolution" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"resolutionType") _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 @"outcome") _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.<>) (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 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 @"amountSat") _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 @"sweepTxid") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (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.Text.Encoding.encodeUtf8 _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))) instance Control.DeepSeq.NFData Resolution where rnf = \ x__ -> Control.DeepSeq.deepseq (_Resolution'_unknownFields x__) (Control.DeepSeq.deepseq (_Resolution'resolutionType x__) (Control.DeepSeq.deepseq (_Resolution'outcome x__) (Control.DeepSeq.deepseq (_Resolution'outpoint x__) (Control.DeepSeq.deepseq (_Resolution'amountSat x__) (Control.DeepSeq.deepseq (_Resolution'sweepTxid x__) ()))))) newtype ResolutionOutcome'UnrecognizedValue = ResolutionOutcome'UnrecognizedValue Data.Int.Int32 deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) data ResolutionOutcome = OUTCOME_UNKNOWN | CLAIMED | UNCLAIMED | ABANDONED | FIRST_STAGE | TIMEOUT | ResolutionOutcome'Unrecognized !ResolutionOutcome'UnrecognizedValue deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.MessageEnum ResolutionOutcome where maybeToEnum 0 = Prelude.Just OUTCOME_UNKNOWN maybeToEnum 1 = Prelude.Just CLAIMED maybeToEnum 2 = Prelude.Just UNCLAIMED maybeToEnum 3 = Prelude.Just ABANDONED maybeToEnum 4 = Prelude.Just FIRST_STAGE maybeToEnum 5 = Prelude.Just TIMEOUT maybeToEnum k = Prelude.Just (ResolutionOutcome'Unrecognized (ResolutionOutcome'UnrecognizedValue (Prelude.fromIntegral k))) showEnum OUTCOME_UNKNOWN = "OUTCOME_UNKNOWN" showEnum CLAIMED = "CLAIMED" showEnum UNCLAIMED = "UNCLAIMED" showEnum ABANDONED = "ABANDONED" showEnum FIRST_STAGE = "FIRST_STAGE" showEnum TIMEOUT = "TIMEOUT" showEnum (ResolutionOutcome'Unrecognized (ResolutionOutcome'UnrecognizedValue k)) = Prelude.show k readEnum k | (Prelude.==) k "OUTCOME_UNKNOWN" = Prelude.Just OUTCOME_UNKNOWN | (Prelude.==) k "CLAIMED" = Prelude.Just CLAIMED | (Prelude.==) k "UNCLAIMED" = Prelude.Just UNCLAIMED | (Prelude.==) k "ABANDONED" = Prelude.Just ABANDONED | (Prelude.==) k "FIRST_STAGE" = Prelude.Just FIRST_STAGE | (Prelude.==) k "TIMEOUT" = Prelude.Just TIMEOUT | Prelude.otherwise = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum instance Prelude.Bounded ResolutionOutcome where minBound = OUTCOME_UNKNOWN maxBound = TIMEOUT instance Prelude.Enum ResolutionOutcome where toEnum k__ = Prelude.maybe (Prelude.error ((Prelude.++) "toEnum: unknown value for enum ResolutionOutcome: " (Prelude.show k__))) Prelude.id (Data.ProtoLens.maybeToEnum k__) fromEnum OUTCOME_UNKNOWN = 0 fromEnum CLAIMED = 1 fromEnum UNCLAIMED = 2 fromEnum ABANDONED = 3 fromEnum FIRST_STAGE = 4 fromEnum TIMEOUT = 5 fromEnum (ResolutionOutcome'Unrecognized (ResolutionOutcome'UnrecognizedValue k)) = Prelude.fromIntegral k succ TIMEOUT = Prelude.error "ResolutionOutcome.succ: bad argument TIMEOUT. This value would be out of bounds." succ OUTCOME_UNKNOWN = CLAIMED succ CLAIMED = UNCLAIMED succ UNCLAIMED = ABANDONED succ ABANDONED = FIRST_STAGE succ FIRST_STAGE = TIMEOUT succ (ResolutionOutcome'Unrecognized _) = Prelude.error "ResolutionOutcome.succ: bad argument: unrecognized value" pred OUTCOME_UNKNOWN = Prelude.error "ResolutionOutcome.pred: bad argument OUTCOME_UNKNOWN. This value would be out of bounds." pred CLAIMED = OUTCOME_UNKNOWN pred UNCLAIMED = CLAIMED pred ABANDONED = UNCLAIMED pred FIRST_STAGE = ABANDONED pred TIMEOUT = FIRST_STAGE pred (ResolutionOutcome'Unrecognized _) = Prelude.error "ResolutionOutcome.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 ResolutionOutcome where fieldDefault = OUTCOME_UNKNOWN instance Control.DeepSeq.NFData ResolutionOutcome where rnf x__ = Prelude.seq x__ () newtype ResolutionType'UnrecognizedValue = ResolutionType'UnrecognizedValue Data.Int.Int32 deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) data ResolutionType = TYPE_UNKNOWN | ANCHOR | INCOMING_HTLC | OUTGOING_HTLC | COMMIT | ResolutionType'Unrecognized !ResolutionType'UnrecognizedValue deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.MessageEnum ResolutionType where maybeToEnum 0 = Prelude.Just TYPE_UNKNOWN maybeToEnum 1 = Prelude.Just ANCHOR maybeToEnum 2 = Prelude.Just INCOMING_HTLC maybeToEnum 3 = Prelude.Just OUTGOING_HTLC maybeToEnum 4 = Prelude.Just COMMIT maybeToEnum k = Prelude.Just (ResolutionType'Unrecognized (ResolutionType'UnrecognizedValue (Prelude.fromIntegral k))) showEnum TYPE_UNKNOWN = "TYPE_UNKNOWN" showEnum ANCHOR = "ANCHOR" showEnum INCOMING_HTLC = "INCOMING_HTLC" showEnum OUTGOING_HTLC = "OUTGOING_HTLC" showEnum COMMIT = "COMMIT" showEnum (ResolutionType'Unrecognized (ResolutionType'UnrecognizedValue k)) = Prelude.show k readEnum k | (Prelude.==) k "TYPE_UNKNOWN" = Prelude.Just TYPE_UNKNOWN | (Prelude.==) k "ANCHOR" = Prelude.Just ANCHOR | (Prelude.==) k "INCOMING_HTLC" = Prelude.Just INCOMING_HTLC | (Prelude.==) k "OUTGOING_HTLC" = Prelude.Just OUTGOING_HTLC | (Prelude.==) k "COMMIT" = Prelude.Just COMMIT | Prelude.otherwise = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum instance Prelude.Bounded ResolutionType where minBound = TYPE_UNKNOWN maxBound = COMMIT instance Prelude.Enum ResolutionType where toEnum k__ = Prelude.maybe (Prelude.error ((Prelude.++) "toEnum: unknown value for enum ResolutionType: " (Prelude.show k__))) Prelude.id (Data.ProtoLens.maybeToEnum k__) fromEnum TYPE_UNKNOWN = 0 fromEnum ANCHOR = 1 fromEnum INCOMING_HTLC = 2 fromEnum OUTGOING_HTLC = 3 fromEnum COMMIT = 4 fromEnum (ResolutionType'Unrecognized (ResolutionType'UnrecognizedValue k)) = Prelude.fromIntegral k succ COMMIT = Prelude.error "ResolutionType.succ: bad argument COMMIT. This value would be out of bounds." succ TYPE_UNKNOWN = ANCHOR succ ANCHOR = INCOMING_HTLC succ INCOMING_HTLC = OUTGOING_HTLC succ OUTGOING_HTLC = COMMIT succ (ResolutionType'Unrecognized _) = Prelude.error "ResolutionType.succ: bad argument: unrecognized value" pred TYPE_UNKNOWN = Prelude.error "ResolutionType.pred: bad argument TYPE_UNKNOWN. This value would be out of bounds." pred ANCHOR = TYPE_UNKNOWN pred INCOMING_HTLC = ANCHOR pred OUTGOING_HTLC = INCOMING_HTLC pred COMMIT = OUTGOING_HTLC pred (ResolutionType'Unrecognized _) = Prelude.error "ResolutionType.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 ResolutionType where fieldDefault = TYPE_UNKNOWN instance Control.DeepSeq.NFData ResolutionType where rnf x__ = Prelude.seq x__ () {- | Fields : -} data RestoreBackupResponse = RestoreBackupResponse'_constructor {_RestoreBackupResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show RestoreBackupResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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.LndGrpc_Fields.maybe'backup' @:: Lens' RestoreChanBackupRequest (Prelude.Maybe RestoreChanBackupRequest'Backup)@ * 'Proto.LndGrpc_Fields.maybe'chanBackups' @:: Lens' RestoreChanBackupRequest (Prelude.Maybe ChannelBackups)@ * 'Proto.LndGrpc_Fields.chanBackups' @:: Lens' RestoreChanBackupRequest ChannelBackups@ * 'Proto.LndGrpc_Fields.maybe'multiChanBackup' @:: Lens' RestoreChanBackupRequest (Prelude.Maybe Data.ByteString.ByteString)@ * 'Proto.LndGrpc_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) instance Prelude.Show RestoreChanBackupRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) data RestoreChanBackupRequest'Backup = RestoreChanBackupRequest'ChanBackups !ChannelBackups | RestoreChanBackupRequest'MultiChanBackup !Data.ByteString.ByteString deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) 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.LndGrpc_Fields.totalTimeLock' @:: Lens' Route Data.Word.Word32@ * 'Proto.LndGrpc_Fields.totalFees' @:: Lens' Route Data.Int.Int64@ * 'Proto.LndGrpc_Fields.totalAmt' @:: Lens' Route Data.Int.Int64@ * 'Proto.LndGrpc_Fields.hops' @:: Lens' Route [Hop]@ * 'Proto.LndGrpc_Fields.vec'hops' @:: Lens' Route (Data.Vector.Vector Hop)@ * 'Proto.LndGrpc_Fields.totalFeesMsat' @:: Lens' Route Data.Int.Int64@ * 'Proto.LndGrpc_Fields.totalAmtMsat' @:: Lens' Route Data.Int.Int64@ -} data Route = Route'_constructor {_Route'totalTimeLock :: !Data.Word.Word32, _Route'totalFees :: !Data.Int.Int64, _Route'totalAmt :: !Data.Int.Int64, _Route'hops :: !(Data.Vector.Vector Hop), _Route'totalFeesMsat :: !Data.Int.Int64, _Route'totalAmtMsat :: !Data.Int.Int64, _Route'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Route where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField Route "totalTimeLock" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Route'totalTimeLock (\ x__ y__ -> x__ {_Route'totalTimeLock = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Route "totalFees" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Route'totalFees (\ x__ y__ -> x__ {_Route'totalFees = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Route "totalAmt" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Route'totalAmt (\ x__ y__ -> x__ {_Route'totalAmt = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Route "hops" [Hop] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Route'hops (\ x__ y__ -> x__ {_Route'hops = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField Route "vec'hops" (Data.Vector.Vector Hop) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Route'hops (\ x__ y__ -> x__ {_Route'hops = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Route "totalFeesMsat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Route'totalFeesMsat (\ x__ y__ -> x__ {_Route'totalFeesMsat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Route "totalAmtMsat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Route'totalAmtMsat (\ x__ y__ -> x__ {_Route'totalAmtMsat = y__})) Prelude.id instance Data.ProtoLens.Message Route where messageName _ = Data.Text.pack "lnrpc.Route" packedMessageDescriptor _ = "\n\ \\ENQRoute\DC2&\n\ \\SItotal_time_lock\CAN\SOH \SOH(\rR\rtotalTimeLock\DC2!\n\ \\n\ \total_fees\CAN\STX \SOH(\ETXR\ttotalFeesB\STX\CAN\SOH\DC2\US\n\ \\ttotal_amt\CAN\ETX \SOH(\ETXR\btotalAmtB\STX\CAN\SOH\DC2\RS\n\ \\EOThops\CAN\EOT \ETX(\v2\n\ \.lnrpc.HopR\EOThops\DC2&\n\ \\SItotal_fees_msat\CAN\ENQ \SOH(\ETXR\rtotalFeesMsat\DC2$\n\ \\SOtotal_amt_msat\CAN\ACK \SOH(\ETXR\ftotalAmtMsat" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let totalTimeLock__field_descriptor = Data.ProtoLens.FieldDescriptor "total_time_lock" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"totalTimeLock")) :: Data.ProtoLens.FieldDescriptor Route totalFees__field_descriptor = Data.ProtoLens.FieldDescriptor "total_fees" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"totalFees")) :: Data.ProtoLens.FieldDescriptor Route totalAmt__field_descriptor = Data.ProtoLens.FieldDescriptor "total_amt" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"totalAmt")) :: Data.ProtoLens.FieldDescriptor Route hops__field_descriptor = Data.ProtoLens.FieldDescriptor "hops" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Hop) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"hops")) :: Data.ProtoLens.FieldDescriptor Route totalFeesMsat__field_descriptor = Data.ProtoLens.FieldDescriptor "total_fees_msat" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"totalFeesMsat")) :: Data.ProtoLens.FieldDescriptor Route totalAmtMsat__field_descriptor = Data.ProtoLens.FieldDescriptor "total_amt_msat" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"totalAmtMsat")) :: Data.ProtoLens.FieldDescriptor Route in Data.Map.fromList [(Data.ProtoLens.Tag 1, totalTimeLock__field_descriptor), (Data.ProtoLens.Tag 2, totalFees__field_descriptor), (Data.ProtoLens.Tag 3, totalAmt__field_descriptor), (Data.ProtoLens.Tag 4, hops__field_descriptor), (Data.ProtoLens.Tag 5, totalFeesMsat__field_descriptor), (Data.ProtoLens.Tag 6, totalAmtMsat__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Route'_unknownFields (\ x__ y__ -> x__ {_Route'_unknownFields = y__}) defMessage = Route'_constructor {_Route'totalTimeLock = Data.ProtoLens.fieldDefault, _Route'totalFees = Data.ProtoLens.fieldDefault, _Route'totalAmt = Data.ProtoLens.fieldDefault, _Route'hops = Data.Vector.Generic.empty, _Route'totalFeesMsat = Data.ProtoLens.fieldDefault, _Route'totalAmtMsat = Data.ProtoLens.fieldDefault, _Route'_unknownFields = []} parseMessage = let loop :: Route -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Hop -> Data.ProtoLens.Encoding.Bytes.Parser Route loop x mutable'hops = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'hops <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'hops) (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'hops") frozen'hops 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) "total_time_lock" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"totalTimeLock") y x) mutable'hops 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "total_fees" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"totalFees") y x) mutable'hops 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "total_amt" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"totalAmt") y x) mutable'hops 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) "hops" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'hops y) loop x v 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "total_fees_msat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"totalFeesMsat") y x) mutable'hops 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "total_amt_msat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"totalAmtMsat") y x) mutable'hops wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'hops in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'hops <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'hops) "Route" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"totalTimeLock") _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.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"totalFees") _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 @"totalAmt") _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.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 34) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'hops") _x)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"totalFeesMsat") _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 @"totalAmtMsat") _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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))) instance Control.DeepSeq.NFData Route where rnf = \ x__ -> Control.DeepSeq.deepseq (_Route'_unknownFields x__) (Control.DeepSeq.deepseq (_Route'totalTimeLock x__) (Control.DeepSeq.deepseq (_Route'totalFees x__) (Control.DeepSeq.deepseq (_Route'totalAmt x__) (Control.DeepSeq.deepseq (_Route'hops x__) (Control.DeepSeq.deepseq (_Route'totalFeesMsat x__) (Control.DeepSeq.deepseq (_Route'totalAmtMsat x__) ())))))) {- | Fields : * 'Proto.LndGrpc_Fields.hopHints' @:: Lens' RouteHint [HopHint]@ * 'Proto.LndGrpc_Fields.vec'hopHints' @:: Lens' RouteHint (Data.Vector.Vector HopHint)@ -} data RouteHint = RouteHint'_constructor {_RouteHint'hopHints :: !(Data.Vector.Vector HopHint), _RouteHint'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show RouteHint where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField RouteHint "hopHints" [HopHint] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _RouteHint'hopHints (\ x__ y__ -> x__ {_RouteHint'hopHints = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField RouteHint "vec'hopHints" (Data.Vector.Vector HopHint) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _RouteHint'hopHints (\ x__ y__ -> x__ {_RouteHint'hopHints = y__})) Prelude.id instance Data.ProtoLens.Message RouteHint where messageName _ = Data.Text.pack "lnrpc.RouteHint" packedMessageDescriptor _ = "\n\ \\tRouteHint\DC2+\n\ \\thop_hints\CAN\SOH \ETX(\v2\SO.lnrpc.HopHintR\bhopHints" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let hopHints__field_descriptor = Data.ProtoLens.FieldDescriptor "hop_hints" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor HopHint) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"hopHints")) :: Data.ProtoLens.FieldDescriptor RouteHint in Data.Map.fromList [(Data.ProtoLens.Tag 1, hopHints__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _RouteHint'_unknownFields (\ x__ y__ -> x__ {_RouteHint'_unknownFields = y__}) defMessage = RouteHint'_constructor {_RouteHint'hopHints = Data.Vector.Generic.empty, _RouteHint'_unknownFields = []} parseMessage = let loop :: RouteHint -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld HopHint -> Data.ProtoLens.Encoding.Bytes.Parser RouteHint loop x mutable'hopHints = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'hopHints <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'hopHints) (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'hopHints") frozen'hopHints 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) "hop_hints" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'hopHints 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'hopHints in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'hopHints <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'hopHints) "RouteHint" 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'hopHints") _x)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData RouteHint where rnf = \ x__ -> Control.DeepSeq.deepseq (_RouteHint'_unknownFields x__) (Control.DeepSeq.deepseq (_RouteHint'hopHints x__) ()) {- | Fields : * 'Proto.LndGrpc_Fields.timeLockDelta' @:: Lens' RoutingPolicy Data.Word.Word32@ * 'Proto.LndGrpc_Fields.minHtlc' @:: Lens' RoutingPolicy Data.Int.Int64@ * 'Proto.LndGrpc_Fields.feeBaseMsat' @:: Lens' RoutingPolicy Data.Int.Int64@ * 'Proto.LndGrpc_Fields.feeRateMilliMsat' @:: Lens' RoutingPolicy Data.Int.Int64@ * 'Proto.LndGrpc_Fields.disabled' @:: Lens' RoutingPolicy Prelude.Bool@ * 'Proto.LndGrpc_Fields.maxHtlcMsat' @:: Lens' RoutingPolicy Data.Word.Word64@ * 'Proto.LndGrpc_Fields.lastUpdate' @:: Lens' RoutingPolicy Data.Word.Word32@ -} data RoutingPolicy = RoutingPolicy'_constructor {_RoutingPolicy'timeLockDelta :: !Data.Word.Word32, _RoutingPolicy'minHtlc :: !Data.Int.Int64, _RoutingPolicy'feeBaseMsat :: !Data.Int.Int64, _RoutingPolicy'feeRateMilliMsat :: !Data.Int.Int64, _RoutingPolicy'disabled :: !Prelude.Bool, _RoutingPolicy'maxHtlcMsat :: !Data.Word.Word64, _RoutingPolicy'lastUpdate :: !Data.Word.Word32, _RoutingPolicy'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show RoutingPolicy where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField RoutingPolicy "timeLockDelta" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _RoutingPolicy'timeLockDelta (\ x__ y__ -> x__ {_RoutingPolicy'timeLockDelta = y__})) Prelude.id instance Data.ProtoLens.Field.HasField RoutingPolicy "minHtlc" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _RoutingPolicy'minHtlc (\ x__ y__ -> x__ {_RoutingPolicy'minHtlc = y__})) Prelude.id instance Data.ProtoLens.Field.HasField RoutingPolicy "feeBaseMsat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _RoutingPolicy'feeBaseMsat (\ x__ y__ -> x__ {_RoutingPolicy'feeBaseMsat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField RoutingPolicy "feeRateMilliMsat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _RoutingPolicy'feeRateMilliMsat (\ x__ y__ -> x__ {_RoutingPolicy'feeRateMilliMsat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField RoutingPolicy "disabled" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _RoutingPolicy'disabled (\ x__ y__ -> x__ {_RoutingPolicy'disabled = y__})) Prelude.id instance Data.ProtoLens.Field.HasField RoutingPolicy "maxHtlcMsat" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _RoutingPolicy'maxHtlcMsat (\ x__ y__ -> x__ {_RoutingPolicy'maxHtlcMsat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField RoutingPolicy "lastUpdate" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _RoutingPolicy'lastUpdate (\ x__ y__ -> x__ {_RoutingPolicy'lastUpdate = y__})) Prelude.id instance Data.ProtoLens.Message RoutingPolicy where messageName _ = Data.Text.pack "lnrpc.RoutingPolicy" packedMessageDescriptor _ = "\n\ \\rRoutingPolicy\DC2&\n\ \\SItime_lock_delta\CAN\SOH \SOH(\rR\rtimeLockDelta\DC2\EM\n\ \\bmin_htlc\CAN\STX \SOH(\ETXR\aminHtlc\DC2\"\n\ \\rfee_base_msat\CAN\ETX \SOH(\ETXR\vfeeBaseMsat\DC2-\n\ \\DC3fee_rate_milli_msat\CAN\EOT \SOH(\ETXR\DLEfeeRateMilliMsat\DC2\SUB\n\ \\bdisabled\CAN\ENQ \SOH(\bR\bdisabled\DC2\"\n\ \\rmax_htlc_msat\CAN\ACK \SOH(\EOTR\vmaxHtlcMsat\DC2\US\n\ \\vlast_update\CAN\a \SOH(\rR\n\ \lastUpdate" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let 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 RoutingPolicy minHtlc__field_descriptor = Data.ProtoLens.FieldDescriptor "min_htlc" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"minHtlc")) :: Data.ProtoLens.FieldDescriptor RoutingPolicy feeBaseMsat__field_descriptor = Data.ProtoLens.FieldDescriptor "fee_base_msat" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"feeBaseMsat")) :: Data.ProtoLens.FieldDescriptor RoutingPolicy feeRateMilliMsat__field_descriptor = Data.ProtoLens.FieldDescriptor "fee_rate_milli_msat" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"feeRateMilliMsat")) :: Data.ProtoLens.FieldDescriptor RoutingPolicy disabled__field_descriptor = Data.ProtoLens.FieldDescriptor "disabled" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"disabled")) :: Data.ProtoLens.FieldDescriptor RoutingPolicy 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 RoutingPolicy lastUpdate__field_descriptor = Data.ProtoLens.FieldDescriptor "last_update" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"lastUpdate")) :: Data.ProtoLens.FieldDescriptor RoutingPolicy in Data.Map.fromList [(Data.ProtoLens.Tag 1, timeLockDelta__field_descriptor), (Data.ProtoLens.Tag 2, minHtlc__field_descriptor), (Data.ProtoLens.Tag 3, feeBaseMsat__field_descriptor), (Data.ProtoLens.Tag 4, feeRateMilliMsat__field_descriptor), (Data.ProtoLens.Tag 5, disabled__field_descriptor), (Data.ProtoLens.Tag 6, maxHtlcMsat__field_descriptor), (Data.ProtoLens.Tag 7, lastUpdate__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _RoutingPolicy'_unknownFields (\ x__ y__ -> x__ {_RoutingPolicy'_unknownFields = y__}) defMessage = RoutingPolicy'_constructor {_RoutingPolicy'timeLockDelta = Data.ProtoLens.fieldDefault, _RoutingPolicy'minHtlc = Data.ProtoLens.fieldDefault, _RoutingPolicy'feeBaseMsat = Data.ProtoLens.fieldDefault, _RoutingPolicy'feeRateMilliMsat = Data.ProtoLens.fieldDefault, _RoutingPolicy'disabled = Data.ProtoLens.fieldDefault, _RoutingPolicy'maxHtlcMsat = Data.ProtoLens.fieldDefault, _RoutingPolicy'lastUpdate = Data.ProtoLens.fieldDefault, _RoutingPolicy'_unknownFields = []} parseMessage = let loop :: RoutingPolicy -> Data.ProtoLens.Encoding.Bytes.Parser RoutingPolicy 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) "time_lock_delta" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"timeLockDelta") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "min_htlc" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"minHtlc") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "fee_base_msat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"feeBaseMsat") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "fee_rate_milli_msat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"feeRateMilliMsat") y x) 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "disabled" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"disabled") 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.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "last_update" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"lastUpdate") 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) "RoutingPolicy" buildMessage = \ _x -> (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 8) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"minHtlc") _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 @"feeBaseMsat") _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 @"feeRateMilliMsat") _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 @"disabled") _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 (\ b -> if b then 1 else 0) _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 @"lastUpdate") _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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))))) instance Control.DeepSeq.NFData RoutingPolicy where rnf = \ x__ -> Control.DeepSeq.deepseq (_RoutingPolicy'_unknownFields x__) (Control.DeepSeq.deepseq (_RoutingPolicy'timeLockDelta x__) (Control.DeepSeq.deepseq (_RoutingPolicy'minHtlc x__) (Control.DeepSeq.deepseq (_RoutingPolicy'feeBaseMsat x__) (Control.DeepSeq.deepseq (_RoutingPolicy'feeRateMilliMsat x__) (Control.DeepSeq.deepseq (_RoutingPolicy'disabled x__) (Control.DeepSeq.deepseq (_RoutingPolicy'maxHtlcMsat x__) (Control.DeepSeq.deepseq (_RoutingPolicy'lastUpdate x__) ()))))))) {- | Fields : * 'Proto.LndGrpc_Fields.addr' @:: Lens' SendCoinsRequest Data.Text.Text@ * 'Proto.LndGrpc_Fields.amount' @:: Lens' SendCoinsRequest Data.Int.Int64@ * 'Proto.LndGrpc_Fields.targetConf' @:: Lens' SendCoinsRequest Data.Int.Int32@ * 'Proto.LndGrpc_Fields.satPerVbyte' @:: Lens' SendCoinsRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.satPerByte' @:: Lens' SendCoinsRequest Data.Int.Int64@ * 'Proto.LndGrpc_Fields.sendAll' @:: Lens' SendCoinsRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.label' @:: Lens' SendCoinsRequest Data.Text.Text@ * 'Proto.LndGrpc_Fields.minConfs' @:: Lens' SendCoinsRequest Data.Int.Int32@ * 'Proto.LndGrpc_Fields.spendUnconfirmed' @:: Lens' SendCoinsRequest Prelude.Bool@ -} data SendCoinsRequest = SendCoinsRequest'_constructor {_SendCoinsRequest'addr :: !Data.Text.Text, _SendCoinsRequest'amount :: !Data.Int.Int64, _SendCoinsRequest'targetConf :: !Data.Int.Int32, _SendCoinsRequest'satPerVbyte :: !Data.Word.Word64, _SendCoinsRequest'satPerByte :: !Data.Int.Int64, _SendCoinsRequest'sendAll :: !Prelude.Bool, _SendCoinsRequest'label :: !Data.Text.Text, _SendCoinsRequest'minConfs :: !Data.Int.Int32, _SendCoinsRequest'spendUnconfirmed :: !Prelude.Bool, _SendCoinsRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show SendCoinsRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField SendCoinsRequest "addr" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendCoinsRequest'addr (\ x__ y__ -> x__ {_SendCoinsRequest'addr = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendCoinsRequest "amount" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendCoinsRequest'amount (\ x__ y__ -> x__ {_SendCoinsRequest'amount = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendCoinsRequest "targetConf" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendCoinsRequest'targetConf (\ x__ y__ -> x__ {_SendCoinsRequest'targetConf = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendCoinsRequest "satPerVbyte" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendCoinsRequest'satPerVbyte (\ x__ y__ -> x__ {_SendCoinsRequest'satPerVbyte = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendCoinsRequest "satPerByte" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendCoinsRequest'satPerByte (\ x__ y__ -> x__ {_SendCoinsRequest'satPerByte = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendCoinsRequest "sendAll" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendCoinsRequest'sendAll (\ x__ y__ -> x__ {_SendCoinsRequest'sendAll = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendCoinsRequest "label" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendCoinsRequest'label (\ x__ y__ -> x__ {_SendCoinsRequest'label = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendCoinsRequest "minConfs" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendCoinsRequest'minConfs (\ x__ y__ -> x__ {_SendCoinsRequest'minConfs = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendCoinsRequest "spendUnconfirmed" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendCoinsRequest'spendUnconfirmed (\ x__ y__ -> x__ {_SendCoinsRequest'spendUnconfirmed = y__})) Prelude.id instance Data.ProtoLens.Message SendCoinsRequest where messageName _ = Data.Text.pack "lnrpc.SendCoinsRequest" packedMessageDescriptor _ = "\n\ \\DLESendCoinsRequest\DC2\DC2\n\ \\EOTaddr\CAN\SOH \SOH(\tR\EOTaddr\DC2\SYN\n\ \\ACKamount\CAN\STX \SOH(\ETXR\ACKamount\DC2\US\n\ \\vtarget_conf\CAN\ETX \SOH(\ENQR\n\ \targetConf\DC2\"\n\ \\rsat_per_vbyte\CAN\EOT \SOH(\EOTR\vsatPerVbyte\DC2$\n\ \\fsat_per_byte\CAN\ENQ \SOH(\ETXR\n\ \satPerByteB\STX\CAN\SOH\DC2\EM\n\ \\bsend_all\CAN\ACK \SOH(\bR\asendAll\DC2\DC4\n\ \\ENQlabel\CAN\a \SOH(\tR\ENQlabel\DC2\ESC\n\ \\tmin_confs\CAN\b \SOH(\ENQR\bminConfs\DC2+\n\ \\DC1spend_unconfirmed\CAN\t \SOH(\bR\DLEspendUnconfirmed" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let addr__field_descriptor = Data.ProtoLens.FieldDescriptor "addr" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"addr")) :: Data.ProtoLens.FieldDescriptor SendCoinsRequest amount__field_descriptor = Data.ProtoLens.FieldDescriptor "amount" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"amount")) :: Data.ProtoLens.FieldDescriptor SendCoinsRequest targetConf__field_descriptor = Data.ProtoLens.FieldDescriptor "target_conf" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"targetConf")) :: Data.ProtoLens.FieldDescriptor SendCoinsRequest satPerVbyte__field_descriptor = Data.ProtoLens.FieldDescriptor "sat_per_vbyte" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"satPerVbyte")) :: Data.ProtoLens.FieldDescriptor SendCoinsRequest satPerByte__field_descriptor = Data.ProtoLens.FieldDescriptor "sat_per_byte" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"satPerByte")) :: Data.ProtoLens.FieldDescriptor SendCoinsRequest sendAll__field_descriptor = Data.ProtoLens.FieldDescriptor "send_all" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"sendAll")) :: Data.ProtoLens.FieldDescriptor SendCoinsRequest label__field_descriptor = Data.ProtoLens.FieldDescriptor "label" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"label")) :: Data.ProtoLens.FieldDescriptor SendCoinsRequest minConfs__field_descriptor = Data.ProtoLens.FieldDescriptor "min_confs" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"minConfs")) :: Data.ProtoLens.FieldDescriptor SendCoinsRequest spendUnconfirmed__field_descriptor = Data.ProtoLens.FieldDescriptor "spend_unconfirmed" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"spendUnconfirmed")) :: Data.ProtoLens.FieldDescriptor SendCoinsRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, addr__field_descriptor), (Data.ProtoLens.Tag 2, amount__field_descriptor), (Data.ProtoLens.Tag 3, targetConf__field_descriptor), (Data.ProtoLens.Tag 4, satPerVbyte__field_descriptor), (Data.ProtoLens.Tag 5, satPerByte__field_descriptor), (Data.ProtoLens.Tag 6, sendAll__field_descriptor), (Data.ProtoLens.Tag 7, label__field_descriptor), (Data.ProtoLens.Tag 8, minConfs__field_descriptor), (Data.ProtoLens.Tag 9, spendUnconfirmed__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _SendCoinsRequest'_unknownFields (\ x__ y__ -> x__ {_SendCoinsRequest'_unknownFields = y__}) defMessage = SendCoinsRequest'_constructor {_SendCoinsRequest'addr = Data.ProtoLens.fieldDefault, _SendCoinsRequest'amount = Data.ProtoLens.fieldDefault, _SendCoinsRequest'targetConf = Data.ProtoLens.fieldDefault, _SendCoinsRequest'satPerVbyte = Data.ProtoLens.fieldDefault, _SendCoinsRequest'satPerByte = Data.ProtoLens.fieldDefault, _SendCoinsRequest'sendAll = Data.ProtoLens.fieldDefault, _SendCoinsRequest'label = Data.ProtoLens.fieldDefault, _SendCoinsRequest'minConfs = Data.ProtoLens.fieldDefault, _SendCoinsRequest'spendUnconfirmed = Data.ProtoLens.fieldDefault, _SendCoinsRequest'_unknownFields = []} parseMessage = let loop :: SendCoinsRequest -> Data.ProtoLens.Encoding.Bytes.Parser SendCoinsRequest 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)) "addr" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"addr") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "amount" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"amount") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "target_conf" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"targetConf") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "sat_per_vbyte" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"satPerVbyte") y x) 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "sat_per_byte" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"satPerByte") y x) 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "send_all" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"sendAll") y x) 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)) "label" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"label") y x) 64 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "min_confs" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"minConfs") y x) 72 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "spend_unconfirmed" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"spendUnconfirmed") 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) "SendCoinsRequest" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"addr") _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 @"amount") _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 @"targetConf") _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 @"satPerVbyte") _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 @"satPerByte") _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 @"sendAll") _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 @"label") _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 @"minConfs") _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 @"spendUnconfirmed") _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 (\ b -> if b then 1 else 0) _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))))))) instance Control.DeepSeq.NFData SendCoinsRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_SendCoinsRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_SendCoinsRequest'addr x__) (Control.DeepSeq.deepseq (_SendCoinsRequest'amount x__) (Control.DeepSeq.deepseq (_SendCoinsRequest'targetConf x__) (Control.DeepSeq.deepseq (_SendCoinsRequest'satPerVbyte x__) (Control.DeepSeq.deepseq (_SendCoinsRequest'satPerByte x__) (Control.DeepSeq.deepseq (_SendCoinsRequest'sendAll x__) (Control.DeepSeq.deepseq (_SendCoinsRequest'label x__) (Control.DeepSeq.deepseq (_SendCoinsRequest'minConfs x__) (Control.DeepSeq.deepseq (_SendCoinsRequest'spendUnconfirmed x__) ()))))))))) {- | Fields : * 'Proto.LndGrpc_Fields.txid' @:: Lens' SendCoinsResponse Data.Text.Text@ -} data SendCoinsResponse = SendCoinsResponse'_constructor {_SendCoinsResponse'txid :: !Data.Text.Text, _SendCoinsResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show SendCoinsResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField SendCoinsResponse "txid" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendCoinsResponse'txid (\ x__ y__ -> x__ {_SendCoinsResponse'txid = y__})) Prelude.id instance Data.ProtoLens.Message SendCoinsResponse where messageName _ = Data.Text.pack "lnrpc.SendCoinsResponse" packedMessageDescriptor _ = "\n\ \\DC1SendCoinsResponse\DC2\DC2\n\ \\EOTtxid\CAN\SOH \SOH(\tR\EOTtxid" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let txid__field_descriptor = Data.ProtoLens.FieldDescriptor "txid" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"txid")) :: Data.ProtoLens.FieldDescriptor SendCoinsResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, txid__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _SendCoinsResponse'_unknownFields (\ x__ y__ -> x__ {_SendCoinsResponse'_unknownFields = y__}) defMessage = SendCoinsResponse'_constructor {_SendCoinsResponse'txid = Data.ProtoLens.fieldDefault, _SendCoinsResponse'_unknownFields = []} parseMessage = let loop :: SendCoinsResponse -> Data.ProtoLens.Encoding.Bytes.Parser SendCoinsResponse 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)) "txid" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"txid") 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) "SendCoinsResponse" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"txid") _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 SendCoinsResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_SendCoinsResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_SendCoinsResponse'txid x__) ()) {- | Fields : * 'Proto.LndGrpc_Fields.addrToAmount' @:: Lens' SendManyRequest (Data.Map.Map Data.Text.Text Data.Int.Int64)@ * 'Proto.LndGrpc_Fields.targetConf' @:: Lens' SendManyRequest Data.Int.Int32@ * 'Proto.LndGrpc_Fields.satPerVbyte' @:: Lens' SendManyRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.satPerByte' @:: Lens' SendManyRequest Data.Int.Int64@ * 'Proto.LndGrpc_Fields.label' @:: Lens' SendManyRequest Data.Text.Text@ * 'Proto.LndGrpc_Fields.minConfs' @:: Lens' SendManyRequest Data.Int.Int32@ * 'Proto.LndGrpc_Fields.spendUnconfirmed' @:: Lens' SendManyRequest Prelude.Bool@ -} data SendManyRequest = SendManyRequest'_constructor {_SendManyRequest'addrToAmount :: !(Data.Map.Map Data.Text.Text Data.Int.Int64), _SendManyRequest'targetConf :: !Data.Int.Int32, _SendManyRequest'satPerVbyte :: !Data.Word.Word64, _SendManyRequest'satPerByte :: !Data.Int.Int64, _SendManyRequest'label :: !Data.Text.Text, _SendManyRequest'minConfs :: !Data.Int.Int32, _SendManyRequest'spendUnconfirmed :: !Prelude.Bool, _SendManyRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show SendManyRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField SendManyRequest "addrToAmount" (Data.Map.Map Data.Text.Text Data.Int.Int64) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendManyRequest'addrToAmount (\ x__ y__ -> x__ {_SendManyRequest'addrToAmount = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendManyRequest "targetConf" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendManyRequest'targetConf (\ x__ y__ -> x__ {_SendManyRequest'targetConf = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendManyRequest "satPerVbyte" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendManyRequest'satPerVbyte (\ x__ y__ -> x__ {_SendManyRequest'satPerVbyte = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendManyRequest "satPerByte" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendManyRequest'satPerByte (\ x__ y__ -> x__ {_SendManyRequest'satPerByte = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendManyRequest "label" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendManyRequest'label (\ x__ y__ -> x__ {_SendManyRequest'label = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendManyRequest "minConfs" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendManyRequest'minConfs (\ x__ y__ -> x__ {_SendManyRequest'minConfs = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendManyRequest "spendUnconfirmed" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendManyRequest'spendUnconfirmed (\ x__ y__ -> x__ {_SendManyRequest'spendUnconfirmed = y__})) Prelude.id instance Data.ProtoLens.Message SendManyRequest where messageName _ = Data.Text.pack "lnrpc.SendManyRequest" packedMessageDescriptor _ = "\n\ \\SISendManyRequest\DC2L\n\ \\fAddrToAmount\CAN\SOH \ETX(\v2(.lnrpc.SendManyRequest.AddrToAmountEntryR\fAddrToAmount\DC2\US\n\ \\vtarget_conf\CAN\ETX \SOH(\ENQR\n\ \targetConf\DC2\"\n\ \\rsat_per_vbyte\CAN\EOT \SOH(\EOTR\vsatPerVbyte\DC2$\n\ \\fsat_per_byte\CAN\ENQ \SOH(\ETXR\n\ \satPerByteB\STX\CAN\SOH\DC2\DC4\n\ \\ENQlabel\CAN\ACK \SOH(\tR\ENQlabel\DC2\ESC\n\ \\tmin_confs\CAN\a \SOH(\ENQR\bminConfs\DC2+\n\ \\DC1spend_unconfirmed\CAN\b \SOH(\bR\DLEspendUnconfirmed\SUB?\n\ \\DC1AddrToAmountEntry\DC2\DLE\n\ \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ \\ENQvalue\CAN\STX \SOH(\ETXR\ENQvalue:\STX8\SOH" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let addrToAmount__field_descriptor = Data.ProtoLens.FieldDescriptor "AddrToAmount" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor SendManyRequest'AddrToAmountEntry) (Data.ProtoLens.MapField (Data.ProtoLens.Field.field @"key") (Data.ProtoLens.Field.field @"value") (Data.ProtoLens.Field.field @"addrToAmount")) :: Data.ProtoLens.FieldDescriptor SendManyRequest targetConf__field_descriptor = Data.ProtoLens.FieldDescriptor "target_conf" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"targetConf")) :: Data.ProtoLens.FieldDescriptor SendManyRequest satPerVbyte__field_descriptor = Data.ProtoLens.FieldDescriptor "sat_per_vbyte" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"satPerVbyte")) :: Data.ProtoLens.FieldDescriptor SendManyRequest satPerByte__field_descriptor = Data.ProtoLens.FieldDescriptor "sat_per_byte" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"satPerByte")) :: Data.ProtoLens.FieldDescriptor SendManyRequest label__field_descriptor = Data.ProtoLens.FieldDescriptor "label" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"label")) :: Data.ProtoLens.FieldDescriptor SendManyRequest minConfs__field_descriptor = Data.ProtoLens.FieldDescriptor "min_confs" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"minConfs")) :: Data.ProtoLens.FieldDescriptor SendManyRequest spendUnconfirmed__field_descriptor = Data.ProtoLens.FieldDescriptor "spend_unconfirmed" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"spendUnconfirmed")) :: Data.ProtoLens.FieldDescriptor SendManyRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, addrToAmount__field_descriptor), (Data.ProtoLens.Tag 3, targetConf__field_descriptor), (Data.ProtoLens.Tag 4, satPerVbyte__field_descriptor), (Data.ProtoLens.Tag 5, satPerByte__field_descriptor), (Data.ProtoLens.Tag 6, label__field_descriptor), (Data.ProtoLens.Tag 7, minConfs__field_descriptor), (Data.ProtoLens.Tag 8, spendUnconfirmed__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _SendManyRequest'_unknownFields (\ x__ y__ -> x__ {_SendManyRequest'_unknownFields = y__}) defMessage = SendManyRequest'_constructor {_SendManyRequest'addrToAmount = Data.Map.empty, _SendManyRequest'targetConf = Data.ProtoLens.fieldDefault, _SendManyRequest'satPerVbyte = Data.ProtoLens.fieldDefault, _SendManyRequest'satPerByte = Data.ProtoLens.fieldDefault, _SendManyRequest'label = Data.ProtoLens.fieldDefault, _SendManyRequest'minConfs = Data.ProtoLens.fieldDefault, _SendManyRequest'spendUnconfirmed = Data.ProtoLens.fieldDefault, _SendManyRequest'_unknownFields = []} parseMessage = let loop :: SendManyRequest -> Data.ProtoLens.Encoding.Bytes.Parser SendManyRequest 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 :: SendManyRequest'AddrToAmountEntry) <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "AddrToAmount" (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 @"addrToAmount") (\ !t -> Data.Map.insert key value t) x)) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "target_conf" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"targetConf") y x) 32 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "sat_per_vbyte" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"satPerVbyte") y x) 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "sat_per_byte" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"satPerByte") y x) 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)) "label" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"label") y x) 56 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "min_confs" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"minConfs") y x) 64 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "spend_unconfirmed" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"spendUnconfirmed") 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) "SendManyRequest" 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 :: SendManyRequest'AddrToAmountEntry))))) (Data.Map.toList (Lens.Family2.view (Data.ProtoLens.Field.field @"addrToAmount") _x)))) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"targetConf") _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 @"satPerVbyte") _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 @"satPerByte") _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 @"label") _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 @"minConfs") _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 @"spendUnconfirmed") _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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))))) instance Control.DeepSeq.NFData SendManyRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_SendManyRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_SendManyRequest'addrToAmount x__) (Control.DeepSeq.deepseq (_SendManyRequest'targetConf x__) (Control.DeepSeq.deepseq (_SendManyRequest'satPerVbyte x__) (Control.DeepSeq.deepseq (_SendManyRequest'satPerByte x__) (Control.DeepSeq.deepseq (_SendManyRequest'label x__) (Control.DeepSeq.deepseq (_SendManyRequest'minConfs x__) (Control.DeepSeq.deepseq (_SendManyRequest'spendUnconfirmed x__) ()))))))) {- | Fields : * 'Proto.LndGrpc_Fields.key' @:: Lens' SendManyRequest'AddrToAmountEntry Data.Text.Text@ * 'Proto.LndGrpc_Fields.value' @:: Lens' SendManyRequest'AddrToAmountEntry Data.Int.Int64@ -} data SendManyRequest'AddrToAmountEntry = SendManyRequest'AddrToAmountEntry'_constructor {_SendManyRequest'AddrToAmountEntry'key :: !Data.Text.Text, _SendManyRequest'AddrToAmountEntry'value :: !Data.Int.Int64, _SendManyRequest'AddrToAmountEntry'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show SendManyRequest'AddrToAmountEntry where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField SendManyRequest'AddrToAmountEntry "key" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendManyRequest'AddrToAmountEntry'key (\ x__ y__ -> x__ {_SendManyRequest'AddrToAmountEntry'key = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendManyRequest'AddrToAmountEntry "value" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendManyRequest'AddrToAmountEntry'value (\ x__ y__ -> x__ {_SendManyRequest'AddrToAmountEntry'value = y__})) Prelude.id instance Data.ProtoLens.Message SendManyRequest'AddrToAmountEntry where messageName _ = Data.Text.pack "lnrpc.SendManyRequest.AddrToAmountEntry" packedMessageDescriptor _ = "\n\ \\DC1AddrToAmountEntry\DC2\DLE\n\ \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ \\ENQvalue\CAN\STX \SOH(\ETXR\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 SendManyRequest'AddrToAmountEntry 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 SendManyRequest'AddrToAmountEntry in Data.Map.fromList [(Data.ProtoLens.Tag 1, key__field_descriptor), (Data.ProtoLens.Tag 2, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _SendManyRequest'AddrToAmountEntry'_unknownFields (\ x__ y__ -> x__ {_SendManyRequest'AddrToAmountEntry'_unknownFields = y__}) defMessage = SendManyRequest'AddrToAmountEntry'_constructor {_SendManyRequest'AddrToAmountEntry'key = Data.ProtoLens.fieldDefault, _SendManyRequest'AddrToAmountEntry'value = Data.ProtoLens.fieldDefault, _SendManyRequest'AddrToAmountEntry'_unknownFields = []} parseMessage = let loop :: SendManyRequest'AddrToAmountEntry -> Data.ProtoLens.Encoding.Bytes.Parser SendManyRequest'AddrToAmountEntry 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) 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) 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) "AddrToAmountEntry" 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.<>) (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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))) instance Control.DeepSeq.NFData SendManyRequest'AddrToAmountEntry where rnf = \ x__ -> Control.DeepSeq.deepseq (_SendManyRequest'AddrToAmountEntry'_unknownFields x__) (Control.DeepSeq.deepseq (_SendManyRequest'AddrToAmountEntry'key x__) (Control.DeepSeq.deepseq (_SendManyRequest'AddrToAmountEntry'value x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.txid' @:: Lens' SendManyResponse Data.Text.Text@ -} data SendManyResponse = SendManyResponse'_constructor {_SendManyResponse'txid :: !Data.Text.Text, _SendManyResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show SendManyResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField SendManyResponse "txid" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendManyResponse'txid (\ x__ y__ -> x__ {_SendManyResponse'txid = y__})) Prelude.id instance Data.ProtoLens.Message SendManyResponse where messageName _ = Data.Text.pack "lnrpc.SendManyResponse" packedMessageDescriptor _ = "\n\ \\DLESendManyResponse\DC2\DC2\n\ \\EOTtxid\CAN\SOH \SOH(\tR\EOTtxid" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let txid__field_descriptor = Data.ProtoLens.FieldDescriptor "txid" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"txid")) :: Data.ProtoLens.FieldDescriptor SendManyResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, txid__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _SendManyResponse'_unknownFields (\ x__ y__ -> x__ {_SendManyResponse'_unknownFields = y__}) defMessage = SendManyResponse'_constructor {_SendManyResponse'txid = Data.ProtoLens.fieldDefault, _SendManyResponse'_unknownFields = []} parseMessage = let loop :: SendManyResponse -> Data.ProtoLens.Encoding.Bytes.Parser SendManyResponse 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)) "txid" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"txid") 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) "SendManyResponse" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"txid") _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 SendManyResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_SendManyResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_SendManyResponse'txid x__) ()) {- | Fields : * 'Proto.LndGrpc_Fields.dest' @:: Lens' SendRequest Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.destString' @:: Lens' SendRequest Data.Text.Text@ * 'Proto.LndGrpc_Fields.amt' @:: Lens' SendRequest Data.Int.Int64@ * 'Proto.LndGrpc_Fields.amtMsat' @:: Lens' SendRequest Data.Int.Int64@ * 'Proto.LndGrpc_Fields.paymentHash' @:: Lens' SendRequest Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.paymentHashString' @:: Lens' SendRequest Data.Text.Text@ * 'Proto.LndGrpc_Fields.paymentRequest' @:: Lens' SendRequest Data.Text.Text@ * 'Proto.LndGrpc_Fields.finalCltvDelta' @:: Lens' SendRequest Data.Int.Int32@ * 'Proto.LndGrpc_Fields.feeLimit' @:: Lens' SendRequest FeeLimit@ * 'Proto.LndGrpc_Fields.maybe'feeLimit' @:: Lens' SendRequest (Prelude.Maybe FeeLimit)@ * 'Proto.LndGrpc_Fields.outgoingChanId' @:: Lens' SendRequest Data.Word.Word64@ * 'Proto.LndGrpc_Fields.lastHopPubkey' @:: Lens' SendRequest Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.cltvLimit' @:: Lens' SendRequest Data.Word.Word32@ * 'Proto.LndGrpc_Fields.destCustomRecords' @:: Lens' SendRequest (Data.Map.Map Data.Word.Word64 Data.ByteString.ByteString)@ * 'Proto.LndGrpc_Fields.allowSelfPayment' @:: Lens' SendRequest Prelude.Bool@ * 'Proto.LndGrpc_Fields.destFeatures' @:: Lens' SendRequest [FeatureBit]@ * 'Proto.LndGrpc_Fields.vec'destFeatures' @:: Lens' SendRequest (Data.Vector.Vector FeatureBit)@ * 'Proto.LndGrpc_Fields.paymentAddr' @:: Lens' SendRequest Data.ByteString.ByteString@ -} data SendRequest = SendRequest'_constructor {_SendRequest'dest :: !Data.ByteString.ByteString, _SendRequest'destString :: !Data.Text.Text, _SendRequest'amt :: !Data.Int.Int64, _SendRequest'amtMsat :: !Data.Int.Int64, _SendRequest'paymentHash :: !Data.ByteString.ByteString, _SendRequest'paymentHashString :: !Data.Text.Text, _SendRequest'paymentRequest :: !Data.Text.Text, _SendRequest'finalCltvDelta :: !Data.Int.Int32, _SendRequest'feeLimit :: !(Prelude.Maybe FeeLimit), _SendRequest'outgoingChanId :: !Data.Word.Word64, _SendRequest'lastHopPubkey :: !Data.ByteString.ByteString, _SendRequest'cltvLimit :: !Data.Word.Word32, _SendRequest'destCustomRecords :: !(Data.Map.Map Data.Word.Word64 Data.ByteString.ByteString), _SendRequest'allowSelfPayment :: !Prelude.Bool, _SendRequest'destFeatures :: !(Data.Vector.Vector FeatureBit), _SendRequest'paymentAddr :: !Data.ByteString.ByteString, _SendRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show SendRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField SendRequest "dest" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'dest (\ x__ y__ -> x__ {_SendRequest'dest = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendRequest "destString" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'destString (\ x__ y__ -> x__ {_SendRequest'destString = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendRequest "amt" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'amt (\ x__ y__ -> x__ {_SendRequest'amt = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendRequest "amtMsat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'amtMsat (\ x__ y__ -> x__ {_SendRequest'amtMsat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendRequest "paymentHash" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'paymentHash (\ x__ y__ -> x__ {_SendRequest'paymentHash = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendRequest "paymentHashString" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'paymentHashString (\ x__ y__ -> x__ {_SendRequest'paymentHashString = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendRequest "paymentRequest" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'paymentRequest (\ x__ y__ -> x__ {_SendRequest'paymentRequest = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendRequest "finalCltvDelta" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'finalCltvDelta (\ x__ y__ -> x__ {_SendRequest'finalCltvDelta = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendRequest "feeLimit" FeeLimit where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'feeLimit (\ x__ y__ -> x__ {_SendRequest'feeLimit = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField SendRequest "maybe'feeLimit" (Prelude.Maybe FeeLimit) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'feeLimit (\ x__ y__ -> x__ {_SendRequest'feeLimit = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendRequest "outgoingChanId" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'outgoingChanId (\ x__ y__ -> x__ {_SendRequest'outgoingChanId = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendRequest "lastHopPubkey" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'lastHopPubkey (\ x__ y__ -> x__ {_SendRequest'lastHopPubkey = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendRequest "cltvLimit" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'cltvLimit (\ x__ y__ -> x__ {_SendRequest'cltvLimit = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendRequest "destCustomRecords" (Data.Map.Map Data.Word.Word64 Data.ByteString.ByteString) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'destCustomRecords (\ x__ y__ -> x__ {_SendRequest'destCustomRecords = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendRequest "allowSelfPayment" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'allowSelfPayment (\ x__ y__ -> x__ {_SendRequest'allowSelfPayment = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendRequest "destFeatures" [FeatureBit] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'destFeatures (\ x__ y__ -> x__ {_SendRequest'destFeatures = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField SendRequest "vec'destFeatures" (Data.Vector.Vector FeatureBit) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'destFeatures (\ x__ y__ -> x__ {_SendRequest'destFeatures = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendRequest "paymentAddr" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'paymentAddr (\ x__ y__ -> x__ {_SendRequest'paymentAddr = y__})) Prelude.id instance Data.ProtoLens.Message SendRequest where messageName _ = Data.Text.pack "lnrpc.SendRequest" packedMessageDescriptor _ = "\n\ \\vSendRequest\DC2\DC2\n\ \\EOTdest\CAN\SOH \SOH(\fR\EOTdest\DC2#\n\ \\vdest_string\CAN\STX \SOH(\tR\n\ \destStringB\STX\CAN\SOH\DC2\DLE\n\ \\ETXamt\CAN\ETX \SOH(\ETXR\ETXamt\DC2\EM\n\ \\bamt_msat\CAN\f \SOH(\ETXR\aamtMsat\DC2!\n\ \\fpayment_hash\CAN\EOT \SOH(\fR\vpaymentHash\DC22\n\ \\DC3payment_hash_string\CAN\ENQ \SOH(\tR\DC1paymentHashStringB\STX\CAN\SOH\DC2'\n\ \\SIpayment_request\CAN\ACK \SOH(\tR\SOpaymentRequest\DC2(\n\ \\DLEfinal_cltv_delta\CAN\a \SOH(\ENQR\SOfinalCltvDelta\DC2,\n\ \\tfee_limit\CAN\b \SOH(\v2\SI.lnrpc.FeeLimitR\bfeeLimit\DC2,\n\ \\DLEoutgoing_chan_id\CAN\t \SOH(\EOTR\SOoutgoingChanIdB\STX0\SOH\DC2&\n\ \\SIlast_hop_pubkey\CAN\r \SOH(\fR\rlastHopPubkey\DC2\GS\n\ \\n\ \cltv_limit\CAN\n\ \ \SOH(\rR\tcltvLimit\DC2Y\n\ \\DC3dest_custom_records\CAN\v \ETX(\v2).lnrpc.SendRequest.DestCustomRecordsEntryR\DC1destCustomRecords\DC2,\n\ \\DC2allow_self_payment\CAN\SO \SOH(\bR\DLEallowSelfPayment\DC26\n\ \\rdest_features\CAN\SI \ETX(\SO2\DC1.lnrpc.FeatureBitR\fdestFeatures\DC2!\n\ \\fpayment_addr\CAN\DLE \SOH(\fR\vpaymentAddr\SUBD\n\ \\SYNDestCustomRecordsEntry\DC2\DLE\n\ \\ETXkey\CAN\SOH \SOH(\EOTR\ETXkey\DC2\DC4\n\ \\ENQvalue\CAN\STX \SOH(\fR\ENQvalue:\STX8\SOH" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let dest__field_descriptor = Data.ProtoLens.FieldDescriptor "dest" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"dest")) :: Data.ProtoLens.FieldDescriptor SendRequest destString__field_descriptor = Data.ProtoLens.FieldDescriptor "dest_string" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"destString")) :: Data.ProtoLens.FieldDescriptor SendRequest amt__field_descriptor = Data.ProtoLens.FieldDescriptor "amt" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"amt")) :: Data.ProtoLens.FieldDescriptor SendRequest amtMsat__field_descriptor = Data.ProtoLens.FieldDescriptor "amt_msat" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"amtMsat")) :: Data.ProtoLens.FieldDescriptor SendRequest 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 SendRequest paymentHashString__field_descriptor = Data.ProtoLens.FieldDescriptor "payment_hash_string" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"paymentHashString")) :: Data.ProtoLens.FieldDescriptor SendRequest 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 SendRequest finalCltvDelta__field_descriptor = Data.ProtoLens.FieldDescriptor "final_cltv_delta" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"finalCltvDelta")) :: Data.ProtoLens.FieldDescriptor SendRequest feeLimit__field_descriptor = Data.ProtoLens.FieldDescriptor "fee_limit" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor FeeLimit) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'feeLimit")) :: Data.ProtoLens.FieldDescriptor SendRequest outgoingChanId__field_descriptor = Data.ProtoLens.FieldDescriptor "outgoing_chan_id" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"outgoingChanId")) :: Data.ProtoLens.FieldDescriptor SendRequest lastHopPubkey__field_descriptor = Data.ProtoLens.FieldDescriptor "last_hop_pubkey" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"lastHopPubkey")) :: Data.ProtoLens.FieldDescriptor SendRequest cltvLimit__field_descriptor = Data.ProtoLens.FieldDescriptor "cltv_limit" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"cltvLimit")) :: Data.ProtoLens.FieldDescriptor SendRequest destCustomRecords__field_descriptor = Data.ProtoLens.FieldDescriptor "dest_custom_records" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor SendRequest'DestCustomRecordsEntry) (Data.ProtoLens.MapField (Data.ProtoLens.Field.field @"key") (Data.ProtoLens.Field.field @"value") (Data.ProtoLens.Field.field @"destCustomRecords")) :: Data.ProtoLens.FieldDescriptor SendRequest allowSelfPayment__field_descriptor = Data.ProtoLens.FieldDescriptor "allow_self_payment" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"allowSelfPayment")) :: Data.ProtoLens.FieldDescriptor SendRequest destFeatures__field_descriptor = Data.ProtoLens.FieldDescriptor "dest_features" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor FeatureBit) (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed (Data.ProtoLens.Field.field @"destFeatures")) :: Data.ProtoLens.FieldDescriptor SendRequest 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 SendRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, dest__field_descriptor), (Data.ProtoLens.Tag 2, destString__field_descriptor), (Data.ProtoLens.Tag 3, amt__field_descriptor), (Data.ProtoLens.Tag 12, amtMsat__field_descriptor), (Data.ProtoLens.Tag 4, paymentHash__field_descriptor), (Data.ProtoLens.Tag 5, paymentHashString__field_descriptor), (Data.ProtoLens.Tag 6, paymentRequest__field_descriptor), (Data.ProtoLens.Tag 7, finalCltvDelta__field_descriptor), (Data.ProtoLens.Tag 8, feeLimit__field_descriptor), (Data.ProtoLens.Tag 9, outgoingChanId__field_descriptor), (Data.ProtoLens.Tag 13, lastHopPubkey__field_descriptor), (Data.ProtoLens.Tag 10, cltvLimit__field_descriptor), (Data.ProtoLens.Tag 11, destCustomRecords__field_descriptor), (Data.ProtoLens.Tag 14, allowSelfPayment__field_descriptor), (Data.ProtoLens.Tag 15, destFeatures__field_descriptor), (Data.ProtoLens.Tag 16, paymentAddr__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _SendRequest'_unknownFields (\ x__ y__ -> x__ {_SendRequest'_unknownFields = y__}) defMessage = SendRequest'_constructor {_SendRequest'dest = Data.ProtoLens.fieldDefault, _SendRequest'destString = Data.ProtoLens.fieldDefault, _SendRequest'amt = Data.ProtoLens.fieldDefault, _SendRequest'amtMsat = Data.ProtoLens.fieldDefault, _SendRequest'paymentHash = Data.ProtoLens.fieldDefault, _SendRequest'paymentHashString = Data.ProtoLens.fieldDefault, _SendRequest'paymentRequest = Data.ProtoLens.fieldDefault, _SendRequest'finalCltvDelta = Data.ProtoLens.fieldDefault, _SendRequest'feeLimit = Prelude.Nothing, _SendRequest'outgoingChanId = Data.ProtoLens.fieldDefault, _SendRequest'lastHopPubkey = Data.ProtoLens.fieldDefault, _SendRequest'cltvLimit = Data.ProtoLens.fieldDefault, _SendRequest'destCustomRecords = Data.Map.empty, _SendRequest'allowSelfPayment = Data.ProtoLens.fieldDefault, _SendRequest'destFeatures = Data.Vector.Generic.empty, _SendRequest'paymentAddr = Data.ProtoLens.fieldDefault, _SendRequest'_unknownFields = []} parseMessage = let loop :: SendRequest -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld FeatureBit -> Data.ProtoLens.Encoding.Bytes.Parser SendRequest loop x mutable'destFeatures = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'destFeatures <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'destFeatures) (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'destFeatures") frozen'destFeatures 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)) "dest" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"dest") y x) mutable'destFeatures 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)) "dest_string" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"destString") y x) mutable'destFeatures 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "amt" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"amt") y x) mutable'destFeatures 96 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "amt_msat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"amtMsat") y x) mutable'destFeatures 34 -> 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) mutable'destFeatures 42 -> 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_string" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"paymentHashString") y x) mutable'destFeatures 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_request" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"paymentRequest") y x) mutable'destFeatures 56 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "final_cltv_delta" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"finalCltvDelta") y x) mutable'destFeatures 66 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "fee_limit" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"feeLimit") y x) mutable'destFeatures 72 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) Data.ProtoLens.Encoding.Bytes.getVarInt "outgoing_chan_id" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"outgoingChanId") y x) mutable'destFeatures 106 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "last_hop_pubkey" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"lastHopPubkey") y x) mutable'destFeatures 80 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "cltv_limit" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cltvLimit") y x) mutable'destFeatures 90 -> do !(entry :: SendRequest'DestCustomRecordsEntry) <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "dest_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 @"destCustomRecords") (\ !t -> Data.Map.insert key value t) x) mutable'destFeatures) 112 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) "allow_self_payment" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"allowSelfPayment") y x) mutable'destFeatures 120 -> do !y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) "dest_features" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'destFeatures y) loop x v 122 -> 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.>) (Prelude.fmap Prelude.toEnum (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt)) "dest_features" qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append qs q) ploop qs' in ploop) mutable'destFeatures) loop x y 130 -> 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'destFeatures wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'destFeatures in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'destFeatures <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'destFeatures) "SendRequest" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"dest") _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 @"destString") _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 @"amt") _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 @"amtMsat") _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 @"paymentHash") _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 @"paymentHashString") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (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.Text.Encoding.encodeUtf8 _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 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 @"finalCltvDelta") _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.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'feeLimit") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (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.ProtoLens.encodeMessage _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"outgoingChanId") _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 @"lastHopPubkey") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 106) ((\ 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 @"cltvLimit") _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.<>) (Data.Monoid.mconcat (Prelude.map (\ _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 (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 :: SendRequest'DestCustomRecordsEntry))))) (Data.Map.toList (Lens.Family2.view (Data.ProtoLens.Field.field @"destCustomRecords") _x)))) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"allowSelfPayment") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 112) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt (\ b -> if b then 1 else 0) _v)) ((Data.Monoid.<>) (let p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'destFeatures") _x in if Data.Vector.Generic.null p then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 122) ((\ 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 ((Prelude..) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) Prelude.fromEnum) p)))) ((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 130) ((\ 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 SendRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_SendRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_SendRequest'dest x__) (Control.DeepSeq.deepseq (_SendRequest'destString x__) (Control.DeepSeq.deepseq (_SendRequest'amt x__) (Control.DeepSeq.deepseq (_SendRequest'amtMsat x__) (Control.DeepSeq.deepseq (_SendRequest'paymentHash x__) (Control.DeepSeq.deepseq (_SendRequest'paymentHashString x__) (Control.DeepSeq.deepseq (_SendRequest'paymentRequest x__) (Control.DeepSeq.deepseq (_SendRequest'finalCltvDelta x__) (Control.DeepSeq.deepseq (_SendRequest'feeLimit x__) (Control.DeepSeq.deepseq (_SendRequest'outgoingChanId x__) (Control.DeepSeq.deepseq (_SendRequest'lastHopPubkey x__) (Control.DeepSeq.deepseq (_SendRequest'cltvLimit x__) (Control.DeepSeq.deepseq (_SendRequest'destCustomRecords x__) (Control.DeepSeq.deepseq (_SendRequest'allowSelfPayment x__) (Control.DeepSeq.deepseq (_SendRequest'destFeatures x__) (Control.DeepSeq.deepseq (_SendRequest'paymentAddr x__) ())))))))))))))))) {- | Fields : * 'Proto.LndGrpc_Fields.key' @:: Lens' SendRequest'DestCustomRecordsEntry Data.Word.Word64@ * 'Proto.LndGrpc_Fields.value' @:: Lens' SendRequest'DestCustomRecordsEntry Data.ByteString.ByteString@ -} data SendRequest'DestCustomRecordsEntry = SendRequest'DestCustomRecordsEntry'_constructor {_SendRequest'DestCustomRecordsEntry'key :: !Data.Word.Word64, _SendRequest'DestCustomRecordsEntry'value :: !Data.ByteString.ByteString, _SendRequest'DestCustomRecordsEntry'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show SendRequest'DestCustomRecordsEntry where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField SendRequest'DestCustomRecordsEntry "key" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'DestCustomRecordsEntry'key (\ x__ y__ -> x__ {_SendRequest'DestCustomRecordsEntry'key = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendRequest'DestCustomRecordsEntry "value" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendRequest'DestCustomRecordsEntry'value (\ x__ y__ -> x__ {_SendRequest'DestCustomRecordsEntry'value = y__})) Prelude.id instance Data.ProtoLens.Message SendRequest'DestCustomRecordsEntry where messageName _ = Data.Text.pack "lnrpc.SendRequest.DestCustomRecordsEntry" packedMessageDescriptor _ = "\n\ \\SYNDestCustomRecordsEntry\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 SendRequest'DestCustomRecordsEntry 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 SendRequest'DestCustomRecordsEntry in Data.Map.fromList [(Data.ProtoLens.Tag 1, key__field_descriptor), (Data.ProtoLens.Tag 2, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _SendRequest'DestCustomRecordsEntry'_unknownFields (\ x__ y__ -> x__ {_SendRequest'DestCustomRecordsEntry'_unknownFields = y__}) defMessage = SendRequest'DestCustomRecordsEntry'_constructor {_SendRequest'DestCustomRecordsEntry'key = Data.ProtoLens.fieldDefault, _SendRequest'DestCustomRecordsEntry'value = Data.ProtoLens.fieldDefault, _SendRequest'DestCustomRecordsEntry'_unknownFields = []} parseMessage = let loop :: SendRequest'DestCustomRecordsEntry -> Data.ProtoLens.Encoding.Bytes.Parser SendRequest'DestCustomRecordsEntry 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) "DestCustomRecordsEntry" 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 SendRequest'DestCustomRecordsEntry where rnf = \ x__ -> Control.DeepSeq.deepseq (_SendRequest'DestCustomRecordsEntry'_unknownFields x__) (Control.DeepSeq.deepseq (_SendRequest'DestCustomRecordsEntry'key x__) (Control.DeepSeq.deepseq (_SendRequest'DestCustomRecordsEntry'value x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.paymentError' @:: Lens' SendResponse Data.Text.Text@ * 'Proto.LndGrpc_Fields.paymentPreimage' @:: Lens' SendResponse Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.paymentRoute' @:: Lens' SendResponse Route@ * 'Proto.LndGrpc_Fields.maybe'paymentRoute' @:: Lens' SendResponse (Prelude.Maybe Route)@ * 'Proto.LndGrpc_Fields.paymentHash' @:: Lens' SendResponse Data.ByteString.ByteString@ -} data SendResponse = SendResponse'_constructor {_SendResponse'paymentError :: !Data.Text.Text, _SendResponse'paymentPreimage :: !Data.ByteString.ByteString, _SendResponse'paymentRoute :: !(Prelude.Maybe Route), _SendResponse'paymentHash :: !Data.ByteString.ByteString, _SendResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show SendResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField SendResponse "paymentError" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendResponse'paymentError (\ x__ y__ -> x__ {_SendResponse'paymentError = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendResponse "paymentPreimage" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendResponse'paymentPreimage (\ x__ y__ -> x__ {_SendResponse'paymentPreimage = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendResponse "paymentRoute" Route where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendResponse'paymentRoute (\ x__ y__ -> x__ {_SendResponse'paymentRoute = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField SendResponse "maybe'paymentRoute" (Prelude.Maybe Route) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendResponse'paymentRoute (\ x__ y__ -> x__ {_SendResponse'paymentRoute = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendResponse "paymentHash" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendResponse'paymentHash (\ x__ y__ -> x__ {_SendResponse'paymentHash = y__})) Prelude.id instance Data.ProtoLens.Message SendResponse where messageName _ = Data.Text.pack "lnrpc.SendResponse" packedMessageDescriptor _ = "\n\ \\fSendResponse\DC2#\n\ \\rpayment_error\CAN\SOH \SOH(\tR\fpaymentError\DC2)\n\ \\DLEpayment_preimage\CAN\STX \SOH(\fR\SIpaymentPreimage\DC21\n\ \\rpayment_route\CAN\ETX \SOH(\v2\f.lnrpc.RouteR\fpaymentRoute\DC2!\n\ \\fpayment_hash\CAN\EOT \SOH(\fR\vpaymentHash" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let paymentError__field_descriptor = Data.ProtoLens.FieldDescriptor "payment_error" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"paymentError")) :: Data.ProtoLens.FieldDescriptor SendResponse paymentPreimage__field_descriptor = Data.ProtoLens.FieldDescriptor "payment_preimage" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"paymentPreimage")) :: Data.ProtoLens.FieldDescriptor SendResponse paymentRoute__field_descriptor = Data.ProtoLens.FieldDescriptor "payment_route" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Route) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'paymentRoute")) :: Data.ProtoLens.FieldDescriptor SendResponse 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 SendResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, paymentError__field_descriptor), (Data.ProtoLens.Tag 2, paymentPreimage__field_descriptor), (Data.ProtoLens.Tag 3, paymentRoute__field_descriptor), (Data.ProtoLens.Tag 4, paymentHash__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _SendResponse'_unknownFields (\ x__ y__ -> x__ {_SendResponse'_unknownFields = y__}) defMessage = SendResponse'_constructor {_SendResponse'paymentError = Data.ProtoLens.fieldDefault, _SendResponse'paymentPreimage = Data.ProtoLens.fieldDefault, _SendResponse'paymentRoute = Prelude.Nothing, _SendResponse'paymentHash = Data.ProtoLens.fieldDefault, _SendResponse'_unknownFields = []} parseMessage = let loop :: SendResponse -> Data.ProtoLens.Encoding.Bytes.Parser SendResponse 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)) "payment_error" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"paymentError") y x) 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "payment_preimage" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"paymentPreimage") 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) "payment_route" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"paymentRoute") y x) 34 -> 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) 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) "SendResponse" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"paymentError") _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 @"paymentPreimage") _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.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'paymentRoute") _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 @"paymentHash") _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 SendResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_SendResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_SendResponse'paymentError x__) (Control.DeepSeq.deepseq (_SendResponse'paymentPreimage x__) (Control.DeepSeq.deepseq (_SendResponse'paymentRoute x__) (Control.DeepSeq.deepseq (_SendResponse'paymentHash x__) ())))) {- | Fields : * 'Proto.LndGrpc_Fields.paymentHash' @:: Lens' SendToRouteRequest Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.paymentHashString' @:: Lens' SendToRouteRequest Data.Text.Text@ * 'Proto.LndGrpc_Fields.route' @:: Lens' SendToRouteRequest Route@ * 'Proto.LndGrpc_Fields.maybe'route' @:: Lens' SendToRouteRequest (Prelude.Maybe Route)@ -} data SendToRouteRequest = SendToRouteRequest'_constructor {_SendToRouteRequest'paymentHash :: !Data.ByteString.ByteString, _SendToRouteRequest'paymentHashString :: !Data.Text.Text, _SendToRouteRequest'route :: !(Prelude.Maybe Route), _SendToRouteRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show SendToRouteRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField SendToRouteRequest "paymentHash" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendToRouteRequest'paymentHash (\ x__ y__ -> x__ {_SendToRouteRequest'paymentHash = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendToRouteRequest "paymentHashString" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendToRouteRequest'paymentHashString (\ x__ y__ -> x__ {_SendToRouteRequest'paymentHashString = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SendToRouteRequest "route" Route where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendToRouteRequest'route (\ x__ y__ -> x__ {_SendToRouteRequest'route = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField SendToRouteRequest "maybe'route" (Prelude.Maybe Route) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SendToRouteRequest'route (\ x__ y__ -> x__ {_SendToRouteRequest'route = y__})) Prelude.id instance Data.ProtoLens.Message SendToRouteRequest where messageName _ = Data.Text.pack "lnrpc.SendToRouteRequest" packedMessageDescriptor _ = "\n\ \\DC2SendToRouteRequest\DC2!\n\ \\fpayment_hash\CAN\SOH \SOH(\fR\vpaymentHash\DC22\n\ \\DC3payment_hash_string\CAN\STX \SOH(\tR\DC1paymentHashStringB\STX\CAN\SOH\DC2\"\n\ \\ENQroute\CAN\EOT \SOH(\v2\f.lnrpc.RouteR\ENQrouteJ\EOT\b\ETX\DLE\EOT" 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 SendToRouteRequest paymentHashString__field_descriptor = Data.ProtoLens.FieldDescriptor "payment_hash_string" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"paymentHashString")) :: Data.ProtoLens.FieldDescriptor SendToRouteRequest route__field_descriptor = Data.ProtoLens.FieldDescriptor "route" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Route) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'route")) :: Data.ProtoLens.FieldDescriptor SendToRouteRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, paymentHash__field_descriptor), (Data.ProtoLens.Tag 2, paymentHashString__field_descriptor), (Data.ProtoLens.Tag 4, route__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _SendToRouteRequest'_unknownFields (\ x__ y__ -> x__ {_SendToRouteRequest'_unknownFields = y__}) defMessage = SendToRouteRequest'_constructor {_SendToRouteRequest'paymentHash = Data.ProtoLens.fieldDefault, _SendToRouteRequest'paymentHashString = Data.ProtoLens.fieldDefault, _SendToRouteRequest'route = Prelude.Nothing, _SendToRouteRequest'_unknownFields = []} parseMessage = let loop :: SendToRouteRequest -> Data.ProtoLens.Encoding.Bytes.Parser SendToRouteRequest 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) 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_string" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"paymentHashString") 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) "route" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"route") 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) "SendToRouteRequest" 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 @"paymentHashString") _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.<>) (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 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)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) instance Control.DeepSeq.NFData SendToRouteRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_SendToRouteRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_SendToRouteRequest'paymentHash x__) (Control.DeepSeq.deepseq (_SendToRouteRequest'paymentHashString x__) (Control.DeepSeq.deepseq (_SendToRouteRequest'route x__) ()))) {- | Fields : * 'Proto.LndGrpc_Fields.msg' @:: Lens' SignMessageRequest Data.ByteString.ByteString@ -} data SignMessageRequest = SignMessageRequest'_constructor {_SignMessageRequest'msg :: !Data.ByteString.ByteString, _SignMessageRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show SignMessageRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField SignMessageRequest "msg" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SignMessageRequest'msg (\ x__ y__ -> x__ {_SignMessageRequest'msg = y__})) Prelude.id instance Data.ProtoLens.Message SignMessageRequest where messageName _ = Data.Text.pack "lnrpc.SignMessageRequest" packedMessageDescriptor _ = "\n\ \\DC2SignMessageRequest\DC2\DLE\n\ \\ETXmsg\CAN\SOH \SOH(\fR\ETXmsg" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let msg__field_descriptor = Data.ProtoLens.FieldDescriptor "msg" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"msg")) :: Data.ProtoLens.FieldDescriptor SignMessageRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, msg__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _SignMessageRequest'_unknownFields (\ x__ y__ -> x__ {_SignMessageRequest'_unknownFields = y__}) defMessage = SignMessageRequest'_constructor {_SignMessageRequest'msg = Data.ProtoLens.fieldDefault, _SignMessageRequest'_unknownFields = []} parseMessage = let loop :: SignMessageRequest -> Data.ProtoLens.Encoding.Bytes.Parser SignMessageRequest 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)) "msg" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"msg") 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) "SignMessageRequest" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"msg") _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 SignMessageRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_SignMessageRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_SignMessageRequest'msg x__) ()) {- | Fields : * 'Proto.LndGrpc_Fields.signature' @:: Lens' SignMessageResponse Data.Text.Text@ -} data SignMessageResponse = SignMessageResponse'_constructor {_SignMessageResponse'signature :: !Data.Text.Text, _SignMessageResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show SignMessageResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField SignMessageResponse "signature" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SignMessageResponse'signature (\ x__ y__ -> x__ {_SignMessageResponse'signature = y__})) Prelude.id instance Data.ProtoLens.Message SignMessageResponse where messageName _ = Data.Text.pack "lnrpc.SignMessageResponse" packedMessageDescriptor _ = "\n\ \\DC3SignMessageResponse\DC2\FS\n\ \\tsignature\CAN\SOH \SOH(\tR\tsignature" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let signature__field_descriptor = Data.ProtoLens.FieldDescriptor "signature" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"signature")) :: Data.ProtoLens.FieldDescriptor SignMessageResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, signature__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _SignMessageResponse'_unknownFields (\ x__ y__ -> x__ {_SignMessageResponse'_unknownFields = y__}) defMessage = SignMessageResponse'_constructor {_SignMessageResponse'signature = Data.ProtoLens.fieldDefault, _SignMessageResponse'_unknownFields = []} parseMessage = let loop :: SignMessageResponse -> Data.ProtoLens.Encoding.Bytes.Parser SignMessageResponse 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)) "signature" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"signature") 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) "SignMessageResponse" 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) ((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 SignMessageResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_SignMessageResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_SignMessageResponse'signature x__) ()) {- | Fields : -} data StopRequest = StopRequest'_constructor {_StopRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show StopRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Message StopRequest where messageName _ = Data.Text.pack "lnrpc.StopRequest" packedMessageDescriptor _ = "\n\ \\vStopRequest" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let in Data.Map.fromList [] unknownFields = Lens.Family2.Unchecked.lens _StopRequest'_unknownFields (\ x__ y__ -> x__ {_StopRequest'_unknownFields = y__}) defMessage = StopRequest'_constructor {_StopRequest'_unknownFields = []} parseMessage = let loop :: StopRequest -> Data.ProtoLens.Encoding.Bytes.Parser StopRequest 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) "StopRequest" buildMessage = \ _x -> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) instance Control.DeepSeq.NFData StopRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_StopRequest'_unknownFields x__) () {- | Fields : -} data StopResponse = StopResponse'_constructor {_StopResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show StopResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Message StopResponse where messageName _ = Data.Text.pack "lnrpc.StopResponse" packedMessageDescriptor _ = "\n\ \\fStopResponse" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let in Data.Map.fromList [] unknownFields = Lens.Family2.Unchecked.lens _StopResponse'_unknownFields (\ x__ y__ -> x__ {_StopResponse'_unknownFields = y__}) defMessage = StopResponse'_constructor {_StopResponse'_unknownFields = []} parseMessage = let loop :: StopResponse -> Data.ProtoLens.Encoding.Bytes.Parser StopResponse 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) "StopResponse" buildMessage = \ _x -> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) instance Control.DeepSeq.NFData StopResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_StopResponse'_unknownFields x__) () {- | Fields : * 'Proto.LndGrpc_Fields.timestamp' @:: Lens' TimestampedError Data.Word.Word64@ * 'Proto.LndGrpc_Fields.error' @:: Lens' TimestampedError Data.Text.Text@ -} data TimestampedError = TimestampedError'_constructor {_TimestampedError'timestamp :: !Data.Word.Word64, _TimestampedError'error :: !Data.Text.Text, _TimestampedError'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show TimestampedError where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField TimestampedError "timestamp" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _TimestampedError'timestamp (\ x__ y__ -> x__ {_TimestampedError'timestamp = y__})) Prelude.id instance Data.ProtoLens.Field.HasField TimestampedError "error" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _TimestampedError'error (\ x__ y__ -> x__ {_TimestampedError'error = y__})) Prelude.id instance Data.ProtoLens.Message TimestampedError where messageName _ = Data.Text.pack "lnrpc.TimestampedError" packedMessageDescriptor _ = "\n\ \\DLETimestampedError\DC2\FS\n\ \\ttimestamp\CAN\SOH \SOH(\EOTR\ttimestamp\DC2\DC4\n\ \\ENQerror\CAN\STX \SOH(\tR\ENQerror" 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 TimestampedError 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 TimestampedError in Data.Map.fromList [(Data.ProtoLens.Tag 1, timestamp__field_descriptor), (Data.ProtoLens.Tag 2, error__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _TimestampedError'_unknownFields (\ x__ y__ -> x__ {_TimestampedError'_unknownFields = y__}) defMessage = TimestampedError'_constructor {_TimestampedError'timestamp = Data.ProtoLens.fieldDefault, _TimestampedError'error = Data.ProtoLens.fieldDefault, _TimestampedError'_unknownFields = []} parseMessage = let loop :: TimestampedError -> Data.ProtoLens.Encoding.Bytes.Parser TimestampedError 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) 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)) "error" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"error") 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) "TimestampedError" 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 @"error") _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 TimestampedError where rnf = \ x__ -> Control.DeepSeq.deepseq (_TimestampedError'_unknownFields x__) (Control.DeepSeq.deepseq (_TimestampedError'timestamp x__) (Control.DeepSeq.deepseq (_TimestampedError'error x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.txHash' @:: Lens' Transaction Data.Text.Text@ * 'Proto.LndGrpc_Fields.amount' @:: Lens' Transaction Data.Int.Int64@ * 'Proto.LndGrpc_Fields.numConfirmations' @:: Lens' Transaction Data.Int.Int32@ * 'Proto.LndGrpc_Fields.blockHash' @:: Lens' Transaction Data.Text.Text@ * 'Proto.LndGrpc_Fields.blockHeight' @:: Lens' Transaction Data.Int.Int32@ * 'Proto.LndGrpc_Fields.timeStamp' @:: Lens' Transaction Data.Int.Int64@ * 'Proto.LndGrpc_Fields.totalFees' @:: Lens' Transaction Data.Int.Int64@ * 'Proto.LndGrpc_Fields.destAddresses' @:: Lens' Transaction [Data.Text.Text]@ * 'Proto.LndGrpc_Fields.vec'destAddresses' @:: Lens' Transaction (Data.Vector.Vector Data.Text.Text)@ * 'Proto.LndGrpc_Fields.rawTxHex' @:: Lens' Transaction Data.Text.Text@ * 'Proto.LndGrpc_Fields.label' @:: Lens' Transaction Data.Text.Text@ -} data Transaction = Transaction'_constructor {_Transaction'txHash :: !Data.Text.Text, _Transaction'amount :: !Data.Int.Int64, _Transaction'numConfirmations :: !Data.Int.Int32, _Transaction'blockHash :: !Data.Text.Text, _Transaction'blockHeight :: !Data.Int.Int32, _Transaction'timeStamp :: !Data.Int.Int64, _Transaction'totalFees :: !Data.Int.Int64, _Transaction'destAddresses :: !(Data.Vector.Vector Data.Text.Text), _Transaction'rawTxHex :: !Data.Text.Text, _Transaction'label :: !Data.Text.Text, _Transaction'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Transaction where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField Transaction "txHash" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Transaction'txHash (\ x__ y__ -> x__ {_Transaction'txHash = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Transaction "amount" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Transaction'amount (\ x__ y__ -> x__ {_Transaction'amount = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Transaction "numConfirmations" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Transaction'numConfirmations (\ x__ y__ -> x__ {_Transaction'numConfirmations = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Transaction "blockHash" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Transaction'blockHash (\ x__ y__ -> x__ {_Transaction'blockHash = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Transaction "blockHeight" Data.Int.Int32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Transaction'blockHeight (\ x__ y__ -> x__ {_Transaction'blockHeight = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Transaction "timeStamp" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Transaction'timeStamp (\ x__ y__ -> x__ {_Transaction'timeStamp = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Transaction "totalFees" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Transaction'totalFees (\ x__ y__ -> x__ {_Transaction'totalFees = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Transaction "destAddresses" [Data.Text.Text] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Transaction'destAddresses (\ x__ y__ -> x__ {_Transaction'destAddresses = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField Transaction "vec'destAddresses" (Data.Vector.Vector Data.Text.Text) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Transaction'destAddresses (\ x__ y__ -> x__ {_Transaction'destAddresses = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Transaction "rawTxHex" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Transaction'rawTxHex (\ x__ y__ -> x__ {_Transaction'rawTxHex = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Transaction "label" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Transaction'label (\ x__ y__ -> x__ {_Transaction'label = y__})) Prelude.id instance Data.ProtoLens.Message Transaction where messageName _ = Data.Text.pack "lnrpc.Transaction" packedMessageDescriptor _ = "\n\ \\vTransaction\DC2\ETB\n\ \\atx_hash\CAN\SOH \SOH(\tR\ACKtxHash\DC2\SYN\n\ \\ACKamount\CAN\STX \SOH(\ETXR\ACKamount\DC2+\n\ \\DC1num_confirmations\CAN\ETX \SOH(\ENQR\DLEnumConfirmations\DC2\GS\n\ \\n\ \block_hash\CAN\EOT \SOH(\tR\tblockHash\DC2!\n\ \\fblock_height\CAN\ENQ \SOH(\ENQR\vblockHeight\DC2\GS\n\ \\n\ \time_stamp\CAN\ACK \SOH(\ETXR\ttimeStamp\DC2\GS\n\ \\n\ \total_fees\CAN\a \SOH(\ETXR\ttotalFees\DC2%\n\ \\SOdest_addresses\CAN\b \ETX(\tR\rdestAddresses\DC2\FS\n\ \\n\ \raw_tx_hex\CAN\t \SOH(\tR\brawTxHex\DC2\DC4\n\ \\ENQlabel\CAN\n\ \ \SOH(\tR\ENQlabel" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let txHash__field_descriptor = Data.ProtoLens.FieldDescriptor "tx_hash" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"txHash")) :: Data.ProtoLens.FieldDescriptor Transaction amount__field_descriptor = Data.ProtoLens.FieldDescriptor "amount" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"amount")) :: Data.ProtoLens.FieldDescriptor Transaction numConfirmations__field_descriptor = Data.ProtoLens.FieldDescriptor "num_confirmations" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"numConfirmations")) :: Data.ProtoLens.FieldDescriptor Transaction blockHash__field_descriptor = Data.ProtoLens.FieldDescriptor "block_hash" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"blockHash")) :: Data.ProtoLens.FieldDescriptor Transaction blockHeight__field_descriptor = Data.ProtoLens.FieldDescriptor "block_height" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"blockHeight")) :: Data.ProtoLens.FieldDescriptor Transaction timeStamp__field_descriptor = Data.ProtoLens.FieldDescriptor "time_stamp" (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 Transaction totalFees__field_descriptor = Data.ProtoLens.FieldDescriptor "total_fees" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"totalFees")) :: Data.ProtoLens.FieldDescriptor Transaction destAddresses__field_descriptor = Data.ProtoLens.FieldDescriptor "dest_addresses" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"destAddresses")) :: Data.ProtoLens.FieldDescriptor Transaction rawTxHex__field_descriptor = Data.ProtoLens.FieldDescriptor "raw_tx_hex" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"rawTxHex")) :: Data.ProtoLens.FieldDescriptor Transaction label__field_descriptor = Data.ProtoLens.FieldDescriptor "label" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"label")) :: Data.ProtoLens.FieldDescriptor Transaction in Data.Map.fromList [(Data.ProtoLens.Tag 1, txHash__field_descriptor), (Data.ProtoLens.Tag 2, amount__field_descriptor), (Data.ProtoLens.Tag 3, numConfirmations__field_descriptor), (Data.ProtoLens.Tag 4, blockHash__field_descriptor), (Data.ProtoLens.Tag 5, blockHeight__field_descriptor), (Data.ProtoLens.Tag 6, timeStamp__field_descriptor), (Data.ProtoLens.Tag 7, totalFees__field_descriptor), (Data.ProtoLens.Tag 8, destAddresses__field_descriptor), (Data.ProtoLens.Tag 9, rawTxHex__field_descriptor), (Data.ProtoLens.Tag 10, label__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Transaction'_unknownFields (\ x__ y__ -> x__ {_Transaction'_unknownFields = y__}) defMessage = Transaction'_constructor {_Transaction'txHash = Data.ProtoLens.fieldDefault, _Transaction'amount = Data.ProtoLens.fieldDefault, _Transaction'numConfirmations = Data.ProtoLens.fieldDefault, _Transaction'blockHash = Data.ProtoLens.fieldDefault, _Transaction'blockHeight = Data.ProtoLens.fieldDefault, _Transaction'timeStamp = Data.ProtoLens.fieldDefault, _Transaction'totalFees = Data.ProtoLens.fieldDefault, _Transaction'destAddresses = Data.Vector.Generic.empty, _Transaction'rawTxHex = Data.ProtoLens.fieldDefault, _Transaction'label = Data.ProtoLens.fieldDefault, _Transaction'_unknownFields = []} parseMessage = let loop :: Transaction -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text -> Data.ProtoLens.Encoding.Bytes.Parser Transaction loop x mutable'destAddresses = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'destAddresses <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'destAddresses) (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'destAddresses") frozen'destAddresses 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)) "tx_hash" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"txHash") y x) mutable'destAddresses 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "amount" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"amount") y x) mutable'destAddresses 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "num_confirmations" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"numConfirmations") y x) mutable'destAddresses 34 -> 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)) "block_hash" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"blockHash") y x) mutable'destAddresses 40 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "block_height" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"blockHeight") y x) mutable'destAddresses 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "time_stamp" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"timeStamp") y x) mutable'destAddresses 56 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "total_fees" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"totalFees") y x) mutable'destAddresses 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)) "dest_addresses" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'destAddresses y) loop x v 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)) "raw_tx_hex" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"rawTxHex") y x) mutable'destAddresses 82 -> 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)) "label" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"label") y x) mutable'destAddresses wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'destAddresses in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'destAddresses <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'destAddresses) "Transaction" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"txHash") _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 @"amount") _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 @"numConfirmations") _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 @"blockHash") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (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.Text.Encoding.encodeUtf8 _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"blockHeight") _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 @"timeStamp") _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 @"totalFees") _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.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (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)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'destAddresses") _x)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"rawTxHex") _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 @"label") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (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.Text.Encoding.encodeUtf8 _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))))))) instance Control.DeepSeq.NFData Transaction where rnf = \ x__ -> Control.DeepSeq.deepseq (_Transaction'_unknownFields x__) (Control.DeepSeq.deepseq (_Transaction'txHash x__) (Control.DeepSeq.deepseq (_Transaction'amount x__) (Control.DeepSeq.deepseq (_Transaction'numConfirmations x__) (Control.DeepSeq.deepseq (_Transaction'blockHash x__) (Control.DeepSeq.deepseq (_Transaction'blockHeight x__) (Control.DeepSeq.deepseq (_Transaction'timeStamp x__) (Control.DeepSeq.deepseq (_Transaction'totalFees x__) (Control.DeepSeq.deepseq (_Transaction'destAddresses x__) (Control.DeepSeq.deepseq (_Transaction'rawTxHex x__) (Control.DeepSeq.deepseq (_Transaction'label x__) ())))))))))) {- | Fields : * 'Proto.LndGrpc_Fields.transactions' @:: Lens' TransactionDetails [Transaction]@ * 'Proto.LndGrpc_Fields.vec'transactions' @:: Lens' TransactionDetails (Data.Vector.Vector Transaction)@ -} data TransactionDetails = TransactionDetails'_constructor {_TransactionDetails'transactions :: !(Data.Vector.Vector Transaction), _TransactionDetails'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show TransactionDetails where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField TransactionDetails "transactions" [Transaction] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _TransactionDetails'transactions (\ x__ y__ -> x__ {_TransactionDetails'transactions = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField TransactionDetails "vec'transactions" (Data.Vector.Vector Transaction) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _TransactionDetails'transactions (\ x__ y__ -> x__ {_TransactionDetails'transactions = y__})) Prelude.id instance Data.ProtoLens.Message TransactionDetails where messageName _ = Data.Text.pack "lnrpc.TransactionDetails" packedMessageDescriptor _ = "\n\ \\DC2TransactionDetails\DC26\n\ \\ftransactions\CAN\SOH \ETX(\v2\DC2.lnrpc.TransactionR\ftransactions" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let transactions__field_descriptor = Data.ProtoLens.FieldDescriptor "transactions" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Transaction) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"transactions")) :: Data.ProtoLens.FieldDescriptor TransactionDetails in Data.Map.fromList [(Data.ProtoLens.Tag 1, transactions__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _TransactionDetails'_unknownFields (\ x__ y__ -> x__ {_TransactionDetails'_unknownFields = y__}) defMessage = TransactionDetails'_constructor {_TransactionDetails'transactions = Data.Vector.Generic.empty, _TransactionDetails'_unknownFields = []} parseMessage = let loop :: TransactionDetails -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Transaction -> Data.ProtoLens.Encoding.Bytes.Parser TransactionDetails loop x mutable'transactions = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'transactions <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'transactions) (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'transactions") frozen'transactions 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) "transactions" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'transactions 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'transactions in (Data.ProtoLens.Encoding.Bytes.>) (do mutable'transactions <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'transactions) "TransactionDetails" 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'transactions") _x)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData TransactionDetails where rnf = \ x__ -> Control.DeepSeq.deepseq (_TransactionDetails'_unknownFields x__) (Control.DeepSeq.deepseq (_TransactionDetails'transactions x__) ()) {- | Fields : * 'Proto.LndGrpc_Fields.addressType' @:: Lens' Utxo AddressType@ * 'Proto.LndGrpc_Fields.address' @:: Lens' Utxo Data.Text.Text@ * 'Proto.LndGrpc_Fields.amountSat' @:: Lens' Utxo Data.Int.Int64@ * 'Proto.LndGrpc_Fields.pkScript' @:: Lens' Utxo Data.Text.Text@ * 'Proto.LndGrpc_Fields.outpoint' @:: Lens' Utxo OutPoint@ * 'Proto.LndGrpc_Fields.maybe'outpoint' @:: Lens' Utxo (Prelude.Maybe OutPoint)@ * 'Proto.LndGrpc_Fields.confirmations' @:: Lens' Utxo Data.Int.Int64@ -} data Utxo = Utxo'_constructor {_Utxo'addressType :: !AddressType, _Utxo'address :: !Data.Text.Text, _Utxo'amountSat :: !Data.Int.Int64, _Utxo'pkScript :: !Data.Text.Text, _Utxo'outpoint :: !(Prelude.Maybe OutPoint), _Utxo'confirmations :: !Data.Int.Int64, _Utxo'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show Utxo where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField Utxo "addressType" AddressType where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Utxo'addressType (\ x__ y__ -> x__ {_Utxo'addressType = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Utxo "address" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Utxo'address (\ x__ y__ -> x__ {_Utxo'address = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Utxo "amountSat" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Utxo'amountSat (\ x__ y__ -> x__ {_Utxo'amountSat = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Utxo "pkScript" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Utxo'pkScript (\ x__ y__ -> x__ {_Utxo'pkScript = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Utxo "outpoint" OutPoint where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Utxo'outpoint (\ x__ y__ -> x__ {_Utxo'outpoint = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField Utxo "maybe'outpoint" (Prelude.Maybe OutPoint) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Utxo'outpoint (\ x__ y__ -> x__ {_Utxo'outpoint = y__})) Prelude.id instance Data.ProtoLens.Field.HasField Utxo "confirmations" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _Utxo'confirmations (\ x__ y__ -> x__ {_Utxo'confirmations = y__})) Prelude.id instance Data.ProtoLens.Message Utxo where messageName _ = Data.Text.pack "lnrpc.Utxo" packedMessageDescriptor _ = "\n\ \\EOTUtxo\DC25\n\ \\faddress_type\CAN\SOH \SOH(\SO2\DC2.lnrpc.AddressTypeR\vaddressType\DC2\CAN\n\ \\aaddress\CAN\STX \SOH(\tR\aaddress\DC2\GS\n\ \\n\ \amount_sat\CAN\ETX \SOH(\ETXR\tamountSat\DC2\ESC\n\ \\tpk_script\CAN\EOT \SOH(\tR\bpkScript\DC2+\n\ \\boutpoint\CAN\ENQ \SOH(\v2\SI.lnrpc.OutPointR\boutpoint\DC2$\n\ \\rconfirmations\CAN\ACK \SOH(\ETXR\rconfirmations" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let addressType__field_descriptor = Data.ProtoLens.FieldDescriptor "address_type" (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor AddressType) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"addressType")) :: Data.ProtoLens.FieldDescriptor Utxo address__field_descriptor = Data.ProtoLens.FieldDescriptor "address" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"address")) :: Data.ProtoLens.FieldDescriptor Utxo amountSat__field_descriptor = Data.ProtoLens.FieldDescriptor "amount_sat" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"amountSat")) :: Data.ProtoLens.FieldDescriptor Utxo pkScript__field_descriptor = Data.ProtoLens.FieldDescriptor "pk_script" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pkScript")) :: Data.ProtoLens.FieldDescriptor Utxo outpoint__field_descriptor = Data.ProtoLens.FieldDescriptor "outpoint" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor OutPoint) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'outpoint")) :: Data.ProtoLens.FieldDescriptor Utxo confirmations__field_descriptor = Data.ProtoLens.FieldDescriptor "confirmations" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"confirmations")) :: Data.ProtoLens.FieldDescriptor Utxo in Data.Map.fromList [(Data.ProtoLens.Tag 1, addressType__field_descriptor), (Data.ProtoLens.Tag 2, address__field_descriptor), (Data.ProtoLens.Tag 3, amountSat__field_descriptor), (Data.ProtoLens.Tag 4, pkScript__field_descriptor), (Data.ProtoLens.Tag 5, outpoint__field_descriptor), (Data.ProtoLens.Tag 6, confirmations__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Utxo'_unknownFields (\ x__ y__ -> x__ {_Utxo'_unknownFields = y__}) defMessage = Utxo'_constructor {_Utxo'addressType = Data.ProtoLens.fieldDefault, _Utxo'address = Data.ProtoLens.fieldDefault, _Utxo'amountSat = Data.ProtoLens.fieldDefault, _Utxo'pkScript = Data.ProtoLens.fieldDefault, _Utxo'outpoint = Prelude.Nothing, _Utxo'confirmations = Data.ProtoLens.fieldDefault, _Utxo'_unknownFields = []} parseMessage = let loop :: Utxo -> Data.ProtoLens.Encoding.Bytes.Parser Utxo 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)) "address_type" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"addressType") 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)) "address" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"address") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "amount_sat" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"amountSat") y x) 34 -> 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)) "pk_script" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pkScript") 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) "outpoint" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"outpoint") y x) 48 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "confirmations" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"confirmations") 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) "Utxo" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"addressType") _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 @"address") _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 @"amountSat") _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 @"pkScript") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (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.Text.Encoding.encodeUtf8 _v)) ((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 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 @"confirmations") _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.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))) instance Control.DeepSeq.NFData Utxo where rnf = \ x__ -> Control.DeepSeq.deepseq (_Utxo'_unknownFields x__) (Control.DeepSeq.deepseq (_Utxo'addressType x__) (Control.DeepSeq.deepseq (_Utxo'address x__) (Control.DeepSeq.deepseq (_Utxo'amountSat x__) (Control.DeepSeq.deepseq (_Utxo'pkScript x__) (Control.DeepSeq.deepseq (_Utxo'outpoint x__) (Control.DeepSeq.deepseq (_Utxo'confirmations x__) ())))))) {- | Fields : -} data VerifyChanBackupResponse = VerifyChanBackupResponse'_constructor {_VerifyChanBackupResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show VerifyChanBackupResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) 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__) () {- | Fields : * 'Proto.LndGrpc_Fields.msg' @:: Lens' VerifyMessageRequest Data.ByteString.ByteString@ * 'Proto.LndGrpc_Fields.signature' @:: Lens' VerifyMessageRequest Data.Text.Text@ -} data VerifyMessageRequest = VerifyMessageRequest'_constructor {_VerifyMessageRequest'msg :: !Data.ByteString.ByteString, _VerifyMessageRequest'signature :: !Data.Text.Text, _VerifyMessageRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show VerifyMessageRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField VerifyMessageRequest "msg" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _VerifyMessageRequest'msg (\ x__ y__ -> x__ {_VerifyMessageRequest'msg = y__})) Prelude.id instance Data.ProtoLens.Field.HasField VerifyMessageRequest "signature" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _VerifyMessageRequest'signature (\ x__ y__ -> x__ {_VerifyMessageRequest'signature = y__})) Prelude.id instance Data.ProtoLens.Message VerifyMessageRequest where messageName _ = Data.Text.pack "lnrpc.VerifyMessageRequest" packedMessageDescriptor _ = "\n\ \\DC4VerifyMessageRequest\DC2\DLE\n\ \\ETXmsg\CAN\SOH \SOH(\fR\ETXmsg\DC2\FS\n\ \\tsignature\CAN\STX \SOH(\tR\tsignature" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let msg__field_descriptor = Data.ProtoLens.FieldDescriptor "msg" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"msg")) :: Data.ProtoLens.FieldDescriptor VerifyMessageRequest signature__field_descriptor = Data.ProtoLens.FieldDescriptor "signature" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"signature")) :: Data.ProtoLens.FieldDescriptor VerifyMessageRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, msg__field_descriptor), (Data.ProtoLens.Tag 2, signature__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _VerifyMessageRequest'_unknownFields (\ x__ y__ -> x__ {_VerifyMessageRequest'_unknownFields = y__}) defMessage = VerifyMessageRequest'_constructor {_VerifyMessageRequest'msg = Data.ProtoLens.fieldDefault, _VerifyMessageRequest'signature = Data.ProtoLens.fieldDefault, _VerifyMessageRequest'_unknownFields = []} parseMessage = let loop :: VerifyMessageRequest -> Data.ProtoLens.Encoding.Bytes.Parser VerifyMessageRequest 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)) "msg" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"msg") 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)) "signature" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"signature") 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) "VerifyMessageRequest" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"msg") _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 @"signature") _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 VerifyMessageRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_VerifyMessageRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_VerifyMessageRequest'msg x__) (Control.DeepSeq.deepseq (_VerifyMessageRequest'signature x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.valid' @:: Lens' VerifyMessageResponse Prelude.Bool@ * 'Proto.LndGrpc_Fields.pubkey' @:: Lens' VerifyMessageResponse Data.Text.Text@ -} data VerifyMessageResponse = VerifyMessageResponse'_constructor {_VerifyMessageResponse'valid :: !Prelude.Bool, _VerifyMessageResponse'pubkey :: !Data.Text.Text, _VerifyMessageResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show VerifyMessageResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField VerifyMessageResponse "valid" Prelude.Bool where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _VerifyMessageResponse'valid (\ x__ y__ -> x__ {_VerifyMessageResponse'valid = y__})) Prelude.id instance Data.ProtoLens.Field.HasField VerifyMessageResponse "pubkey" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _VerifyMessageResponse'pubkey (\ x__ y__ -> x__ {_VerifyMessageResponse'pubkey = y__})) Prelude.id instance Data.ProtoLens.Message VerifyMessageResponse where messageName _ = Data.Text.pack "lnrpc.VerifyMessageResponse" packedMessageDescriptor _ = "\n\ \\NAKVerifyMessageResponse\DC2\DC4\n\ \\ENQvalid\CAN\SOH \SOH(\bR\ENQvalid\DC2\SYN\n\ \\ACKpubkey\CAN\STX \SOH(\tR\ACKpubkey" 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 VerifyMessageResponse pubkey__field_descriptor = Data.ProtoLens.FieldDescriptor "pubkey" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pubkey")) :: Data.ProtoLens.FieldDescriptor VerifyMessageResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, valid__field_descriptor), (Data.ProtoLens.Tag 2, pubkey__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _VerifyMessageResponse'_unknownFields (\ x__ y__ -> x__ {_VerifyMessageResponse'_unknownFields = y__}) defMessage = VerifyMessageResponse'_constructor {_VerifyMessageResponse'valid = Data.ProtoLens.fieldDefault, _VerifyMessageResponse'pubkey = Data.ProtoLens.fieldDefault, _VerifyMessageResponse'_unknownFields = []} parseMessage = let loop :: VerifyMessageResponse -> Data.ProtoLens.Encoding.Bytes.Parser VerifyMessageResponse 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) 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)) "pubkey" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"pubkey") 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) "VerifyMessageResponse" 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.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"pubkey") _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 VerifyMessageResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_VerifyMessageResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_VerifyMessageResponse'valid x__) (Control.DeepSeq.deepseq (_VerifyMessageResponse'pubkey x__) ())) {- | Fields : * 'Proto.LndGrpc_Fields.confirmedBalance' @:: Lens' WalletAccountBalance Data.Int.Int64@ * 'Proto.LndGrpc_Fields.unconfirmedBalance' @:: Lens' WalletAccountBalance Data.Int.Int64@ -} data WalletAccountBalance = WalletAccountBalance'_constructor {_WalletAccountBalance'confirmedBalance :: !Data.Int.Int64, _WalletAccountBalance'unconfirmedBalance :: !Data.Int.Int64, _WalletAccountBalance'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show WalletAccountBalance where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField WalletAccountBalance "confirmedBalance" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _WalletAccountBalance'confirmedBalance (\ x__ y__ -> x__ {_WalletAccountBalance'confirmedBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField WalletAccountBalance "unconfirmedBalance" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _WalletAccountBalance'unconfirmedBalance (\ x__ y__ -> x__ {_WalletAccountBalance'unconfirmedBalance = y__})) Prelude.id instance Data.ProtoLens.Message WalletAccountBalance where messageName _ = Data.Text.pack "lnrpc.WalletAccountBalance" packedMessageDescriptor _ = "\n\ \\DC4WalletAccountBalance\DC2+\n\ \\DC1confirmed_balance\CAN\SOH \SOH(\ETXR\DLEconfirmedBalance\DC2/\n\ \\DC3unconfirmed_balance\CAN\STX \SOH(\ETXR\DC2unconfirmedBalance" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let confirmedBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "confirmed_balance" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"confirmedBalance")) :: Data.ProtoLens.FieldDescriptor WalletAccountBalance unconfirmedBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "unconfirmed_balance" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"unconfirmedBalance")) :: Data.ProtoLens.FieldDescriptor WalletAccountBalance in Data.Map.fromList [(Data.ProtoLens.Tag 1, confirmedBalance__field_descriptor), (Data.ProtoLens.Tag 2, unconfirmedBalance__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _WalletAccountBalance'_unknownFields (\ x__ y__ -> x__ {_WalletAccountBalance'_unknownFields = y__}) defMessage = WalletAccountBalance'_constructor {_WalletAccountBalance'confirmedBalance = Data.ProtoLens.fieldDefault, _WalletAccountBalance'unconfirmedBalance = Data.ProtoLens.fieldDefault, _WalletAccountBalance'_unknownFields = []} parseMessage = let loop :: WalletAccountBalance -> Data.ProtoLens.Encoding.Bytes.Parser WalletAccountBalance 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) "confirmed_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"confirmedBalance") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "unconfirmed_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"unconfirmedBalance") 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) "WalletAccountBalance" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"confirmedBalance") _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.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"unconfirmedBalance") _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 WalletAccountBalance where rnf = \ x__ -> Control.DeepSeq.deepseq (_WalletAccountBalance'_unknownFields x__) (Control.DeepSeq.deepseq (_WalletAccountBalance'confirmedBalance x__) (Control.DeepSeq.deepseq (_WalletAccountBalance'unconfirmedBalance x__) ())) {- | Fields : -} data WalletBalanceRequest = WalletBalanceRequest'_constructor {_WalletBalanceRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show WalletBalanceRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Message WalletBalanceRequest where messageName _ = Data.Text.pack "lnrpc.WalletBalanceRequest" packedMessageDescriptor _ = "\n\ \\DC4WalletBalanceRequest" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let in Data.Map.fromList [] unknownFields = Lens.Family2.Unchecked.lens _WalletBalanceRequest'_unknownFields (\ x__ y__ -> x__ {_WalletBalanceRequest'_unknownFields = y__}) defMessage = WalletBalanceRequest'_constructor {_WalletBalanceRequest'_unknownFields = []} parseMessage = let loop :: WalletBalanceRequest -> Data.ProtoLens.Encoding.Bytes.Parser WalletBalanceRequest 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) "WalletBalanceRequest" buildMessage = \ _x -> Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x) instance Control.DeepSeq.NFData WalletBalanceRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_WalletBalanceRequest'_unknownFields x__) () {- | Fields : * 'Proto.LndGrpc_Fields.totalBalance' @:: Lens' WalletBalanceResponse Data.Int.Int64@ * 'Proto.LndGrpc_Fields.confirmedBalance' @:: Lens' WalletBalanceResponse Data.Int.Int64@ * 'Proto.LndGrpc_Fields.unconfirmedBalance' @:: Lens' WalletBalanceResponse Data.Int.Int64@ * 'Proto.LndGrpc_Fields.accountBalance' @:: Lens' WalletBalanceResponse (Data.Map.Map Data.Text.Text WalletAccountBalance)@ -} data WalletBalanceResponse = WalletBalanceResponse'_constructor {_WalletBalanceResponse'totalBalance :: !Data.Int.Int64, _WalletBalanceResponse'confirmedBalance :: !Data.Int.Int64, _WalletBalanceResponse'unconfirmedBalance :: !Data.Int.Int64, _WalletBalanceResponse'accountBalance :: !(Data.Map.Map Data.Text.Text WalletAccountBalance), _WalletBalanceResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show WalletBalanceResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField WalletBalanceResponse "totalBalance" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _WalletBalanceResponse'totalBalance (\ x__ y__ -> x__ {_WalletBalanceResponse'totalBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField WalletBalanceResponse "confirmedBalance" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _WalletBalanceResponse'confirmedBalance (\ x__ y__ -> x__ {_WalletBalanceResponse'confirmedBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField WalletBalanceResponse "unconfirmedBalance" Data.Int.Int64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _WalletBalanceResponse'unconfirmedBalance (\ x__ y__ -> x__ {_WalletBalanceResponse'unconfirmedBalance = y__})) Prelude.id instance Data.ProtoLens.Field.HasField WalletBalanceResponse "accountBalance" (Data.Map.Map Data.Text.Text WalletAccountBalance) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _WalletBalanceResponse'accountBalance (\ x__ y__ -> x__ {_WalletBalanceResponse'accountBalance = y__})) Prelude.id instance Data.ProtoLens.Message WalletBalanceResponse where messageName _ = Data.Text.pack "lnrpc.WalletBalanceResponse" packedMessageDescriptor _ = "\n\ \\NAKWalletBalanceResponse\DC2#\n\ \\rtotal_balance\CAN\SOH \SOH(\ETXR\ftotalBalance\DC2+\n\ \\DC1confirmed_balance\CAN\STX \SOH(\ETXR\DLEconfirmedBalance\DC2/\n\ \\DC3unconfirmed_balance\CAN\ETX \SOH(\ETXR\DC2unconfirmedBalance\DC2Y\n\ \\SIaccount_balance\CAN\EOT \ETX(\v20.lnrpc.WalletBalanceResponse.AccountBalanceEntryR\SOaccountBalance\SUB^\n\ \\DC3AccountBalanceEntry\DC2\DLE\n\ \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC21\n\ \\ENQvalue\CAN\STX \SOH(\v2\ESC.lnrpc.WalletAccountBalanceR\ENQvalue:\STX8\SOH" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let totalBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "total_balance" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"totalBalance")) :: Data.ProtoLens.FieldDescriptor WalletBalanceResponse confirmedBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "confirmed_balance" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"confirmedBalance")) :: Data.ProtoLens.FieldDescriptor WalletBalanceResponse unconfirmedBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "unconfirmed_balance" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"unconfirmedBalance")) :: Data.ProtoLens.FieldDescriptor WalletBalanceResponse accountBalance__field_descriptor = Data.ProtoLens.FieldDescriptor "account_balance" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor WalletBalanceResponse'AccountBalanceEntry) (Data.ProtoLens.MapField (Data.ProtoLens.Field.field @"key") (Data.ProtoLens.Field.field @"value") (Data.ProtoLens.Field.field @"accountBalance")) :: Data.ProtoLens.FieldDescriptor WalletBalanceResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, totalBalance__field_descriptor), (Data.ProtoLens.Tag 2, confirmedBalance__field_descriptor), (Data.ProtoLens.Tag 3, unconfirmedBalance__field_descriptor), (Data.ProtoLens.Tag 4, accountBalance__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _WalletBalanceResponse'_unknownFields (\ x__ y__ -> x__ {_WalletBalanceResponse'_unknownFields = y__}) defMessage = WalletBalanceResponse'_constructor {_WalletBalanceResponse'totalBalance = Data.ProtoLens.fieldDefault, _WalletBalanceResponse'confirmedBalance = Data.ProtoLens.fieldDefault, _WalletBalanceResponse'unconfirmedBalance = Data.ProtoLens.fieldDefault, _WalletBalanceResponse'accountBalance = Data.Map.empty, _WalletBalanceResponse'_unknownFields = []} parseMessage = let loop :: WalletBalanceResponse -> Data.ProtoLens.Encoding.Bytes.Parser WalletBalanceResponse 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) "total_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"totalBalance") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "confirmed_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"confirmedBalance") y x) 24 -> do y <- (Data.ProtoLens.Encoding.Bytes.>) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "unconfirmed_balance" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"unconfirmedBalance") y x) 34 -> do !(entry :: WalletBalanceResponse'AccountBalanceEntry) <- (Data.ProtoLens.Encoding.Bytes.>) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "account_balance" (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 @"accountBalance") (\ !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) "WalletBalanceResponse" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"totalBalance") _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.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"confirmedBalance") _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 @"unconfirmedBalance") _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.<>) (Data.Monoid.mconcat (Prelude.map (\ _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 (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 :: WalletBalanceResponse'AccountBalanceEntry))))) (Data.Map.toList (Lens.Family2.view (Data.ProtoLens.Field.field @"accountBalance") _x)))) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) instance Control.DeepSeq.NFData WalletBalanceResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_WalletBalanceResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_WalletBalanceResponse'totalBalance x__) (Control.DeepSeq.deepseq (_WalletBalanceResponse'confirmedBalance x__) (Control.DeepSeq.deepseq (_WalletBalanceResponse'unconfirmedBalance x__) (Control.DeepSeq.deepseq (_WalletBalanceResponse'accountBalance x__) ())))) {- | Fields : * 'Proto.LndGrpc_Fields.key' @:: Lens' WalletBalanceResponse'AccountBalanceEntry Data.Text.Text@ * 'Proto.LndGrpc_Fields.value' @:: Lens' WalletBalanceResponse'AccountBalanceEntry WalletAccountBalance@ * 'Proto.LndGrpc_Fields.maybe'value' @:: Lens' WalletBalanceResponse'AccountBalanceEntry (Prelude.Maybe WalletAccountBalance)@ -} data WalletBalanceResponse'AccountBalanceEntry = WalletBalanceResponse'AccountBalanceEntry'_constructor {_WalletBalanceResponse'AccountBalanceEntry'key :: !Data.Text.Text, _WalletBalanceResponse'AccountBalanceEntry'value :: !(Prelude.Maybe WalletAccountBalance), _WalletBalanceResponse'AccountBalanceEntry'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show WalletBalanceResponse'AccountBalanceEntry where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField WalletBalanceResponse'AccountBalanceEntry "key" Data.Text.Text where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _WalletBalanceResponse'AccountBalanceEntry'key (\ x__ y__ -> x__ {_WalletBalanceResponse'AccountBalanceEntry'key = y__})) Prelude.id instance Data.ProtoLens.Field.HasField WalletBalanceResponse'AccountBalanceEntry "value" WalletAccountBalance where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _WalletBalanceResponse'AccountBalanceEntry'value (\ x__ y__ -> x__ {_WalletBalanceResponse'AccountBalanceEntry'value = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField WalletBalanceResponse'AccountBalanceEntry "maybe'value" (Prelude.Maybe WalletAccountBalance) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _WalletBalanceResponse'AccountBalanceEntry'value (\ x__ y__ -> x__ {_WalletBalanceResponse'AccountBalanceEntry'value = y__})) Prelude.id instance Data.ProtoLens.Message WalletBalanceResponse'AccountBalanceEntry where messageName _ = Data.Text.pack "lnrpc.WalletBalanceResponse.AccountBalanceEntry" packedMessageDescriptor _ = "\n\ \\DC3AccountBalanceEntry\DC2\DLE\n\ \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC21\n\ \\ENQvalue\CAN\STX \SOH(\v2\ESC.lnrpc.WalletAccountBalanceR\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 WalletBalanceResponse'AccountBalanceEntry value__field_descriptor = Data.ProtoLens.FieldDescriptor "value" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor WalletAccountBalance) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'value")) :: Data.ProtoLens.FieldDescriptor WalletBalanceResponse'AccountBalanceEntry in Data.Map.fromList [(Data.ProtoLens.Tag 1, key__field_descriptor), (Data.ProtoLens.Tag 2, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _WalletBalanceResponse'AccountBalanceEntry'_unknownFields (\ x__ y__ -> x__ {_WalletBalanceResponse'AccountBalanceEntry'_unknownFields = y__}) defMessage = WalletBalanceResponse'AccountBalanceEntry'_constructor {_WalletBalanceResponse'AccountBalanceEntry'key = Data.ProtoLens.fieldDefault, _WalletBalanceResponse'AccountBalanceEntry'value = Prelude.Nothing, _WalletBalanceResponse'AccountBalanceEntry'_unknownFields = []} parseMessage = let loop :: WalletBalanceResponse'AccountBalanceEntry -> Data.ProtoLens.Encoding.Bytes.Parser WalletBalanceResponse'AccountBalanceEntry 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) "AccountBalanceEntry" 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 WalletBalanceResponse'AccountBalanceEntry where rnf = \ x__ -> Control.DeepSeq.deepseq (_WalletBalanceResponse'AccountBalanceEntry'_unknownFields x__) (Control.DeepSeq.deepseq (_WalletBalanceResponse'AccountBalanceEntry'key x__) (Control.DeepSeq.deepseq (_WalletBalanceResponse'AccountBalanceEntry'value x__) ())) data Lightning = Lightning {} instance Data.ProtoLens.Service.Types.Service Lightning where type ServiceName Lightning = "Lightning" type ServicePackage Lightning = "lnrpc" type ServiceMethods Lightning = '["abandonChannel", "addInvoice", "bakeMacaroon", "channelAcceptor", "channelBalance", "closeChannel", "closedChannels", "connectPeer", "debugLevel", "decodePayReq", "deleteAllPayments", "deleteMacaroonID", "describeGraph", "disconnectPeer", "estimateFee", "exportAllChannelBackups", "exportChannelBackup", "feeReport", "forwardingHistory", "fundingStateStep", "getChanInfo", "getInfo", "getNetworkInfo", "getNodeInfo", "getNodeMetrics", "getRecoveryInfo", "getTransactions", "listChannels", "listInvoices", "listMacaroonIDs", "listPayments", "listPeers", "listPermissions", "listUnspent", "lookupInvoice", "newAddress", "openChannel", "openChannelSync", "pendingChannels", "queryRoutes", "restoreChannelBackups", "sendCoins", "sendMany", "sendPayment", "sendPaymentSync", "sendToRoute", "sendToRouteSync", "signMessage", "stopDaemon", "subscribeChannelBackups", "subscribeChannelEvents", "subscribeChannelGraph", "subscribeInvoices", "subscribePeerEvents", "subscribeTransactions", "updateChannelPolicy", "verifyChanBackup", "verifyMessage", "walletBalance"] instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "walletBalance" where type MethodName Lightning "walletBalance" = "WalletBalance" type MethodInput Lightning "walletBalance" = WalletBalanceRequest type MethodOutput Lightning "walletBalance" = WalletBalanceResponse type MethodStreamingType Lightning "walletBalance" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "channelBalance" where type MethodName Lightning "channelBalance" = "ChannelBalance" type MethodInput Lightning "channelBalance" = ChannelBalanceRequest type MethodOutput Lightning "channelBalance" = ChannelBalanceResponse type MethodStreamingType Lightning "channelBalance" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "getTransactions" where type MethodName Lightning "getTransactions" = "GetTransactions" type MethodInput Lightning "getTransactions" = GetTransactionsRequest type MethodOutput Lightning "getTransactions" = TransactionDetails type MethodStreamingType Lightning "getTransactions" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "estimateFee" where type MethodName Lightning "estimateFee" = "EstimateFee" type MethodInput Lightning "estimateFee" = EstimateFeeRequest type MethodOutput Lightning "estimateFee" = EstimateFeeResponse type MethodStreamingType Lightning "estimateFee" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "sendCoins" where type MethodName Lightning "sendCoins" = "SendCoins" type MethodInput Lightning "sendCoins" = SendCoinsRequest type MethodOutput Lightning "sendCoins" = SendCoinsResponse type MethodStreamingType Lightning "sendCoins" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "listUnspent" where type MethodName Lightning "listUnspent" = "ListUnspent" type MethodInput Lightning "listUnspent" = ListUnspentRequest type MethodOutput Lightning "listUnspent" = ListUnspentResponse type MethodStreamingType Lightning "listUnspent" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "subscribeTransactions" where type MethodName Lightning "subscribeTransactions" = "SubscribeTransactions" type MethodInput Lightning "subscribeTransactions" = GetTransactionsRequest type MethodOutput Lightning "subscribeTransactions" = Transaction type MethodStreamingType Lightning "subscribeTransactions" = 'Data.ProtoLens.Service.Types.ServerStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "sendMany" where type MethodName Lightning "sendMany" = "SendMany" type MethodInput Lightning "sendMany" = SendManyRequest type MethodOutput Lightning "sendMany" = SendManyResponse type MethodStreamingType Lightning "sendMany" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "newAddress" where type MethodName Lightning "newAddress" = "NewAddress" type MethodInput Lightning "newAddress" = NewAddressRequest type MethodOutput Lightning "newAddress" = NewAddressResponse type MethodStreamingType Lightning "newAddress" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "signMessage" where type MethodName Lightning "signMessage" = "SignMessage" type MethodInput Lightning "signMessage" = SignMessageRequest type MethodOutput Lightning "signMessage" = SignMessageResponse type MethodStreamingType Lightning "signMessage" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "verifyMessage" where type MethodName Lightning "verifyMessage" = "VerifyMessage" type MethodInput Lightning "verifyMessage" = VerifyMessageRequest type MethodOutput Lightning "verifyMessage" = VerifyMessageResponse type MethodStreamingType Lightning "verifyMessage" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "connectPeer" where type MethodName Lightning "connectPeer" = "ConnectPeer" type MethodInput Lightning "connectPeer" = ConnectPeerRequest type MethodOutput Lightning "connectPeer" = ConnectPeerResponse type MethodStreamingType Lightning "connectPeer" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "disconnectPeer" where type MethodName Lightning "disconnectPeer" = "DisconnectPeer" type MethodInput Lightning "disconnectPeer" = DisconnectPeerRequest type MethodOutput Lightning "disconnectPeer" = DisconnectPeerResponse type MethodStreamingType Lightning "disconnectPeer" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "listPeers" where type MethodName Lightning "listPeers" = "ListPeers" type MethodInput Lightning "listPeers" = ListPeersRequest type MethodOutput Lightning "listPeers" = ListPeersResponse type MethodStreamingType Lightning "listPeers" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "subscribePeerEvents" where type MethodName Lightning "subscribePeerEvents" = "SubscribePeerEvents" type MethodInput Lightning "subscribePeerEvents" = PeerEventSubscription type MethodOutput Lightning "subscribePeerEvents" = PeerEvent type MethodStreamingType Lightning "subscribePeerEvents" = 'Data.ProtoLens.Service.Types.ServerStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "getInfo" where type MethodName Lightning "getInfo" = "GetInfo" type MethodInput Lightning "getInfo" = GetInfoRequest type MethodOutput Lightning "getInfo" = GetInfoResponse type MethodStreamingType Lightning "getInfo" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "getRecoveryInfo" where type MethodName Lightning "getRecoveryInfo" = "GetRecoveryInfo" type MethodInput Lightning "getRecoveryInfo" = GetRecoveryInfoRequest type MethodOutput Lightning "getRecoveryInfo" = GetRecoveryInfoResponse type MethodStreamingType Lightning "getRecoveryInfo" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "pendingChannels" where type MethodName Lightning "pendingChannels" = "PendingChannels" type MethodInput Lightning "pendingChannels" = PendingChannelsRequest type MethodOutput Lightning "pendingChannels" = PendingChannelsResponse type MethodStreamingType Lightning "pendingChannels" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "listChannels" where type MethodName Lightning "listChannels" = "ListChannels" type MethodInput Lightning "listChannels" = ListChannelsRequest type MethodOutput Lightning "listChannels" = ListChannelsResponse type MethodStreamingType Lightning "listChannels" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "subscribeChannelEvents" where type MethodName Lightning "subscribeChannelEvents" = "SubscribeChannelEvents" type MethodInput Lightning "subscribeChannelEvents" = ChannelEventSubscription type MethodOutput Lightning "subscribeChannelEvents" = ChannelEventUpdate type MethodStreamingType Lightning "subscribeChannelEvents" = 'Data.ProtoLens.Service.Types.ServerStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "closedChannels" where type MethodName Lightning "closedChannels" = "ClosedChannels" type MethodInput Lightning "closedChannels" = ClosedChannelsRequest type MethodOutput Lightning "closedChannels" = ClosedChannelsResponse type MethodStreamingType Lightning "closedChannels" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "openChannelSync" where type MethodName Lightning "openChannelSync" = "OpenChannelSync" type MethodInput Lightning "openChannelSync" = OpenChannelRequest type MethodOutput Lightning "openChannelSync" = ChannelPoint type MethodStreamingType Lightning "openChannelSync" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "openChannel" where type MethodName Lightning "openChannel" = "OpenChannel" type MethodInput Lightning "openChannel" = OpenChannelRequest type MethodOutput Lightning "openChannel" = OpenStatusUpdate type MethodStreamingType Lightning "openChannel" = 'Data.ProtoLens.Service.Types.ServerStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "fundingStateStep" where type MethodName Lightning "fundingStateStep" = "FundingStateStep" type MethodInput Lightning "fundingStateStep" = FundingTransitionMsg type MethodOutput Lightning "fundingStateStep" = FundingStateStepResp type MethodStreamingType Lightning "fundingStateStep" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "channelAcceptor" where type MethodName Lightning "channelAcceptor" = "ChannelAcceptor" type MethodInput Lightning "channelAcceptor" = ChannelAcceptResponse type MethodOutput Lightning "channelAcceptor" = ChannelAcceptRequest type MethodStreamingType Lightning "channelAcceptor" = 'Data.ProtoLens.Service.Types.BiDiStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "closeChannel" where type MethodName Lightning "closeChannel" = "CloseChannel" type MethodInput Lightning "closeChannel" = CloseChannelRequest type MethodOutput Lightning "closeChannel" = CloseStatusUpdate type MethodStreamingType Lightning "closeChannel" = 'Data.ProtoLens.Service.Types.ServerStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "abandonChannel" where type MethodName Lightning "abandonChannel" = "AbandonChannel" type MethodInput Lightning "abandonChannel" = AbandonChannelRequest type MethodOutput Lightning "abandonChannel" = AbandonChannelResponse type MethodStreamingType Lightning "abandonChannel" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "sendPayment" where type MethodName Lightning "sendPayment" = "SendPayment" type MethodInput Lightning "sendPayment" = SendRequest type MethodOutput Lightning "sendPayment" = SendResponse type MethodStreamingType Lightning "sendPayment" = 'Data.ProtoLens.Service.Types.BiDiStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "sendPaymentSync" where type MethodName Lightning "sendPaymentSync" = "SendPaymentSync" type MethodInput Lightning "sendPaymentSync" = SendRequest type MethodOutput Lightning "sendPaymentSync" = SendResponse type MethodStreamingType Lightning "sendPaymentSync" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "sendToRoute" where type MethodName Lightning "sendToRoute" = "SendToRoute" type MethodInput Lightning "sendToRoute" = SendToRouteRequest type MethodOutput Lightning "sendToRoute" = SendResponse type MethodStreamingType Lightning "sendToRoute" = 'Data.ProtoLens.Service.Types.BiDiStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "sendToRouteSync" where type MethodName Lightning "sendToRouteSync" = "SendToRouteSync" type MethodInput Lightning "sendToRouteSync" = SendToRouteRequest type MethodOutput Lightning "sendToRouteSync" = SendResponse type MethodStreamingType Lightning "sendToRouteSync" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "addInvoice" where type MethodName Lightning "addInvoice" = "AddInvoice" type MethodInput Lightning "addInvoice" = Invoice type MethodOutput Lightning "addInvoice" = AddInvoiceResponse type MethodStreamingType Lightning "addInvoice" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "listInvoices" where type MethodName Lightning "listInvoices" = "ListInvoices" type MethodInput Lightning "listInvoices" = ListInvoiceRequest type MethodOutput Lightning "listInvoices" = ListInvoiceResponse type MethodStreamingType Lightning "listInvoices" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "lookupInvoice" where type MethodName Lightning "lookupInvoice" = "LookupInvoice" type MethodInput Lightning "lookupInvoice" = PaymentHash type MethodOutput Lightning "lookupInvoice" = Invoice type MethodStreamingType Lightning "lookupInvoice" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "subscribeInvoices" where type MethodName Lightning "subscribeInvoices" = "SubscribeInvoices" type MethodInput Lightning "subscribeInvoices" = InvoiceSubscription type MethodOutput Lightning "subscribeInvoices" = Invoice type MethodStreamingType Lightning "subscribeInvoices" = 'Data.ProtoLens.Service.Types.ServerStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "decodePayReq" where type MethodName Lightning "decodePayReq" = "DecodePayReq" type MethodInput Lightning "decodePayReq" = PayReqString type MethodOutput Lightning "decodePayReq" = PayReq type MethodStreamingType Lightning "decodePayReq" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "listPayments" where type MethodName Lightning "listPayments" = "ListPayments" type MethodInput Lightning "listPayments" = ListPaymentsRequest type MethodOutput Lightning "listPayments" = ListPaymentsResponse type MethodStreamingType Lightning "listPayments" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "deleteAllPayments" where type MethodName Lightning "deleteAllPayments" = "DeleteAllPayments" type MethodInput Lightning "deleteAllPayments" = DeleteAllPaymentsRequest type MethodOutput Lightning "deleteAllPayments" = DeleteAllPaymentsResponse type MethodStreamingType Lightning "deleteAllPayments" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "describeGraph" where type MethodName Lightning "describeGraph" = "DescribeGraph" type MethodInput Lightning "describeGraph" = ChannelGraphRequest type MethodOutput Lightning "describeGraph" = ChannelGraph type MethodStreamingType Lightning "describeGraph" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "getNodeMetrics" where type MethodName Lightning "getNodeMetrics" = "GetNodeMetrics" type MethodInput Lightning "getNodeMetrics" = NodeMetricsRequest type MethodOutput Lightning "getNodeMetrics" = NodeMetricsResponse type MethodStreamingType Lightning "getNodeMetrics" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "getChanInfo" where type MethodName Lightning "getChanInfo" = "GetChanInfo" type MethodInput Lightning "getChanInfo" = ChanInfoRequest type MethodOutput Lightning "getChanInfo" = ChannelEdge type MethodStreamingType Lightning "getChanInfo" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "getNodeInfo" where type MethodName Lightning "getNodeInfo" = "GetNodeInfo" type MethodInput Lightning "getNodeInfo" = NodeInfoRequest type MethodOutput Lightning "getNodeInfo" = NodeInfo type MethodStreamingType Lightning "getNodeInfo" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "queryRoutes" where type MethodName Lightning "queryRoutes" = "QueryRoutes" type MethodInput Lightning "queryRoutes" = QueryRoutesRequest type MethodOutput Lightning "queryRoutes" = QueryRoutesResponse type MethodStreamingType Lightning "queryRoutes" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "getNetworkInfo" where type MethodName Lightning "getNetworkInfo" = "GetNetworkInfo" type MethodInput Lightning "getNetworkInfo" = NetworkInfoRequest type MethodOutput Lightning "getNetworkInfo" = NetworkInfo type MethodStreamingType Lightning "getNetworkInfo" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "stopDaemon" where type MethodName Lightning "stopDaemon" = "StopDaemon" type MethodInput Lightning "stopDaemon" = StopRequest type MethodOutput Lightning "stopDaemon" = StopResponse type MethodStreamingType Lightning "stopDaemon" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "subscribeChannelGraph" where type MethodName Lightning "subscribeChannelGraph" = "SubscribeChannelGraph" type MethodInput Lightning "subscribeChannelGraph" = GraphTopologySubscription type MethodOutput Lightning "subscribeChannelGraph" = GraphTopologyUpdate type MethodStreamingType Lightning "subscribeChannelGraph" = 'Data.ProtoLens.Service.Types.ServerStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "debugLevel" where type MethodName Lightning "debugLevel" = "DebugLevel" type MethodInput Lightning "debugLevel" = DebugLevelRequest type MethodOutput Lightning "debugLevel" = DebugLevelResponse type MethodStreamingType Lightning "debugLevel" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "feeReport" where type MethodName Lightning "feeReport" = "FeeReport" type MethodInput Lightning "feeReport" = FeeReportRequest type MethodOutput Lightning "feeReport" = FeeReportResponse type MethodStreamingType Lightning "feeReport" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "updateChannelPolicy" where type MethodName Lightning "updateChannelPolicy" = "UpdateChannelPolicy" type MethodInput Lightning "updateChannelPolicy" = PolicyUpdateRequest type MethodOutput Lightning "updateChannelPolicy" = PolicyUpdateResponse type MethodStreamingType Lightning "updateChannelPolicy" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "forwardingHistory" where type MethodName Lightning "forwardingHistory" = "ForwardingHistory" type MethodInput Lightning "forwardingHistory" = ForwardingHistoryRequest type MethodOutput Lightning "forwardingHistory" = ForwardingHistoryResponse type MethodStreamingType Lightning "forwardingHistory" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "exportChannelBackup" where type MethodName Lightning "exportChannelBackup" = "ExportChannelBackup" type MethodInput Lightning "exportChannelBackup" = ExportChannelBackupRequest type MethodOutput Lightning "exportChannelBackup" = ChannelBackup type MethodStreamingType Lightning "exportChannelBackup" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "exportAllChannelBackups" where type MethodName Lightning "exportAllChannelBackups" = "ExportAllChannelBackups" type MethodInput Lightning "exportAllChannelBackups" = ChanBackupExportRequest type MethodOutput Lightning "exportAllChannelBackups" = ChanBackupSnapshot type MethodStreamingType Lightning "exportAllChannelBackups" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "verifyChanBackup" where type MethodName Lightning "verifyChanBackup" = "VerifyChanBackup" type MethodInput Lightning "verifyChanBackup" = ChanBackupSnapshot type MethodOutput Lightning "verifyChanBackup" = VerifyChanBackupResponse type MethodStreamingType Lightning "verifyChanBackup" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "restoreChannelBackups" where type MethodName Lightning "restoreChannelBackups" = "RestoreChannelBackups" type MethodInput Lightning "restoreChannelBackups" = RestoreChanBackupRequest type MethodOutput Lightning "restoreChannelBackups" = RestoreBackupResponse type MethodStreamingType Lightning "restoreChannelBackups" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "subscribeChannelBackups" where type MethodName Lightning "subscribeChannelBackups" = "SubscribeChannelBackups" type MethodInput Lightning "subscribeChannelBackups" = ChannelBackupSubscription type MethodOutput Lightning "subscribeChannelBackups" = ChanBackupSnapshot type MethodStreamingType Lightning "subscribeChannelBackups" = 'Data.ProtoLens.Service.Types.ServerStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "bakeMacaroon" where type MethodName Lightning "bakeMacaroon" = "BakeMacaroon" type MethodInput Lightning "bakeMacaroon" = BakeMacaroonRequest type MethodOutput Lightning "bakeMacaroon" = BakeMacaroonResponse type MethodStreamingType Lightning "bakeMacaroon" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "listMacaroonIDs" where type MethodName Lightning "listMacaroonIDs" = "ListMacaroonIDs" type MethodInput Lightning "listMacaroonIDs" = ListMacaroonIDsRequest type MethodOutput Lightning "listMacaroonIDs" = ListMacaroonIDsResponse type MethodStreamingType Lightning "listMacaroonIDs" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "deleteMacaroonID" where type MethodName Lightning "deleteMacaroonID" = "DeleteMacaroonID" type MethodInput Lightning "deleteMacaroonID" = DeleteMacaroonIDRequest type MethodOutput Lightning "deleteMacaroonID" = DeleteMacaroonIDResponse type MethodStreamingType Lightning "deleteMacaroonID" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl Lightning "listPermissions" where type MethodName Lightning "listPermissions" = "ListPermissions" type MethodInput Lightning "listPermissions" = ListPermissionsRequest type MethodOutput Lightning "listPermissions" = ListPermissionsResponse type MethodStreamingType Lightning "listPermissions" = 'Data.ProtoLens.Service.Types.NonStreaming packedFileDescriptor :: Data.ByteString.ByteString packedFileDescriptor = "\n\ \\SOlnd_grpc.proto\DC2\ENQlnrpc\"\230\SOH\n\ \\EOTUtxo\DC25\n\ \\faddress_type\CAN\SOH \SOH(\SO2\DC2.lnrpc.AddressTypeR\vaddressType\DC2\CAN\n\ \\aaddress\CAN\STX \SOH(\tR\aaddress\DC2\GS\n\ \\n\ \amount_sat\CAN\ETX \SOH(\ETXR\tamountSat\DC2\ESC\n\ \\tpk_script\CAN\EOT \SOH(\tR\bpkScript\DC2+\n\ \\boutpoint\CAN\ENQ \SOH(\v2\SI.lnrpc.OutPointR\boutpoint\DC2$\n\ \\rconfirmations\CAN\ACK \SOH(\ETXR\rconfirmations\"\198\STX\n\ \\vTransaction\DC2\ETB\n\ \\atx_hash\CAN\SOH \SOH(\tR\ACKtxHash\DC2\SYN\n\ \\ACKamount\CAN\STX \SOH(\ETXR\ACKamount\DC2+\n\ \\DC1num_confirmations\CAN\ETX \SOH(\ENQR\DLEnumConfirmations\DC2\GS\n\ \\n\ \block_hash\CAN\EOT \SOH(\tR\tblockHash\DC2!\n\ \\fblock_height\CAN\ENQ \SOH(\ENQR\vblockHeight\DC2\GS\n\ \\n\ \time_stamp\CAN\ACK \SOH(\ETXR\ttimeStamp\DC2\GS\n\ \\n\ \total_fees\CAN\a \SOH(\ETXR\ttotalFees\DC2%\n\ \\SOdest_addresses\CAN\b \ETX(\tR\rdestAddresses\DC2\FS\n\ \\n\ \raw_tx_hex\CAN\t \SOH(\tR\brawTxHex\DC2\DC4\n\ \\ENQlabel\CAN\n\ \ \SOH(\tR\ENQlabel\"t\n\ \\SYNGetTransactionsRequest\DC2!\n\ \\fstart_height\CAN\SOH \SOH(\ENQR\vstartHeight\DC2\GS\n\ \\n\ \end_height\CAN\STX \SOH(\ENQR\tendHeight\DC2\CAN\n\ \\aaccount\CAN\ETX \SOH(\tR\aaccount\"L\n\ \\DC2TransactionDetails\DC26\n\ \\ftransactions\CAN\SOH \ETX(\v2\DC2.lnrpc.TransactionR\ftransactions\"h\n\ \\bFeeLimit\DC2\SYN\n\ \\ENQfixed\CAN\SOH \SOH(\ETXH\NULR\ENQfixed\DC2\US\n\ \\n\ \fixed_msat\CAN\ETX \SOH(\ETXH\NULR\tfixedMsat\DC2\SUB\n\ \\apercent\CAN\STX \SOH(\ETXH\NULR\apercentB\a\n\ \\ENQlimit\"\234\ENQ\n\ \\vSendRequest\DC2\DC2\n\ \\EOTdest\CAN\SOH \SOH(\fR\EOTdest\DC2#\n\ \\vdest_string\CAN\STX \SOH(\tR\n\ \destStringB\STX\CAN\SOH\DC2\DLE\n\ \\ETXamt\CAN\ETX \SOH(\ETXR\ETXamt\DC2\EM\n\ \\bamt_msat\CAN\f \SOH(\ETXR\aamtMsat\DC2!\n\ \\fpayment_hash\CAN\EOT \SOH(\fR\vpaymentHash\DC22\n\ \\DC3payment_hash_string\CAN\ENQ \SOH(\tR\DC1paymentHashStringB\STX\CAN\SOH\DC2'\n\ \\SIpayment_request\CAN\ACK \SOH(\tR\SOpaymentRequest\DC2(\n\ \\DLEfinal_cltv_delta\CAN\a \SOH(\ENQR\SOfinalCltvDelta\DC2,\n\ \\tfee_limit\CAN\b \SOH(\v2\SI.lnrpc.FeeLimitR\bfeeLimit\DC2,\n\ \\DLEoutgoing_chan_id\CAN\t \SOH(\EOTR\SOoutgoingChanIdB\STX0\SOH\DC2&\n\ \\SIlast_hop_pubkey\CAN\r \SOH(\fR\rlastHopPubkey\DC2\GS\n\ \\n\ \cltv_limit\CAN\n\ \ \SOH(\rR\tcltvLimit\DC2Y\n\ \\DC3dest_custom_records\CAN\v \ETX(\v2).lnrpc.SendRequest.DestCustomRecordsEntryR\DC1destCustomRecords\DC2,\n\ \\DC2allow_self_payment\CAN\SO \SOH(\bR\DLEallowSelfPayment\DC26\n\ \\rdest_features\CAN\SI \ETX(\SO2\DC1.lnrpc.FeatureBitR\fdestFeatures\DC2!\n\ \\fpayment_addr\CAN\DLE \SOH(\fR\vpaymentAddr\SUBD\n\ \\SYNDestCustomRecordsEntry\DC2\DLE\n\ \\ETXkey\CAN\SOH \SOH(\EOTR\ETXkey\DC2\DC4\n\ \\ENQvalue\CAN\STX \SOH(\fR\ENQvalue:\STX8\SOH\"\180\SOH\n\ \\fSendResponse\DC2#\n\ \\rpayment_error\CAN\SOH \SOH(\tR\fpaymentError\DC2)\n\ \\DLEpayment_preimage\CAN\STX \SOH(\fR\SIpaymentPreimage\DC21\n\ \\rpayment_route\CAN\ETX \SOH(\v2\f.lnrpc.RouteR\fpaymentRoute\DC2!\n\ \\fpayment_hash\CAN\EOT \SOH(\fR\vpaymentHash\"\149\SOH\n\ \\DC2SendToRouteRequest\DC2!\n\ \\fpayment_hash\CAN\SOH \SOH(\fR\vpaymentHash\DC22\n\ \\DC3payment_hash_string\CAN\STX \SOH(\tR\DC1paymentHashStringB\STX\CAN\SOH\DC2\"\n\ \\ENQroute\CAN\EOT \SOH(\v2\f.lnrpc.RouteR\ENQrouteJ\EOT\b\ETX\DLE\EOT\"\218\ETX\n\ \\DC4ChannelAcceptRequest\DC2\US\n\ \\vnode_pubkey\CAN\SOH \SOH(\fR\n\ \nodePubkey\DC2\GS\n\ \\n\ \chain_hash\CAN\STX \SOH(\fR\tchainHash\DC2&\n\ \\SIpending_chan_id\CAN\ETX \SOH(\fR\rpendingChanId\DC2\US\n\ \\vfunding_amt\CAN\EOT \SOH(\EOTR\n\ \fundingAmt\DC2\EM\n\ \\bpush_amt\CAN\ENQ \SOH(\EOTR\apushAmt\DC2\GS\n\ \\n\ \dust_limit\CAN\ACK \SOH(\EOTR\tdustLimit\DC2-\n\ \\DC3max_value_in_flight\CAN\a \SOH(\EOTR\DLEmaxValueInFlight\DC2'\n\ \\SIchannel_reserve\CAN\b \SOH(\EOTR\SOchannelReserve\DC2\EM\n\ \\bmin_htlc\CAN\t \SOH(\EOTR\aminHtlc\DC2\FS\n\ \\n\ \fee_per_kw\CAN\n\ \ \SOH(\EOTR\bfeePerKw\DC2\ESC\n\ \\tcsv_delay\CAN\v \SOH(\rR\bcsvDelay\DC2,\n\ \\DC2max_accepted_htlcs\CAN\f \SOH(\rR\DLEmaxAcceptedHtlcs\DC2#\n\ \\rchannel_flags\CAN\r \SOH(\rR\fchannelFlags\"\243\STX\n\ \\NAKChannelAcceptResponse\DC2\SYN\n\ \\ACKaccept\CAN\SOH \SOH(\bR\ACKaccept\DC2&\n\ \\SIpending_chan_id\CAN\STX \SOH(\fR\rpendingChanId\DC2\DC4\n\ \\ENQerror\CAN\ETX \SOH(\tR\ENQerror\DC2)\n\ \\DLEupfront_shutdown\CAN\EOT \SOH(\tR\SIupfrontShutdown\DC2\ESC\n\ \\tcsv_delay\CAN\ENQ \SOH(\rR\bcsvDelay\DC2\US\n\ \\vreserve_sat\CAN\ACK \SOH(\EOTR\n\ \reserveSat\DC2+\n\ \\DC2in_flight_max_msat\CAN\a \SOH(\EOTR\SIinFlightMaxMsat\DC2$\n\ \\SOmax_htlc_count\CAN\b \SOH(\rR\fmaxHtlcCount\DC2\RS\n\ \\vmin_htlc_in\CAN\t \SOH(\EOTR\tminHtlcIn\DC2(\n\ \\DLEmin_accept_depth\CAN\n\ \ \SOH(\rR\SOminAcceptDepth\"\157\SOH\n\ \\fChannelPoint\DC2.\n\ \\DC2funding_txid_bytes\CAN\SOH \SOH(\fH\NULR\DLEfundingTxidBytes\DC2*\n\ \\DLEfunding_txid_str\CAN\STX \SOH(\tH\NULR\SOfundingTxidStr\DC2!\n\ \\foutput_index\CAN\ETX \SOH(\rR\voutputIndexB\SO\n\ \\ffunding_txid\"g\n\ \\bOutPoint\DC2\GS\n\ \\n\ \txid_bytes\CAN\SOH \SOH(\fR\ttxidBytes\DC2\EM\n\ \\btxid_str\CAN\STX \SOH(\tR\atxidStr\DC2!\n\ \\foutput_index\CAN\ETX \SOH(\rR\voutputIndex\">\n\ \\DLELightningAddress\DC2\SYN\n\ \\ACKpubkey\CAN\SOH \SOH(\tR\ACKpubkey\DC2\DC2\n\ \\EOThost\CAN\STX \SOH(\tR\EOThost\"\145\STX\n\ \\DC2EstimateFeeRequest\DC2O\n\ \\fAddrToAmount\CAN\SOH \ETX(\v2+.lnrpc.EstimateFeeRequest.AddrToAmountEntryR\fAddrToAmount\DC2\US\n\ \\vtarget_conf\CAN\STX \SOH(\ENQR\n\ \targetConf\DC2\ESC\n\ \\tmin_confs\CAN\ETX \SOH(\ENQR\bminConfs\DC2+\n\ \\DC1spend_unconfirmed\CAN\EOT \SOH(\bR\DLEspendUnconfirmed\SUB?\n\ \\DC1AddrToAmountEntry\DC2\DLE\n\ \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ \\ENQvalue\CAN\STX \SOH(\ETXR\ENQvalue:\STX8\SOH\"\135\SOH\n\ \\DC3EstimateFeeResponse\DC2\ETB\n\ \\afee_sat\CAN\SOH \SOH(\ETXR\ACKfeeSat\DC23\n\ \\DC4feerate_sat_per_byte\CAN\STX \SOH(\ETXR\DC1feerateSatPerByteB\STX\CAN\SOH\DC2\"\n\ \\rsat_per_vbyte\CAN\ETX \SOH(\EOTR\vsatPerVbyte\"\235\STX\n\ \\SISendManyRequest\DC2L\n\ \\fAddrToAmount\CAN\SOH \ETX(\v2(.lnrpc.SendManyRequest.AddrToAmountEntryR\fAddrToAmount\DC2\US\n\ \\vtarget_conf\CAN\ETX \SOH(\ENQR\n\ \targetConf\DC2\"\n\ \\rsat_per_vbyte\CAN\EOT \SOH(\EOTR\vsatPerVbyte\DC2$\n\ \\fsat_per_byte\CAN\ENQ \SOH(\ETXR\n\ \satPerByteB\STX\CAN\SOH\DC2\DC4\n\ \\ENQlabel\CAN\ACK \SOH(\tR\ENQlabel\DC2\ESC\n\ \\tmin_confs\CAN\a \SOH(\ENQR\bminConfs\DC2+\n\ \\DC1spend_unconfirmed\CAN\b \SOH(\bR\DLEspendUnconfirmed\SUB?\n\ \\DC1AddrToAmountEntry\DC2\DLE\n\ \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ \\ENQvalue\CAN\STX \SOH(\ETXR\ENQvalue:\STX8\SOH\"&\n\ \\DLESendManyResponse\DC2\DC2\n\ \\EOTtxid\CAN\SOH \SOH(\tR\EOTtxid\"\164\STX\n\ \\DLESendCoinsRequest\DC2\DC2\n\ \\EOTaddr\CAN\SOH \SOH(\tR\EOTaddr\DC2\SYN\n\ \\ACKamount\CAN\STX \SOH(\ETXR\ACKamount\DC2\US\n\ \\vtarget_conf\CAN\ETX \SOH(\ENQR\n\ \targetConf\DC2\"\n\ \\rsat_per_vbyte\CAN\EOT \SOH(\EOTR\vsatPerVbyte\DC2$\n\ \\fsat_per_byte\CAN\ENQ \SOH(\ETXR\n\ \satPerByteB\STX\CAN\SOH\DC2\EM\n\ \\bsend_all\CAN\ACK \SOH(\bR\asendAll\DC2\DC4\n\ \\ENQlabel\CAN\a \SOH(\tR\ENQlabel\DC2\ESC\n\ \\tmin_confs\CAN\b \SOH(\ENQR\bminConfs\DC2+\n\ \\DC1spend_unconfirmed\CAN\t \SOH(\bR\DLEspendUnconfirmed\"'\n\ \\DC1SendCoinsResponse\DC2\DC2\n\ \\EOTtxid\CAN\SOH \SOH(\tR\EOTtxid\"h\n\ \\DC2ListUnspentRequest\DC2\ESC\n\ \\tmin_confs\CAN\SOH \SOH(\ENQR\bminConfs\DC2\ESC\n\ \\tmax_confs\CAN\STX \SOH(\ENQR\bmaxConfs\DC2\CAN\n\ \\aaccount\CAN\ETX \SOH(\tR\aaccount\"8\n\ \\DC3ListUnspentResponse\DC2!\n\ \\ENQutxos\CAN\SOH \ETX(\v2\v.lnrpc.UtxoR\ENQutxos\"U\n\ \\DC1NewAddressRequest\DC2&\n\ \\EOTtype\CAN\SOH \SOH(\SO2\DC2.lnrpc.AddressTypeR\EOTtype\DC2\CAN\n\ \\aaccount\CAN\STX \SOH(\tR\aaccount\".\n\ \\DC2NewAddressResponse\DC2\CAN\n\ \\aaddress\CAN\SOH \SOH(\tR\aaddress\"&\n\ \\DC2SignMessageRequest\DC2\DLE\n\ \\ETXmsg\CAN\SOH \SOH(\fR\ETXmsg\"3\n\ \\DC3SignMessageResponse\DC2\FS\n\ \\tsignature\CAN\SOH \SOH(\tR\tsignature\"F\n\ \\DC4VerifyMessageRequest\DC2\DLE\n\ \\ETXmsg\CAN\SOH \SOH(\fR\ETXmsg\DC2\FS\n\ \\tsignature\CAN\STX \SOH(\tR\tsignature\"E\n\ \\NAKVerifyMessageResponse\DC2\DC4\n\ \\ENQvalid\CAN\SOH \SOH(\bR\ENQvalid\DC2\SYN\n\ \\ACKpubkey\CAN\STX \SOH(\tR\ACKpubkey\"o\n\ \\DC2ConnectPeerRequest\DC2+\n\ \\EOTaddr\CAN\SOH \SOH(\v2\ETB.lnrpc.LightningAddressR\EOTaddr\DC2\DC2\n\ \\EOTperm\CAN\STX \SOH(\bR\EOTperm\DC2\CAN\n\ \\atimeout\CAN\ETX \SOH(\EOTR\atimeout\"\NAK\n\ \\DC3ConnectPeerResponse\"0\n\ \\NAKDisconnectPeerRequest\DC2\ETB\n\ \\apub_key\CAN\SOH \SOH(\tR\ACKpubKey\"\CAN\n\ \\SYNDisconnectPeerResponse\"\134\STX\n\ \\EOTHTLC\DC2\SUB\n\ \\bincoming\CAN\SOH \SOH(\bR\bincoming\DC2\SYN\n\ \\ACKamount\CAN\STX \SOH(\ETXR\ACKamount\DC2\ESC\n\ \\thash_lock\CAN\ETX \SOH(\fR\bhashLock\DC2+\n\ \\DC1expiration_height\CAN\EOT \SOH(\rR\DLEexpirationHeight\DC2\GS\n\ \\n\ \htlc_index\CAN\ENQ \SOH(\EOTR\thtlcIndex\DC2-\n\ \\DC2forwarding_channel\CAN\ACK \SOH(\EOTR\DC1forwardingChannel\DC22\n\ \\NAKforwarding_htlc_index\CAN\a \SOH(\EOTR\DC3forwardingHtlcIndex\"\132\STX\n\ \\DC2ChannelConstraints\DC2\ESC\n\ \\tcsv_delay\CAN\SOH \SOH(\rR\bcsvDelay\DC2(\n\ \\DLEchan_reserve_sat\CAN\STX \SOH(\EOTR\SOchanReserveSat\DC2$\n\ \\SOdust_limit_sat\CAN\ETX \SOH(\EOTR\fdustLimitSat\DC2/\n\ \\DC4max_pending_amt_msat\CAN\EOT \SOH(\EOTR\DC1maxPendingAmtMsat\DC2\"\n\ \\rmin_htlc_msat\CAN\ENQ \SOH(\EOTR\vminHtlcMsat\DC2,\n\ \\DC2max_accepted_htlcs\CAN\ACK \SOH(\rR\DLEmaxAcceptedHtlcs\"\215\t\n\ \\aChannel\DC2\SYN\n\ \\ACKactive\CAN\SOH \SOH(\bR\ACKactive\DC2#\n\ \\rremote_pubkey\CAN\STX \SOH(\tR\fremotePubkey\DC2#\n\ \\rchannel_point\CAN\ETX \SOH(\tR\fchannelPoint\DC2\ESC\n\ \\achan_id\CAN\EOT \SOH(\EOTR\ACKchanIdB\STX0\SOH\DC2\SUB\n\ \\bcapacity\CAN\ENQ \SOH(\ETXR\bcapacity\DC2#\n\ \\rlocal_balance\CAN\ACK \SOH(\ETXR\flocalBalance\DC2%\n\ \\SOremote_balance\CAN\a \SOH(\ETXR\rremoteBalance\DC2\GS\n\ \\n\ \commit_fee\CAN\b \SOH(\ETXR\tcommitFee\DC2#\n\ \\rcommit_weight\CAN\t \SOH(\ETXR\fcommitWeight\DC2\FS\n\ \\n\ \fee_per_kw\CAN\n\ \ \SOH(\ETXR\bfeePerKw\DC2+\n\ \\DC1unsettled_balance\CAN\v \SOH(\ETXR\DLEunsettledBalance\DC2.\n\ \\DC3total_satoshis_sent\CAN\f \SOH(\ETXR\DC1totalSatoshisSent\DC26\n\ \\ETBtotal_satoshis_received\CAN\r \SOH(\ETXR\NAKtotalSatoshisReceived\DC2\US\n\ \\vnum_updates\CAN\SO \SOH(\EOTR\n\ \numUpdates\DC20\n\ \\rpending_htlcs\CAN\SI \ETX(\v2\v.lnrpc.HTLCR\fpendingHtlcs\DC2\US\n\ \\tcsv_delay\CAN\DLE \SOH(\rR\bcsvDelayB\STX\CAN\SOH\DC2\CAN\n\ \\aprivate\CAN\DC1 \SOH(\bR\aprivate\DC2\FS\n\ \\tinitiator\CAN\DC2 \SOH(\bR\tinitiator\DC2*\n\ \\DC1chan_status_flags\CAN\DC3 \SOH(\tR\SIchanStatusFlags\DC27\n\ \\SYNlocal_chan_reserve_sat\CAN\DC4 \SOH(\ETXR\DC3localChanReserveSatB\STX\CAN\SOH\DC29\n\ \\ETBremote_chan_reserve_sat\CAN\NAK \SOH(\ETXR\DC4remoteChanReserveSatB\STX\CAN\SOH\DC2.\n\ \\DC1static_remote_key\CAN\SYN \SOH(\bR\SIstaticRemoteKeyB\STX\CAN\SOH\DC2>\n\ \\SIcommitment_type\CAN\SUB \SOH(\SO2\NAK.lnrpc.CommitmentTypeR\SOcommitmentType\DC2\SUB\n\ \\blifetime\CAN\ETB \SOH(\ETXR\blifetime\DC2\SYN\n\ \\ACKuptime\CAN\CAN \SOH(\ETXR\ACKuptime\DC2#\n\ \\rclose_address\CAN\EM \SOH(\tR\fcloseAddress\DC2&\n\ \\SIpush_amount_sat\CAN\ESC \SOH(\EOTR\rpushAmountSat\DC2\US\n\ \\vthaw_height\CAN\FS \SOH(\rR\n\ \thawHeight\DC2F\n\ \\DC1local_constraints\CAN\GS \SOH(\v2\EM.lnrpc.ChannelConstraintsR\DLElocalConstraints\DC2H\n\ \\DC2remote_constraints\CAN\RS \SOH(\v2\EM.lnrpc.ChannelConstraintsR\DC1remoteConstraints\"\179\SOH\n\ \\DC3ListChannelsRequest\DC2\US\n\ \\vactive_only\CAN\SOH \SOH(\bR\n\ \activeOnly\DC2#\n\ \\rinactive_only\CAN\STX \SOH(\bR\finactiveOnly\DC2\US\n\ \\vpublic_only\CAN\ETX \SOH(\bR\n\ \publicOnly\DC2!\n\ \\fprivate_only\CAN\EOT \SOH(\bR\vprivateOnly\DC2\DC2\n\ \\EOTpeer\CAN\ENQ \SOH(\fR\EOTpeer\"B\n\ \\DC4ListChannelsResponse\DC2*\n\ \\bchannels\CAN\v \ETX(\v2\SO.lnrpc.ChannelR\bchannels\"\216\ENQ\n\ \\DC3ChannelCloseSummary\DC2#\n\ \\rchannel_point\CAN\SOH \SOH(\tR\fchannelPoint\DC2\ESC\n\ \\achan_id\CAN\STX \SOH(\EOTR\ACKchanIdB\STX0\SOH\DC2\GS\n\ \\n\ \chain_hash\CAN\ETX \SOH(\tR\tchainHash\DC2&\n\ \\SIclosing_tx_hash\CAN\EOT \SOH(\tR\rclosingTxHash\DC2#\n\ \\rremote_pubkey\CAN\ENQ \SOH(\tR\fremotePubkey\DC2\SUB\n\ \\bcapacity\CAN\ACK \SOH(\ETXR\bcapacity\DC2!\n\ \\fclose_height\CAN\a \SOH(\rR\vcloseHeight\DC2'\n\ \\SIsettled_balance\CAN\b \SOH(\ETXR\SOsettledBalance\DC2.\n\ \\DC3time_locked_balance\CAN\t \SOH(\ETXR\DC1timeLockedBalance\DC2E\n\ \\n\ \close_type\CAN\n\ \ \SOH(\SO2&.lnrpc.ChannelCloseSummary.ClosureTypeR\tcloseType\DC27\n\ \\SOopen_initiator\CAN\v \SOH(\SO2\DLE.lnrpc.InitiatorR\ropenInitiator\DC29\n\ \\SIclose_initiator\CAN\f \SOH(\SO2\DLE.lnrpc.InitiatorR\SOcloseInitiator\DC23\n\ \\vresolutions\CAN\r \ETX(\v2\DC1.lnrpc.ResolutionR\vresolutions\"\138\SOH\n\ \\vClosureType\DC2\NAK\n\ \\DC1COOPERATIVE_CLOSE\DLE\NUL\DC2\NAK\n\ \\DC1LOCAL_FORCE_CLOSE\DLE\SOH\DC2\SYN\n\ \\DC2REMOTE_FORCE_CLOSE\DLE\STX\DC2\DLE\n\ \\fBREACH_CLOSE\DLE\ETX\DC2\DC4\n\ \\DLEFUNDING_CANCELED\DLE\EOT\DC2\r\n\ \\tABANDONED\DLE\ENQ\"\235\SOH\n\ \\n\ \Resolution\DC2>\n\ \\SIresolution_type\CAN\SOH \SOH(\SO2\NAK.lnrpc.ResolutionTypeR\SOresolutionType\DC22\n\ \\aoutcome\CAN\STX \SOH(\SO2\CAN.lnrpc.ResolutionOutcomeR\aoutcome\DC2+\n\ \\boutpoint\CAN\ETX \SOH(\v2\SI.lnrpc.OutPointR\boutpoint\DC2\GS\n\ \\n\ \amount_sat\CAN\EOT \SOH(\EOTR\tamountSat\DC2\GS\n\ \\n\ \sweep_txid\CAN\ENQ \SOH(\tR\tsweepTxid\"\222\SOH\n\ \\NAKClosedChannelsRequest\DC2 \n\ \\vcooperative\CAN\SOH \SOH(\bR\vcooperative\DC2\US\n\ \\vlocal_force\CAN\STX \SOH(\bR\n\ \localForce\DC2!\n\ \\fremote_force\CAN\ETX \SOH(\bR\vremoteForce\DC2\SYN\n\ \\ACKbreach\CAN\EOT \SOH(\bR\ACKbreach\DC2)\n\ \\DLEfunding_canceled\CAN\ENQ \SOH(\bR\SIfundingCanceled\DC2\FS\n\ \\tabandoned\CAN\ACK \SOH(\bR\tabandoned\"P\n\ \\SYNClosedChannelsResponse\DC26\n\ \\bchannels\CAN\SOH \ETX(\v2\SUB.lnrpc.ChannelCloseSummaryR\bchannels\"\223\EOT\n\ \\EOTPeer\DC2\ETB\n\ \\apub_key\CAN\SOH \SOH(\tR\ACKpubKey\DC2\CAN\n\ \\aaddress\CAN\ETX \SOH(\tR\aaddress\DC2\GS\n\ \\n\ \bytes_sent\CAN\EOT \SOH(\EOTR\tbytesSent\DC2\GS\n\ \\n\ \bytes_recv\CAN\ENQ \SOH(\EOTR\tbytesRecv\DC2\EM\n\ \\bsat_sent\CAN\ACK \SOH(\ETXR\asatSent\DC2\EM\n\ \\bsat_recv\CAN\a \SOH(\ETXR\asatRecv\DC2\CAN\n\ \\ainbound\CAN\b \SOH(\bR\ainbound\DC2\ESC\n\ \\tping_time\CAN\t \SOH(\ETXR\bpingTime\DC21\n\ \\tsync_type\CAN\n\ \ \SOH(\SO2\DC4.lnrpc.Peer.SyncTypeR\bsyncType\DC25\n\ \\bfeatures\CAN\v \ETX(\v2\EM.lnrpc.Peer.FeaturesEntryR\bfeatures\DC2/\n\ \\ACKerrors\CAN\f \ETX(\v2\ETB.lnrpc.TimestampedErrorR\ACKerrors\DC2\GS\n\ \\n\ \flap_count\CAN\r \SOH(\ENQR\tflapCount\DC2 \n\ \\flast_flap_ns\CAN\SO \SOH(\ETXR\n\ \lastFlapNs\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\"P\n\ \\bSyncType\DC2\DLE\n\ \\fUNKNOWN_SYNC\DLE\NUL\DC2\SI\n\ \\vACTIVE_SYNC\DLE\SOH\DC2\DLE\n\ \\fPASSIVE_SYNC\DLE\STX\DC2\SI\n\ \\vPINNED_SYNC\DLE\ETX\"F\n\ \\DLETimestampedError\DC2\FS\n\ \\ttimestamp\CAN\SOH \SOH(\EOTR\ttimestamp\DC2\DC4\n\ \\ENQerror\CAN\STX \SOH(\tR\ENQerror\"5\n\ \\DLEListPeersRequest\DC2!\n\ \\flatest_error\CAN\SOH \SOH(\bR\vlatestError\"6\n\ \\DC1ListPeersResponse\DC2!\n\ \\ENQpeers\CAN\SOH \ETX(\v2\v.lnrpc.PeerR\ENQpeers\"\ETB\n\ \\NAKPeerEventSubscription\"\132\SOH\n\ \\tPeerEvent\DC2\ETB\n\ \\apub_key\CAN\SOH \SOH(\tR\ACKpubKey\DC2.\n\ \\EOTtype\CAN\STX \SOH(\SO2\SUB.lnrpc.PeerEvent.EventTypeR\EOTtype\".\n\ \\tEventType\DC2\SI\n\ \\vPEER_ONLINE\DLE\NUL\DC2\DLE\n\ \\fPEER_OFFLINE\DLE\SOH\"\DLE\n\ \\SOGetInfoRequest\"\135\ACK\n\ \\SIGetInfoResponse\DC2\CAN\n\ \\aversion\CAN\SO \SOH(\tR\aversion\DC2\US\n\ \\vcommit_hash\CAN\DC4 \SOH(\tR\n\ \commitHash\DC2'\n\ \\SIidentity_pubkey\CAN\SOH \SOH(\tR\SOidentityPubkey\DC2\DC4\n\ \\ENQalias\CAN\STX \SOH(\tR\ENQalias\DC2\DC4\n\ \\ENQcolor\CAN\DC1 \SOH(\tR\ENQcolor\DC20\n\ \\DC4num_pending_channels\CAN\ETX \SOH(\rR\DC2numPendingChannels\DC2.\n\ \\DC3num_active_channels\CAN\EOT \SOH(\rR\DC1numActiveChannels\DC22\n\ \\NAKnum_inactive_channels\CAN\SI \SOH(\rR\DC3numInactiveChannels\DC2\ESC\n\ \\tnum_peers\CAN\ENQ \SOH(\rR\bnumPeers\DC2!\n\ \\fblock_height\CAN\ACK \SOH(\rR\vblockHeight\DC2\GS\n\ \\n\ \block_hash\CAN\b \SOH(\tR\tblockHash\DC22\n\ \\NAKbest_header_timestamp\CAN\r \SOH(\ETXR\DC3bestHeaderTimestamp\DC2&\n\ \\SIsynced_to_chain\CAN\t \SOH(\bR\rsyncedToChain\DC2&\n\ \\SIsynced_to_graph\CAN\DC2 \SOH(\bR\rsyncedToGraph\DC2\FS\n\ \\atestnet\CAN\n\ \ \SOH(\bR\atestnetB\STX\CAN\SOH\DC2$\n\ \\ACKchains\CAN\DLE \ETX(\v2\f.lnrpc.ChainR\ACKchains\DC2\DC2\n\ \\EOTuris\CAN\f \ETX(\tR\EOTuris\DC2@\n\ \\bfeatures\CAN\DC3 \ETX(\v2$.lnrpc.GetInfoResponse.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\SOHJ\EOT\b\v\DLE\f\"\CAN\n\ \\SYNGetRecoveryInfoRequest\"\135\SOH\n\ \\ETBGetRecoveryInfoResponse\DC2#\n\ \\rrecovery_mode\CAN\SOH \SOH(\bR\frecoveryMode\DC2+\n\ \\DC1recovery_finished\CAN\STX \SOH(\bR\DLErecoveryFinished\DC2\SUB\n\ \\bprogress\CAN\ETX \SOH(\SOHR\bprogress\"7\n\ \\ENQChain\DC2\DC4\n\ \\ENQchain\CAN\SOH \SOH(\tR\ENQchain\DC2\CAN\n\ \\anetwork\CAN\STX \SOH(\tR\anetwork\"z\n\ \\DC2ConfirmationUpdate\DC2\ESC\n\ \\tblock_sha\CAN\SOH \SOH(\fR\bblockSha\DC2!\n\ \\fblock_height\CAN\STX \SOH(\ENQR\vblockHeight\DC2$\n\ \\SOnum_confs_left\CAN\ETX \SOH(\rR\fnumConfsLeft\"M\n\ \\DC1ChannelOpenUpdate\DC28\n\ \\rchannel_point\CAN\SOH \SOH(\v2\DC3.lnrpc.ChannelPointR\fchannelPoint\"Q\n\ \\DC2ChannelCloseUpdate\DC2!\n\ \\fclosing_txid\CAN\SOH \SOH(\fR\vclosingTxid\DC2\CAN\n\ \\asuccess\CAN\STX \SOH(\bR\asuccess\"\251\SOH\n\ \\DC3CloseChannelRequest\DC28\n\ \\rchannel_point\CAN\SOH \SOH(\v2\DC3.lnrpc.ChannelPointR\fchannelPoint\DC2\DC4\n\ \\ENQforce\CAN\STX \SOH(\bR\ENQforce\DC2\US\n\ \\vtarget_conf\CAN\ETX \SOH(\ENQR\n\ \targetConf\DC2$\n\ \\fsat_per_byte\CAN\EOT \SOH(\ETXR\n\ \satPerByteB\STX\CAN\SOH\DC2)\n\ \\DLEdelivery_address\CAN\ENQ \SOH(\tR\SIdeliveryAddress\DC2\"\n\ \\rsat_per_vbyte\CAN\ACK \SOH(\EOTR\vsatPerVbyte\"\150\SOH\n\ \\DC1CloseStatusUpdate\DC2;\n\ \\rclose_pending\CAN\SOH \SOH(\v2\DC4.lnrpc.PendingUpdateH\NULR\fclosePending\DC2:\n\ \\n\ \chan_close\CAN\ETX \SOH(\v2\EM.lnrpc.ChannelCloseUpdateH\NULR\tchanCloseB\b\n\ \\ACKupdate\"F\n\ \\rPendingUpdate\DC2\DC2\n\ \\EOTtxid\CAN\SOH \SOH(\fR\EOTtxid\DC2!\n\ \\foutput_index\CAN\STX \SOH(\rR\voutputIndex\"y\n\ \\DC3ReadyForPsbtFunding\DC2'\n\ \\SIfunding_address\CAN\SOH \SOH(\tR\SOfundingAddress\DC2%\n\ \\SOfunding_amount\CAN\STX \SOH(\ETXR\rfundingAmount\DC2\DC2\n\ \\EOTpsbt\CAN\ETX \SOH(\fR\EOTpsbt\"\192\ENQ\n\ \\DC2OpenChannelRequest\DC2\"\n\ \\rsat_per_vbyte\CAN\SOH \SOH(\EOTR\vsatPerVbyte\DC2\US\n\ \\vnode_pubkey\CAN\STX \SOH(\fR\n\ \nodePubkey\DC20\n\ \\DC2node_pubkey_string\CAN\ETX \SOH(\tR\DLEnodePubkeyStringB\STX\CAN\SOH\DC20\n\ \\DC4local_funding_amount\CAN\EOT \SOH(\ETXR\DC2localFundingAmount\DC2\EM\n\ \\bpush_sat\CAN\ENQ \SOH(\ETXR\apushSat\DC2\US\n\ \\vtarget_conf\CAN\ACK \SOH(\ENQR\n\ \targetConf\DC2$\n\ \\fsat_per_byte\CAN\a \SOH(\ETXR\n\ \satPerByteB\STX\CAN\SOH\DC2\CAN\n\ \\aprivate\CAN\b \SOH(\bR\aprivate\DC2\"\n\ \\rmin_htlc_msat\CAN\t \SOH(\ETXR\vminHtlcMsat\DC2(\n\ \\DLEremote_csv_delay\CAN\n\ \ \SOH(\rR\SOremoteCsvDelay\DC2\ESC\n\ \\tmin_confs\CAN\v \SOH(\ENQR\bminConfs\DC2+\n\ \\DC1spend_unconfirmed\CAN\f \SOH(\bR\DLEspendUnconfirmed\DC2#\n\ \\rclose_address\CAN\r \SOH(\tR\fcloseAddress\DC25\n\ \\ffunding_shim\CAN\SO \SOH(\v2\DC2.lnrpc.FundingShimR\vfundingShim\DC2C\n\ \\USremote_max_value_in_flight_msat\CAN\SI \SOH(\EOTR\SUBremoteMaxValueInFlightMsat\DC2(\n\ \\DLEremote_max_htlcs\CAN\DLE \SOH(\rR\SOremoteMaxHtlcs\DC2\"\n\ \\rmax_local_csv\CAN\DC1 \SOH(\rR\vmaxLocalCsv\"\243\SOH\n\ \\DLEOpenStatusUpdate\DC29\n\ \\fchan_pending\CAN\SOH \SOH(\v2\DC4.lnrpc.PendingUpdateH\NULR\vchanPending\DC27\n\ \\tchan_open\CAN\ETX \SOH(\v2\CAN.lnrpc.ChannelOpenUpdateH\NULR\bchanOpen\DC29\n\ \\tpsbt_fund\CAN\ENQ \SOH(\v2\SUB.lnrpc.ReadyForPsbtFundingH\NULR\bpsbtFund\DC2&\n\ \\SIpending_chan_id\CAN\EOT \SOH(\fR\rpendingChanIdB\b\n\ \\ACKupdate\"H\n\ \\n\ \KeyLocator\DC2\GS\n\ \\n\ \key_family\CAN\SOH \SOH(\ENQR\tkeyFamily\DC2\ESC\n\ \\tkey_index\CAN\STX \SOH(\ENQR\bkeyIndex\"_\n\ \\rKeyDescriptor\DC2\"\n\ \\rraw_key_bytes\CAN\SOH \SOH(\fR\vrawKeyBytes\DC2*\n\ \\akey_loc\CAN\STX \SOH(\v2\DC1.lnrpc.KeyLocatorR\ACKkeyLoc\"\240\SOH\n\ \\rChanPointShim\DC2\DLE\n\ \\ETXamt\CAN\SOH \SOH(\ETXR\ETXamt\DC22\n\ \\n\ \chan_point\CAN\STX \SOH(\v2\DC3.lnrpc.ChannelPointR\tchanPoint\DC21\n\ \\tlocal_key\CAN\ETX \SOH(\v2\DC4.lnrpc.KeyDescriptorR\blocalKey\DC2\GS\n\ \\n\ \remote_key\CAN\EOT \SOH(\fR\tremoteKey\DC2&\n\ \\SIpending_chan_id\CAN\ENQ \SOH(\fR\rpendingChanId\DC2\US\n\ \\vthaw_height\CAN\ACK \SOH(\rR\n\ \thawHeight\"n\n\ \\bPsbtShim\DC2&\n\ \\SIpending_chan_id\CAN\SOH \SOH(\fR\rpendingChanId\DC2\ESC\n\ \\tbase_psbt\CAN\STX \SOH(\fR\bbasePsbt\DC2\GS\n\ \\n\ \no_publish\CAN\ETX \SOH(\bR\tnoPublish\"\133\SOH\n\ \\vFundingShim\DC2>\n\ \\SIchan_point_shim\CAN\SOH \SOH(\v2\DC4.lnrpc.ChanPointShimH\NULR\rchanPointShim\DC2.\n\ \\tpsbt_shim\CAN\STX \SOH(\v2\SI.lnrpc.PsbtShimH\NULR\bpsbtShimB\ACK\n\ \\EOTshim\";\n\ \\DC1FundingShimCancel\DC2&\n\ \\SIpending_chan_id\CAN\SOH \SOH(\fR\rpendingChanId\"\\\n\ \\DC1FundingPsbtVerify\DC2\US\n\ \\vfunded_psbt\CAN\SOH \SOH(\fR\n\ \fundedPsbt\DC2&\n\ \\SIpending_chan_id\CAN\STX \SOH(\fR\rpendingChanId\"\128\SOH\n\ \\DC3FundingPsbtFinalize\DC2\US\n\ \\vsigned_psbt\CAN\SOH \SOH(\fR\n\ \signedPsbt\DC2&\n\ \\SIpending_chan_id\CAN\STX \SOH(\fR\rpendingChanId\DC2 \n\ \\ffinal_raw_tx\CAN\ETX \SOH(\fR\n\ \finalRawTx\"\153\STX\n\ \\DC4FundingTransitionMsg\DC29\n\ \\rshim_register\CAN\SOH \SOH(\v2\DC2.lnrpc.FundingShimH\NULR\fshimRegister\DC2;\n\ \\vshim_cancel\CAN\STX \SOH(\v2\CAN.lnrpc.FundingShimCancelH\NULR\n\ \shimCancel\DC2;\n\ \\vpsbt_verify\CAN\ETX \SOH(\v2\CAN.lnrpc.FundingPsbtVerifyH\NULR\n\ \psbtVerify\DC2A\n\ \\rpsbt_finalize\CAN\EOT \SOH(\v2\SUB.lnrpc.FundingPsbtFinalizeH\NULR\fpsbtFinalizeB\t\n\ \\atrigger\"\SYN\n\ \\DC4FundingStateStepResp\"\204\SOH\n\ \\vPendingHTLC\DC2\SUB\n\ \\bincoming\CAN\SOH \SOH(\bR\bincoming\DC2\SYN\n\ \\ACKamount\CAN\STX \SOH(\ETXR\ACKamount\DC2\SUB\n\ \\boutpoint\CAN\ETX \SOH(\tR\boutpoint\DC2'\n\ \\SImaturity_height\CAN\EOT \SOH(\rR\SOmaturityHeight\DC2.\n\ \\DC3blocks_til_maturity\CAN\ENQ \SOH(\ENQR\DC1blocksTilMaturity\DC2\DC4\n\ \\ENQstage\CAN\ACK \SOH(\rR\ENQstage\"\CAN\n\ \\SYNPendingChannelsRequest\"\253\DC1\n\ \\ETBPendingChannelsResponse\DC2.\n\ \\DC3total_limbo_balance\CAN\SOH \SOH(\ETXR\DC1totalLimboBalance\DC2e\n\ \\NAKpending_open_channels\CAN\STX \ETX(\v21.lnrpc.PendingChannelsResponse.PendingOpenChannelR\DC3pendingOpenChannels\DC2j\n\ \\CANpending_closing_channels\CAN\ETX \ETX(\v2,.lnrpc.PendingChannelsResponse.ClosedChannelR\SYNpendingClosingChannelsB\STX\CAN\SOH\DC2v\n\ \\RSpending_force_closing_channels\CAN\EOT \ETX(\v21.lnrpc.PendingChannelsResponse.ForceClosedChannelR\ESCpendingForceClosingChannels\DC2h\n\ \\SYNwaiting_close_channels\CAN\ENQ \ETX(\v22.lnrpc.PendingChannelsResponse.WaitingCloseChannelR\DC4waitingCloseChannels\SUB\161\ETX\n\ \\SOPendingChannel\DC2&\n\ \\SIremote_node_pub\CAN\SOH \SOH(\tR\rremoteNodePub\DC2#\n\ \\rchannel_point\CAN\STX \SOH(\tR\fchannelPoint\DC2\SUB\n\ \\bcapacity\CAN\ETX \SOH(\ETXR\bcapacity\DC2#\n\ \\rlocal_balance\CAN\EOT \SOH(\ETXR\flocalBalance\DC2%\n\ \\SOremote_balance\CAN\ENQ \SOH(\ETXR\rremoteBalance\DC23\n\ \\SYNlocal_chan_reserve_sat\CAN\ACK \SOH(\ETXR\DC3localChanReserveSat\DC25\n\ \\ETBremote_chan_reserve_sat\CAN\a \SOH(\ETXR\DC4remoteChanReserveSat\DC2.\n\ \\tinitiator\CAN\b \SOH(\SO2\DLE.lnrpc.InitiatorR\tinitiator\DC2>\n\ \\SIcommitment_type\CAN\t \SOH(\SO2\NAK.lnrpc.CommitmentTypeR\SOcommitmentType\SUB\240\SOH\n\ \\DC2PendingOpenChannel\DC2G\n\ \\achannel\CAN\SOH \SOH(\v2-.lnrpc.PendingChannelsResponse.PendingChannelR\achannel\DC2/\n\ \\DC3confirmation_height\CAN\STX \SOH(\rR\DC2confirmationHeight\DC2\GS\n\ \\n\ \commit_fee\CAN\EOT \SOH(\ETXR\tcommitFee\DC2#\n\ \\rcommit_weight\CAN\ENQ \SOH(\ETXR\fcommitWeight\DC2\FS\n\ \\n\ \fee_per_kw\CAN\ACK \SOH(\ETXR\bfeePerKw\SUB\209\SOH\n\ \\DC3WaitingCloseChannel\DC2G\n\ \\achannel\CAN\SOH \SOH(\v2-.lnrpc.PendingChannelsResponse.PendingChannelR\achannel\DC2#\n\ \\rlimbo_balance\CAN\STX \SOH(\ETXR\flimboBalance\DC2L\n\ \\vcommitments\CAN\ETX \SOH(\v2*.lnrpc.PendingChannelsResponse.CommitmentsR\vcommitments\SUB\163\STX\n\ \\vCommitments\DC2\GS\n\ \\n\ \local_txid\CAN\SOH \SOH(\tR\tlocalTxid\DC2\US\n\ \\vremote_txid\CAN\STX \SOH(\tR\n\ \remoteTxid\DC2.\n\ \\DC3remote_pending_txid\CAN\ETX \SOH(\tR\DC1remotePendingTxid\DC2/\n\ \\DC4local_commit_fee_sat\CAN\EOT \SOH(\EOTR\DC1localCommitFeeSat\DC21\n\ \\NAKremote_commit_fee_sat\CAN\ENQ \SOH(\EOTR\DC2remoteCommitFeeSat\DC2@\n\ \\GSremote_pending_commit_fee_sat\CAN\ACK \SOH(\EOTR\EMremotePendingCommitFeeSat\SUB{\n\ \\rClosedChannel\DC2G\n\ \\achannel\CAN\SOH \SOH(\v2-.lnrpc.PendingChannelsResponse.PendingChannelR\achannel\DC2!\n\ \\fclosing_txid\CAN\STX \SOH(\tR\vclosingTxid\SUB\238\ETX\n\ \\DC2ForceClosedChannel\DC2G\n\ \\achannel\CAN\SOH \SOH(\v2-.lnrpc.PendingChannelsResponse.PendingChannelR\achannel\DC2!\n\ \\fclosing_txid\CAN\STX \SOH(\tR\vclosingTxid\DC2#\n\ \\rlimbo_balance\CAN\ETX \SOH(\ETXR\flimboBalance\DC2'\n\ \\SImaturity_height\CAN\EOT \SOH(\rR\SOmaturityHeight\DC2.\n\ \\DC3blocks_til_maturity\CAN\ENQ \SOH(\ENQR\DC1blocksTilMaturity\DC2+\n\ \\DC1recovered_balance\CAN\ACK \SOH(\ETXR\DLErecoveredBalance\DC27\n\ \\rpending_htlcs\CAN\b \ETX(\v2\DC2.lnrpc.PendingHTLCR\fpendingHtlcs\DC2U\n\ \\ACKanchor\CAN\t \SOH(\SO2=.lnrpc.PendingChannelsResponse.ForceClosedChannel.AnchorStateR\ACKanchor\"1\n\ \\vAnchorState\DC2\t\n\ \\ENQLIMBO\DLE\NUL\DC2\r\n\ \\tRECOVERED\DLE\SOH\DC2\b\n\ \\EOTLOST\DLE\STX\"\SUB\n\ \\CANChannelEventSubscription\"\149\EOT\n\ \\DC2ChannelEventUpdate\DC23\n\ \\fopen_channel\CAN\SOH \SOH(\v2\SO.lnrpc.ChannelH\NULR\vopenChannel\DC2C\n\ \\SOclosed_channel\CAN\STX \SOH(\v2\SUB.lnrpc.ChannelCloseSummaryH\NULR\rclosedChannel\DC2<\n\ \\SOactive_channel\CAN\ETX \SOH(\v2\DC3.lnrpc.ChannelPointH\NULR\ractiveChannel\DC2@\n\ \\DLEinactive_channel\CAN\EOT \SOH(\v2\DC3.lnrpc.ChannelPointH\NULR\SIinactiveChannel\DC2H\n\ \\DC4pending_open_channel\CAN\ACK \SOH(\v2\DC4.lnrpc.PendingUpdateH\NULR\DC2pendingOpenChannel\DC28\n\ \\EOTtype\CAN\ENQ \SOH(\SO2$.lnrpc.ChannelEventUpdate.UpdateTypeR\EOTtype\"v\n\ \\n\ \UpdateType\DC2\DLE\n\ \\fOPEN_CHANNEL\DLE\NUL\DC2\DC2\n\ \\SOCLOSED_CHANNEL\DLE\SOH\DC2\DC2\n\ \\SOACTIVE_CHANNEL\DLE\STX\DC2\DC4\n\ \\DLEINACTIVE_CHANNEL\DLE\ETX\DC2\CAN\n\ \\DC4PENDING_OPEN_CHANNEL\DLE\EOTB\t\n\ \\achannel\"t\n\ \\DC4WalletAccountBalance\DC2+\n\ \\DC1confirmed_balance\CAN\SOH \SOH(\ETXR\DLEconfirmedBalance\DC2/\n\ \\DC3unconfirmed_balance\CAN\STX \SOH(\ETXR\DC2unconfirmedBalance\"\SYN\n\ \\DC4WalletBalanceRequest\"\213\STX\n\ \\NAKWalletBalanceResponse\DC2#\n\ \\rtotal_balance\CAN\SOH \SOH(\ETXR\ftotalBalance\DC2+\n\ \\DC1confirmed_balance\CAN\STX \SOH(\ETXR\DLEconfirmedBalance\DC2/\n\ \\DC3unconfirmed_balance\CAN\ETX \SOH(\ETXR\DC2unconfirmedBalance\DC2Y\n\ \\SIaccount_balance\CAN\EOT \ETX(\v20.lnrpc.WalletBalanceResponse.AccountBalanceEntryR\SOaccountBalance\SUB^\n\ \\DC3AccountBalanceEntry\DC2\DLE\n\ \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC21\n\ \\ENQvalue\CAN\STX \SOH(\v2\ESC.lnrpc.WalletAccountBalanceR\ENQvalue:\STX8\SOH\".\n\ \\ACKAmount\DC2\DLE\n\ \\ETXsat\CAN\SOH \SOH(\EOTR\ETXsat\DC2\DC2\n\ \\EOTmsat\CAN\STX \SOH(\EOTR\EOTmsat\"\ETB\n\ \\NAKChannelBalanceRequest\"\128\EOT\n\ \\SYNChannelBalanceResponse\DC2\FS\n\ \\abalance\CAN\SOH \SOH(\ETXR\abalanceB\STX\CAN\SOH\DC24\n\ \\DC4pending_open_balance\CAN\STX \SOH(\ETXR\DC2pendingOpenBalanceB\STX\CAN\SOH\DC22\n\ \\rlocal_balance\CAN\ETX \SOH(\v2\r.lnrpc.AmountR\flocalBalance\DC24\n\ \\SOremote_balance\CAN\EOT \SOH(\v2\r.lnrpc.AmountR\rremoteBalance\DC2E\n\ \\ETBunsettled_local_balance\CAN\ENQ \SOH(\v2\r.lnrpc.AmountR\NAKunsettledLocalBalance\DC2G\n\ \\CANunsettled_remote_balance\CAN\ACK \SOH(\v2\r.lnrpc.AmountR\SYNunsettledRemoteBalance\DC2J\n\ \\SUBpending_open_local_balance\CAN\a \SOH(\v2\r.lnrpc.AmountR\ETBpendingOpenLocalBalance\DC2L\n\ \\ESCpending_open_remote_balance\CAN\b \SOH(\v2\r.lnrpc.AmountR\CANpendingOpenRemoteBalance\"\174\ACK\n\ \\DC2QueryRoutesRequest\DC2\ETB\n\ \\apub_key\CAN\SOH \SOH(\tR\ACKpubKey\DC2\DLE\n\ \\ETXamt\CAN\STX \SOH(\ETXR\ETXamt\DC2\EM\n\ \\bamt_msat\CAN\f \SOH(\ETXR\aamtMsat\DC2(\n\ \\DLEfinal_cltv_delta\CAN\EOT \SOH(\ENQR\SOfinalCltvDelta\DC2,\n\ \\tfee_limit\CAN\ENQ \SOH(\v2\SI.lnrpc.FeeLimitR\bfeeLimit\DC2#\n\ \\rignored_nodes\CAN\ACK \ETX(\fR\fignoredNodes\DC2;\n\ \\rignored_edges\CAN\a \ETX(\v2\DC2.lnrpc.EdgeLocatorR\fignoredEdgesB\STX\CAN\SOH\DC2$\n\ \\SOsource_pub_key\CAN\b \SOH(\tR\fsourcePubKey\DC2.\n\ \\DC3use_mission_control\CAN\t \SOH(\bR\DC1useMissionControl\DC24\n\ \\rignored_pairs\CAN\n\ \ \ETX(\v2\SI.lnrpc.NodePairR\fignoredPairs\DC2\GS\n\ \\n\ \cltv_limit\CAN\v \SOH(\rR\tcltvLimit\DC2`\n\ \\DC3dest_custom_records\CAN\r \ETX(\v20.lnrpc.QueryRoutesRequest.DestCustomRecordsEntryR\DC1destCustomRecords\DC2,\n\ \\DLEoutgoing_chan_id\CAN\SO \SOH(\EOTR\SOoutgoingChanIdB\STX0\SOH\DC2&\n\ \\SIlast_hop_pubkey\CAN\SI \SOH(\fR\rlastHopPubkey\DC21\n\ \\vroute_hints\CAN\DLE \ETX(\v2\DLE.lnrpc.RouteHintR\n\ \routeHints\DC26\n\ \\rdest_features\CAN\DC1 \ETX(\SO2\DC1.lnrpc.FeatureBitR\fdestFeatures\SUBD\n\ \\SYNDestCustomRecordsEntry\DC2\DLE\n\ \\ETXkey\CAN\SOH \SOH(\EOTR\ETXkey\DC2\DC4\n\ \\ENQvalue\CAN\STX \SOH(\fR\ENQvalue:\STX8\SOHJ\EOT\b\ETX\DLE\EOT\".\n\ \\bNodePair\DC2\DC2\n\ \\EOTfrom\CAN\SOH \SOH(\fR\EOTfrom\DC2\SO\n\ \\STXto\CAN\STX \SOH(\fR\STXto\"]\n\ \\vEdgeLocator\DC2!\n\ \\n\ \channel_id\CAN\SOH \SOH(\EOTR\tchannelIdB\STX0\SOH\DC2+\n\ \\DC1direction_reverse\CAN\STX \SOH(\bR\DLEdirectionReverse\"^\n\ \\DC3QueryRoutesResponse\DC2$\n\ \\ACKroutes\CAN\SOH \ETX(\v2\f.lnrpc.RouteR\ACKroutes\DC2!\n\ \\fsuccess_prob\CAN\STX \SOH(\SOHR\vsuccessProb\"\145\EOT\n\ \\ETXHop\DC2\ESC\n\ \\achan_id\CAN\SOH \SOH(\EOTR\ACKchanIdB\STX0\SOH\DC2'\n\ \\rchan_capacity\CAN\STX \SOH(\ETXR\fchanCapacityB\STX\CAN\SOH\DC2(\n\ \\SOamt_to_forward\CAN\ETX \SOH(\ETXR\famtToForwardB\STX\CAN\SOH\DC2\DC4\n\ \\ETXfee\CAN\EOT \SOH(\ETXR\ETXfeeB\STX\CAN\SOH\DC2\SYN\n\ \\ACKexpiry\CAN\ENQ \SOH(\rR\ACKexpiry\DC2-\n\ \\DC3amt_to_forward_msat\CAN\ACK \SOH(\ETXR\DLEamtToForwardMsat\DC2\EM\n\ \\bfee_msat\CAN\a \SOH(\ETXR\afeeMsat\DC2\ETB\n\ \\apub_key\CAN\b \SOH(\tR\ACKpubKey\DC2\US\n\ \\vtlv_payload\CAN\t \SOH(\bR\n\ \tlvPayload\DC2/\n\ \\n\ \mpp_record\CAN\n\ \ \SOH(\v2\DLE.lnrpc.MPPRecordR\tmppRecord\DC2/\n\ \\n\ \amp_record\CAN\f \SOH(\v2\DLE.lnrpc.AMPRecordR\tampRecord\DC2D\n\ \\SOcustom_records\CAN\v \ETX(\v2\GS.lnrpc.Hop.CustomRecordsEntryR\rcustomRecords\SUB@\n\ \\DC2CustomRecordsEntry\DC2\DLE\n\ \\ETXkey\CAN\SOH \SOH(\EOTR\ETXkey\DC2\DC4\n\ \\ENQvalue\CAN\STX \SOH(\fR\ENQvalue:\STX8\SOH\"T\n\ \\tMPPRecord\DC2!\n\ \\fpayment_addr\CAN\v \SOH(\fR\vpaymentAddr\DC2$\n\ \\SOtotal_amt_msat\CAN\n\ \ \SOH(\ETXR\ftotalAmtMsat\"b\n\ \\tAMPRecord\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\"\225\SOH\n\ \\ENQRoute\DC2&\n\ \\SItotal_time_lock\CAN\SOH \SOH(\rR\rtotalTimeLock\DC2!\n\ \\n\ \total_fees\CAN\STX \SOH(\ETXR\ttotalFeesB\STX\CAN\SOH\DC2\US\n\ \\ttotal_amt\CAN\ETX \SOH(\ETXR\btotalAmtB\STX\CAN\SOH\DC2\RS\n\ \\EOThops\CAN\EOT \ETX(\v2\n\ \.lnrpc.HopR\EOThops\DC2&\n\ \\SItotal_fees_msat\CAN\ENQ \SOH(\ETXR\rtotalFeesMsat\DC2$\n\ \\SOtotal_amt_msat\CAN\ACK \SOH(\ETXR\ftotalAmtMsat\"U\n\ \\SINodeInfoRequest\DC2\ETB\n\ \\apub_key\CAN\SOH \SOH(\tR\ACKpubKey\DC2)\n\ \\DLEinclude_channels\CAN\STX \SOH(\bR\SIincludeChannels\"\174\SOH\n\ \\bNodeInfo\DC2(\n\ \\EOTnode\CAN\SOH \SOH(\v2\DC4.lnrpc.LightningNodeR\EOTnode\DC2!\n\ \\fnum_channels\CAN\STX \SOH(\rR\vnumChannels\DC2%\n\ \\SOtotal_capacity\CAN\ETX \SOH(\ETXR\rtotalCapacity\DC2.\n\ \\bchannels\CAN\EOT \ETX(\v2\DC2.lnrpc.ChannelEdgeR\bchannels\"\180\STX\n\ \\rLightningNode\DC2\US\n\ \\vlast_update\CAN\SOH \SOH(\rR\n\ \lastUpdate\DC2\ETB\n\ \\apub_key\CAN\STX \SOH(\tR\ACKpubKey\DC2\DC4\n\ \\ENQalias\CAN\ETX \SOH(\tR\ENQalias\DC20\n\ \\taddresses\CAN\EOT \ETX(\v2\DC2.lnrpc.NodeAddressR\taddresses\DC2\DC4\n\ \\ENQcolor\CAN\ENQ \SOH(\tR\ENQcolor\DC2>\n\ \\bfeatures\CAN\ACK \ETX(\v2\".lnrpc.LightningNode.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\";\n\ \\vNodeAddress\DC2\CAN\n\ \\anetwork\CAN\SOH \SOH(\tR\anetwork\DC2\DC2\n\ \\EOTaddr\CAN\STX \SOH(\tR\EOTaddr\"\134\STX\n\ \\rRoutingPolicy\DC2&\n\ \\SItime_lock_delta\CAN\SOH \SOH(\rR\rtimeLockDelta\DC2\EM\n\ \\bmin_htlc\CAN\STX \SOH(\ETXR\aminHtlc\DC2\"\n\ \\rfee_base_msat\CAN\ETX \SOH(\ETXR\vfeeBaseMsat\DC2-\n\ \\DC3fee_rate_milli_msat\CAN\EOT \SOH(\ETXR\DLEfeeRateMilliMsat\DC2\SUB\n\ \\bdisabled\CAN\ENQ \SOH(\bR\bdisabled\DC2\"\n\ \\rmax_htlc_msat\CAN\ACK \SOH(\EOTR\vmaxHtlcMsat\DC2\US\n\ \\vlast_update\CAN\a \SOH(\rR\n\ \lastUpdate\"\188\STX\n\ \\vChannelEdge\DC2!\n\ \\n\ \channel_id\CAN\SOH \SOH(\EOTR\tchannelIdB\STX0\SOH\DC2\GS\n\ \\n\ \chan_point\CAN\STX \SOH(\tR\tchanPoint\DC2#\n\ \\vlast_update\CAN\ETX \SOH(\rR\n\ \lastUpdateB\STX\CAN\SOH\DC2\ESC\n\ \\tnode1_pub\CAN\EOT \SOH(\tR\bnode1Pub\DC2\ESC\n\ \\tnode2_pub\CAN\ENQ \SOH(\tR\bnode2Pub\DC2\SUB\n\ \\bcapacity\CAN\ACK \SOH(\ETXR\bcapacity\DC27\n\ \\fnode1_policy\CAN\a \SOH(\v2\DC4.lnrpc.RoutingPolicyR\vnode1Policy\DC27\n\ \\fnode2_policy\CAN\b \SOH(\v2\DC4.lnrpc.RoutingPolicyR\vnode2Policy\"F\n\ \\DC3ChannelGraphRequest\DC2/\n\ \\DC3include_unannounced\CAN\SOH \SOH(\bR\DC2includeUnannounced\"d\n\ \\fChannelGraph\DC2*\n\ \\ENQnodes\CAN\SOH \ETX(\v2\DC4.lnrpc.LightningNodeR\ENQnodes\DC2(\n\ \\ENQedges\CAN\STX \ETX(\v2\DC2.lnrpc.ChannelEdgeR\ENQedges\"A\n\ \\DC2NodeMetricsRequest\DC2+\n\ \\ENQtypes\CAN\SOH \ETX(\SO2\NAK.lnrpc.NodeMetricTypeR\ENQtypes\"\225\SOH\n\ \\DC3NodeMetricsResponse\DC2l\n\ \\SYNbetweenness_centrality\CAN\SOH \ETX(\v25.lnrpc.NodeMetricsResponse.BetweennessCentralityEntryR\NAKbetweennessCentrality\SUB\\\n\ \\SUBBetweennessCentralityEntry\DC2\DLE\n\ \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2(\n\ \\ENQvalue\CAN\STX \SOH(\v2\DC2.lnrpc.FloatMetricR\ENQvalue:\STX8\SOH\"N\n\ \\vFloatMetric\DC2\DC4\n\ \\ENQvalue\CAN\SOH \SOH(\SOHR\ENQvalue\DC2)\n\ \\DLEnormalized_value\CAN\STX \SOH(\SOHR\SInormalizedValue\".\n\ \\SIChanInfoRequest\DC2\ESC\n\ \\achan_id\CAN\SOH \SOH(\EOTR\ACKchanIdB\STX0\SOH\"\DC4\n\ \\DC2NetworkInfoRequest\"\213\ETX\n\ \\vNetworkInfo\DC2%\n\ \\SOgraph_diameter\CAN\SOH \SOH(\rR\rgraphDiameter\DC2$\n\ \\SOavg_out_degree\CAN\STX \SOH(\SOHR\favgOutDegree\DC2$\n\ \\SOmax_out_degree\CAN\ETX \SOH(\rR\fmaxOutDegree\DC2\ESC\n\ \\tnum_nodes\CAN\EOT \SOH(\rR\bnumNodes\DC2!\n\ \\fnum_channels\CAN\ENQ \SOH(\rR\vnumChannels\DC24\n\ \\SYNtotal_network_capacity\CAN\ACK \SOH(\ETXR\DC4totalNetworkCapacity\DC2(\n\ \\DLEavg_channel_size\CAN\a \SOH(\SOHR\SOavgChannelSize\DC2(\n\ \\DLEmin_channel_size\CAN\b \SOH(\ETXR\SOminChannelSize\DC2(\n\ \\DLEmax_channel_size\CAN\t \SOH(\ETXR\SOmaxChannelSize\DC25\n\ \\ETBmedian_channel_size_sat\CAN\n\ \ \SOH(\ETXR\DC4medianChannelSizeSat\DC2(\n\ \\DLEnum_zombie_chans\CAN\v \SOH(\EOTR\SOnumZombieChans\"\r\n\ \\vStopRequest\"\SO\n\ \\fStopResponse\"\ESC\n\ \\EMGraphTopologySubscription\"\205\SOH\n\ \\DC3GraphTopologyUpdate\DC24\n\ \\fnode_updates\CAN\SOH \ETX(\v2\DC1.lnrpc.NodeUpdateR\vnodeUpdates\DC2A\n\ \\SIchannel_updates\CAN\STX \ETX(\v2\CAN.lnrpc.ChannelEdgeUpdateR\SOchannelUpdates\DC2=\n\ \\fclosed_chans\CAN\ETX \ETX(\v2\SUB.lnrpc.ClosedChannelUpdateR\vclosedChans\"\239\STX\n\ \\n\ \NodeUpdate\DC2 \n\ \\taddresses\CAN\SOH \ETX(\tR\taddressesB\STX\CAN\SOH\DC2!\n\ \\fidentity_key\CAN\STX \SOH(\tR\videntityKey\DC2+\n\ \\SIglobal_features\CAN\ETX \SOH(\fR\SOglobalFeaturesB\STX\CAN\SOH\DC2\DC4\n\ \\ENQalias\CAN\EOT \SOH(\tR\ENQalias\DC2\DC4\n\ \\ENQcolor\CAN\ENQ \SOH(\tR\ENQcolor\DC29\n\ \\SOnode_addresses\CAN\a \ETX(\v2\DC2.lnrpc.NodeAddressR\rnodeAddresses\DC2;\n\ \\bfeatures\CAN\ACK \ETX(\v2\US.lnrpc.NodeUpdate.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\"\145\STX\n\ \\DC1ChannelEdgeUpdate\DC2\ESC\n\ \\achan_id\CAN\SOH \SOH(\EOTR\ACKchanIdB\STX0\SOH\DC22\n\ \\n\ \chan_point\CAN\STX \SOH(\v2\DC3.lnrpc.ChannelPointR\tchanPoint\DC2\SUB\n\ \\bcapacity\CAN\ETX \SOH(\ETXR\bcapacity\DC2;\n\ \\SOrouting_policy\CAN\EOT \SOH(\v2\DC4.lnrpc.RoutingPolicyR\rroutingPolicy\DC2)\n\ \\DLEadvertising_node\CAN\ENQ \SOH(\tR\SIadvertisingNode\DC2'\n\ \\SIconnecting_node\CAN\ACK \SOH(\tR\SOconnectingNode\"\167\SOH\n\ \\DC3ClosedChannelUpdate\DC2\ESC\n\ \\achan_id\CAN\SOH \SOH(\EOTR\ACKchanIdB\STX0\SOH\DC2\SUB\n\ \\bcapacity\CAN\STX \SOH(\ETXR\bcapacity\DC2#\n\ \\rclosed_height\CAN\ETX \SOH(\rR\fclosedHeight\DC22\n\ \\n\ \chan_point\CAN\EOT \SOH(\v2\DC3.lnrpc.ChannelPointR\tchanPoint\"\207\SOH\n\ \\aHopHint\DC2\ETB\n\ \\anode_id\CAN\SOH \SOH(\tR\ACKnodeId\DC2\ESC\n\ \\achan_id\CAN\STX \SOH(\EOTR\ACKchanIdB\STX0\SOH\DC2\"\n\ \\rfee_base_msat\CAN\ETX \SOH(\rR\vfeeBaseMsat\DC2>\n\ \\ESCfee_proportional_millionths\CAN\EOT \SOH(\rR\EMfeeProportionalMillionths\DC2*\n\ \\DC1cltv_expiry_delta\CAN\ENQ \SOH(\rR\SIcltvExpiryDelta\"8\n\ \\tRouteHint\DC2+\n\ \\thop_hints\CAN\SOH \ETX(\v2\SO.lnrpc.HopHintR\bhopHints\"\150\b\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\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\"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\"x\n\ \\CANDeleteAllPaymentsRequest\DC20\n\ \\DC4failed_payments_only\CAN\SOH \SOH(\bR\DC2failedPaymentsOnly\DC2*\n\ \\DC1failed_htlcs_only\CAN\STX \SOH(\bR\SIfailedHtlcsOnly\"\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\"Y\n\ \\aFeature\DC2\DC2\n\ \\EOTname\CAN\STX \SOH(\tR\EOTname\DC2\US\n\ \\vis_required\CAN\ETX \SOH(\bR\n\ \isRequired\DC2\EM\n\ \\bis_known\CAN\EOT \SOH(\bR\aisKnown\"\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\"\SYN\n\ \\DC4PolicyUpdateResponse\"\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\"r\n\ \\DC3BakeMacaroonRequest\DC2;\n\ \\vpermissions\CAN\SOH \ETX(\v2\EM.lnrpc.MacaroonPermissionR\vpermissions\DC2\RS\n\ \\vroot_key_id\CAN\STX \SOH(\EOTR\trootKeyId\"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*}\n\ \\vAddressType\DC2\ETB\n\ \\DC3WITNESS_PUBKEY_HASH\DLE\NUL\DC2\SYN\n\ \\DC2NESTED_PUBKEY_HASH\DLE\SOH\DC2\RS\n\ \\SUBUNUSED_WITNESS_PUBKEY_HASH\DLE\STX\DC2\GS\n\ \\EMUNUSED_NESTED_PUBKEY_HASH\DLE\ETX*^\n\ \\SOCommitmentType\DC2\n\ \\n\ \\ACKLEGACY\DLE\NUL\DC2\NAK\n\ \\DC1STATIC_REMOTE_KEY\DLE\SOH\DC2\v\n\ \\aANCHORS\DLE\STX\DC2\FS\n\ \\ETBUNKNOWN_COMMITMENT_TYPE\DLE\231\a*a\n\ \\tInitiator\DC2\NAK\n\ \\DC1INITIATOR_UNKNOWN\DLE\NUL\DC2\DC3\n\ \\SIINITIATOR_LOCAL\DLE\SOH\DC2\DC4\n\ \\DLEINITIATOR_REMOTE\DLE\STX\DC2\DC2\n\ \\SOINITIATOR_BOTH\DLE\ETX*`\n\ \\SOResolutionType\DC2\DLE\n\ \\fTYPE_UNKNOWN\DLE\NUL\DC2\n\ \\n\ \\ACKANCHOR\DLE\SOH\DC2\DC1\n\ \\rINCOMING_HTLC\DLE\STX\DC2\DC1\n\ \\rOUTGOING_HTLC\DLE\ETX\DC2\n\ \\n\ \\ACKCOMMIT\DLE\EOT*q\n\ \\DC1ResolutionOutcome\DC2\DC3\n\ \\SIOUTCOME_UNKNOWN\DLE\NUL\DC2\v\n\ \\aCLAIMED\DLE\SOH\DC2\r\n\ \\tUNCLAIMED\DLE\STX\DC2\r\n\ \\tABANDONED\DLE\ETX\DC2\SI\n\ \\vFIRST_STAGE\DLE\EOT\DC2\v\n\ \\aTIMEOUT\DLE\ENQ*9\n\ \\SONodeMetricType\DC2\v\n\ \\aUNKNOWN\DLE\NUL\DC2\SUB\n\ \\SYNBETWEENNESS_CENTRALITY\DLE\SOH*;\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*\207\EOT\n\ \\n\ \FeatureBit\DC2\CAN\n\ \\DC4DATALOSS_PROTECT_REQ\DLE\NUL\DC2\CAN\n\ \\DC4DATALOSS_PROTECT_OPT\DLE\SOH\DC2\ETB\n\ \\DC3INITIAL_ROUING_SYNC\DLE\ETX\DC2\US\n\ \\ESCUPFRONT_SHUTDOWN_SCRIPT_REQ\DLE\EOT\DC2\US\n\ \\ESCUPFRONT_SHUTDOWN_SCRIPT_OPT\DLE\ENQ\DC2\SYN\n\ \\DC2GOSSIP_QUERIES_REQ\DLE\ACK\DC2\SYN\n\ \\DC2GOSSIP_QUERIES_OPT\DLE\a\DC2\DC1\n\ \\rTLV_ONION_REQ\DLE\b\DC2\DC1\n\ \\rTLV_ONION_OPT\DLE\t\DC2\SUB\n\ \\SYNEXT_GOSSIP_QUERIES_REQ\DLE\n\ \\DC2\SUB\n\ \\SYNEXT_GOSSIP_QUERIES_OPT\DLE\v\DC2\EM\n\ \\NAKSTATIC_REMOTE_KEY_REQ\DLE\f\DC2\EM\n\ \\NAKSTATIC_REMOTE_KEY_OPT\DLE\r\DC2\DC4\n\ \\DLEPAYMENT_ADDR_REQ\DLE\SO\DC2\DC4\n\ \\DLEPAYMENT_ADDR_OPT\DLE\SI\DC2\v\n\ \\aMPP_REQ\DLE\DLE\DC2\v\n\ \\aMPP_OPT\DLE\DC1\DC2\SYN\n\ \\DC2WUMBO_CHANNELS_REQ\DLE\DC2\DC2\SYN\n\ \\DC2WUMBO_CHANNELS_OPT\DLE\DC3\DC2\SI\n\ \\vANCHORS_REQ\DLE\DC4\DC2\SI\n\ \\vANCHORS_OPT\DLE\NAK\DC2\GS\n\ \\EMANCHORS_ZERO_FEE_HTLC_REQ\DLE\SYN\DC2\GS\n\ \\EMANCHORS_ZERO_FEE_HTLC_OPT\DLE\ETB\DC2\v\n\ \\aAMP_REQ\DLE\RS\DC2\v\n\ \\aAMP_OPT\DLE\US2\201!\n\ \\tLightning\DC2J\n\ \\rWalletBalance\DC2\ESC.lnrpc.WalletBalanceRequest\SUB\FS.lnrpc.WalletBalanceResponse\DC2M\n\ \\SOChannelBalance\DC2\FS.lnrpc.ChannelBalanceRequest\SUB\GS.lnrpc.ChannelBalanceResponse\DC2K\n\ \\SIGetTransactions\DC2\GS.lnrpc.GetTransactionsRequest\SUB\EM.lnrpc.TransactionDetails\DC2D\n\ \\vEstimateFee\DC2\EM.lnrpc.EstimateFeeRequest\SUB\SUB.lnrpc.EstimateFeeResponse\DC2>\n\ \\tSendCoins\DC2\ETB.lnrpc.SendCoinsRequest\SUB\CAN.lnrpc.SendCoinsResponse\DC2D\n\ \\vListUnspent\DC2\EM.lnrpc.ListUnspentRequest\SUB\SUB.lnrpc.ListUnspentResponse\DC2L\n\ \\NAKSubscribeTransactions\DC2\GS.lnrpc.GetTransactionsRequest\SUB\DC2.lnrpc.Transaction0\SOH\DC2;\n\ \\bSendMany\DC2\SYN.lnrpc.SendManyRequest\SUB\ETB.lnrpc.SendManyResponse\DC2A\n\ \\n\ \NewAddress\DC2\CAN.lnrpc.NewAddressRequest\SUB\EM.lnrpc.NewAddressResponse\DC2D\n\ \\vSignMessage\DC2\EM.lnrpc.SignMessageRequest\SUB\SUB.lnrpc.SignMessageResponse\DC2J\n\ \\rVerifyMessage\DC2\ESC.lnrpc.VerifyMessageRequest\SUB\FS.lnrpc.VerifyMessageResponse\DC2D\n\ \\vConnectPeer\DC2\EM.lnrpc.ConnectPeerRequest\SUB\SUB.lnrpc.ConnectPeerResponse\DC2M\n\ \\SODisconnectPeer\DC2\FS.lnrpc.DisconnectPeerRequest\SUB\GS.lnrpc.DisconnectPeerResponse\DC2>\n\ \\tListPeers\DC2\ETB.lnrpc.ListPeersRequest\SUB\CAN.lnrpc.ListPeersResponse\DC2G\n\ \\DC3SubscribePeerEvents\DC2\FS.lnrpc.PeerEventSubscription\SUB\DLE.lnrpc.PeerEvent0\SOH\DC28\n\ \\aGetInfo\DC2\NAK.lnrpc.GetInfoRequest\SUB\SYN.lnrpc.GetInfoResponse\DC2P\n\ \\SIGetRecoveryInfo\DC2\GS.lnrpc.GetRecoveryInfoRequest\SUB\RS.lnrpc.GetRecoveryInfoResponse\DC2P\n\ \\SIPendingChannels\DC2\GS.lnrpc.PendingChannelsRequest\SUB\RS.lnrpc.PendingChannelsResponse\DC2G\n\ \\fListChannels\DC2\SUB.lnrpc.ListChannelsRequest\SUB\ESC.lnrpc.ListChannelsResponse\DC2V\n\ \\SYNSubscribeChannelEvents\DC2\US.lnrpc.ChannelEventSubscription\SUB\EM.lnrpc.ChannelEventUpdate0\SOH\DC2M\n\ \\SOClosedChannels\DC2\FS.lnrpc.ClosedChannelsRequest\SUB\GS.lnrpc.ClosedChannelsResponse\DC2A\n\ \\SIOpenChannelSync\DC2\EM.lnrpc.OpenChannelRequest\SUB\DC3.lnrpc.ChannelPoint\DC2C\n\ \\vOpenChannel\DC2\EM.lnrpc.OpenChannelRequest\SUB\ETB.lnrpc.OpenStatusUpdate0\SOH\DC2L\n\ \\DLEFundingStateStep\DC2\ESC.lnrpc.FundingTransitionMsg\SUB\ESC.lnrpc.FundingStateStepResp\DC2P\n\ \\SIChannelAcceptor\DC2\FS.lnrpc.ChannelAcceptResponse\SUB\ESC.lnrpc.ChannelAcceptRequest(\SOH0\SOH\DC2F\n\ \\fCloseChannel\DC2\SUB.lnrpc.CloseChannelRequest\SUB\CAN.lnrpc.CloseStatusUpdate0\SOH\DC2M\n\ \\SOAbandonChannel\DC2\FS.lnrpc.AbandonChannelRequest\SUB\GS.lnrpc.AbandonChannelResponse\DC2?\n\ \\vSendPayment\DC2\DC2.lnrpc.SendRequest\SUB\DC3.lnrpc.SendResponse\"\ETX\136\STX\SOH(\SOH0\SOH\DC2:\n\ \\SISendPaymentSync\DC2\DC2.lnrpc.SendRequest\SUB\DC3.lnrpc.SendResponse\DC2F\n\ \\vSendToRoute\DC2\EM.lnrpc.SendToRouteRequest\SUB\DC3.lnrpc.SendResponse\"\ETX\136\STX\SOH(\SOH0\SOH\DC2A\n\ \\SISendToRouteSync\DC2\EM.lnrpc.SendToRouteRequest\SUB\DC3.lnrpc.SendResponse\DC27\n\ \\n\ \AddInvoice\DC2\SO.lnrpc.Invoice\SUB\EM.lnrpc.AddInvoiceResponse\DC2E\n\ \\fListInvoices\DC2\EM.lnrpc.ListInvoiceRequest\SUB\SUB.lnrpc.ListInvoiceResponse\DC23\n\ \\rLookupInvoice\DC2\DC2.lnrpc.PaymentHash\SUB\SO.lnrpc.Invoice\DC2A\n\ \\DC1SubscribeInvoices\DC2\SUB.lnrpc.InvoiceSubscription\SUB\SO.lnrpc.Invoice0\SOH\DC22\n\ \\fDecodePayReq\DC2\DC3.lnrpc.PayReqString\SUB\r.lnrpc.PayReq\DC2G\n\ \\fListPayments\DC2\SUB.lnrpc.ListPaymentsRequest\SUB\ESC.lnrpc.ListPaymentsResponse\DC2V\n\ \\DC1DeleteAllPayments\DC2\US.lnrpc.DeleteAllPaymentsRequest\SUB .lnrpc.DeleteAllPaymentsResponse\DC2@\n\ \\rDescribeGraph\DC2\SUB.lnrpc.ChannelGraphRequest\SUB\DC3.lnrpc.ChannelGraph\DC2G\n\ \\SOGetNodeMetrics\DC2\EM.lnrpc.NodeMetricsRequest\SUB\SUB.lnrpc.NodeMetricsResponse\DC29\n\ \\vGetChanInfo\DC2\SYN.lnrpc.ChanInfoRequest\SUB\DC2.lnrpc.ChannelEdge\DC26\n\ \\vGetNodeInfo\DC2\SYN.lnrpc.NodeInfoRequest\SUB\SI.lnrpc.NodeInfo\DC2D\n\ \\vQueryRoutes\DC2\EM.lnrpc.QueryRoutesRequest\SUB\SUB.lnrpc.QueryRoutesResponse\DC2?\n\ \\SOGetNetworkInfo\DC2\EM.lnrpc.NetworkInfoRequest\SUB\DC2.lnrpc.NetworkInfo\DC25\n\ \\n\ \StopDaemon\DC2\DC2.lnrpc.StopRequest\SUB\DC3.lnrpc.StopResponse\DC2W\n\ \\NAKSubscribeChannelGraph\DC2 .lnrpc.GraphTopologySubscription\SUB\SUB.lnrpc.GraphTopologyUpdate0\SOH\DC2A\n\ \\n\ \DebugLevel\DC2\CAN.lnrpc.DebugLevelRequest\SUB\EM.lnrpc.DebugLevelResponse\DC2>\n\ \\tFeeReport\DC2\ETB.lnrpc.FeeReportRequest\SUB\CAN.lnrpc.FeeReportResponse\DC2N\n\ \\DC3UpdateChannelPolicy\DC2\SUB.lnrpc.PolicyUpdateRequest\SUB\ESC.lnrpc.PolicyUpdateResponse\DC2V\n\ \\DC1ForwardingHistory\DC2\US.lnrpc.ForwardingHistoryRequest\SUB .lnrpc.ForwardingHistoryResponse\DC2N\n\ \\DC3ExportChannelBackup\DC2!.lnrpc.ExportChannelBackupRequest\SUB\DC4.lnrpc.ChannelBackup\DC2T\n\ \\ETBExportAllChannelBackups\DC2\RS.lnrpc.ChanBackupExportRequest\SUB\EM.lnrpc.ChanBackupSnapshot\DC2N\n\ \\DLEVerifyChanBackup\DC2\EM.lnrpc.ChanBackupSnapshot\SUB\US.lnrpc.VerifyChanBackupResponse\DC2V\n\ \\NAKRestoreChannelBackups\DC2\US.lnrpc.RestoreChanBackupRequest\SUB\FS.lnrpc.RestoreBackupResponse\DC2X\n\ \\ETBSubscribeChannelBackups\DC2 .lnrpc.ChannelBackupSubscription\SUB\EM.lnrpc.ChanBackupSnapshot0\SOH\DC2G\n\ \\fBakeMacaroon\DC2\SUB.lnrpc.BakeMacaroonRequest\SUB\ESC.lnrpc.BakeMacaroonResponse\DC2P\n\ \\SIListMacaroonIDs\DC2\GS.lnrpc.ListMacaroonIDsRequest\SUB\RS.lnrpc.ListMacaroonIDsResponse\DC2S\n\ \\DLEDeleteMacaroonID\DC2\RS.lnrpc.DeleteMacaroonIDRequest\SUB\US.lnrpc.DeleteMacaroonIDResponse\DC2P\n\ \\SIListPermissions\DC2\GS.lnrpc.ListPermissionsRequest\SUB\RS.lnrpc.ListPermissionsResponseB'Z%github.com/lightningnetwork/lnd/lnrpcJ\205\234\b\n\ \\a\DC2\ENQ\STX\NUL\176\RS\SOH\n\ \\130\SOH\n\ \\SOH\f\DC2\ETX\STX\NUL\DC22x source https://raw.githubusercontent.com/lightningnetwork/lnd/c733c139e95a6ef4e5f9ac88b43328ac96c333ef/lnrpc/rpc.proto\n\ \\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\ \\228\ENQ\n\ \\STX\ACK\NUL\DC2\ENQ\ESC\NUL\135\EOT\SOH\SUB1 Lightning is the main RPC server of the daemon.\n\ \2\163\ENQ\n\ \ Comments in this file will be directly parsed into the API\n\ \ Documentation as descriptions of the associated method, message, or field.\n\ \ These descriptions should go right above the definition of the object, and\n\ \ can be in either block or // comment format.\n\ \\n\ \ An RPC method can be matched to an lncli command by placing a line in the\n\ \ beginning of the description in exactly the following format:\n\ \ lncli: `methodname`\n\ \\n\ \ Failure to specify the exact name of the command will cause documentation\n\ \ generation to fail.\n\ \\n\ \ More information on how exactly the gRPC documentation is generated from\n\ \ this proto file can be found here:\n\ \ https://github.com/lightninglabs/lightning-api\n\ \\n\ \\n\ \\n\ \\ETX\ACK\NUL\SOH\DC2\ETX\ESC\b\DC1\n\ \\205\SOH\n\ \\EOT\ACK\NUL\STX\NUL\DC2\ETX!\EOTM\SUB\191\SOH lncli: `walletbalance`\n\ \WalletBalance returns total unspent outputs(confirmed and unconfirmed), all\n\ \confirmed unspent outputs and all unconfirmed unspent outputs under control\n\ \of the wallet.\n\ \\n\ \\f\n\ \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX!\b\NAK\n\ \\f\n\ \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX!\ETB+\n\ \\f\n\ \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX!6K\n\ \\203\SOH\n\ \\EOT\ACK\NUL\STX\SOH\DC2\ETX(\EOTP\SUB\189\SOH lncli: `channelbalance`\n\ \ChannelBalance returns a report on the total funds across all open channels,\n\ \categorized in local/remote, pending local/remote and unsettled local/remote\n\ \balances.\n\ \\n\ \\f\n\ \\ENQ\ACK\NUL\STX\SOH\SOH\DC2\ETX(\b\SYN\n\ \\f\n\ \\ENQ\ACK\NUL\STX\SOH\STX\DC2\ETX(\CAN-\n\ \\f\n\ \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETX(8N\n\ \\130\SOH\n\ \\EOT\ACK\NUL\STX\STX\DC2\ETX.\EOTN\SUBu lncli: `listchaintxns`\n\ \GetTransactions returns a list describing all the known transactions\n\ \relevant to the wallet.\n\ \\n\ \\f\n\ \\ENQ\ACK\NUL\STX\STX\SOH\DC2\ETX.\b\ETB\n\ \\f\n\ \\ENQ\ACK\NUL\STX\STX\STX\DC2\ETX.\EM/\n\ \\f\n\ \\ENQ\ACK\NUL\STX\STX\ETX\DC2\ETX.:L\n\ \\159\ETX\n\ \\EOT\ACK\NUL\STX\ETX\DC2\ETX9\EOTG\SUB\145\ETX lncli: `estimatefee`\n\ \EstimateFee asks the chain backend to estimate the fee rate and total fees\n\ \for a transaction that pays to multiple specified outputs.\n\ \\n\ \When using REST, the `AddrToAmount` map type can be set by appending\n\ \`&AddrToAmount[
]=