{- 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"