{- This file was auto-generated from health/v1/health.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Health.V1.Health (
        Health(..), HealthCheckRequest(), HealthCheckResponse(),
        HealthCheckResponse'ServingStatus(..),
        HealthCheckResponse'ServingStatus(),
        HealthCheckResponse'ServingStatus'UnrecognizedValue
    ) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
{- | Fields :
     
         * 'Proto.Health.V1.Health_Fields.service' @:: Lens' HealthCheckRequest Data.Text.Text@ -}
data HealthCheckRequest
  = HealthCheckRequest'_constructor {HealthCheckRequest -> Text
_HealthCheckRequest'service :: !Data.Text.Text,
                                     HealthCheckRequest -> FieldSet
_HealthCheckRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (HealthCheckRequest -> HealthCheckRequest -> Bool
(HealthCheckRequest -> HealthCheckRequest -> Bool)
-> (HealthCheckRequest -> HealthCheckRequest -> Bool)
-> Eq HealthCheckRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HealthCheckRequest -> HealthCheckRequest -> Bool
== :: HealthCheckRequest -> HealthCheckRequest -> Bool
$c/= :: HealthCheckRequest -> HealthCheckRequest -> Bool
/= :: HealthCheckRequest -> HealthCheckRequest -> Bool
Prelude.Eq, Eq HealthCheckRequest
Eq HealthCheckRequest =>
(HealthCheckRequest -> HealthCheckRequest -> Ordering)
-> (HealthCheckRequest -> HealthCheckRequest -> Bool)
-> (HealthCheckRequest -> HealthCheckRequest -> Bool)
-> (HealthCheckRequest -> HealthCheckRequest -> Bool)
-> (HealthCheckRequest -> HealthCheckRequest -> Bool)
-> (HealthCheckRequest -> HealthCheckRequest -> HealthCheckRequest)
-> (HealthCheckRequest -> HealthCheckRequest -> HealthCheckRequest)
-> Ord HealthCheckRequest
HealthCheckRequest -> HealthCheckRequest -> Bool
HealthCheckRequest -> HealthCheckRequest -> Ordering
HealthCheckRequest -> HealthCheckRequest -> HealthCheckRequest
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: HealthCheckRequest -> HealthCheckRequest -> Ordering
compare :: HealthCheckRequest -> HealthCheckRequest -> Ordering
$c< :: HealthCheckRequest -> HealthCheckRequest -> Bool
< :: HealthCheckRequest -> HealthCheckRequest -> Bool
$c<= :: HealthCheckRequest -> HealthCheckRequest -> Bool
<= :: HealthCheckRequest -> HealthCheckRequest -> Bool
$c> :: HealthCheckRequest -> HealthCheckRequest -> Bool
> :: HealthCheckRequest -> HealthCheckRequest -> Bool
$c>= :: HealthCheckRequest -> HealthCheckRequest -> Bool
>= :: HealthCheckRequest -> HealthCheckRequest -> Bool
$cmax :: HealthCheckRequest -> HealthCheckRequest -> HealthCheckRequest
max :: HealthCheckRequest -> HealthCheckRequest -> HealthCheckRequest
$cmin :: HealthCheckRequest -> HealthCheckRequest -> HealthCheckRequest
min :: HealthCheckRequest -> HealthCheckRequest -> HealthCheckRequest
Prelude.Ord)
instance Prelude.Show HealthCheckRequest where
  showsPrec :: Int -> HealthCheckRequest -> ShowS
showsPrec Int
_ HealthCheckRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (HealthCheckRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort HealthCheckRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField HealthCheckRequest "service" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "service"
-> (Text -> f Text) -> HealthCheckRequest -> f HealthCheckRequest
fieldOf Proxy# "service"
_
    = ((Text -> f Text) -> HealthCheckRequest -> f HealthCheckRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> HealthCheckRequest
-> f HealthCheckRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((HealthCheckRequest -> Text)
-> (HealthCheckRequest -> Text -> HealthCheckRequest)
-> Lens HealthCheckRequest HealthCheckRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           HealthCheckRequest -> Text
_HealthCheckRequest'service
           (\ HealthCheckRequest
x__ Text
y__ -> HealthCheckRequest
x__ {_HealthCheckRequest'service = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message HealthCheckRequest where
  messageName :: Proxy HealthCheckRequest -> Text
messageName Proxy HealthCheckRequest
_ = String -> Text
Data.Text.pack String
"grpc.health.v1.HealthCheckRequest"
  packedMessageDescriptor :: Proxy HealthCheckRequest -> ByteString
packedMessageDescriptor Proxy HealthCheckRequest
_
    = ByteString
"\n\
      \\DC2HealthCheckRequest\DC2\CAN\n\
      \\aservice\CAN\SOH \SOH(\tR\aservice"
  packedFileDescriptor :: Proxy HealthCheckRequest -> ByteString
packedFileDescriptor Proxy HealthCheckRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor HealthCheckRequest)
fieldsByTag
    = let
        service__field_descriptor :: FieldDescriptor HealthCheckRequest
service__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor HealthCheckRequest Text
-> FieldDescriptor HealthCheckRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"service"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens HealthCheckRequest HealthCheckRequest Text Text
-> FieldAccessor HealthCheckRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"service")) ::
              Data.ProtoLens.FieldDescriptor HealthCheckRequest
      in
        [(Tag, FieldDescriptor HealthCheckRequest)]
-> Map Tag (FieldDescriptor HealthCheckRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor HealthCheckRequest
service__field_descriptor)]
  unknownFields :: Lens' HealthCheckRequest FieldSet
unknownFields
    = (HealthCheckRequest -> FieldSet)
-> (HealthCheckRequest -> FieldSet -> HealthCheckRequest)
-> Lens' HealthCheckRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        HealthCheckRequest -> FieldSet
_HealthCheckRequest'_unknownFields
        (\ HealthCheckRequest
x__ FieldSet
y__ -> HealthCheckRequest
x__ {_HealthCheckRequest'_unknownFields = y__})
  defMessage :: HealthCheckRequest
defMessage
    = HealthCheckRequest'_constructor
        {_HealthCheckRequest'service :: Text
_HealthCheckRequest'service = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _HealthCheckRequest'_unknownFields :: FieldSet
_HealthCheckRequest'_unknownFields = []}
  parseMessage :: Parser HealthCheckRequest
parseMessage
    = let
        loop ::
          HealthCheckRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser HealthCheckRequest
        loop :: HealthCheckRequest -> Parser HealthCheckRequest
loop HealthCheckRequest
x
          = do end <- Parser Bool
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 (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"service"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"service") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser HealthCheckRequest -> String -> Parser HealthCheckRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do HealthCheckRequest -> Parser HealthCheckRequest
loop HealthCheckRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"HealthCheckRequest"
  buildMessage :: HealthCheckRequest -> Builder
buildMessage
    = \ HealthCheckRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike Text HealthCheckRequest HealthCheckRequest Text Text
-> HealthCheckRequest -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"service") HealthCheckRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet HealthCheckRequest HealthCheckRequest FieldSet FieldSet
-> HealthCheckRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet HealthCheckRequest HealthCheckRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' HealthCheckRequest FieldSet
Data.ProtoLens.unknownFields HealthCheckRequest
_x))
instance Control.DeepSeq.NFData HealthCheckRequest where
  rnf :: HealthCheckRequest -> ()
rnf
    = \ HealthCheckRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (HealthCheckRequest -> FieldSet
_HealthCheckRequest'_unknownFields HealthCheckRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (HealthCheckRequest -> Text
_HealthCheckRequest'service HealthCheckRequest
x__) ())
{- | Fields :
     
         * 'Proto.Health.V1.Health_Fields.status' @:: Lens' HealthCheckResponse HealthCheckResponse'ServingStatus@ -}
data HealthCheckResponse
  = HealthCheckResponse'_constructor {HealthCheckResponse -> HealthCheckResponse'ServingStatus
_HealthCheckResponse'status :: !HealthCheckResponse'ServingStatus,
                                      HealthCheckResponse -> FieldSet
_HealthCheckResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (HealthCheckResponse -> HealthCheckResponse -> Bool
(HealthCheckResponse -> HealthCheckResponse -> Bool)
-> (HealthCheckResponse -> HealthCheckResponse -> Bool)
-> Eq HealthCheckResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HealthCheckResponse -> HealthCheckResponse -> Bool
== :: HealthCheckResponse -> HealthCheckResponse -> Bool
$c/= :: HealthCheckResponse -> HealthCheckResponse -> Bool
/= :: HealthCheckResponse -> HealthCheckResponse -> Bool
Prelude.Eq, Eq HealthCheckResponse
Eq HealthCheckResponse =>
(HealthCheckResponse -> HealthCheckResponse -> Ordering)
-> (HealthCheckResponse -> HealthCheckResponse -> Bool)
-> (HealthCheckResponse -> HealthCheckResponse -> Bool)
-> (HealthCheckResponse -> HealthCheckResponse -> Bool)
-> (HealthCheckResponse -> HealthCheckResponse -> Bool)
-> (HealthCheckResponse
    -> HealthCheckResponse -> HealthCheckResponse)
-> (HealthCheckResponse
    -> HealthCheckResponse -> HealthCheckResponse)
-> Ord HealthCheckResponse
HealthCheckResponse -> HealthCheckResponse -> Bool
HealthCheckResponse -> HealthCheckResponse -> Ordering
HealthCheckResponse -> HealthCheckResponse -> HealthCheckResponse
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: HealthCheckResponse -> HealthCheckResponse -> Ordering
compare :: HealthCheckResponse -> HealthCheckResponse -> Ordering
$c< :: HealthCheckResponse -> HealthCheckResponse -> Bool
< :: HealthCheckResponse -> HealthCheckResponse -> Bool
$c<= :: HealthCheckResponse -> HealthCheckResponse -> Bool
<= :: HealthCheckResponse -> HealthCheckResponse -> Bool
$c> :: HealthCheckResponse -> HealthCheckResponse -> Bool
> :: HealthCheckResponse -> HealthCheckResponse -> Bool
$c>= :: HealthCheckResponse -> HealthCheckResponse -> Bool
>= :: HealthCheckResponse -> HealthCheckResponse -> Bool
$cmax :: HealthCheckResponse -> HealthCheckResponse -> HealthCheckResponse
max :: HealthCheckResponse -> HealthCheckResponse -> HealthCheckResponse
$cmin :: HealthCheckResponse -> HealthCheckResponse -> HealthCheckResponse
min :: HealthCheckResponse -> HealthCheckResponse -> HealthCheckResponse
Prelude.Ord)
instance Prelude.Show HealthCheckResponse where
  showsPrec :: Int -> HealthCheckResponse -> ShowS
showsPrec Int
_ HealthCheckResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (HealthCheckResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort HealthCheckResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField HealthCheckResponse "status" HealthCheckResponse'ServingStatus where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "status"
-> (HealthCheckResponse'ServingStatus
    -> f HealthCheckResponse'ServingStatus)
-> HealthCheckResponse
-> f HealthCheckResponse
fieldOf Proxy# "status"
_
    = ((HealthCheckResponse'ServingStatus
  -> f HealthCheckResponse'ServingStatus)
 -> HealthCheckResponse -> f HealthCheckResponse)
-> ((HealthCheckResponse'ServingStatus
     -> f HealthCheckResponse'ServingStatus)
    -> HealthCheckResponse'ServingStatus
    -> f HealthCheckResponse'ServingStatus)
-> (HealthCheckResponse'ServingStatus
    -> f HealthCheckResponse'ServingStatus)
-> HealthCheckResponse
-> f HealthCheckResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((HealthCheckResponse -> HealthCheckResponse'ServingStatus)
-> (HealthCheckResponse
    -> HealthCheckResponse'ServingStatus -> HealthCheckResponse)
-> Lens
     HealthCheckResponse
     HealthCheckResponse
     HealthCheckResponse'ServingStatus
     HealthCheckResponse'ServingStatus
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           HealthCheckResponse -> HealthCheckResponse'ServingStatus
_HealthCheckResponse'status
           (\ HealthCheckResponse
x__ HealthCheckResponse'ServingStatus
y__ -> HealthCheckResponse
x__ {_HealthCheckResponse'status = y__}))
        (HealthCheckResponse'ServingStatus
 -> f HealthCheckResponse'ServingStatus)
-> HealthCheckResponse'ServingStatus
-> f HealthCheckResponse'ServingStatus
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message HealthCheckResponse where
  messageName :: Proxy HealthCheckResponse -> Text
messageName Proxy HealthCheckResponse
_ = String -> Text
Data.Text.pack String
"grpc.health.v1.HealthCheckResponse"
  packedMessageDescriptor :: Proxy HealthCheckResponse -> ByteString
packedMessageDescriptor Proxy HealthCheckResponse
_
    = ByteString
"\n\
      \\DC3HealthCheckResponse\DC2I\n\
      \\ACKstatus\CAN\SOH \SOH(\SO21.grpc.health.v1.HealthCheckResponse.ServingStatusR\ACKstatus\"O\n\
      \\rServingStatus\DC2\v\n\
      \\aUNKNOWN\DLE\NUL\DC2\v\n\
      \\aSERVING\DLE\SOH\DC2\SI\n\
      \\vNOT_SERVING\DLE\STX\DC2\DC3\n\
      \\SISERVICE_UNKNOWN\DLE\ETX"
  packedFileDescriptor :: Proxy HealthCheckResponse -> ByteString
packedFileDescriptor Proxy HealthCheckResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor HealthCheckResponse)
fieldsByTag
    = let
        status__field_descriptor :: FieldDescriptor HealthCheckResponse
status__field_descriptor
          = String
-> FieldTypeDescriptor HealthCheckResponse'ServingStatus
-> FieldAccessor
     HealthCheckResponse HealthCheckResponse'ServingStatus
-> FieldDescriptor HealthCheckResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"status"
              (ScalarField HealthCheckResponse'ServingStatus
-> FieldTypeDescriptor HealthCheckResponse'ServingStatus
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField HealthCheckResponse'ServingStatus
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor HealthCheckResponse'ServingStatus)
              (WireDefault HealthCheckResponse'ServingStatus
-> Lens
     HealthCheckResponse
     HealthCheckResponse
     HealthCheckResponse'ServingStatus
     HealthCheckResponse'ServingStatus
-> FieldAccessor
     HealthCheckResponse HealthCheckResponse'ServingStatus
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault HealthCheckResponse'ServingStatus
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"status")) ::
              Data.ProtoLens.FieldDescriptor HealthCheckResponse
      in
        [(Tag, FieldDescriptor HealthCheckResponse)]
-> Map Tag (FieldDescriptor HealthCheckResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor HealthCheckResponse
status__field_descriptor)]
  unknownFields :: Lens' HealthCheckResponse FieldSet
unknownFields
    = (HealthCheckResponse -> FieldSet)
-> (HealthCheckResponse -> FieldSet -> HealthCheckResponse)
-> Lens' HealthCheckResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        HealthCheckResponse -> FieldSet
_HealthCheckResponse'_unknownFields
        (\ HealthCheckResponse
x__ FieldSet
y__ -> HealthCheckResponse
x__ {_HealthCheckResponse'_unknownFields = y__})
  defMessage :: HealthCheckResponse
defMessage
    = HealthCheckResponse'_constructor
        {_HealthCheckResponse'status :: HealthCheckResponse'ServingStatus
_HealthCheckResponse'status = HealthCheckResponse'ServingStatus
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _HealthCheckResponse'_unknownFields :: FieldSet
_HealthCheckResponse'_unknownFields = []}
  parseMessage :: Parser HealthCheckResponse
parseMessage
    = let
        loop ::
          HealthCheckResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser HealthCheckResponse
        loop :: HealthCheckResponse -> Parser HealthCheckResponse
loop HealthCheckResponse
x
          = do end <- Parser Bool
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 (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser HealthCheckResponse'ServingStatus
-> String -> Parser HealthCheckResponse'ServingStatus
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> HealthCheckResponse'ServingStatus)
-> Parser Int -> Parser HealthCheckResponse'ServingStatus
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> HealthCheckResponse'ServingStatus
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       String
"status"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"status") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser HealthCheckResponse -> String -> Parser HealthCheckResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do HealthCheckResponse -> Parser HealthCheckResponse
loop HealthCheckResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"HealthCheckResponse"
  buildMessage :: HealthCheckResponse -> Builder
buildMessage
    = \ HealthCheckResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: HealthCheckResponse'ServingStatus
_v = FoldLike
  HealthCheckResponse'ServingStatus
  HealthCheckResponse
  HealthCheckResponse
  HealthCheckResponse'ServingStatus
  HealthCheckResponse'ServingStatus
-> HealthCheckResponse -> HealthCheckResponse'ServingStatus
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"status") HealthCheckResponse
_x
              in
                if HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) HealthCheckResponse'ServingStatus
_v HealthCheckResponse'ServingStatus
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      ((Int -> Builder)
-> (HealthCheckResponse'ServingStatus -> Int)
-> HealthCheckResponse'ServingStatus
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                         HealthCheckResponse'ServingStatus -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum HealthCheckResponse'ServingStatus
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet HealthCheckResponse HealthCheckResponse FieldSet FieldSet
-> HealthCheckResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet HealthCheckResponse HealthCheckResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' HealthCheckResponse FieldSet
Data.ProtoLens.unknownFields HealthCheckResponse
_x))
instance Control.DeepSeq.NFData HealthCheckResponse where
  rnf :: HealthCheckResponse -> ()
rnf
    = \ HealthCheckResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (HealthCheckResponse -> FieldSet
_HealthCheckResponse'_unknownFields HealthCheckResponse
x__)
             (HealthCheckResponse'ServingStatus -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (HealthCheckResponse -> HealthCheckResponse'ServingStatus
_HealthCheckResponse'status HealthCheckResponse
x__) ())
newtype HealthCheckResponse'ServingStatus'UnrecognizedValue
  = HealthCheckResponse'ServingStatus'UnrecognizedValue Data.Int.Int32
  deriving stock (HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool
(HealthCheckResponse'ServingStatus'UnrecognizedValue
 -> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool)
-> (HealthCheckResponse'ServingStatus'UnrecognizedValue
    -> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool)
-> Eq HealthCheckResponse'ServingStatus'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool
== :: HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool
$c/= :: HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool
/= :: HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool
Prelude.Eq, Eq HealthCheckResponse'ServingStatus'UnrecognizedValue
Eq HealthCheckResponse'ServingStatus'UnrecognizedValue =>
(HealthCheckResponse'ServingStatus'UnrecognizedValue
 -> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Ordering)
-> (HealthCheckResponse'ServingStatus'UnrecognizedValue
    -> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool)
-> (HealthCheckResponse'ServingStatus'UnrecognizedValue
    -> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool)
-> (HealthCheckResponse'ServingStatus'UnrecognizedValue
    -> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool)
-> (HealthCheckResponse'ServingStatus'UnrecognizedValue
    -> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool)
-> (HealthCheckResponse'ServingStatus'UnrecognizedValue
    -> HealthCheckResponse'ServingStatus'UnrecognizedValue
    -> HealthCheckResponse'ServingStatus'UnrecognizedValue)
-> (HealthCheckResponse'ServingStatus'UnrecognizedValue
    -> HealthCheckResponse'ServingStatus'UnrecognizedValue
    -> HealthCheckResponse'ServingStatus'UnrecognizedValue)
-> Ord HealthCheckResponse'ServingStatus'UnrecognizedValue
HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool
HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Ordering
HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Ordering
compare :: HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Ordering
$c< :: HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool
< :: HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool
$c<= :: HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool
<= :: HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool
$c> :: HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool
> :: HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool
$c>= :: HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool
>= :: HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue -> Bool
$cmax :: HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue
max :: HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue
$cmin :: HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue
min :: HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus'UnrecognizedValue
Prelude.Ord, Int -> HealthCheckResponse'ServingStatus'UnrecognizedValue -> ShowS
[HealthCheckResponse'ServingStatus'UnrecognizedValue] -> ShowS
HealthCheckResponse'ServingStatus'UnrecognizedValue -> String
(Int
 -> HealthCheckResponse'ServingStatus'UnrecognizedValue -> ShowS)
-> (HealthCheckResponse'ServingStatus'UnrecognizedValue -> String)
-> ([HealthCheckResponse'ServingStatus'UnrecognizedValue] -> ShowS)
-> Show HealthCheckResponse'ServingStatus'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> HealthCheckResponse'ServingStatus'UnrecognizedValue -> ShowS
showsPrec :: Int -> HealthCheckResponse'ServingStatus'UnrecognizedValue -> ShowS
$cshow :: HealthCheckResponse'ServingStatus'UnrecognizedValue -> String
show :: HealthCheckResponse'ServingStatus'UnrecognizedValue -> String
$cshowList :: [HealthCheckResponse'ServingStatus'UnrecognizedValue] -> ShowS
showList :: [HealthCheckResponse'ServingStatus'UnrecognizedValue] -> ShowS
Prelude.Show)
data HealthCheckResponse'ServingStatus
  = HealthCheckResponse'UNKNOWN |
    HealthCheckResponse'SERVING |
    HealthCheckResponse'NOT_SERVING |
    HealthCheckResponse'SERVICE_UNKNOWN |
    HealthCheckResponse'ServingStatus'Unrecognized !HealthCheckResponse'ServingStatus'UnrecognizedValue
  deriving stock (Int -> HealthCheckResponse'ServingStatus -> ShowS
[HealthCheckResponse'ServingStatus] -> ShowS
HealthCheckResponse'ServingStatus -> String
(Int -> HealthCheckResponse'ServingStatus -> ShowS)
-> (HealthCheckResponse'ServingStatus -> String)
-> ([HealthCheckResponse'ServingStatus] -> ShowS)
-> Show HealthCheckResponse'ServingStatus
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> HealthCheckResponse'ServingStatus -> ShowS
showsPrec :: Int -> HealthCheckResponse'ServingStatus -> ShowS
$cshow :: HealthCheckResponse'ServingStatus -> String
show :: HealthCheckResponse'ServingStatus -> String
$cshowList :: [HealthCheckResponse'ServingStatus] -> ShowS
showList :: [HealthCheckResponse'ServingStatus] -> ShowS
Prelude.Show, HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus -> Bool
(HealthCheckResponse'ServingStatus
 -> HealthCheckResponse'ServingStatus -> Bool)
-> (HealthCheckResponse'ServingStatus
    -> HealthCheckResponse'ServingStatus -> Bool)
-> Eq HealthCheckResponse'ServingStatus
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus -> Bool
== :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus -> Bool
$c/= :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus -> Bool
/= :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus -> Bool
Prelude.Eq, Eq HealthCheckResponse'ServingStatus
Eq HealthCheckResponse'ServingStatus =>
(HealthCheckResponse'ServingStatus
 -> HealthCheckResponse'ServingStatus -> Ordering)
-> (HealthCheckResponse'ServingStatus
    -> HealthCheckResponse'ServingStatus -> Bool)
-> (HealthCheckResponse'ServingStatus
    -> HealthCheckResponse'ServingStatus -> Bool)
-> (HealthCheckResponse'ServingStatus
    -> HealthCheckResponse'ServingStatus -> Bool)
-> (HealthCheckResponse'ServingStatus
    -> HealthCheckResponse'ServingStatus -> Bool)
-> (HealthCheckResponse'ServingStatus
    -> HealthCheckResponse'ServingStatus
    -> HealthCheckResponse'ServingStatus)
-> (HealthCheckResponse'ServingStatus
    -> HealthCheckResponse'ServingStatus
    -> HealthCheckResponse'ServingStatus)
-> Ord HealthCheckResponse'ServingStatus
HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus -> Bool
HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus -> Ordering
HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus -> Ordering
compare :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus -> Ordering
$c< :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus -> Bool
< :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus -> Bool
$c<= :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus -> Bool
<= :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus -> Bool
$c> :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus -> Bool
> :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus -> Bool
$c>= :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus -> Bool
>= :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus -> Bool
$cmax :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
max :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
$cmin :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
min :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
Prelude.Ord)
instance Data.ProtoLens.MessageEnum HealthCheckResponse'ServingStatus where
  maybeToEnum :: Int -> Maybe HealthCheckResponse'ServingStatus
maybeToEnum Int
0 = HealthCheckResponse'ServingStatus
-> Maybe HealthCheckResponse'ServingStatus
forall a. a -> Maybe a
Prelude.Just HealthCheckResponse'ServingStatus
HealthCheckResponse'UNKNOWN
  maybeToEnum Int
1 = HealthCheckResponse'ServingStatus
-> Maybe HealthCheckResponse'ServingStatus
forall a. a -> Maybe a
Prelude.Just HealthCheckResponse'ServingStatus
HealthCheckResponse'SERVING
  maybeToEnum Int
2 = HealthCheckResponse'ServingStatus
-> Maybe HealthCheckResponse'ServingStatus
forall a. a -> Maybe a
Prelude.Just HealthCheckResponse'ServingStatus
HealthCheckResponse'NOT_SERVING
  maybeToEnum Int
3 = HealthCheckResponse'ServingStatus
-> Maybe HealthCheckResponse'ServingStatus
forall a. a -> Maybe a
Prelude.Just HealthCheckResponse'ServingStatus
HealthCheckResponse'SERVICE_UNKNOWN
  maybeToEnum Int
k
    = HealthCheckResponse'ServingStatus
-> Maybe HealthCheckResponse'ServingStatus
forall a. a -> Maybe a
Prelude.Just
        (HealthCheckResponse'ServingStatus'UnrecognizedValue
-> HealthCheckResponse'ServingStatus
HealthCheckResponse'ServingStatus'Unrecognized
           (Int32 -> HealthCheckResponse'ServingStatus'UnrecognizedValue
HealthCheckResponse'ServingStatus'UnrecognizedValue
              (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: HealthCheckResponse'ServingStatus -> String
showEnum HealthCheckResponse'ServingStatus
HealthCheckResponse'UNKNOWN = String
"UNKNOWN"
  showEnum HealthCheckResponse'ServingStatus
HealthCheckResponse'SERVING = String
"SERVING"
  showEnum HealthCheckResponse'ServingStatus
HealthCheckResponse'NOT_SERVING = String
"NOT_SERVING"
  showEnum HealthCheckResponse'ServingStatus
HealthCheckResponse'SERVICE_UNKNOWN = String
"SERVICE_UNKNOWN"
  showEnum
    (HealthCheckResponse'ServingStatus'Unrecognized (HealthCheckResponse'ServingStatus'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe HealthCheckResponse'ServingStatus
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"UNKNOWN"
    = HealthCheckResponse'ServingStatus
-> Maybe HealthCheckResponse'ServingStatus
forall a. a -> Maybe a
Prelude.Just HealthCheckResponse'ServingStatus
HealthCheckResponse'UNKNOWN
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"SERVING"
    = HealthCheckResponse'ServingStatus
-> Maybe HealthCheckResponse'ServingStatus
forall a. a -> Maybe a
Prelude.Just HealthCheckResponse'ServingStatus
HealthCheckResponse'SERVING
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"NOT_SERVING"
    = HealthCheckResponse'ServingStatus
-> Maybe HealthCheckResponse'ServingStatus
forall a. a -> Maybe a
Prelude.Just HealthCheckResponse'ServingStatus
HealthCheckResponse'NOT_SERVING
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"SERVICE_UNKNOWN"
    = HealthCheckResponse'ServingStatus
-> Maybe HealthCheckResponse'ServingStatus
forall a. a -> Maybe a
Prelude.Just HealthCheckResponse'ServingStatus
HealthCheckResponse'SERVICE_UNKNOWN
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe HealthCheckResponse'ServingStatus)
-> Maybe HealthCheckResponse'ServingStatus
forall a b. Maybe a -> (a -> Maybe b) -> Maybe b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe HealthCheckResponse'ServingStatus
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded HealthCheckResponse'ServingStatus where
  minBound :: HealthCheckResponse'ServingStatus
minBound = HealthCheckResponse'ServingStatus
HealthCheckResponse'UNKNOWN
  maxBound :: HealthCheckResponse'ServingStatus
maxBound = HealthCheckResponse'ServingStatus
HealthCheckResponse'SERVICE_UNKNOWN
instance Prelude.Enum HealthCheckResponse'ServingStatus where
  toEnum :: Int -> HealthCheckResponse'ServingStatus
toEnum Int
k__
    = HealthCheckResponse'ServingStatus
-> (HealthCheckResponse'ServingStatus
    -> HealthCheckResponse'ServingStatus)
-> Maybe HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> HealthCheckResponse'ServingStatus
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum ServingStatus: "
              (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
forall a. a -> a
Prelude.id (Int -> Maybe HealthCheckResponse'ServingStatus
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: HealthCheckResponse'ServingStatus -> Int
fromEnum HealthCheckResponse'ServingStatus
HealthCheckResponse'UNKNOWN = Int
0
  fromEnum HealthCheckResponse'ServingStatus
HealthCheckResponse'SERVING = Int
1
  fromEnum HealthCheckResponse'ServingStatus
HealthCheckResponse'NOT_SERVING = Int
2
  fromEnum HealthCheckResponse'ServingStatus
HealthCheckResponse'SERVICE_UNKNOWN = Int
3
  fromEnum
    (HealthCheckResponse'ServingStatus'Unrecognized (HealthCheckResponse'ServingStatus'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
succ HealthCheckResponse'ServingStatus
HealthCheckResponse'SERVICE_UNKNOWN
    = String -> HealthCheckResponse'ServingStatus
forall a. HasCallStack => String -> a
Prelude.error
        String
"HealthCheckResponse'ServingStatus.succ: bad argument HealthCheckResponse'SERVICE_UNKNOWN. This value would be out of bounds."
  succ HealthCheckResponse'ServingStatus
HealthCheckResponse'UNKNOWN = HealthCheckResponse'ServingStatus
HealthCheckResponse'SERVING
  succ HealthCheckResponse'ServingStatus
HealthCheckResponse'SERVING = HealthCheckResponse'ServingStatus
HealthCheckResponse'NOT_SERVING
  succ HealthCheckResponse'ServingStatus
HealthCheckResponse'NOT_SERVING
    = HealthCheckResponse'ServingStatus
HealthCheckResponse'SERVICE_UNKNOWN
  succ (HealthCheckResponse'ServingStatus'Unrecognized HealthCheckResponse'ServingStatus'UnrecognizedValue
_)
    = String -> HealthCheckResponse'ServingStatus
forall a. HasCallStack => String -> a
Prelude.error
        String
"HealthCheckResponse'ServingStatus.succ: bad argument: unrecognized value"
  pred :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
pred HealthCheckResponse'ServingStatus
HealthCheckResponse'UNKNOWN
    = String -> HealthCheckResponse'ServingStatus
forall a. HasCallStack => String -> a
Prelude.error
        String
"HealthCheckResponse'ServingStatus.pred: bad argument HealthCheckResponse'UNKNOWN. This value would be out of bounds."
  pred HealthCheckResponse'ServingStatus
HealthCheckResponse'SERVING = HealthCheckResponse'ServingStatus
HealthCheckResponse'UNKNOWN
  pred HealthCheckResponse'ServingStatus
HealthCheckResponse'NOT_SERVING = HealthCheckResponse'ServingStatus
HealthCheckResponse'SERVING
  pred HealthCheckResponse'ServingStatus
HealthCheckResponse'SERVICE_UNKNOWN
    = HealthCheckResponse'ServingStatus
HealthCheckResponse'NOT_SERVING
  pred (HealthCheckResponse'ServingStatus'Unrecognized HealthCheckResponse'ServingStatus'UnrecognizedValue
_)
    = String -> HealthCheckResponse'ServingStatus
forall a. HasCallStack => String -> a
Prelude.error
        String
"HealthCheckResponse'ServingStatus.pred: bad argument: unrecognized value"
  enumFrom :: HealthCheckResponse'ServingStatus
-> [HealthCheckResponse'ServingStatus]
enumFrom = HealthCheckResponse'ServingStatus
-> [HealthCheckResponse'ServingStatus]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
-> [HealthCheckResponse'ServingStatus]
enumFromTo = HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
-> [HealthCheckResponse'ServingStatus]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
-> [HealthCheckResponse'ServingStatus]
enumFromThen = HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
-> [HealthCheckResponse'ServingStatus]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
-> [HealthCheckResponse'ServingStatus]
enumFromThenTo = HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
-> HealthCheckResponse'ServingStatus
-> [HealthCheckResponse'ServingStatus]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault HealthCheckResponse'ServingStatus where
  fieldDefault :: HealthCheckResponse'ServingStatus
fieldDefault = HealthCheckResponse'ServingStatus
HealthCheckResponse'UNKNOWN
instance Control.DeepSeq.NFData HealthCheckResponse'ServingStatus where
  rnf :: HealthCheckResponse'ServingStatus -> ()
rnf HealthCheckResponse'ServingStatus
x__ = HealthCheckResponse'ServingStatus -> () -> ()
forall a b. a -> b -> b
Prelude.seq HealthCheckResponse'ServingStatus
x__ ()
data Health = Health {}
instance Data.ProtoLens.Service.Types.Service Health where
  type ServiceName Health = "Health"
  type ServicePackage Health = "grpc.health.v1"
  type ServiceMethods Health = '["check", "watch"]
  packedServiceDescriptor :: Proxy Health -> ByteString
packedServiceDescriptor Proxy Health
_
    = ByteString
"\n\
      \\ACKHealth\DC2P\n\
      \\ENQCheck\DC2\".grpc.health.v1.HealthCheckRequest\SUB#.grpc.health.v1.HealthCheckResponse\DC2R\n\
      \\ENQWatch\DC2\".grpc.health.v1.HealthCheckRequest\SUB#.grpc.health.v1.HealthCheckResponse0\SOH"
instance Data.ProtoLens.Service.Types.HasMethodImpl Health "check" where
  type MethodName Health "check" = "Check"
  type MethodInput Health "check" = HealthCheckRequest
  type MethodOutput Health "check" = HealthCheckResponse
  type MethodStreamingType Health "check" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Health "watch" where
  type MethodName Health "watch" = "Watch"
  type MethodInput Health "watch" = HealthCheckRequest
  type MethodOutput Health "watch" = HealthCheckResponse
  type MethodStreamingType Health "watch" = 'Data.ProtoLens.Service.Types.ServerStreaming
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \\SYNhealth/v1/health.proto\DC2\SOgrpc.health.v1\".\n\
    \\DC2HealthCheckRequest\DC2\CAN\n\
    \\aservice\CAN\SOH \SOH(\tR\aservice\"\177\SOH\n\
    \\DC3HealthCheckResponse\DC2I\n\
    \\ACKstatus\CAN\SOH \SOH(\SO21.grpc.health.v1.HealthCheckResponse.ServingStatusR\ACKstatus\"O\n\
    \\rServingStatus\DC2\v\n\
    \\aUNKNOWN\DLE\NUL\DC2\v\n\
    \\aSERVING\DLE\SOH\DC2\SI\n\
    \\vNOT_SERVING\DLE\STX\DC2\DC3\n\
    \\SISERVICE_UNKNOWN\DLE\ETX2\174\SOH\n\
    \\ACKHealth\DC2P\n\
    \\ENQCheck\DC2\".grpc.health.v1.HealthCheckRequest\SUB#.grpc.health.v1.HealthCheckResponse\DC2R\n\
    \\ENQWatch\DC2\".grpc.health.v1.HealthCheckRequest\SUB#.grpc.health.v1.HealthCheckResponse0\SOHBa\n\
    \\DC1io.grpc.health.v1B\vHealthProtoP\SOHZ,google.golang.org/grpc/health/grpc_health_v1\170\STX\SOGrpc.Health.V1J\151\DC2\n\
    \\ACK\DC2\EOT\DC1\NUL>\SOH\n\
    \\198\ENQ\n\
    \\SOH\f\DC2\ETX\DC1\NUL\DC22\183\EOT Copyright 2015 The gRPC Authors\n\
    \\n\
    \ Licensed under the Apache License, Version 2.0 (the \"License\");\n\
    \ you may not use this file except in compliance with the License.\n\
    \ You may obtain a copy of the License at\n\
    \\n\
    \     http://www.apache.org/licenses/LICENSE-2.0\n\
    \\n\
    \ Unless required by applicable law or agreed to in writing, software\n\
    \ distributed under the License is distributed on an \"AS IS\" BASIS,\n\
    \ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\n\
    \ See the License for the specific language governing permissions and\n\
    \ limitations under the License.\n\
    \2\129\SOH The canonical version of this proto can be found at\n\
    \ https://github.com/grpc/grpc-proto/blob/master/grpc/health/v1/health.proto\n\
    \\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\DC3\NUL\ETB\n\
    \\b\n\
    \\SOH\b\DC2\ETX\NAK\NUL+\n\
    \\t\n\
    \\STX\b%\DC2\ETX\NAK\NUL+\n\
    \\b\n\
    \\SOH\b\DC2\ETX\SYN\NULC\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\SYN\NULC\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ETB\NUL\"\n\
    \\t\n\
    \\STX\b\n\
    \\DC2\ETX\ETB\NUL\"\n\
    \\b\n\
    \\SOH\b\DC2\ETX\CAN\NUL,\n\
    \\t\n\
    \\STX\b\b\DC2\ETX\CAN\NUL,\n\
    \\b\n\
    \\SOH\b\DC2\ETX\EM\NUL*\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\EM\NUL*\n\
    \\n\
    \\n\
    \\STX\EOT\NUL\DC2\EOT\ESC\NUL\GS\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\ESC\b\SUB\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\FS\STX\NAK\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\FS\STX\b\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\FS\t\DLE\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\FS\DC3\DC4\n\
    \\n\
    \\n\
    \\STX\EOT\SOH\DC2\EOT\US\NUL'\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX\US\b\ESC\n\
    \\f\n\
    \\EOT\EOT\SOH\EOT\NUL\DC2\EOT \STX%\ETX\n\
    \\f\n\
    \\ENQ\EOT\SOH\EOT\NUL\SOH\DC2\ETX \a\DC4\n\
    \\r\n\
    \\ACK\EOT\SOH\EOT\NUL\STX\NUL\DC2\ETX!\EOT\DLE\n\
    \\SO\n\
    \\a\EOT\SOH\EOT\NUL\STX\NUL\SOH\DC2\ETX!\EOT\v\n\
    \\SO\n\
    \\a\EOT\SOH\EOT\NUL\STX\NUL\STX\DC2\ETX!\SO\SI\n\
    \\r\n\
    \\ACK\EOT\SOH\EOT\NUL\STX\SOH\DC2\ETX\"\EOT\DLE\n\
    \\SO\n\
    \\a\EOT\SOH\EOT\NUL\STX\SOH\SOH\DC2\ETX\"\EOT\v\n\
    \\SO\n\
    \\a\EOT\SOH\EOT\NUL\STX\SOH\STX\DC2\ETX\"\SO\SI\n\
    \\r\n\
    \\ACK\EOT\SOH\EOT\NUL\STX\STX\DC2\ETX#\EOT\DC4\n\
    \\SO\n\
    \\a\EOT\SOH\EOT\NUL\STX\STX\SOH\DC2\ETX#\EOT\SI\n\
    \\SO\n\
    \\a\EOT\SOH\EOT\NUL\STX\STX\STX\DC2\ETX#\DC2\DC3\n\
    \/\n\
    \\ACK\EOT\SOH\EOT\NUL\STX\ETX\DC2\ETX$\EOT\CAN\"  Used only by the Watch method.\n\
    \\n\
    \\SO\n\
    \\a\EOT\SOH\EOT\NUL\STX\ETX\SOH\DC2\ETX$\EOT\DC3\n\
    \\SO\n\
    \\a\EOT\SOH\EOT\NUL\STX\ETX\STX\DC2\ETX$\SYN\ETB\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX&\STX\ESC\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX&\STX\SI\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX&\DLE\SYN\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX&\EM\SUB\n\
    \\n\
    \\n\
    \\STX\ACK\NUL\DC2\EOT)\NUL>\SOH\n\
    \\n\
    \\n\
    \\ETX\ACK\NUL\SOH\DC2\ETX)\b\SO\n\
    \^\n\
    \\EOT\ACK\NUL\STX\NUL\DC2\ETX,\STX>\SUBQ If the requested service is unknown, the call will fail with status\n\
    \ NOT_FOUND.\n\
    \\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX,\ACK\v\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX,\f\RS\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX,)<\n\
    \\222\ACK\n\
    \\EOT\ACK\NUL\STX\SOH\DC2\ETX=\STXE\SUB\208\ACK Performs a watch for the serving status of the requested service.\n\
    \ The server will immediately send back a message indicating the current\n\
    \ serving status.  It will then subsequently send a new message whenever\n\
    \ the service's serving status changes.\n\
    \\n\
    \ If the requested service is unknown when the call is received, the\n\
    \ server will send a message setting the serving status to\n\
    \ SERVICE_UNKNOWN but will *not* terminate the call.  If at some\n\
    \ future point, the serving status of the service becomes known, the\n\
    \ server will send a new message with the service's serving status.\n\
    \\n\
    \ If the call terminates with status UNIMPLEMENTED, then clients\n\
    \ should assume this method is not supported and should not retry the\n\
    \ call.  If the call terminates with any other status (including OK),\n\
    \ clients should retry the call with appropriate exponential backoff.\n\
    \\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\SOH\SOH\DC2\ETX=\ACK\v\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\SOH\STX\DC2\ETX=\f\RS\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\SOH\ACK\DC2\ETX=)/\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETX=0Cb\ACKproto3"