lnd-client-0.1.0.1: src/Proto/Watchtowerrpc/Watchtower.hs
{- This file was auto-generated from watchtowerrpc/watchtower.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.Watchtowerrpc.Watchtower (
Watchtower(..), GetInfoRequest(), GetInfoResponse()
) 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 :
-}
data GetInfoRequest
= GetInfoRequest'_constructor {_GetInfoRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show GetInfoRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out GetInfoRequest
instance Data.ProtoLens.Message GetInfoRequest where
messageName _ = Data.Text.pack "watchtowerrpc.GetInfoRequest"
packedMessageDescriptor _
= "\n\
\\SOGetInfoRequest"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag = let in Data.Map.fromList []
unknownFields
= Lens.Family2.Unchecked.lens
_GetInfoRequest'_unknownFields
(\ x__ y__ -> x__ {_GetInfoRequest'_unknownFields = y__})
defMessage
= GetInfoRequest'_constructor {_GetInfoRequest'_unknownFields = []}
parseMessage
= let
loop ::
GetInfoRequest
-> Data.ProtoLens.Encoding.Bytes.Parser GetInfoRequest
loop x
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of {
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) }
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do loop Data.ProtoLens.defMessage) "GetInfoRequest"
buildMessage
= \ _x
-> Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
instance Control.DeepSeq.NFData GetInfoRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq (_GetInfoRequest'_unknownFields x__) ()
{- | Fields :
* 'Proto.Watchtowerrpc.Watchtower_Fields.pubkey' @:: Lens' GetInfoResponse Data.ByteString.ByteString@
* 'Proto.Watchtowerrpc.Watchtower_Fields.listeners' @:: Lens' GetInfoResponse [Data.Text.Text]@
* 'Proto.Watchtowerrpc.Watchtower_Fields.vec'listeners' @:: Lens' GetInfoResponse (Data.Vector.Vector Data.Text.Text)@
* 'Proto.Watchtowerrpc.Watchtower_Fields.uris' @:: Lens' GetInfoResponse [Data.Text.Text]@
* 'Proto.Watchtowerrpc.Watchtower_Fields.vec'uris' @:: Lens' GetInfoResponse (Data.Vector.Vector Data.Text.Text)@ -}
data GetInfoResponse
= GetInfoResponse'_constructor {_GetInfoResponse'pubkey :: !Data.ByteString.ByteString,
_GetInfoResponse'listeners :: !(Data.Vector.Vector Data.Text.Text),
_GetInfoResponse'uris :: !(Data.Vector.Vector Data.Text.Text),
_GetInfoResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show GetInfoResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out GetInfoResponse
instance Data.ProtoLens.Field.HasField GetInfoResponse "pubkey" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetInfoResponse'pubkey
(\ x__ y__ -> x__ {_GetInfoResponse'pubkey = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField GetInfoResponse "listeners" [Data.Text.Text] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetInfoResponse'listeners
(\ x__ y__ -> x__ {_GetInfoResponse'listeners = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField GetInfoResponse "vec'listeners" (Data.Vector.Vector Data.Text.Text) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetInfoResponse'listeners
(\ x__ y__ -> x__ {_GetInfoResponse'listeners = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField GetInfoResponse "uris" [Data.Text.Text] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetInfoResponse'uris
(\ x__ y__ -> x__ {_GetInfoResponse'uris = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField GetInfoResponse "vec'uris" (Data.Vector.Vector Data.Text.Text) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetInfoResponse'uris
(\ x__ y__ -> x__ {_GetInfoResponse'uris = y__}))
Prelude.id
instance Data.ProtoLens.Message GetInfoResponse where
messageName _ = Data.Text.pack "watchtowerrpc.GetInfoResponse"
packedMessageDescriptor _
= "\n\
\\SIGetInfoResponse\DC2\SYN\n\
\\ACKpubkey\CAN\SOH \SOH(\fR\ACKpubkey\DC2\FS\n\
\\tlisteners\CAN\STX \ETX(\tR\tlisteners\DC2\DC2\n\
\\EOTuris\CAN\ETX \ETX(\tR\EOTuris"
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 GetInfoResponse
listeners__field_descriptor
= Data.ProtoLens.FieldDescriptor
"listeners"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"listeners")) ::
Data.ProtoLens.FieldDescriptor GetInfoResponse
uris__field_descriptor
= Data.ProtoLens.FieldDescriptor
"uris"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"uris")) ::
Data.ProtoLens.FieldDescriptor GetInfoResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, pubkey__field_descriptor),
(Data.ProtoLens.Tag 2, listeners__field_descriptor),
(Data.ProtoLens.Tag 3, uris__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_GetInfoResponse'_unknownFields
(\ x__ y__ -> x__ {_GetInfoResponse'_unknownFields = y__})
defMessage
= GetInfoResponse'_constructor
{_GetInfoResponse'pubkey = Data.ProtoLens.fieldDefault,
_GetInfoResponse'listeners = Data.Vector.Generic.empty,
_GetInfoResponse'uris = Data.Vector.Generic.empty,
_GetInfoResponse'_unknownFields = []}
parseMessage
= let
loop ::
GetInfoResponse
-> 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 Data.Text.Text
-> Data.ProtoLens.Encoding.Bytes.Parser GetInfoResponse
loop x mutable'listeners mutable'uris
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'listeners <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'listeners)
frozen'uris <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'uris)
(let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'listeners") frozen'listeners
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'uris") frozen'uris 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'listeners mutable'uris
18
-> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len)
Data.ProtoLens.Encoding.Bytes.runEither
(case Data.Text.Encoding.decodeUtf8' value of
(Prelude.Left err)
-> Prelude.Left (Prelude.show err)
(Prelude.Right r) -> Prelude.Right r))
"listeners"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'listeners y)
loop x v mutable'uris
26
-> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len)
Data.ProtoLens.Encoding.Bytes.runEither
(case Data.Text.Encoding.decodeUtf8' value of
(Prelude.Left err)
-> Prelude.Left (Prelude.show err)
(Prelude.Right r) -> Prelude.Right r))
"uris"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'uris y)
loop x mutable'listeners v
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'listeners mutable'uris
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'listeners <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
mutable'uris <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'listeners mutable'uris)
"GetInfoResponse"
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'listeners") _x))
((Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.Text.Encoding.encodeUtf8 _v))
(Lens.Family2.view (Data.ProtoLens.Field.field @"vec'uris") _x))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))))
instance Control.DeepSeq.NFData GetInfoResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_GetInfoResponse'_unknownFields x__)
(Control.DeepSeq.deepseq
(_GetInfoResponse'pubkey x__)
(Control.DeepSeq.deepseq
(_GetInfoResponse'listeners x__)
(Control.DeepSeq.deepseq (_GetInfoResponse'uris x__) ())))
data Watchtower = Watchtower {}
instance Data.ProtoLens.Service.Types.Service Watchtower where
type ServiceName Watchtower = "Watchtower"
type ServicePackage Watchtower = "watchtowerrpc"
type ServiceMethods Watchtower = '["getInfo"]
packedServiceDescriptor _
= "\n\
\\n\
\Watchtower\DC2H\n\
\\aGetInfo\DC2\GS.watchtowerrpc.GetInfoRequest\SUB\RS.watchtowerrpc.GetInfoResponse"
instance Data.ProtoLens.Service.Types.HasMethodImpl Watchtower "getInfo" where
type MethodName Watchtower "getInfo" = "GetInfo"
type MethodInput Watchtower "getInfo" = GetInfoRequest
type MethodOutput Watchtower "getInfo" = GetInfoResponse
type MethodStreamingType Watchtower "getInfo" = 'Data.ProtoLens.Service.Types.NonStreaming
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor
= "\n\
\\RSwatchtowerrpc/watchtower.proto\DC2\rwatchtowerrpc\"\DLE\n\
\\SOGetInfoRequest\"[\n\
\\SIGetInfoResponse\DC2\SYN\n\
\\ACKpubkey\CAN\SOH \SOH(\fR\ACKpubkey\DC2\FS\n\
\\tlisteners\CAN\STX \ETX(\tR\tlisteners\DC2\DC2\n\
\\EOTuris\CAN\ETX \ETX(\tR\EOTuris2V\n\
\\n\
\Watchtower\DC2H\n\
\\aGetInfo\DC2\GS.watchtowerrpc.GetInfoRequest\SUB\RS.watchtowerrpc.GetInfoResponseB5Z3github.com/lightningnetwork/lnd/lnrpc/watchtowerrpcJ\254\ENQ\n\
\\ACK\DC2\EOT\NUL\NUL\GS\SOH\n\
\\b\n\
\\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
\\b\n\
\\SOH\STX\DC2\ETX\STX\NUL\SYN\n\
\\b\n\
\\SOH\b\DC2\ETX\EOT\NULJ\n\
\\t\n\
\\STX\b\v\DC2\ETX\EOT\NULJ\n\
\o\n\
\\STX\ACK\NUL\DC2\EOT\b\NUL\SI\SOH\SUBc Watchtower is a service that grants access to the watchtower server\n\
\ functionality of the daemon.\n\
\\n\
\\n\
\\n\
\\ETX\ACK\NUL\SOH\DC2\ETX\b\b\DC2\n\
\\192\SOH\n\
\\EOT\ACK\NUL\STX\NUL\DC2\ETX\SO\EOT;\SUB\178\SOH lncli: tower info\n\
\GetInfo returns general information concerning the companion watchtower\n\
\including its public key and URIs where the server is currently\n\
\listening for clients.\n\
\\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX\SO\b\SI\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX\SO\DC1\US\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX\SO*9\n\
\\n\
\\n\
\\STX\EOT\NUL\DC2\EOT\DC1\NUL\DC2\SOH\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\DC1\b\SYN\n\
\\n\
\\n\
\\STX\EOT\SOH\DC2\EOT\DC4\NUL\GS\SOH\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX\DC4\b\ETB\n\
\0\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX\SYN\EOT\NAK\SUB# The public key of the watchtower.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\SYN\EOT\t\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\SYN\n\
\\DLE\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\SYN\DC3\DC4\n\
\9\n\
\\EOT\EOT\SOH\STX\SOH\DC2\ETX\EM\EOT\"\SUB, The listening addresses of the watchtower.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\EOT\DC2\ETX\EM\EOT\f\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\EM\r\DC3\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\EM\DC4\GS\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\EM !\n\
\*\n\
\\EOT\EOT\SOH\STX\STX\DC2\ETX\FS\EOT\GS\SUB\GS The URIs of the watchtower.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\EOT\DC2\ETX\FS\EOT\f\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ENQ\DC2\ETX\FS\r\DC3\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX\FS\DC4\CAN\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX\FS\ESC\FSb\ACKproto3"