lnd-client-0.1.0.1: src/Proto/Wtclientrpc/Wtclient.hs
{- This file was auto-generated from wtclientrpc/wtclient.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies, DeriveGeneric#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Wtclientrpc.Wtclient (
WatchtowerClient(..), AddTowerRequest(), AddTowerResponse(),
GetTowerInfoRequest(), ListTowersRequest(), ListTowersResponse(),
PolicyRequest(), PolicyResponse(), PolicyType(..), PolicyType(),
PolicyType'UnrecognizedValue, RemoveTowerRequest(),
RemoveTowerResponse(), StatsRequest(), StatsResponse(), Tower(),
TowerSession()
) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Text.PrettyPrint.GenericPretty.Instance
import qualified GHC.Generics
import qualified Text.PrettyPrint.GenericPretty
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
{- | Fields :
* 'Proto.Wtclientrpc.Wtclient_Fields.pubkey' @:: Lens' AddTowerRequest Data.ByteString.ByteString@
* 'Proto.Wtclientrpc.Wtclient_Fields.address' @:: Lens' AddTowerRequest Data.Text.Text@ -}
data AddTowerRequest
= AddTowerRequest'_constructor {_AddTowerRequest'pubkey :: !Data.ByteString.ByteString,
_AddTowerRequest'address :: !Data.Text.Text,
_AddTowerRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show AddTowerRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out AddTowerRequest
instance Data.ProtoLens.Field.HasField AddTowerRequest "pubkey" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AddTowerRequest'pubkey
(\ x__ y__ -> x__ {_AddTowerRequest'pubkey = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AddTowerRequest "address" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AddTowerRequest'address
(\ x__ y__ -> x__ {_AddTowerRequest'address = y__}))
Prelude.id
instance Data.ProtoLens.Message AddTowerRequest where
messageName _ = Data.Text.pack "wtclientrpc.AddTowerRequest"
packedMessageDescriptor _
= "\n\
\\SIAddTowerRequest\DC2\SYN\n\
\\ACKpubkey\CAN\SOH \SOH(\fR\ACKpubkey\DC2\CAN\n\
\\aaddress\CAN\STX \SOH(\tR\aaddress"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
pubkey__field_descriptor
= Data.ProtoLens.FieldDescriptor
"pubkey"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pubkey")) ::
Data.ProtoLens.FieldDescriptor AddTowerRequest
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 AddTowerRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, pubkey__field_descriptor),
(Data.ProtoLens.Tag 2, address__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_AddTowerRequest'_unknownFields
(\ x__ y__ -> x__ {_AddTowerRequest'_unknownFields = y__})
defMessage
= AddTowerRequest'_constructor
{_AddTowerRequest'pubkey = Data.ProtoLens.fieldDefault,
_AddTowerRequest'address = Data.ProtoLens.fieldDefault,
_AddTowerRequest'_unknownFields = []}
parseMessage
= let
loop ::
AddTowerRequest
-> Data.ProtoLens.Encoding.Bytes.Parser AddTowerRequest
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))
"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))
"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) "AddTowerRequest"
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)
((\ 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 @"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.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData AddTowerRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_AddTowerRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_AddTowerRequest'pubkey x__)
(Control.DeepSeq.deepseq (_AddTowerRequest'address x__) ()))
{- | Fields :
-}
data AddTowerResponse
= AddTowerResponse'_constructor {_AddTowerResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show AddTowerResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out AddTowerResponse
instance Data.ProtoLens.Message AddTowerResponse where
messageName _ = Data.Text.pack "wtclientrpc.AddTowerResponse"
packedMessageDescriptor _
= "\n\
\\DLEAddTowerResponse"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag = let in Data.Map.fromList []
unknownFields
= Lens.Family2.Unchecked.lens
_AddTowerResponse'_unknownFields
(\ x__ y__ -> x__ {_AddTowerResponse'_unknownFields = y__})
defMessage
= AddTowerResponse'_constructor
{_AddTowerResponse'_unknownFields = []}
parseMessage
= let
loop ::
AddTowerResponse
-> Data.ProtoLens.Encoding.Bytes.Parser AddTowerResponse
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) "AddTowerResponse"
buildMessage
= \ _x
-> Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
instance Control.DeepSeq.NFData AddTowerResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_AddTowerResponse'_unknownFields x__) ()
{- | Fields :
* 'Proto.Wtclientrpc.Wtclient_Fields.pubkey' @:: Lens' GetTowerInfoRequest Data.ByteString.ByteString@
* 'Proto.Wtclientrpc.Wtclient_Fields.includeSessions' @:: Lens' GetTowerInfoRequest Prelude.Bool@ -}
data GetTowerInfoRequest
= GetTowerInfoRequest'_constructor {_GetTowerInfoRequest'pubkey :: !Data.ByteString.ByteString,
_GetTowerInfoRequest'includeSessions :: !Prelude.Bool,
_GetTowerInfoRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show GetTowerInfoRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out GetTowerInfoRequest
instance Data.ProtoLens.Field.HasField GetTowerInfoRequest "pubkey" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetTowerInfoRequest'pubkey
(\ x__ y__ -> x__ {_GetTowerInfoRequest'pubkey = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField GetTowerInfoRequest "includeSessions" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetTowerInfoRequest'includeSessions
(\ x__ y__ -> x__ {_GetTowerInfoRequest'includeSessions = y__}))
Prelude.id
instance Data.ProtoLens.Message GetTowerInfoRequest where
messageName _ = Data.Text.pack "wtclientrpc.GetTowerInfoRequest"
packedMessageDescriptor _
= "\n\
\\DC3GetTowerInfoRequest\DC2\SYN\n\
\\ACKpubkey\CAN\SOH \SOH(\fR\ACKpubkey\DC2)\n\
\\DLEinclude_sessions\CAN\STX \SOH(\bR\SIincludeSessions"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
pubkey__field_descriptor
= Data.ProtoLens.FieldDescriptor
"pubkey"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pubkey")) ::
Data.ProtoLens.FieldDescriptor GetTowerInfoRequest
includeSessions__field_descriptor
= Data.ProtoLens.FieldDescriptor
"include_sessions"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"includeSessions")) ::
Data.ProtoLens.FieldDescriptor GetTowerInfoRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, pubkey__field_descriptor),
(Data.ProtoLens.Tag 2, includeSessions__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_GetTowerInfoRequest'_unknownFields
(\ x__ y__ -> x__ {_GetTowerInfoRequest'_unknownFields = y__})
defMessage
= GetTowerInfoRequest'_constructor
{_GetTowerInfoRequest'pubkey = Data.ProtoLens.fieldDefault,
_GetTowerInfoRequest'includeSessions = Data.ProtoLens.fieldDefault,
_GetTowerInfoRequest'_unknownFields = []}
parseMessage
= let
loop ::
GetTowerInfoRequest
-> Data.ProtoLens.Encoding.Bytes.Parser GetTowerInfoRequest
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))
"pubkey"
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_sessions"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"includeSessions") 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) "GetTowerInfoRequest"
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)
((\ 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 @"includeSessions") _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 GetTowerInfoRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_GetTowerInfoRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_GetTowerInfoRequest'pubkey x__)
(Control.DeepSeq.deepseq
(_GetTowerInfoRequest'includeSessions x__) ()))
{- | Fields :
* 'Proto.Wtclientrpc.Wtclient_Fields.includeSessions' @:: Lens' ListTowersRequest Prelude.Bool@ -}
data ListTowersRequest
= ListTowersRequest'_constructor {_ListTowersRequest'includeSessions :: !Prelude.Bool,
_ListTowersRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ListTowersRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ListTowersRequest
instance Data.ProtoLens.Field.HasField ListTowersRequest "includeSessions" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListTowersRequest'includeSessions
(\ x__ y__ -> x__ {_ListTowersRequest'includeSessions = y__}))
Prelude.id
instance Data.ProtoLens.Message ListTowersRequest where
messageName _ = Data.Text.pack "wtclientrpc.ListTowersRequest"
packedMessageDescriptor _
= "\n\
\\DC1ListTowersRequest\DC2)\n\
\\DLEinclude_sessions\CAN\SOH \SOH(\bR\SIincludeSessions"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
includeSessions__field_descriptor
= Data.ProtoLens.FieldDescriptor
"include_sessions"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"includeSessions")) ::
Data.ProtoLens.FieldDescriptor ListTowersRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, includeSessions__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ListTowersRequest'_unknownFields
(\ x__ y__ -> x__ {_ListTowersRequest'_unknownFields = y__})
defMessage
= ListTowersRequest'_constructor
{_ListTowersRequest'includeSessions = Data.ProtoLens.fieldDefault,
_ListTowersRequest'_unknownFields = []}
parseMessage
= let
loop ::
ListTowersRequest
-> Data.ProtoLens.Encoding.Bytes.Parser ListTowersRequest
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_sessions"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"includeSessions") 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) "ListTowersRequest"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v
= Lens.Family2.view
(Data.ProtoLens.Field.field @"includeSessions") _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 ListTowersRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ListTowersRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_ListTowersRequest'includeSessions x__) ())
{- | Fields :
* 'Proto.Wtclientrpc.Wtclient_Fields.towers' @:: Lens' ListTowersResponse [Tower]@
* 'Proto.Wtclientrpc.Wtclient_Fields.vec'towers' @:: Lens' ListTowersResponse (Data.Vector.Vector Tower)@ -}
data ListTowersResponse
= ListTowersResponse'_constructor {_ListTowersResponse'towers :: !(Data.Vector.Vector Tower),
_ListTowersResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show ListTowersResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out ListTowersResponse
instance Data.ProtoLens.Field.HasField ListTowersResponse "towers" [Tower] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListTowersResponse'towers
(\ x__ y__ -> x__ {_ListTowersResponse'towers = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField ListTowersResponse "vec'towers" (Data.Vector.Vector Tower) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ListTowersResponse'towers
(\ x__ y__ -> x__ {_ListTowersResponse'towers = y__}))
Prelude.id
instance Data.ProtoLens.Message ListTowersResponse where
messageName _ = Data.Text.pack "wtclientrpc.ListTowersResponse"
packedMessageDescriptor _
= "\n\
\\DC2ListTowersResponse\DC2*\n\
\\ACKtowers\CAN\SOH \ETX(\v2\DC2.wtclientrpc.TowerR\ACKtowers"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
towers__field_descriptor
= Data.ProtoLens.FieldDescriptor
"towers"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Tower)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"towers")) ::
Data.ProtoLens.FieldDescriptor ListTowersResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, towers__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ListTowersResponse'_unknownFields
(\ x__ y__ -> x__ {_ListTowersResponse'_unknownFields = y__})
defMessage
= ListTowersResponse'_constructor
{_ListTowersResponse'towers = Data.Vector.Generic.empty,
_ListTowersResponse'_unknownFields = []}
parseMessage
= let
loop ::
ListTowersResponse
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Tower
-> Data.ProtoLens.Encoding.Bytes.Parser ListTowersResponse
loop x mutable'towers
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'towers <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'towers)
(let missing = []
in
if Prelude.null missing then
Prelude.return ()
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'towers") frozen'towers 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)
"towers"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'towers 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'towers
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'towers <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'towers)
"ListTowersResponse"
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'towers") _x))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData ListTowersResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ListTowersResponse'_unknownFields x__)
(Control.DeepSeq.deepseq (_ListTowersResponse'towers x__) ())
{- | Fields :
* 'Proto.Wtclientrpc.Wtclient_Fields.policyType' @:: Lens' PolicyRequest PolicyType@ -}
data PolicyRequest
= PolicyRequest'_constructor {_PolicyRequest'policyType :: !PolicyType,
_PolicyRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show PolicyRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out PolicyRequest
instance Data.ProtoLens.Field.HasField PolicyRequest "policyType" PolicyType where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PolicyRequest'policyType
(\ x__ y__ -> x__ {_PolicyRequest'policyType = y__}))
Prelude.id
instance Data.ProtoLens.Message PolicyRequest where
messageName _ = Data.Text.pack "wtclientrpc.PolicyRequest"
packedMessageDescriptor _
= "\n\
\\rPolicyRequest\DC28\n\
\\vpolicy_type\CAN\SOH \SOH(\SO2\ETB.wtclientrpc.PolicyTypeR\n\
\policyType"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
policyType__field_descriptor
= Data.ProtoLens.FieldDescriptor
"policy_type"
(Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor PolicyType)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"policyType")) ::
Data.ProtoLens.FieldDescriptor PolicyRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, policyType__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_PolicyRequest'_unknownFields
(\ x__ y__ -> x__ {_PolicyRequest'_unknownFields = y__})
defMessage
= PolicyRequest'_constructor
{_PolicyRequest'policyType = Data.ProtoLens.fieldDefault,
_PolicyRequest'_unknownFields = []}
parseMessage
= let
loop ::
PolicyRequest -> Data.ProtoLens.Encoding.Bytes.Parser PolicyRequest
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))
"policy_type"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"policyType") 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) "PolicyRequest"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"policyType") _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.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData PolicyRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_PolicyRequest'_unknownFields x__)
(Control.DeepSeq.deepseq (_PolicyRequest'policyType x__) ())
{- | Fields :
* 'Proto.Wtclientrpc.Wtclient_Fields.maxUpdates' @:: Lens' PolicyResponse Data.Word.Word32@
* 'Proto.Wtclientrpc.Wtclient_Fields.sweepSatPerByte' @:: Lens' PolicyResponse Data.Word.Word32@
* 'Proto.Wtclientrpc.Wtclient_Fields.sweepSatPerVbyte' @:: Lens' PolicyResponse Data.Word.Word32@ -}
data PolicyResponse
= PolicyResponse'_constructor {_PolicyResponse'maxUpdates :: !Data.Word.Word32,
_PolicyResponse'sweepSatPerByte :: !Data.Word.Word32,
_PolicyResponse'sweepSatPerVbyte :: !Data.Word.Word32,
_PolicyResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show PolicyResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out PolicyResponse
instance Data.ProtoLens.Field.HasField PolicyResponse "maxUpdates" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PolicyResponse'maxUpdates
(\ x__ y__ -> x__ {_PolicyResponse'maxUpdates = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PolicyResponse "sweepSatPerByte" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PolicyResponse'sweepSatPerByte
(\ x__ y__ -> x__ {_PolicyResponse'sweepSatPerByte = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField PolicyResponse "sweepSatPerVbyte" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_PolicyResponse'sweepSatPerVbyte
(\ x__ y__ -> x__ {_PolicyResponse'sweepSatPerVbyte = y__}))
Prelude.id
instance Data.ProtoLens.Message PolicyResponse where
messageName _ = Data.Text.pack "wtclientrpc.PolicyResponse"
packedMessageDescriptor _
= "\n\
\\SOPolicyResponse\DC2\US\n\
\\vmax_updates\CAN\SOH \SOH(\rR\n\
\maxUpdates\DC2/\n\
\\DC2sweep_sat_per_byte\CAN\STX \SOH(\rR\SIsweepSatPerByteB\STX\CAN\SOH\DC2-\n\
\\DC3sweep_sat_per_vbyte\CAN\ETX \SOH(\rR\DLEsweepSatPerVbyte"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
maxUpdates__field_descriptor
= Data.ProtoLens.FieldDescriptor
"max_updates"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"maxUpdates")) ::
Data.ProtoLens.FieldDescriptor PolicyResponse
sweepSatPerByte__field_descriptor
= Data.ProtoLens.FieldDescriptor
"sweep_sat_per_byte"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"sweepSatPerByte")) ::
Data.ProtoLens.FieldDescriptor PolicyResponse
sweepSatPerVbyte__field_descriptor
= Data.ProtoLens.FieldDescriptor
"sweep_sat_per_vbyte"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"sweepSatPerVbyte")) ::
Data.ProtoLens.FieldDescriptor PolicyResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, maxUpdates__field_descriptor),
(Data.ProtoLens.Tag 2, sweepSatPerByte__field_descriptor),
(Data.ProtoLens.Tag 3, sweepSatPerVbyte__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_PolicyResponse'_unknownFields
(\ x__ y__ -> x__ {_PolicyResponse'_unknownFields = y__})
defMessage
= PolicyResponse'_constructor
{_PolicyResponse'maxUpdates = Data.ProtoLens.fieldDefault,
_PolicyResponse'sweepSatPerByte = Data.ProtoLens.fieldDefault,
_PolicyResponse'sweepSatPerVbyte = Data.ProtoLens.fieldDefault,
_PolicyResponse'_unknownFields = []}
parseMessage
= let
loop ::
PolicyResponse
-> Data.ProtoLens.Encoding.Bytes.Parser PolicyResponse
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)
"max_updates"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"maxUpdates") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"sweep_sat_per_byte"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"sweepSatPerByte") y x)
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"sweep_sat_per_vbyte"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"sweepSatPerVbyte") 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) "PolicyResponse"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"maxUpdates") _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 @"sweepSatPerByte") _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 @"sweepSatPerVbyte") _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 PolicyResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_PolicyResponse'_unknownFields x__)
(Control.DeepSeq.deepseq
(_PolicyResponse'maxUpdates x__)
(Control.DeepSeq.deepseq
(_PolicyResponse'sweepSatPerByte x__)
(Control.DeepSeq.deepseq
(_PolicyResponse'sweepSatPerVbyte x__) ())))
newtype PolicyType'UnrecognizedValue
= PolicyType'UnrecognizedValue Data.Int.Int32
deriving stock (Prelude.Eq,
Prelude.Ord,
Prelude.Show,
GHC.Generics.Generic)
instance Text.PrettyPrint.GenericPretty.Out PolicyType'UnrecognizedValue
data PolicyType
= LEGACY |
ANCHOR |
PolicyType'Unrecognized !PolicyType'UnrecognizedValue
deriving stock (Prelude.Show,
Prelude.Eq,
Prelude.Ord,
GHC.Generics.Generic)
instance Data.ProtoLens.MessageEnum PolicyType where
maybeToEnum 0 = Prelude.Just LEGACY
maybeToEnum 1 = Prelude.Just ANCHOR
maybeToEnum k
= Prelude.Just
(PolicyType'Unrecognized
(PolicyType'UnrecognizedValue (Prelude.fromIntegral k)))
showEnum LEGACY = "LEGACY"
showEnum ANCHOR = "ANCHOR"
showEnum (PolicyType'Unrecognized (PolicyType'UnrecognizedValue k))
= Prelude.show k
readEnum k
| (Prelude.==) k "LEGACY" = Prelude.Just LEGACY
| (Prelude.==) k "ANCHOR" = Prelude.Just ANCHOR
| Prelude.otherwise
= (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum
instance Prelude.Bounded PolicyType where
minBound = LEGACY
maxBound = ANCHOR
instance Prelude.Enum PolicyType where
toEnum k__
= Prelude.maybe
(Prelude.error
((Prelude.++)
"toEnum: unknown value for enum PolicyType: " (Prelude.show k__)))
Prelude.id (Data.ProtoLens.maybeToEnum k__)
fromEnum LEGACY = 0
fromEnum ANCHOR = 1
fromEnum (PolicyType'Unrecognized (PolicyType'UnrecognizedValue k))
= Prelude.fromIntegral k
succ ANCHOR
= Prelude.error
"PolicyType.succ: bad argument ANCHOR. This value would be out of bounds."
succ LEGACY = ANCHOR
succ (PolicyType'Unrecognized _)
= Prelude.error "PolicyType.succ: bad argument: unrecognized value"
pred LEGACY
= Prelude.error
"PolicyType.pred: bad argument LEGACY. This value would be out of bounds."
pred ANCHOR = LEGACY
pred (PolicyType'Unrecognized _)
= Prelude.error "PolicyType.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 PolicyType where
fieldDefault = LEGACY
instance Control.DeepSeq.NFData PolicyType where
rnf x__ = Prelude.seq x__ ()
instance Text.PrettyPrint.GenericPretty.Out PolicyType
{- | Fields :
* 'Proto.Wtclientrpc.Wtclient_Fields.pubkey' @:: Lens' RemoveTowerRequest Data.ByteString.ByteString@
* 'Proto.Wtclientrpc.Wtclient_Fields.address' @:: Lens' RemoveTowerRequest Data.Text.Text@ -}
data RemoveTowerRequest
= RemoveTowerRequest'_constructor {_RemoveTowerRequest'pubkey :: !Data.ByteString.ByteString,
_RemoveTowerRequest'address :: !Data.Text.Text,
_RemoveTowerRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show RemoveTowerRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out RemoveTowerRequest
instance Data.ProtoLens.Field.HasField RemoveTowerRequest "pubkey" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RemoveTowerRequest'pubkey
(\ x__ y__ -> x__ {_RemoveTowerRequest'pubkey = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField RemoveTowerRequest "address" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_RemoveTowerRequest'address
(\ x__ y__ -> x__ {_RemoveTowerRequest'address = y__}))
Prelude.id
instance Data.ProtoLens.Message RemoveTowerRequest where
messageName _ = Data.Text.pack "wtclientrpc.RemoveTowerRequest"
packedMessageDescriptor _
= "\n\
\\DC2RemoveTowerRequest\DC2\SYN\n\
\\ACKpubkey\CAN\SOH \SOH(\fR\ACKpubkey\DC2\CAN\n\
\\aaddress\CAN\STX \SOH(\tR\aaddress"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
pubkey__field_descriptor
= Data.ProtoLens.FieldDescriptor
"pubkey"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pubkey")) ::
Data.ProtoLens.FieldDescriptor RemoveTowerRequest
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 RemoveTowerRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, pubkey__field_descriptor),
(Data.ProtoLens.Tag 2, address__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_RemoveTowerRequest'_unknownFields
(\ x__ y__ -> x__ {_RemoveTowerRequest'_unknownFields = y__})
defMessage
= RemoveTowerRequest'_constructor
{_RemoveTowerRequest'pubkey = Data.ProtoLens.fieldDefault,
_RemoveTowerRequest'address = Data.ProtoLens.fieldDefault,
_RemoveTowerRequest'_unknownFields = []}
parseMessage
= let
loop ::
RemoveTowerRequest
-> Data.ProtoLens.Encoding.Bytes.Parser RemoveTowerRequest
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))
"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))
"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) "RemoveTowerRequest"
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)
((\ 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 @"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.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData RemoveTowerRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_RemoveTowerRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_RemoveTowerRequest'pubkey x__)
(Control.DeepSeq.deepseq (_RemoveTowerRequest'address x__) ()))
{- | Fields :
-}
data RemoveTowerResponse
= RemoveTowerResponse'_constructor {_RemoveTowerResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show RemoveTowerResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out RemoveTowerResponse
instance Data.ProtoLens.Message RemoveTowerResponse where
messageName _ = Data.Text.pack "wtclientrpc.RemoveTowerResponse"
packedMessageDescriptor _
= "\n\
\\DC3RemoveTowerResponse"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag = let in Data.Map.fromList []
unknownFields
= Lens.Family2.Unchecked.lens
_RemoveTowerResponse'_unknownFields
(\ x__ y__ -> x__ {_RemoveTowerResponse'_unknownFields = y__})
defMessage
= RemoveTowerResponse'_constructor
{_RemoveTowerResponse'_unknownFields = []}
parseMessage
= let
loop ::
RemoveTowerResponse
-> Data.ProtoLens.Encoding.Bytes.Parser RemoveTowerResponse
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) "RemoveTowerResponse"
buildMessage
= \ _x
-> Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
instance Control.DeepSeq.NFData RemoveTowerResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_RemoveTowerResponse'_unknownFields x__) ()
{- | Fields :
-}
data StatsRequest
= StatsRequest'_constructor {_StatsRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show StatsRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out StatsRequest
instance Data.ProtoLens.Message StatsRequest where
messageName _ = Data.Text.pack "wtclientrpc.StatsRequest"
packedMessageDescriptor _
= "\n\
\\fStatsRequest"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag = let in Data.Map.fromList []
unknownFields
= Lens.Family2.Unchecked.lens
_StatsRequest'_unknownFields
(\ x__ y__ -> x__ {_StatsRequest'_unknownFields = y__})
defMessage
= StatsRequest'_constructor {_StatsRequest'_unknownFields = []}
parseMessage
= let
loop ::
StatsRequest -> Data.ProtoLens.Encoding.Bytes.Parser StatsRequest
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) "StatsRequest"
buildMessage
= \ _x
-> Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
instance Control.DeepSeq.NFData StatsRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq (_StatsRequest'_unknownFields x__) ()
{- | Fields :
* 'Proto.Wtclientrpc.Wtclient_Fields.numBackups' @:: Lens' StatsResponse Data.Word.Word32@
* 'Proto.Wtclientrpc.Wtclient_Fields.numPendingBackups' @:: Lens' StatsResponse Data.Word.Word32@
* 'Proto.Wtclientrpc.Wtclient_Fields.numFailedBackups' @:: Lens' StatsResponse Data.Word.Word32@
* 'Proto.Wtclientrpc.Wtclient_Fields.numSessionsAcquired' @:: Lens' StatsResponse Data.Word.Word32@
* 'Proto.Wtclientrpc.Wtclient_Fields.numSessionsExhausted' @:: Lens' StatsResponse Data.Word.Word32@ -}
data StatsResponse
= StatsResponse'_constructor {_StatsResponse'numBackups :: !Data.Word.Word32,
_StatsResponse'numPendingBackups :: !Data.Word.Word32,
_StatsResponse'numFailedBackups :: !Data.Word.Word32,
_StatsResponse'numSessionsAcquired :: !Data.Word.Word32,
_StatsResponse'numSessionsExhausted :: !Data.Word.Word32,
_StatsResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show StatsResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out StatsResponse
instance Data.ProtoLens.Field.HasField StatsResponse "numBackups" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_StatsResponse'numBackups
(\ x__ y__ -> x__ {_StatsResponse'numBackups = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField StatsResponse "numPendingBackups" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_StatsResponse'numPendingBackups
(\ x__ y__ -> x__ {_StatsResponse'numPendingBackups = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField StatsResponse "numFailedBackups" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_StatsResponse'numFailedBackups
(\ x__ y__ -> x__ {_StatsResponse'numFailedBackups = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField StatsResponse "numSessionsAcquired" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_StatsResponse'numSessionsAcquired
(\ x__ y__ -> x__ {_StatsResponse'numSessionsAcquired = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField StatsResponse "numSessionsExhausted" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_StatsResponse'numSessionsExhausted
(\ x__ y__ -> x__ {_StatsResponse'numSessionsExhausted = y__}))
Prelude.id
instance Data.ProtoLens.Message StatsResponse where
messageName _ = Data.Text.pack "wtclientrpc.StatsResponse"
packedMessageDescriptor _
= "\n\
\\rStatsResponse\DC2\US\n\
\\vnum_backups\CAN\SOH \SOH(\rR\n\
\numBackups\DC2.\n\
\\DC3num_pending_backups\CAN\STX \SOH(\rR\DC1numPendingBackups\DC2,\n\
\\DC2num_failed_backups\CAN\ETX \SOH(\rR\DLEnumFailedBackups\DC22\n\
\\NAKnum_sessions_acquired\CAN\EOT \SOH(\rR\DC3numSessionsAcquired\DC24\n\
\\SYNnum_sessions_exhausted\CAN\ENQ \SOH(\rR\DC4numSessionsExhausted"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
numBackups__field_descriptor
= Data.ProtoLens.FieldDescriptor
"num_backups"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"numBackups")) ::
Data.ProtoLens.FieldDescriptor StatsResponse
numPendingBackups__field_descriptor
= Data.ProtoLens.FieldDescriptor
"num_pending_backups"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"numPendingBackups")) ::
Data.ProtoLens.FieldDescriptor StatsResponse
numFailedBackups__field_descriptor
= Data.ProtoLens.FieldDescriptor
"num_failed_backups"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"numFailedBackups")) ::
Data.ProtoLens.FieldDescriptor StatsResponse
numSessionsAcquired__field_descriptor
= Data.ProtoLens.FieldDescriptor
"num_sessions_acquired"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"numSessionsAcquired")) ::
Data.ProtoLens.FieldDescriptor StatsResponse
numSessionsExhausted__field_descriptor
= Data.ProtoLens.FieldDescriptor
"num_sessions_exhausted"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"numSessionsExhausted")) ::
Data.ProtoLens.FieldDescriptor StatsResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, numBackups__field_descriptor),
(Data.ProtoLens.Tag 2, numPendingBackups__field_descriptor),
(Data.ProtoLens.Tag 3, numFailedBackups__field_descriptor),
(Data.ProtoLens.Tag 4, numSessionsAcquired__field_descriptor),
(Data.ProtoLens.Tag 5, numSessionsExhausted__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_StatsResponse'_unknownFields
(\ x__ y__ -> x__ {_StatsResponse'_unknownFields = y__})
defMessage
= StatsResponse'_constructor
{_StatsResponse'numBackups = Data.ProtoLens.fieldDefault,
_StatsResponse'numPendingBackups = Data.ProtoLens.fieldDefault,
_StatsResponse'numFailedBackups = Data.ProtoLens.fieldDefault,
_StatsResponse'numSessionsAcquired = Data.ProtoLens.fieldDefault,
_StatsResponse'numSessionsExhausted = Data.ProtoLens.fieldDefault,
_StatsResponse'_unknownFields = []}
parseMessage
= let
loop ::
StatsResponse -> Data.ProtoLens.Encoding.Bytes.Parser StatsResponse
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)
"num_backups"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"numBackups") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"num_pending_backups"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"numPendingBackups") y x)
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"num_failed_backups"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"numFailedBackups") y x)
32
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"num_sessions_acquired"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"numSessionsAcquired") y x)
40
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"num_sessions_exhausted"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"numSessionsExhausted") 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) "StatsResponse"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"numBackups") _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 @"numPendingBackups") _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 @"numFailedBackups") _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 @"numSessionsAcquired") _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 @"numSessionsExhausted") _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 StatsResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_StatsResponse'_unknownFields x__)
(Control.DeepSeq.deepseq
(_StatsResponse'numBackups x__)
(Control.DeepSeq.deepseq
(_StatsResponse'numPendingBackups x__)
(Control.DeepSeq.deepseq
(_StatsResponse'numFailedBackups x__)
(Control.DeepSeq.deepseq
(_StatsResponse'numSessionsAcquired x__)
(Control.DeepSeq.deepseq
(_StatsResponse'numSessionsExhausted x__) ())))))
{- | Fields :
* 'Proto.Wtclientrpc.Wtclient_Fields.pubkey' @:: Lens' Tower Data.ByteString.ByteString@
* 'Proto.Wtclientrpc.Wtclient_Fields.addresses' @:: Lens' Tower [Data.Text.Text]@
* 'Proto.Wtclientrpc.Wtclient_Fields.vec'addresses' @:: Lens' Tower (Data.Vector.Vector Data.Text.Text)@
* 'Proto.Wtclientrpc.Wtclient_Fields.activeSessionCandidate' @:: Lens' Tower Prelude.Bool@
* 'Proto.Wtclientrpc.Wtclient_Fields.numSessions' @:: Lens' Tower Data.Word.Word32@
* 'Proto.Wtclientrpc.Wtclient_Fields.sessions' @:: Lens' Tower [TowerSession]@
* 'Proto.Wtclientrpc.Wtclient_Fields.vec'sessions' @:: Lens' Tower (Data.Vector.Vector TowerSession)@ -}
data Tower
= Tower'_constructor {_Tower'pubkey :: !Data.ByteString.ByteString,
_Tower'addresses :: !(Data.Vector.Vector Data.Text.Text),
_Tower'activeSessionCandidate :: !Prelude.Bool,
_Tower'numSessions :: !Data.Word.Word32,
_Tower'sessions :: !(Data.Vector.Vector TowerSession),
_Tower'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show Tower where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out Tower
instance Data.ProtoLens.Field.HasField Tower "pubkey" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Tower'pubkey (\ x__ y__ -> x__ {_Tower'pubkey = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Tower "addresses" [Data.Text.Text] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Tower'addresses (\ x__ y__ -> x__ {_Tower'addresses = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField Tower "vec'addresses" (Data.Vector.Vector Data.Text.Text) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Tower'addresses (\ x__ y__ -> x__ {_Tower'addresses = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Tower "activeSessionCandidate" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Tower'activeSessionCandidate
(\ x__ y__ -> x__ {_Tower'activeSessionCandidate = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Tower "numSessions" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Tower'numSessions (\ x__ y__ -> x__ {_Tower'numSessions = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Tower "sessions" [TowerSession] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Tower'sessions (\ x__ y__ -> x__ {_Tower'sessions = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField Tower "vec'sessions" (Data.Vector.Vector TowerSession) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Tower'sessions (\ x__ y__ -> x__ {_Tower'sessions = y__}))
Prelude.id
instance Data.ProtoLens.Message Tower where
messageName _ = Data.Text.pack "wtclientrpc.Tower"
packedMessageDescriptor _
= "\n\
\\ENQTower\DC2\SYN\n\
\\ACKpubkey\CAN\SOH \SOH(\fR\ACKpubkey\DC2\FS\n\
\\taddresses\CAN\STX \ETX(\tR\taddresses\DC28\n\
\\CANactive_session_candidate\CAN\ETX \SOH(\bR\SYNactiveSessionCandidate\DC2!\n\
\\fnum_sessions\CAN\EOT \SOH(\rR\vnumSessions\DC25\n\
\\bsessions\CAN\ENQ \ETX(\v2\EM.wtclientrpc.TowerSessionR\bsessions"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
pubkey__field_descriptor
= Data.ProtoLens.FieldDescriptor
"pubkey"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pubkey")) ::
Data.ProtoLens.FieldDescriptor Tower
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 Tower
activeSessionCandidate__field_descriptor
= Data.ProtoLens.FieldDescriptor
"active_session_candidate"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"activeSessionCandidate")) ::
Data.ProtoLens.FieldDescriptor Tower
numSessions__field_descriptor
= Data.ProtoLens.FieldDescriptor
"num_sessions"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"numSessions")) ::
Data.ProtoLens.FieldDescriptor Tower
sessions__field_descriptor
= Data.ProtoLens.FieldDescriptor
"sessions"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TowerSession)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"sessions")) ::
Data.ProtoLens.FieldDescriptor Tower
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, pubkey__field_descriptor),
(Data.ProtoLens.Tag 2, addresses__field_descriptor),
(Data.ProtoLens.Tag 3, activeSessionCandidate__field_descriptor),
(Data.ProtoLens.Tag 4, numSessions__field_descriptor),
(Data.ProtoLens.Tag 5, sessions__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_Tower'_unknownFields
(\ x__ y__ -> x__ {_Tower'_unknownFields = y__})
defMessage
= Tower'_constructor
{_Tower'pubkey = Data.ProtoLens.fieldDefault,
_Tower'addresses = Data.Vector.Generic.empty,
_Tower'activeSessionCandidate = Data.ProtoLens.fieldDefault,
_Tower'numSessions = Data.ProtoLens.fieldDefault,
_Tower'sessions = Data.Vector.Generic.empty,
_Tower'_unknownFields = []}
parseMessage
= let
loop ::
Tower
-> 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 TowerSession
-> Data.ProtoLens.Encoding.Bytes.Parser Tower
loop x mutable'addresses mutable'sessions
= 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'sessions <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'sessions)
(let missing = []
in
if Prelude.null missing then
Prelude.return ()
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'sessions") frozen'sessions 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))
"pubkey"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"pubkey") y x)
mutable'addresses mutable'sessions
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))
"addresses"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'addresses y)
loop x v mutable'sessions
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"active_session_candidate"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"activeSessionCandidate") y x)
mutable'addresses mutable'sessions
32
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"num_sessions"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"numSessions") y x)
mutable'addresses mutable'sessions
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)
"sessions"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'sessions y)
loop x mutable'addresses v
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'addresses mutable'sessions
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'addresses <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
mutable'sessions <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'addresses mutable'sessions)
"Tower"
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)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
((Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.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 @"activeSessionCandidate") _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 @"numSessions") _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.<>)
(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'sessions") _x))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))))))
instance Control.DeepSeq.NFData Tower where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_Tower'_unknownFields x__)
(Control.DeepSeq.deepseq
(_Tower'pubkey x__)
(Control.DeepSeq.deepseq
(_Tower'addresses x__)
(Control.DeepSeq.deepseq
(_Tower'activeSessionCandidate x__)
(Control.DeepSeq.deepseq
(_Tower'numSessions x__)
(Control.DeepSeq.deepseq (_Tower'sessions x__) ())))))
{- | Fields :
* 'Proto.Wtclientrpc.Wtclient_Fields.numBackups' @:: Lens' TowerSession Data.Word.Word32@
* 'Proto.Wtclientrpc.Wtclient_Fields.numPendingBackups' @:: Lens' TowerSession Data.Word.Word32@
* 'Proto.Wtclientrpc.Wtclient_Fields.maxBackups' @:: Lens' TowerSession Data.Word.Word32@
* 'Proto.Wtclientrpc.Wtclient_Fields.sweepSatPerByte' @:: Lens' TowerSession Data.Word.Word32@
* 'Proto.Wtclientrpc.Wtclient_Fields.sweepSatPerVbyte' @:: Lens' TowerSession Data.Word.Word32@ -}
data TowerSession
= TowerSession'_constructor {_TowerSession'numBackups :: !Data.Word.Word32,
_TowerSession'numPendingBackups :: !Data.Word.Word32,
_TowerSession'maxBackups :: !Data.Word.Word32,
_TowerSession'sweepSatPerByte :: !Data.Word.Word32,
_TowerSession'sweepSatPerVbyte :: !Data.Word.Word32,
_TowerSession'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show TowerSession where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out TowerSession
instance Data.ProtoLens.Field.HasField TowerSession "numBackups" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_TowerSession'numBackups
(\ x__ y__ -> x__ {_TowerSession'numBackups = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField TowerSession "numPendingBackups" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_TowerSession'numPendingBackups
(\ x__ y__ -> x__ {_TowerSession'numPendingBackups = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField TowerSession "maxBackups" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_TowerSession'maxBackups
(\ x__ y__ -> x__ {_TowerSession'maxBackups = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField TowerSession "sweepSatPerByte" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_TowerSession'sweepSatPerByte
(\ x__ y__ -> x__ {_TowerSession'sweepSatPerByte = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField TowerSession "sweepSatPerVbyte" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_TowerSession'sweepSatPerVbyte
(\ x__ y__ -> x__ {_TowerSession'sweepSatPerVbyte = y__}))
Prelude.id
instance Data.ProtoLens.Message TowerSession where
messageName _ = Data.Text.pack "wtclientrpc.TowerSession"
packedMessageDescriptor _
= "\n\
\\fTowerSession\DC2\US\n\
\\vnum_backups\CAN\SOH \SOH(\rR\n\
\numBackups\DC2.\n\
\\DC3num_pending_backups\CAN\STX \SOH(\rR\DC1numPendingBackups\DC2\US\n\
\\vmax_backups\CAN\ETX \SOH(\rR\n\
\maxBackups\DC2/\n\
\\DC2sweep_sat_per_byte\CAN\EOT \SOH(\rR\SIsweepSatPerByteB\STX\CAN\SOH\DC2-\n\
\\DC3sweep_sat_per_vbyte\CAN\ENQ \SOH(\rR\DLEsweepSatPerVbyte"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
numBackups__field_descriptor
= Data.ProtoLens.FieldDescriptor
"num_backups"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"numBackups")) ::
Data.ProtoLens.FieldDescriptor TowerSession
numPendingBackups__field_descriptor
= Data.ProtoLens.FieldDescriptor
"num_pending_backups"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"numPendingBackups")) ::
Data.ProtoLens.FieldDescriptor TowerSession
maxBackups__field_descriptor
= Data.ProtoLens.FieldDescriptor
"max_backups"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"maxBackups")) ::
Data.ProtoLens.FieldDescriptor TowerSession
sweepSatPerByte__field_descriptor
= Data.ProtoLens.FieldDescriptor
"sweep_sat_per_byte"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"sweepSatPerByte")) ::
Data.ProtoLens.FieldDescriptor TowerSession
sweepSatPerVbyte__field_descriptor
= Data.ProtoLens.FieldDescriptor
"sweep_sat_per_vbyte"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"sweepSatPerVbyte")) ::
Data.ProtoLens.FieldDescriptor TowerSession
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, numBackups__field_descriptor),
(Data.ProtoLens.Tag 2, numPendingBackups__field_descriptor),
(Data.ProtoLens.Tag 3, maxBackups__field_descriptor),
(Data.ProtoLens.Tag 4, sweepSatPerByte__field_descriptor),
(Data.ProtoLens.Tag 5, sweepSatPerVbyte__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_TowerSession'_unknownFields
(\ x__ y__ -> x__ {_TowerSession'_unknownFields = y__})
defMessage
= TowerSession'_constructor
{_TowerSession'numBackups = Data.ProtoLens.fieldDefault,
_TowerSession'numPendingBackups = Data.ProtoLens.fieldDefault,
_TowerSession'maxBackups = Data.ProtoLens.fieldDefault,
_TowerSession'sweepSatPerByte = Data.ProtoLens.fieldDefault,
_TowerSession'sweepSatPerVbyte = Data.ProtoLens.fieldDefault,
_TowerSession'_unknownFields = []}
parseMessage
= let
loop ::
TowerSession -> Data.ProtoLens.Encoding.Bytes.Parser TowerSession
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)
"num_backups"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"numBackups") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"num_pending_backups"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"numPendingBackups") y x)
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"max_backups"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"maxBackups") y x)
32
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"sweep_sat_per_byte"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"sweepSatPerByte") y x)
40
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"sweep_sat_per_vbyte"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"sweepSatPerVbyte") 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) "TowerSession"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"numBackups") _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 @"numPendingBackups") _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 @"maxBackups") _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 @"sweepSatPerByte") _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 @"sweepSatPerVbyte") _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 TowerSession where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_TowerSession'_unknownFields x__)
(Control.DeepSeq.deepseq
(_TowerSession'numBackups x__)
(Control.DeepSeq.deepseq
(_TowerSession'numPendingBackups x__)
(Control.DeepSeq.deepseq
(_TowerSession'maxBackups x__)
(Control.DeepSeq.deepseq
(_TowerSession'sweepSatPerByte x__)
(Control.DeepSeq.deepseq
(_TowerSession'sweepSatPerVbyte x__) ())))))
data WatchtowerClient = WatchtowerClient {}
instance Data.ProtoLens.Service.Types.Service WatchtowerClient where
type ServiceName WatchtowerClient = "WatchtowerClient"
type ServicePackage WatchtowerClient = "wtclientrpc"
type ServiceMethods WatchtowerClient = '["addTower",
"getTowerInfo",
"listTowers",
"policy",
"removeTower",
"stats"]
packedServiceDescriptor _
= "\n\
\\DLEWatchtowerClient\DC2G\n\
\\bAddTower\DC2\FS.wtclientrpc.AddTowerRequest\SUB\GS.wtclientrpc.AddTowerResponse\DC2P\n\
\\vRemoveTower\DC2\US.wtclientrpc.RemoveTowerRequest\SUB .wtclientrpc.RemoveTowerResponse\DC2M\n\
\\n\
\ListTowers\DC2\RS.wtclientrpc.ListTowersRequest\SUB\US.wtclientrpc.ListTowersResponse\DC2D\n\
\\fGetTowerInfo\DC2 .wtclientrpc.GetTowerInfoRequest\SUB\DC2.wtclientrpc.Tower\DC2>\n\
\\ENQStats\DC2\EM.wtclientrpc.StatsRequest\SUB\SUB.wtclientrpc.StatsResponse\DC2A\n\
\\ACKPolicy\DC2\SUB.wtclientrpc.PolicyRequest\SUB\ESC.wtclientrpc.PolicyResponse"
instance Data.ProtoLens.Service.Types.HasMethodImpl WatchtowerClient "addTower" where
type MethodName WatchtowerClient "addTower" = "AddTower"
type MethodInput WatchtowerClient "addTower" = AddTowerRequest
type MethodOutput WatchtowerClient "addTower" = AddTowerResponse
type MethodStreamingType WatchtowerClient "addTower" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl WatchtowerClient "removeTower" where
type MethodName WatchtowerClient "removeTower" = "RemoveTower"
type MethodInput WatchtowerClient "removeTower" = RemoveTowerRequest
type MethodOutput WatchtowerClient "removeTower" = RemoveTowerResponse
type MethodStreamingType WatchtowerClient "removeTower" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl WatchtowerClient "listTowers" where
type MethodName WatchtowerClient "listTowers" = "ListTowers"
type MethodInput WatchtowerClient "listTowers" = ListTowersRequest
type MethodOutput WatchtowerClient "listTowers" = ListTowersResponse
type MethodStreamingType WatchtowerClient "listTowers" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl WatchtowerClient "getTowerInfo" where
type MethodName WatchtowerClient "getTowerInfo" = "GetTowerInfo"
type MethodInput WatchtowerClient "getTowerInfo" = GetTowerInfoRequest
type MethodOutput WatchtowerClient "getTowerInfo" = Tower
type MethodStreamingType WatchtowerClient "getTowerInfo" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl WatchtowerClient "stats" where
type MethodName WatchtowerClient "stats" = "Stats"
type MethodInput WatchtowerClient "stats" = StatsRequest
type MethodOutput WatchtowerClient "stats" = StatsResponse
type MethodStreamingType WatchtowerClient "stats" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl WatchtowerClient "policy" where
type MethodName WatchtowerClient "policy" = "Policy"
type MethodInput WatchtowerClient "policy" = PolicyRequest
type MethodOutput WatchtowerClient "policy" = PolicyResponse
type MethodStreamingType WatchtowerClient "policy" = 'Data.ProtoLens.Service.Types.NonStreaming
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor
= "\n\
\\SUBwtclientrpc/wtclient.proto\DC2\vwtclientrpc\"C\n\
\\SIAddTowerRequest\DC2\SYN\n\
\\ACKpubkey\CAN\SOH \SOH(\fR\ACKpubkey\DC2\CAN\n\
\\aaddress\CAN\STX \SOH(\tR\aaddress\"\DC2\n\
\\DLEAddTowerResponse\"F\n\
\\DC2RemoveTowerRequest\DC2\SYN\n\
\\ACKpubkey\CAN\SOH \SOH(\fR\ACKpubkey\DC2\CAN\n\
\\aaddress\CAN\STX \SOH(\tR\aaddress\"\NAK\n\
\\DC3RemoveTowerResponse\"X\n\
\\DC3GetTowerInfoRequest\DC2\SYN\n\
\\ACKpubkey\CAN\SOH \SOH(\fR\ACKpubkey\DC2)\n\
\\DLEinclude_sessions\CAN\STX \SOH(\bR\SIincludeSessions\"\224\SOH\n\
\\fTowerSession\DC2\US\n\
\\vnum_backups\CAN\SOH \SOH(\rR\n\
\numBackups\DC2.\n\
\\DC3num_pending_backups\CAN\STX \SOH(\rR\DC1numPendingBackups\DC2\US\n\
\\vmax_backups\CAN\ETX \SOH(\rR\n\
\maxBackups\DC2/\n\
\\DC2sweep_sat_per_byte\CAN\EOT \SOH(\rR\SIsweepSatPerByteB\STX\CAN\SOH\DC2-\n\
\\DC3sweep_sat_per_vbyte\CAN\ENQ \SOH(\rR\DLEsweepSatPerVbyte\"\209\SOH\n\
\\ENQTower\DC2\SYN\n\
\\ACKpubkey\CAN\SOH \SOH(\fR\ACKpubkey\DC2\FS\n\
\\taddresses\CAN\STX \ETX(\tR\taddresses\DC28\n\
\\CANactive_session_candidate\CAN\ETX \SOH(\bR\SYNactiveSessionCandidate\DC2!\n\
\\fnum_sessions\CAN\EOT \SOH(\rR\vnumSessions\DC25\n\
\\bsessions\CAN\ENQ \ETX(\v2\EM.wtclientrpc.TowerSessionR\bsessions\">\n\
\\DC1ListTowersRequest\DC2)\n\
\\DLEinclude_sessions\CAN\SOH \SOH(\bR\SIincludeSessions\"@\n\
\\DC2ListTowersResponse\DC2*\n\
\\ACKtowers\CAN\SOH \ETX(\v2\DC2.wtclientrpc.TowerR\ACKtowers\"\SO\n\
\\fStatsRequest\"\248\SOH\n\
\\rStatsResponse\DC2\US\n\
\\vnum_backups\CAN\SOH \SOH(\rR\n\
\numBackups\DC2.\n\
\\DC3num_pending_backups\CAN\STX \SOH(\rR\DC1numPendingBackups\DC2,\n\
\\DC2num_failed_backups\CAN\ETX \SOH(\rR\DLEnumFailedBackups\DC22\n\
\\NAKnum_sessions_acquired\CAN\EOT \SOH(\rR\DC3numSessionsAcquired\DC24\n\
\\SYNnum_sessions_exhausted\CAN\ENQ \SOH(\rR\DC4numSessionsExhausted\"I\n\
\\rPolicyRequest\DC28\n\
\\vpolicy_type\CAN\SOH \SOH(\SO2\ETB.wtclientrpc.PolicyTypeR\n\
\policyType\"\145\SOH\n\
\\SOPolicyResponse\DC2\US\n\
\\vmax_updates\CAN\SOH \SOH(\rR\n\
\maxUpdates\DC2/\n\
\\DC2sweep_sat_per_byte\CAN\STX \SOH(\rR\SIsweepSatPerByteB\STX\CAN\SOH\DC2-\n\
\\DC3sweep_sat_per_vbyte\CAN\ETX \SOH(\rR\DLEsweepSatPerVbyte*$\n\
\\n\
\PolicyType\DC2\n\
\\n\
\\ACKLEGACY\DLE\NUL\DC2\n\
\\n\
\\ACKANCHOR\DLE\SOH2\197\ETX\n\
\\DLEWatchtowerClient\DC2G\n\
\\bAddTower\DC2\FS.wtclientrpc.AddTowerRequest\SUB\GS.wtclientrpc.AddTowerResponse\DC2P\n\
\\vRemoveTower\DC2\US.wtclientrpc.RemoveTowerRequest\SUB .wtclientrpc.RemoveTowerResponse\DC2M\n\
\\n\
\ListTowers\DC2\RS.wtclientrpc.ListTowersRequest\SUB\US.wtclientrpc.ListTowersResponse\DC2D\n\
\\fGetTowerInfo\DC2 .wtclientrpc.GetTowerInfoRequest\SUB\DC2.wtclientrpc.Tower\DC2>\n\
\\ENQStats\DC2\EM.wtclientrpc.StatsRequest\SUB\SUB.wtclientrpc.StatsResponse\DC2A\n\
\\ACKPolicy\DC2\SUB.wtclientrpc.PolicyRequest\SUB\ESC.wtclientrpc.PolicyResponseB3Z1github.com/lightningnetwork/lnd/lnrpc/wtclientrpcJ\160.\n\
\\a\DC2\ENQ\NUL\NUL\192\SOH\SOH\n\
\\b\n\
\\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
\\b\n\
\\SOH\STX\DC2\ETX\STX\NUL\DC4\n\
\\b\n\
\\SOH\b\DC2\ETX\EOT\NULH\n\
\\t\n\
\\STX\b\v\DC2\ETX\EOT\NULH\n\
\u\n\
\\STX\ACK\NUL\DC2\EOT\b\NUL$\SOH\SUBi WatchtowerClient is a service that grants access to the watchtower client\n\
\ functionality of the daemon.\n\
\\n\
\\n\
\\n\
\\ETX\ACK\NUL\SOH\DC2\ETX\b\b\CAN\n\
\\251\SOH\n\
\\EOT\ACK\NUL\STX\NUL\DC2\ETX\SI\EOT>\SUB\237\SOH\n\
\AddTower adds a new watchtower reachable at the given address and\n\
\considers it for new sessions. If the watchtower already exists, then\n\
\any new addresses included will be considered when dialing it for\n\
\session negotiations and backups.\n\
\\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX\SI\b\DLE\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX\SI\DC2!\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX\SI,<\n\
\\160\STX\n\
\\EOT\ACK\NUL\STX\SOH\DC2\ETX\ETB\EOTG\SUB\146\STX\n\
\RemoveTower removes a watchtower from being considered for future session\n\
\negotiations and from being used for any subsequent backups until it's added\n\
\again. If an address is provided, then this RPC only serves as a way of\n\
\removing the address from the watchtower instead.\n\
\\n\
\\f\n\
\\ENQ\ACK\NUL\STX\SOH\SOH\DC2\ETX\ETB\b\DC3\n\
\\f\n\
\\ENQ\ACK\NUL\STX\SOH\STX\DC2\ETX\ETB\NAK'\n\
\\f\n\
\\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETX\ETB2E\n\
\U\n\
\\EOT\ACK\NUL\STX\STX\DC2\ETX\SUB\EOTD\SUBH ListTowers returns the list of watchtowers registered with the client.\n\
\\n\
\\f\n\
\\ENQ\ACK\NUL\STX\STX\SOH\DC2\ETX\SUB\b\DC2\n\
\\f\n\
\\ENQ\ACK\NUL\STX\STX\STX\DC2\ETX\SUB\DC4%\n\
\\f\n\
\\ENQ\ACK\NUL\STX\STX\ETX\DC2\ETX\SUB0B\n\
\N\n\
\\EOT\ACK\NUL\STX\ETX\DC2\ETX\GS\EOT;\SUBA GetTowerInfo retrieves information for a registered watchtower.\n\
\\n\
\\f\n\
\\ENQ\ACK\NUL\STX\ETX\SOH\DC2\ETX\GS\b\DC4\n\
\\f\n\
\\ENQ\ACK\NUL\STX\ETX\STX\DC2\ETX\GS\SYN)\n\
\\f\n\
\\ENQ\ACK\NUL\STX\ETX\ETX\DC2\ETX\GS49\n\
\R\n\
\\EOT\ACK\NUL\STX\EOT\DC2\ETX \EOT5\SUBE Stats returns the in-memory statistics of the client since startup.\n\
\\n\
\\f\n\
\\ENQ\ACK\NUL\STX\EOT\SOH\DC2\ETX \b\r\n\
\\f\n\
\\ENQ\ACK\NUL\STX\EOT\STX\DC2\ETX \SI\ESC\n\
\\f\n\
\\ENQ\ACK\NUL\STX\EOT\ETX\DC2\ETX &3\n\
\P\n\
\\EOT\ACK\NUL\STX\ENQ\DC2\ETX#\EOT8\SUBC Policy returns the active watchtower client policy configuration.\n\
\\n\
\\f\n\
\\ENQ\ACK\NUL\STX\ENQ\SOH\DC2\ETX#\b\SO\n\
\\f\n\
\\ENQ\ACK\NUL\STX\ENQ\STX\DC2\ETX#\DLE\GS\n\
\\f\n\
\\ENQ\ACK\NUL\STX\ENQ\ETX\DC2\ETX#(6\n\
\\n\
\\n\
\\STX\EOT\NUL\DC2\EOT&\NUL,\SOH\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX&\b\ETB\n\
\C\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX(\EOT\NAK\SUB6 The identifying public key of the watchtower to add.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX(\EOT\t\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX(\n\
\\DLE\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX(\DC3\DC4\n\
\B\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX+\EOT\ETB\SUB5 A network address the watchtower is reachable over.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX+\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX+\v\DC2\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX+\NAK\SYN\n\
\\n\
\\n\
\\STX\EOT\SOH\DC2\EOT.\NUL/\SOH\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX.\b\CAN\n\
\\n\
\\n\
\\STX\EOT\STX\DC2\EOT1\NUL;\SOH\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX1\b\SUB\n\
\F\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX3\EOT\NAK\SUB9 The identifying public key of the watchtower to remove.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX3\EOT\t\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX3\n\
\\DLE\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX3\DC3\DC4\n\
\\196\SOH\n\
\\EOT\EOT\STX\STX\SOH\DC2\ETX:\EOT\ETB\SUB\182\SOH\n\
\If set, then the record for this address will be removed, indicating that is\n\
\is stale. Otherwise, the watchtower will no longer be used for future\n\
\session negotiations and backups.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX:\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX:\v\DC2\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX:\NAK\SYN\n\
\\n\
\\n\
\\STX\EOT\ETX\DC2\EOT=\NUL>\SOH\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETX=\b\ESC\n\
\\n\
\\n\
\\STX\EOT\EOT\DC2\EOT@\NULF\SOH\n\
\\n\
\\n\
\\ETX\EOT\EOT\SOH\DC2\ETX@\b\ESC\n\
\X\n\
\\EOT\EOT\EOT\STX\NUL\DC2\ETXB\EOT\NAK\SUBK The identifying public key of the watchtower to retrieve information for.\n\
\\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETXB\EOT\t\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETXB\n\
\\DLE\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETXB\DC3\DC4\n\
\V\n\
\\EOT\EOT\EOT\STX\SOH\DC2\ETXE\EOT\RS\SUBI Whether we should include sessions with the watchtower in the response.\n\
\\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\ENQ\DC2\ETXE\EOT\b\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETXE\t\EM\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETXE\FS\GS\n\
\\n\
\\n\
\\STX\EOT\ENQ\DC2\EOTH\NULd\SOH\n\
\\n\
\\n\
\\ETX\EOT\ENQ\SOH\DC2\ETXH\b\DC4\n\
\d\n\
\\EOT\EOT\ENQ\STX\NUL\DC2\ETXM\EOT\ESC\SUBW\n\
\The total number of successful backups that have been made to the\n\
\watchtower session.\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETXM\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETXM\v\SYN\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETXM\EM\SUB\n\
\z\n\
\\EOT\EOT\ENQ\STX\SOH\DC2\ETXS\EOT#\SUBm\n\
\The total number of backups in the session that are currently pending to be\n\
\acknowledged by the watchtower.\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\ENQ\DC2\ETXS\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETXS\v\RS\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETXS!\"\n\
\O\n\
\\EOT\EOT\ENQ\STX\STX\DC2\ETXV\EOT\ESC\SUBB The maximum number of backups allowed by the watchtower session.\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\STX\ENQ\DC2\ETXV\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\STX\SOH\DC2\ETXV\v\SYN\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\STX\ETX\DC2\ETXV\EM\SUB\n\
\\187\SOH\n\
\\EOT\EOT\ENQ\STX\ETX\DC2\ETX]\EOT6\SUB\173\SOH\n\
\Deprecated, use sweep_sat_per_vbyte.\n\
\The fee rate, in satoshis per vbyte, that will be used by the watchtower for\n\
\the justice transaction in the event of a channel breach.\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\ETX\ENQ\DC2\ETX]\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\ETX\SOH\DC2\ETX]\v\GS\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\ETX\ETX\DC2\ETX] !\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\ETX\b\DC2\ETX]\"5\n\
\\r\n\
\\ACK\EOT\ENQ\STX\ETX\b\ETX\DC2\ETX]#4\n\
\\150\SOH\n\
\\EOT\EOT\ENQ\STX\EOT\DC2\ETXc\EOT#\SUB\136\SOH\n\
\The fee rate, in satoshis per vbyte, that will be used by the watchtower for\n\
\the justice transaction in the event of a channel breach.\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\EOT\ENQ\DC2\ETXc\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\EOT\SOH\DC2\ETXc\v\RS\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\EOT\ETX\DC2\ETXc!\"\n\
\\n\
\\n\
\\STX\EOT\ACK\DC2\EOTf\NULu\SOH\n\
\\n\
\\n\
\\ETX\EOT\ACK\SOH\DC2\ETXf\b\r\n\
\<\n\
\\EOT\EOT\ACK\STX\NUL\DC2\ETXh\EOT\NAK\SUB/ The identifying public key of the watchtower.\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETXh\EOT\t\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETXh\n\
\\DLE\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETXh\DC3\DC4\n\
\F\n\
\\EOT\EOT\ACK\STX\SOH\DC2\ETXk\EOT\"\SUB9 The list of addresses the watchtower is reachable over.\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\EOT\DC2\ETXk\EOT\f\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\ETXk\r\DC3\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETXk\DC4\GS\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETXk !\n\
\P\n\
\\EOT\EOT\ACK\STX\STX\DC2\ETXn\EOT&\SUBC Whether the watchtower is currently a candidate for new sessions.\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\ENQ\DC2\ETXn\EOT\b\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETXn\t!\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETXn$%\n\
\T\n\
\\EOT\EOT\ACK\STX\ETX\DC2\ETXq\EOT\FS\SUBG The number of sessions that have been negotiated with the watchtower.\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\ETX\ENQ\DC2\ETXq\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\ETX\SOH\DC2\ETXq\v\ETB\n\
\\f\n\
\\ENQ\EOT\ACK\STX\ETX\ETX\DC2\ETXq\SUB\ESC\n\
\R\n\
\\EOT\EOT\ACK\STX\EOT\DC2\ETXt\EOT'\SUBE The list of sessions that have been negotiated with the watchtower.\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\EOT\EOT\DC2\ETXt\EOT\f\n\
\\f\n\
\\ENQ\EOT\ACK\STX\EOT\ACK\DC2\ETXt\r\EM\n\
\\f\n\
\\ENQ\EOT\ACK\STX\EOT\SOH\DC2\ETXt\SUB\"\n\
\\f\n\
\\ENQ\EOT\ACK\STX\EOT\ETX\DC2\ETXt%&\n\
\\n\
\\n\
\\STX\EOT\a\DC2\EOTw\NULz\SOH\n\
\\n\
\\n\
\\ETX\EOT\a\SOH\DC2\ETXw\b\EM\n\
\V\n\
\\EOT\EOT\a\STX\NUL\DC2\ETXy\EOT\RS\SUBI Whether we should include sessions with the watchtower in the response.\n\
\\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ENQ\DC2\ETXy\EOT\b\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\SOH\DC2\ETXy\t\EM\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXy\FS\GS\n\
\\n\
\\n\
\\STX\EOT\b\DC2\EOT|\NUL\DEL\SOH\n\
\\n\
\\n\
\\ETX\EOT\b\SOH\DC2\ETX|\b\SUB\n\
\A\n\
\\EOT\EOT\b\STX\NUL\DC2\ETX~\EOT\RS\SUB4 The list of watchtowers available for new backups.\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\EOT\DC2\ETX~\EOT\f\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\ACK\DC2\ETX~\r\DC2\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\SOH\DC2\ETX~\DC3\EM\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\ETX\DC2\ETX~\FS\GS\n\
\\f\n\
\\STX\EOT\t\DC2\ACK\129\SOH\NUL\130\SOH\SOH\n\
\\v\n\
\\ETX\EOT\t\SOH\DC2\EOT\129\SOH\b\DC4\n\
\\f\n\
\\STX\EOT\n\
\\DC2\ACK\132\SOH\NUL\156\SOH\SOH\n\
\\v\n\
\\ETX\EOT\n\
\\SOH\DC2\EOT\132\SOH\b\NAK\n\
\a\n\
\\EOT\EOT\n\
\\STX\NUL\DC2\EOT\137\SOH\EOT\ESC\SUBS\n\
\The total number of backups made to all active and exhausted watchtower\n\
\sessions.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\ENQ\DC2\EOT\137\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\SOH\DC2\EOT\137\SOH\v\SYN\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\ETX\DC2\EOT\137\SOH\EM\SUB\n\
\\128\SOH\n\
\\EOT\EOT\n\
\\STX\SOH\DC2\EOT\143\SOH\EOT#\SUBr\n\
\The total number of backups that are pending to be acknowledged by all\n\
\active and exhausted watchtower sessions.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\ENQ\DC2\EOT\143\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\SOH\DC2\EOT\143\SOH\v\RS\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\SOH\ETX\DC2\EOT\143\SOH!\"\n\
\y\n\
\\EOT\EOT\n\
\\STX\STX\DC2\EOT\149\SOH\EOT\"\SUBk\n\
\The total number of backups that all active and exhausted watchtower\n\
\sessions have failed to acknowledge.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\STX\ENQ\DC2\EOT\149\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\STX\SOH\DC2\EOT\149\SOH\v\GS\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\STX\ETX\DC2\EOT\149\SOH !\n\
\E\n\
\\EOT\EOT\n\
\\STX\ETX\DC2\EOT\152\SOH\EOT%\SUB7 The total number of new sessions made to watchtowers.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ETX\ENQ\DC2\EOT\152\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ETX\SOH\DC2\EOT\152\SOH\v \n\
\\r\n\
\\ENQ\EOT\n\
\\STX\ETX\ETX\DC2\EOT\152\SOH#$\n\
\Q\n\
\\EOT\EOT\n\
\\STX\EOT\DC2\EOT\155\SOH\EOT&\SUBC The total number of watchtower sessions that have been exhausted.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\EOT\ENQ\DC2\EOT\155\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\EOT\SOH\DC2\EOT\155\SOH\v!\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\EOT\ETX\DC2\EOT\155\SOH$%\n\
\\f\n\
\\STX\ENQ\NUL\DC2\ACK\158\SOH\NUL\164\SOH\SOH\n\
\\v\n\
\\ETX\ENQ\NUL\SOH\DC2\EOT\158\SOH\ENQ\SI\n\
\@\n\
\\EOT\ENQ\NUL\STX\NUL\DC2\EOT\160\SOH\EOT\SI\SUB2 Selects the policy from the legacy tower client.\n\
\\n\
\\r\n\
\\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\EOT\160\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\ENQ\NUL\STX\NUL\STX\DC2\EOT\160\SOH\r\SO\n\
\@\n\
\\EOT\ENQ\NUL\STX\SOH\DC2\EOT\163\SOH\EOT\SI\SUB2 Selects the policy from the anchor tower client.\n\
\\n\
\\r\n\
\\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\EOT\163\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\ENQ\NUL\STX\SOH\STX\DC2\EOT\163\SOH\r\SO\n\
\\f\n\
\\STX\EOT\v\DC2\ACK\166\SOH\NUL\171\SOH\SOH\n\
\\v\n\
\\ETX\EOT\v\SOH\DC2\EOT\166\SOH\b\NAK\n\
\R\n\
\\EOT\EOT\v\STX\NUL\DC2\EOT\170\SOH\EOT\US\SUBD\n\
\The client type from which to retrieve the active offering policy.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\ACK\DC2\EOT\170\SOH\EOT\SO\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\SOH\DC2\EOT\170\SOH\SI\SUB\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\ETX\DC2\EOT\170\SOH\GS\RS\n\
\\f\n\
\\STX\EOT\f\DC2\ACK\173\SOH\NUL\192\SOH\SOH\n\
\\v\n\
\\ETX\EOT\f\SOH\DC2\EOT\173\SOH\b\SYN\n\
\f\n\
\\EOT\EOT\f\STX\NUL\DC2\EOT\178\SOH\EOT\ESC\SUBX\n\
\The maximum number of updates each session we negotiate with watchtowers\n\
\should allow.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\ENQ\DC2\EOT\178\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\SOH\DC2\EOT\178\SOH\v\SYN\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\ETX\DC2\EOT\178\SOH\EM\SUB\n\
\\181\SOH\n\
\\EOT\EOT\f\STX\SOH\DC2\EOT\185\SOH\EOT6\SUB\166\SOH\n\
\Deprecated, use sweep_sat_per_vbyte.\n\
\The fee rate, in satoshis per vbyte, that will be used by watchtowers for\n\
\justice transactions in response to channel breaches.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\ENQ\DC2\EOT\185\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\SOH\DC2\EOT\185\SOH\v\GS\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\ETX\DC2\EOT\185\SOH !\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\b\DC2\EOT\185\SOH\"5\n\
\\SO\n\
\\ACK\EOT\f\STX\SOH\b\ETX\DC2\EOT\185\SOH#4\n\
\\144\SOH\n\
\\EOT\EOT\f\STX\STX\DC2\EOT\191\SOH\EOT#\SUB\129\SOH\n\
\The fee rate, in satoshis per vbyte, that will be used by watchtowers for\n\
\justice transactions in response to channel breaches.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\STX\ENQ\DC2\EOT\191\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\STX\SOH\DC2\EOT\191\SOH\v\RS\n\
\\r\n\
\\ENQ\EOT\f\STX\STX\ETX\DC2\EOT\191\SOH!\"b\ACKproto3"