btc-lsp-0.1.0.0: src/Proto/BtcLsp/Data/LowLevel.hs
{- This file was auto-generated from btc_lsp/data/low_level.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies, DeriveGeneric#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.BtcLsp.Data.LowLevel (
LnHodlInvoice(), LnInvoice(), Msat(), OnChainAddress(), Urational()
) 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.BtcLsp.Data.LowLevel_Fields.val' @:: Lens' LnHodlInvoice Data.Text.Text@ -}
data LnHodlInvoice
= LnHodlInvoice'_constructor {_LnHodlInvoice'val :: !Data.Text.Text,
_LnHodlInvoice'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show LnHodlInvoice where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out LnHodlInvoice
instance Data.ProtoLens.Field.HasField LnHodlInvoice "val" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_LnHodlInvoice'val (\ x__ y__ -> x__ {_LnHodlInvoice'val = y__}))
Prelude.id
instance Data.ProtoLens.Message LnHodlInvoice where
messageName _ = Data.Text.pack "BtcLsp.Data.LowLevel.LnHodlInvoice"
packedMessageDescriptor _
= "\n\
\\rLnHodlInvoice\DC2\DLE\n\
\\ETXval\CAN\SOH \SOH(\tR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"val")) ::
Data.ProtoLens.FieldDescriptor LnHodlInvoice
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_LnHodlInvoice'_unknownFields
(\ x__ y__ -> x__ {_LnHodlInvoice'_unknownFields = y__})
defMessage
= LnHodlInvoice'_constructor
{_LnHodlInvoice'val = Data.ProtoLens.fieldDefault,
_LnHodlInvoice'_unknownFields = []}
parseMessage
= let
loop ::
LnHodlInvoice -> Data.ProtoLens.Encoding.Bytes.Parser LnHodlInvoice
loop x
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
10
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len)
Data.ProtoLens.Encoding.Bytes.runEither
(case Data.Text.Encoding.decodeUtf8' value of
(Prelude.Left err)
-> Prelude.Left (Prelude.show err)
(Prelude.Right r) -> Prelude.Right r))
"val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") y x)
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do loop Data.ProtoLens.defMessage) "LnHodlInvoice"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"val") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.Text.Encoding.encodeUtf8 _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData LnHodlInvoice where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_LnHodlInvoice'_unknownFields x__)
(Control.DeepSeq.deepseq (_LnHodlInvoice'val x__) ())
{- | Fields :
* 'Proto.BtcLsp.Data.LowLevel_Fields.val' @:: Lens' LnInvoice Data.Text.Text@ -}
data LnInvoice
= LnInvoice'_constructor {_LnInvoice'val :: !Data.Text.Text,
_LnInvoice'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show LnInvoice where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out LnInvoice
instance Data.ProtoLens.Field.HasField LnInvoice "val" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_LnInvoice'val (\ x__ y__ -> x__ {_LnInvoice'val = y__}))
Prelude.id
instance Data.ProtoLens.Message LnInvoice where
messageName _ = Data.Text.pack "BtcLsp.Data.LowLevel.LnInvoice"
packedMessageDescriptor _
= "\n\
\\tLnInvoice\DC2\DLE\n\
\\ETXval\CAN\SOH \SOH(\tR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"val")) ::
Data.ProtoLens.FieldDescriptor LnInvoice
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_LnInvoice'_unknownFields
(\ x__ y__ -> x__ {_LnInvoice'_unknownFields = y__})
defMessage
= LnInvoice'_constructor
{_LnInvoice'val = Data.ProtoLens.fieldDefault,
_LnInvoice'_unknownFields = []}
parseMessage
= let
loop :: LnInvoice -> Data.ProtoLens.Encoding.Bytes.Parser LnInvoice
loop x
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
10
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len)
Data.ProtoLens.Encoding.Bytes.runEither
(case Data.Text.Encoding.decodeUtf8' value of
(Prelude.Left err)
-> Prelude.Left (Prelude.show err)
(Prelude.Right r) -> Prelude.Right r))
"val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") y x)
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do loop Data.ProtoLens.defMessage) "LnInvoice"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"val") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.Text.Encoding.encodeUtf8 _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData LnInvoice where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_LnInvoice'_unknownFields x__)
(Control.DeepSeq.deepseq (_LnInvoice'val x__) ())
{- | Fields :
* 'Proto.BtcLsp.Data.LowLevel_Fields.val' @:: Lens' Msat Data.Word.Word64@ -}
data Msat
= Msat'_constructor {_Msat'val :: !Data.Word.Word64,
_Msat'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show Msat where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out Msat
instance Data.ProtoLens.Field.HasField Msat "val" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Msat'val (\ x__ y__ -> x__ {_Msat'val = y__}))
Prelude.id
instance Data.ProtoLens.Message Msat where
messageName _ = Data.Text.pack "BtcLsp.Data.LowLevel.Msat"
packedMessageDescriptor _
= "\n\
\\EOTMsat\DC2\DLE\n\
\\ETXval\CAN\SOH \SOH(\EOTR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"val")) ::
Data.ProtoLens.FieldDescriptor Msat
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_Msat'_unknownFields
(\ x__ y__ -> x__ {_Msat'_unknownFields = y__})
defMessage
= Msat'_constructor
{_Msat'val = Data.ProtoLens.fieldDefault,
_Msat'_unknownFields = []}
parseMessage
= let
loop :: Msat -> Data.ProtoLens.Encoding.Bytes.Parser Msat
loop x
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") y x)
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do loop Data.ProtoLens.defMessage) "Msat"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"val") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData Msat where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_Msat'_unknownFields x__)
(Control.DeepSeq.deepseq (_Msat'val x__) ())
{- | Fields :
* 'Proto.BtcLsp.Data.LowLevel_Fields.val' @:: Lens' OnChainAddress Data.Text.Text@ -}
data OnChainAddress
= OnChainAddress'_constructor {_OnChainAddress'val :: !Data.Text.Text,
_OnChainAddress'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show OnChainAddress where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out OnChainAddress
instance Data.ProtoLens.Field.HasField OnChainAddress "val" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_OnChainAddress'val (\ x__ y__ -> x__ {_OnChainAddress'val = y__}))
Prelude.id
instance Data.ProtoLens.Message OnChainAddress where
messageName _
= Data.Text.pack "BtcLsp.Data.LowLevel.OnChainAddress"
packedMessageDescriptor _
= "\n\
\\SOOnChainAddress\DC2\DLE\n\
\\ETXval\CAN\SOH \SOH(\tR\ETXval"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
val__field_descriptor
= Data.ProtoLens.FieldDescriptor
"val"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"val")) ::
Data.ProtoLens.FieldDescriptor OnChainAddress
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, val__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_OnChainAddress'_unknownFields
(\ x__ y__ -> x__ {_OnChainAddress'_unknownFields = y__})
defMessage
= OnChainAddress'_constructor
{_OnChainAddress'val = Data.ProtoLens.fieldDefault,
_OnChainAddress'_unknownFields = []}
parseMessage
= let
loop ::
OnChainAddress
-> Data.ProtoLens.Encoding.Bytes.Parser OnChainAddress
loop x
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
10
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len)
Data.ProtoLens.Encoding.Bytes.runEither
(case Data.Text.Encoding.decodeUtf8' value of
(Prelude.Left err)
-> Prelude.Left (Prelude.show err)
(Prelude.Right r) -> Prelude.Right r))
"val"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"val") y x)
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do loop Data.ProtoLens.defMessage) "OnChainAddress"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"val") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.Text.Encoding.encodeUtf8 _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData OnChainAddress where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_OnChainAddress'_unknownFields x__)
(Control.DeepSeq.deepseq (_OnChainAddress'val x__) ())
{- | Fields :
* 'Proto.BtcLsp.Data.LowLevel_Fields.numerator' @:: Lens' Urational Data.Word.Word64@
* 'Proto.BtcLsp.Data.LowLevel_Fields.denominator' @:: Lens' Urational Data.Word.Word64@ -}
data Urational
= Urational'_constructor {_Urational'numerator :: !Data.Word.Word64,
_Urational'denominator :: !Data.Word.Word64,
_Urational'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord, GHC.Generics.Generic)
instance Prelude.Show Urational where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Text.PrettyPrint.GenericPretty.Out Urational
instance Data.ProtoLens.Field.HasField Urational "numerator" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Urational'numerator
(\ x__ y__ -> x__ {_Urational'numerator = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Urational "denominator" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Urational'denominator
(\ x__ y__ -> x__ {_Urational'denominator = y__}))
Prelude.id
instance Data.ProtoLens.Message Urational where
messageName _ = Data.Text.pack "BtcLsp.Data.LowLevel.Urational"
packedMessageDescriptor _
= "\n\
\\tUrational\DC2\FS\n\
\\tnumerator\CAN\SOH \SOH(\EOTR\tnumerator\DC2 \n\
\\vdenominator\CAN\STX \SOH(\EOTR\vdenominator"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
numerator__field_descriptor
= Data.ProtoLens.FieldDescriptor
"numerator"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"numerator")) ::
Data.ProtoLens.FieldDescriptor Urational
denominator__field_descriptor
= Data.ProtoLens.FieldDescriptor
"denominator"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"denominator")) ::
Data.ProtoLens.FieldDescriptor Urational
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, numerator__field_descriptor),
(Data.ProtoLens.Tag 2, denominator__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_Urational'_unknownFields
(\ x__ y__ -> x__ {_Urational'_unknownFields = y__})
defMessage
= Urational'_constructor
{_Urational'numerator = Data.ProtoLens.fieldDefault,
_Urational'denominator = Data.ProtoLens.fieldDefault,
_Urational'_unknownFields = []}
parseMessage
= let
loop :: Urational -> Data.ProtoLens.Encoding.Bytes.Parser Urational
loop x
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "numerator"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"numerator") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "denominator"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"denominator") 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) "Urational"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"numerator") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"denominator") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
(Data.ProtoLens.Encoding.Bytes.putVarInt _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData Urational where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_Urational'_unknownFields x__)
(Control.DeepSeq.deepseq
(_Urational'numerator x__)
(Control.DeepSeq.deepseq (_Urational'denominator x__) ()))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor
= "\n\
\\FSbtc_lsp/data/low_level.proto\DC2\DC4BtcLsp.Data.LowLevel\"K\n\
\\tUrational\DC2\FS\n\
\\tnumerator\CAN\SOH \SOH(\EOTR\tnumerator\DC2 \n\
\\vdenominator\CAN\STX \SOH(\EOTR\vdenominator\"\CAN\n\
\\EOTMsat\DC2\DLE\n\
\\ETXval\CAN\SOH \SOH(\EOTR\ETXval\"\GS\n\
\\tLnInvoice\DC2\DLE\n\
\\ETXval\CAN\SOH \SOH(\tR\ETXval\"!\n\
\\rLnHodlInvoice\DC2\DLE\n\
\\ETXval\CAN\SOH \SOH(\tR\ETXval\"\"\n\
\\SOOnChainAddress\DC2\DLE\n\
\\ETXval\CAN\SOH \SOH(\tR\ETXvalJ\206\EOT\n\
\\ACK\DC2\EOT\NUL\NUL\GS\SOH\n\
\\b\n\
\\SOH\f\DC2\ETX\NUL\NUL\DLE\n\
\x\n\
\\SOH\STX\DC2\ETX\b\NUL\GS2n\n\
\ LowLevel types which are used only to\n\
\ create HighLevel types, and are not used\n\
\ directly in Grpc Methods.\n\
\\n\
\\n\
\\n\
\\n\
\\STX\EOT\NUL\DC2\EOT\n\
\\NUL\r\SOH\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\n\
\\b\DC1\n\
\\v\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX\v\STX\ETB\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\v\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\v\t\DC2\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\v\NAK\SYN\n\
\\v\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX\f\STX\EM\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\f\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\f\t\DC4\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\f\ETB\CAN\n\
\\n\
\\n\
\\STX\EOT\SOH\DC2\EOT\SI\NUL\DC1\SOH\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX\SI\b\f\n\
\\v\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX\DLE\STX\DC1\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\DLE\STX\b\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\DLE\t\f\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\DLE\SI\DLE\n\
\\n\
\\n\
\\STX\EOT\STX\DC2\EOT\DC3\NUL\NAK\SOH\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX\DC3\b\DC1\n\
\\v\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX\DC4\STX\DC1\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX\DC4\STX\b\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\DC4\t\f\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\DC4\SI\DLE\n\
\\n\
\\n\
\\STX\EOT\ETX\DC2\EOT\ETB\NUL\EM\SOH\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETX\ETB\b\NAK\n\
\\v\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETX\CAN\STX\DC1\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX\CAN\STX\b\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\CAN\t\f\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\CAN\SI\DLE\n\
\\n\
\\n\
\\STX\EOT\EOT\DC2\EOT\ESC\NUL\GS\SOH\n\
\\n\
\\n\
\\ETX\EOT\EOT\SOH\DC2\ETX\ESC\b\SYN\n\
\\v\n\
\\EOT\EOT\EOT\STX\NUL\DC2\ETX\FS\STX\DC1\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETX\FS\STX\b\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX\FS\t\f\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX\FS\SI\DLEb\ACKproto3"