{- This file was auto-generated from etcd/api/authpb/auth.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.Etcd.Api.Authpb.Auth (
        Permission(), Permission'Type(..), Permission'Type(),
        Permission'Type'UnrecognizedValue, Role(), User(), UserAddOptions()
    ) 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
import qualified Proto.Gogoproto.Gogo
{- | Fields :
     
         * 'Proto.Etcd.Api.Authpb.Auth_Fields.permType' @:: Lens' Permission Permission'Type@
         * 'Proto.Etcd.Api.Authpb.Auth_Fields.key' @:: Lens' Permission Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Authpb.Auth_Fields.rangeEnd' @:: Lens' Permission Data.ByteString.ByteString@ -}
data Permission
  = Permission'_constructor {Permission -> Permission'Type
_Permission'permType :: !Permission'Type,
                             Permission -> ByteString
_Permission'key :: !Data.ByteString.ByteString,
                             Permission -> ByteString
_Permission'rangeEnd :: !Data.ByteString.ByteString,
                             Permission -> FieldSet
_Permission'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Permission -> Permission -> Bool
(Permission -> Permission -> Bool)
-> (Permission -> Permission -> Bool) -> Eq Permission
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Permission -> Permission -> Bool
== :: Permission -> Permission -> Bool
$c/= :: Permission -> Permission -> Bool
/= :: Permission -> Permission -> Bool
Prelude.Eq, Eq Permission
Eq Permission =>
(Permission -> Permission -> Ordering)
-> (Permission -> Permission -> Bool)
-> (Permission -> Permission -> Bool)
-> (Permission -> Permission -> Bool)
-> (Permission -> Permission -> Bool)
-> (Permission -> Permission -> Permission)
-> (Permission -> Permission -> Permission)
-> Ord Permission
Permission -> Permission -> Bool
Permission -> Permission -> Ordering
Permission -> Permission -> Permission
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 :: Permission -> Permission -> Ordering
compare :: Permission -> Permission -> Ordering
$c< :: Permission -> Permission -> Bool
< :: Permission -> Permission -> Bool
$c<= :: Permission -> Permission -> Bool
<= :: Permission -> Permission -> Bool
$c> :: Permission -> Permission -> Bool
> :: Permission -> Permission -> Bool
$c>= :: Permission -> Permission -> Bool
>= :: Permission -> Permission -> Bool
$cmax :: Permission -> Permission -> Permission
max :: Permission -> Permission -> Permission
$cmin :: Permission -> Permission -> Permission
min :: Permission -> Permission -> Permission
Prelude.Ord)
instance Prelude.Show Permission where
  showsPrec :: Int -> Permission -> ShowS
showsPrec Int
_ Permission
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Permission -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Permission
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Permission "permType" Permission'Type where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "permType"
-> (Permission'Type -> f Permission'Type)
-> Permission
-> f Permission
fieldOf Proxy# "permType"
_
    = ((Permission'Type -> f Permission'Type)
 -> Permission -> f Permission)
-> ((Permission'Type -> f Permission'Type)
    -> Permission'Type -> f Permission'Type)
-> (Permission'Type -> f Permission'Type)
-> Permission
-> f Permission
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Permission -> Permission'Type)
-> (Permission -> Permission'Type -> Permission)
-> Lens Permission Permission Permission'Type Permission'Type
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Permission -> Permission'Type
_Permission'permType
           (\ Permission
x__ Permission'Type
y__ -> Permission
x__ {_Permission'permType = y__}))
        (Permission'Type -> f Permission'Type)
-> Permission'Type -> f Permission'Type
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Permission "key" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (ByteString -> f ByteString) -> Permission -> f Permission
fieldOf Proxy# "key"
_
    = ((ByteString -> f ByteString) -> Permission -> f Permission)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Permission
-> f Permission
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Permission -> ByteString)
-> (Permission -> ByteString -> Permission)
-> Lens Permission Permission ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Permission -> ByteString
_Permission'key (\ Permission
x__ ByteString
y__ -> Permission
x__ {_Permission'key = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Permission "rangeEnd" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rangeEnd"
-> (ByteString -> f ByteString) -> Permission -> f Permission
fieldOf Proxy# "rangeEnd"
_
    = ((ByteString -> f ByteString) -> Permission -> f Permission)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Permission
-> f Permission
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Permission -> ByteString)
-> (Permission -> ByteString -> Permission)
-> Lens Permission Permission ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Permission -> ByteString
_Permission'rangeEnd
           (\ Permission
x__ ByteString
y__ -> Permission
x__ {_Permission'rangeEnd = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Permission where
  messageName :: Proxy Permission -> Text
messageName Proxy Permission
_ = String -> Text
Data.Text.pack String
"authpb.Permission"
  packedMessageDescriptor :: Proxy Permission -> ByteString
packedMessageDescriptor Proxy Permission
_
    = ByteString
"\n\
      \\n\
      \Permission\DC23\n\
      \\bpermType\CAN\SOH \SOH(\SO2\ETB.authpb.Permission.TypeR\bpermType\DC2\DLE\n\
      \\ETXkey\CAN\STX \SOH(\fR\ETXkey\DC2\ESC\n\
      \\trange_end\CAN\ETX \SOH(\fR\brangeEnd\"*\n\
      \\EOTType\DC2\b\n\
      \\EOTREAD\DLE\NUL\DC2\t\n\
      \\ENQWRITE\DLE\SOH\DC2\r\n\
      \\tREADWRITE\DLE\STX"
  packedFileDescriptor :: Proxy Permission -> ByteString
packedFileDescriptor Proxy Permission
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Permission)
fieldsByTag
    = let
        permType__field_descriptor :: FieldDescriptor Permission
permType__field_descriptor
          = String
-> FieldTypeDescriptor Permission'Type
-> FieldAccessor Permission Permission'Type
-> FieldDescriptor Permission
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"permType"
              (ScalarField Permission'Type -> FieldTypeDescriptor Permission'Type
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Permission'Type
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Permission'Type)
              (WireDefault Permission'Type
-> Lens Permission Permission Permission'Type Permission'Type
-> FieldAccessor Permission Permission'Type
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Permission'Type
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 @"permType")) ::
              Data.ProtoLens.FieldDescriptor Permission
        key__field_descriptor :: FieldDescriptor Permission
key__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Permission ByteString
-> FieldDescriptor Permission
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"key"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens Permission Permission ByteString ByteString
-> FieldAccessor Permission ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
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 @"key")) ::
              Data.ProtoLens.FieldDescriptor Permission
        rangeEnd__field_descriptor :: FieldDescriptor Permission
rangeEnd__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Permission ByteString
-> FieldDescriptor Permission
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"range_end"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens Permission Permission ByteString ByteString
-> FieldAccessor Permission ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
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 @"rangeEnd")) ::
              Data.ProtoLens.FieldDescriptor Permission
      in
        [(Tag, FieldDescriptor Permission)]
-> Map Tag (FieldDescriptor Permission)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Permission
permType__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Permission
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Permission
rangeEnd__field_descriptor)]
  unknownFields :: Lens' Permission FieldSet
unknownFields
    = (Permission -> FieldSet)
-> (Permission -> FieldSet -> Permission)
-> Lens' Permission FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Permission -> FieldSet
_Permission'_unknownFields
        (\ Permission
x__ FieldSet
y__ -> Permission
x__ {_Permission'_unknownFields = y__})
  defMessage :: Permission
defMessage
    = Permission'_constructor
        {_Permission'permType :: Permission'Type
_Permission'permType = Permission'Type
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Permission'key :: ByteString
_Permission'key = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Permission'rangeEnd :: ByteString
_Permission'rangeEnd = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Permission'_unknownFields :: FieldSet
_Permission'_unknownFields = []}
  parseMessage :: Parser Permission
parseMessage
    = let
        loop ::
          Permission -> Data.ProtoLens.Encoding.Bytes.Parser Permission
        loop :: Permission -> Parser Permission
loop Permission
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 Permission'Type -> String -> Parser Permission'Type
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> Permission'Type) -> Parser Int -> Parser Permission'Type
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> Permission'Type
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
"permType"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"permType") y x)
                        Word64
18
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"key"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
                        Word64
26
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"range_end"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"rangeEnd") 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 Permission -> String -> Parser Permission
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Permission -> Parser Permission
loop Permission
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Permission"
  buildMessage :: Permission -> Builder
buildMessage
    = \ Permission
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Permission'Type
_v = FoldLike
  Permission'Type
  Permission
  Permission
  Permission'Type
  Permission'Type
-> Permission -> Permission'Type
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 @"permType") Permission
_x
              in
                if Permission'Type -> Permission'Type -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Permission'Type
_v Permission'Type
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)
-> (Permission'Type -> Int) -> Permission'Type -> 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)
                         Permission'Type -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Permission'Type
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let _v :: ByteString
_v = FoldLike ByteString Permission Permission ByteString ByteString
-> Permission -> ByteString
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 @"key") Permission
_x
                 in
                   if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
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
18)
                         ((\ 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))
                            ByteString
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: ByteString
_v = FoldLike ByteString Permission Permission ByteString ByteString
-> Permission -> ByteString
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 @"rangeEnd") Permission
_x
                    in
                      if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
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
26)
                            ((\ 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))
                               ByteString
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet Permission Permission FieldSet FieldSet
-> Permission -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Permission Permission FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Permission FieldSet
Data.ProtoLens.unknownFields Permission
_x))))
instance Control.DeepSeq.NFData Permission where
  rnf :: Permission -> ()
rnf
    = \ Permission
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Permission -> FieldSet
_Permission'_unknownFields Permission
x__)
             (Permission'Type -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Permission -> Permission'Type
_Permission'permType Permission
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Permission -> ByteString
_Permission'key Permission
x__)
                   (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Permission -> ByteString
_Permission'rangeEnd Permission
x__) ())))
newtype Permission'Type'UnrecognizedValue
  = Permission'Type'UnrecognizedValue Data.Int.Int32
  deriving stock (Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue -> Bool
(Permission'Type'UnrecognizedValue
 -> Permission'Type'UnrecognizedValue -> Bool)
-> (Permission'Type'UnrecognizedValue
    -> Permission'Type'UnrecognizedValue -> Bool)
-> Eq Permission'Type'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue -> Bool
== :: Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue -> Bool
$c/= :: Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue -> Bool
/= :: Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue -> Bool
Prelude.Eq, Eq Permission'Type'UnrecognizedValue
Eq Permission'Type'UnrecognizedValue =>
(Permission'Type'UnrecognizedValue
 -> Permission'Type'UnrecognizedValue -> Ordering)
-> (Permission'Type'UnrecognizedValue
    -> Permission'Type'UnrecognizedValue -> Bool)
-> (Permission'Type'UnrecognizedValue
    -> Permission'Type'UnrecognizedValue -> Bool)
-> (Permission'Type'UnrecognizedValue
    -> Permission'Type'UnrecognizedValue -> Bool)
-> (Permission'Type'UnrecognizedValue
    -> Permission'Type'UnrecognizedValue -> Bool)
-> (Permission'Type'UnrecognizedValue
    -> Permission'Type'UnrecognizedValue
    -> Permission'Type'UnrecognizedValue)
-> (Permission'Type'UnrecognizedValue
    -> Permission'Type'UnrecognizedValue
    -> Permission'Type'UnrecognizedValue)
-> Ord Permission'Type'UnrecognizedValue
Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue -> Bool
Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue -> Ordering
Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue
-> Permission'Type'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 :: Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue -> Ordering
compare :: Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue -> Ordering
$c< :: Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue -> Bool
< :: Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue -> Bool
$c<= :: Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue -> Bool
<= :: Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue -> Bool
$c> :: Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue -> Bool
> :: Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue -> Bool
$c>= :: Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue -> Bool
>= :: Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue -> Bool
$cmax :: Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue
max :: Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue
$cmin :: Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue
min :: Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue
-> Permission'Type'UnrecognizedValue
Prelude.Ord, Int -> Permission'Type'UnrecognizedValue -> ShowS
[Permission'Type'UnrecognizedValue] -> ShowS
Permission'Type'UnrecognizedValue -> String
(Int -> Permission'Type'UnrecognizedValue -> ShowS)
-> (Permission'Type'UnrecognizedValue -> String)
-> ([Permission'Type'UnrecognizedValue] -> ShowS)
-> Show Permission'Type'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Permission'Type'UnrecognizedValue -> ShowS
showsPrec :: Int -> Permission'Type'UnrecognizedValue -> ShowS
$cshow :: Permission'Type'UnrecognizedValue -> String
show :: Permission'Type'UnrecognizedValue -> String
$cshowList :: [Permission'Type'UnrecognizedValue] -> ShowS
showList :: [Permission'Type'UnrecognizedValue] -> ShowS
Prelude.Show)
data Permission'Type
  = Permission'READ |
    Permission'WRITE |
    Permission'READWRITE |
    Permission'Type'Unrecognized !Permission'Type'UnrecognizedValue
  deriving stock (Int -> Permission'Type -> ShowS
[Permission'Type] -> ShowS
Permission'Type -> String
(Int -> Permission'Type -> ShowS)
-> (Permission'Type -> String)
-> ([Permission'Type] -> ShowS)
-> Show Permission'Type
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Permission'Type -> ShowS
showsPrec :: Int -> Permission'Type -> ShowS
$cshow :: Permission'Type -> String
show :: Permission'Type -> String
$cshowList :: [Permission'Type] -> ShowS
showList :: [Permission'Type] -> ShowS
Prelude.Show, Permission'Type -> Permission'Type -> Bool
(Permission'Type -> Permission'Type -> Bool)
-> (Permission'Type -> Permission'Type -> Bool)
-> Eq Permission'Type
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Permission'Type -> Permission'Type -> Bool
== :: Permission'Type -> Permission'Type -> Bool
$c/= :: Permission'Type -> Permission'Type -> Bool
/= :: Permission'Type -> Permission'Type -> Bool
Prelude.Eq, Eq Permission'Type
Eq Permission'Type =>
(Permission'Type -> Permission'Type -> Ordering)
-> (Permission'Type -> Permission'Type -> Bool)
-> (Permission'Type -> Permission'Type -> Bool)
-> (Permission'Type -> Permission'Type -> Bool)
-> (Permission'Type -> Permission'Type -> Bool)
-> (Permission'Type -> Permission'Type -> Permission'Type)
-> (Permission'Type -> Permission'Type -> Permission'Type)
-> Ord Permission'Type
Permission'Type -> Permission'Type -> Bool
Permission'Type -> Permission'Type -> Ordering
Permission'Type -> Permission'Type -> Permission'Type
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 :: Permission'Type -> Permission'Type -> Ordering
compare :: Permission'Type -> Permission'Type -> Ordering
$c< :: Permission'Type -> Permission'Type -> Bool
< :: Permission'Type -> Permission'Type -> Bool
$c<= :: Permission'Type -> Permission'Type -> Bool
<= :: Permission'Type -> Permission'Type -> Bool
$c> :: Permission'Type -> Permission'Type -> Bool
> :: Permission'Type -> Permission'Type -> Bool
$c>= :: Permission'Type -> Permission'Type -> Bool
>= :: Permission'Type -> Permission'Type -> Bool
$cmax :: Permission'Type -> Permission'Type -> Permission'Type
max :: Permission'Type -> Permission'Type -> Permission'Type
$cmin :: Permission'Type -> Permission'Type -> Permission'Type
min :: Permission'Type -> Permission'Type -> Permission'Type
Prelude.Ord)
instance Data.ProtoLens.MessageEnum Permission'Type where
  maybeToEnum :: Int -> Maybe Permission'Type
maybeToEnum Int
0 = Permission'Type -> Maybe Permission'Type
forall a. a -> Maybe a
Prelude.Just Permission'Type
Permission'READ
  maybeToEnum Int
1 = Permission'Type -> Maybe Permission'Type
forall a. a -> Maybe a
Prelude.Just Permission'Type
Permission'WRITE
  maybeToEnum Int
2 = Permission'Type -> Maybe Permission'Type
forall a. a -> Maybe a
Prelude.Just Permission'Type
Permission'READWRITE
  maybeToEnum Int
k
    = Permission'Type -> Maybe Permission'Type
forall a. a -> Maybe a
Prelude.Just
        (Permission'Type'UnrecognizedValue -> Permission'Type
Permission'Type'Unrecognized
           (Int32 -> Permission'Type'UnrecognizedValue
Permission'Type'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: Permission'Type -> String
showEnum Permission'Type
Permission'READ = String
"READ"
  showEnum Permission'Type
Permission'WRITE = String
"WRITE"
  showEnum Permission'Type
Permission'READWRITE = String
"READWRITE"
  showEnum
    (Permission'Type'Unrecognized (Permission'Type'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe Permission'Type
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"READ" = Permission'Type -> Maybe Permission'Type
forall a. a -> Maybe a
Prelude.Just Permission'Type
Permission'READ
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"WRITE" = Permission'Type -> Maybe Permission'Type
forall a. a -> Maybe a
Prelude.Just Permission'Type
Permission'WRITE
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"READWRITE" = Permission'Type -> Maybe Permission'Type
forall a. a -> Maybe a
Prelude.Just Permission'Type
Permission'READWRITE
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe Permission'Type) -> Maybe Permission'Type
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 Permission'Type
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded Permission'Type where
  minBound :: Permission'Type
minBound = Permission'Type
Permission'READ
  maxBound :: Permission'Type
maxBound = Permission'Type
Permission'READWRITE
instance Prelude.Enum Permission'Type where
  toEnum :: Int -> Permission'Type
toEnum Int
k__
    = Permission'Type
-> (Permission'Type -> Permission'Type)
-> Maybe Permission'Type
-> Permission'Type
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> Permission'Type
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum Type: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        Permission'Type -> Permission'Type
forall a. a -> a
Prelude.id (Int -> Maybe Permission'Type
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: Permission'Type -> Int
fromEnum Permission'Type
Permission'READ = Int
0
  fromEnum Permission'Type
Permission'WRITE = Int
1
  fromEnum Permission'Type
Permission'READWRITE = Int
2
  fromEnum
    (Permission'Type'Unrecognized (Permission'Type'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: Permission'Type -> Permission'Type
succ Permission'Type
Permission'READWRITE
    = String -> Permission'Type
forall a. HasCallStack => String -> a
Prelude.error
        String
"Permission'Type.succ: bad argument Permission'READWRITE. This value would be out of bounds."
  succ Permission'Type
Permission'READ = Permission'Type
Permission'WRITE
  succ Permission'Type
Permission'WRITE = Permission'Type
Permission'READWRITE
  succ (Permission'Type'Unrecognized Permission'Type'UnrecognizedValue
_)
    = String -> Permission'Type
forall a. HasCallStack => String -> a
Prelude.error
        String
"Permission'Type.succ: bad argument: unrecognized value"
  pred :: Permission'Type -> Permission'Type
pred Permission'Type
Permission'READ
    = String -> Permission'Type
forall a. HasCallStack => String -> a
Prelude.error
        String
"Permission'Type.pred: bad argument Permission'READ. This value would be out of bounds."
  pred Permission'Type
Permission'WRITE = Permission'Type
Permission'READ
  pred Permission'Type
Permission'READWRITE = Permission'Type
Permission'WRITE
  pred (Permission'Type'Unrecognized Permission'Type'UnrecognizedValue
_)
    = String -> Permission'Type
forall a. HasCallStack => String -> a
Prelude.error
        String
"Permission'Type.pred: bad argument: unrecognized value"
  enumFrom :: Permission'Type -> [Permission'Type]
enumFrom = Permission'Type -> [Permission'Type]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: Permission'Type -> Permission'Type -> [Permission'Type]
enumFromTo = Permission'Type -> Permission'Type -> [Permission'Type]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: Permission'Type -> Permission'Type -> [Permission'Type]
enumFromThen = Permission'Type -> Permission'Type -> [Permission'Type]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: Permission'Type
-> Permission'Type -> Permission'Type -> [Permission'Type]
enumFromThenTo = Permission'Type
-> Permission'Type -> Permission'Type -> [Permission'Type]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault Permission'Type where
  fieldDefault :: Permission'Type
fieldDefault = Permission'Type
Permission'READ
instance Control.DeepSeq.NFData Permission'Type where
  rnf :: Permission'Type -> ()
rnf Permission'Type
x__ = Permission'Type -> () -> ()
forall a b. a -> b -> b
Prelude.seq Permission'Type
x__ ()
{- | Fields :
     
         * 'Proto.Etcd.Api.Authpb.Auth_Fields.name' @:: Lens' Role Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Authpb.Auth_Fields.keyPermission' @:: Lens' Role [Permission]@
         * 'Proto.Etcd.Api.Authpb.Auth_Fields.vec'keyPermission' @:: Lens' Role (Data.Vector.Vector Permission)@ -}
data Role
  = Role'_constructor {Role -> ByteString
_Role'name :: !Data.ByteString.ByteString,
                       Role -> Vector Permission
_Role'keyPermission :: !(Data.Vector.Vector Permission),
                       Role -> FieldSet
_Role'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Role -> Role -> Bool
(Role -> Role -> Bool) -> (Role -> Role -> Bool) -> Eq Role
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Role -> Role -> Bool
== :: Role -> Role -> Bool
$c/= :: Role -> Role -> Bool
/= :: Role -> Role -> Bool
Prelude.Eq, Eq Role
Eq Role =>
(Role -> Role -> Ordering)
-> (Role -> Role -> Bool)
-> (Role -> Role -> Bool)
-> (Role -> Role -> Bool)
-> (Role -> Role -> Bool)
-> (Role -> Role -> Role)
-> (Role -> Role -> Role)
-> Ord Role
Role -> Role -> Bool
Role -> Role -> Ordering
Role -> Role -> Role
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 :: Role -> Role -> Ordering
compare :: Role -> Role -> Ordering
$c< :: Role -> Role -> Bool
< :: Role -> Role -> Bool
$c<= :: Role -> Role -> Bool
<= :: Role -> Role -> Bool
$c> :: Role -> Role -> Bool
> :: Role -> Role -> Bool
$c>= :: Role -> Role -> Bool
>= :: Role -> Role -> Bool
$cmax :: Role -> Role -> Role
max :: Role -> Role -> Role
$cmin :: Role -> Role -> Role
min :: Role -> Role -> Role
Prelude.Ord)
instance Prelude.Show Role where
  showsPrec :: Int -> Role -> ShowS
showsPrec Int
_ Role
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Role -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Role
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Role "name" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name" -> (ByteString -> f ByteString) -> Role -> f Role
fieldOf Proxy# "name"
_
    = ((ByteString -> f ByteString) -> Role -> f Role)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Role
-> f Role
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Role -> ByteString)
-> (Role -> ByteString -> Role)
-> Lens Role Role ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Role -> ByteString
_Role'name (\ Role
x__ ByteString
y__ -> Role
x__ {_Role'name = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Role "keyPermission" [Permission] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "keyPermission"
-> ([Permission] -> f [Permission]) -> Role -> f Role
fieldOf Proxy# "keyPermission"
_
    = ((Vector Permission -> f (Vector Permission)) -> Role -> f Role)
-> (([Permission] -> f [Permission])
    -> Vector Permission -> f (Vector Permission))
-> ([Permission] -> f [Permission])
-> Role
-> f Role
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Role -> Vector Permission)
-> (Role -> Vector Permission -> Role)
-> Lens Role Role (Vector Permission) (Vector Permission)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Role -> Vector Permission
_Role'keyPermission (\ Role
x__ Vector Permission
y__ -> Role
x__ {_Role'keyPermission = y__}))
        ((Vector Permission -> [Permission])
-> (Vector Permission -> [Permission] -> Vector Permission)
-> Lens
     (Vector Permission) (Vector Permission) [Permission] [Permission]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Permission -> [Permission]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Permission
_ [Permission]
y__ -> [Permission] -> Vector Permission
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Permission]
y__))
instance Data.ProtoLens.Field.HasField Role "vec'keyPermission" (Data.Vector.Vector Permission) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'keyPermission"
-> (Vector Permission -> f (Vector Permission)) -> Role -> f Role
fieldOf Proxy# "vec'keyPermission"
_
    = ((Vector Permission -> f (Vector Permission)) -> Role -> f Role)
-> ((Vector Permission -> f (Vector Permission))
    -> Vector Permission -> f (Vector Permission))
-> (Vector Permission -> f (Vector Permission))
-> Role
-> f Role
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Role -> Vector Permission)
-> (Role -> Vector Permission -> Role)
-> Lens Role Role (Vector Permission) (Vector Permission)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Role -> Vector Permission
_Role'keyPermission (\ Role
x__ Vector Permission
y__ -> Role
x__ {_Role'keyPermission = y__}))
        (Vector Permission -> f (Vector Permission))
-> Vector Permission -> f (Vector Permission)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Role where
  messageName :: Proxy Role -> Text
messageName Proxy Role
_ = String -> Text
Data.Text.pack String
"authpb.Role"
  packedMessageDescriptor :: Proxy Role -> ByteString
packedMessageDescriptor Proxy Role
_
    = ByteString
"\n\
      \\EOTRole\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\fR\EOTname\DC28\n\
      \\rkeyPermission\CAN\STX \ETX(\v2\DC2.authpb.PermissionR\rkeyPermission"
  packedFileDescriptor :: Proxy Role -> ByteString
packedFileDescriptor Proxy Role
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Role)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor Role
name__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Role ByteString
-> FieldDescriptor Role
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"name"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens Role Role ByteString ByteString
-> FieldAccessor Role ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
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 @"name")) ::
              Data.ProtoLens.FieldDescriptor Role
        keyPermission__field_descriptor :: FieldDescriptor Role
keyPermission__field_descriptor
          = String
-> FieldTypeDescriptor Permission
-> FieldAccessor Role Permission
-> FieldDescriptor Role
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"keyPermission"
              (MessageOrGroup -> FieldTypeDescriptor Permission
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Permission)
              (Packing -> Lens' Role [Permission] -> FieldAccessor Role Permission
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"keyPermission")) ::
              Data.ProtoLens.FieldDescriptor Role
      in
        [(Tag, FieldDescriptor Role)] -> Map Tag (FieldDescriptor Role)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Role
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Role
keyPermission__field_descriptor)]
  unknownFields :: Lens' Role FieldSet
unknownFields
    = (Role -> FieldSet)
-> (Role -> FieldSet -> Role) -> Lens' Role FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Role -> FieldSet
_Role'_unknownFields
        (\ Role
x__ FieldSet
y__ -> Role
x__ {_Role'_unknownFields = y__})
  defMessage :: Role
defMessage
    = Role'_constructor
        {_Role'name :: ByteString
_Role'name = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Role'keyPermission :: Vector Permission
_Role'keyPermission = Vector Permission
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _Role'_unknownFields :: FieldSet
_Role'_unknownFields = []}
  parseMessage :: Parser Role
parseMessage
    = let
        loop ::
          Role
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Permission
             -> Data.ProtoLens.Encoding.Bytes.Parser Role
        loop :: Role -> Growing Vector RealWorld Permission -> Parser Role
loop Role
x Growing Vector RealWorld Permission
mutable'keyPermission
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'keyPermission <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                   mutable'keyPermission)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'keyPermission")
                              frozen'keyPermission x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"name"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x)
                                  mutable'keyPermission
                        Word64
18
                          -> do !y <- Parser Permission -> String -> Parser Permission
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.isolate
                                              (Prelude.fromIntegral len)
                                              Data.ProtoLens.parseMessage)
                                        String
"keyPermission"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append
                                          mutable'keyPermission y)
                                loop x v
                        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)
                                  mutable'keyPermission
      in
        Parser Role -> String -> Parser Role
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'keyPermission <- IO (Growing Vector RealWorld Permission)
-> Parser (Growing Vector RealWorld Permission)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         IO (Growing Vector RealWorld Permission)
IO (Growing Vector (PrimState IO) Permission)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'keyPermission)
          String
"Role"
  buildMessage :: Role -> Builder
buildMessage
    = \ Role
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: ByteString
_v = FoldLike ByteString Role Role ByteString ByteString
-> Role -> ByteString
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 @"name") Role
_x
              in
                if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
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
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))
                         ByteString
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((Permission -> Builder) -> Vector Permission -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ Permission
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (Permission -> ByteString) -> Permission -> 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))
                              Permission -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Permission
_v))
                   (FoldLike
  (Vector Permission)
  Role
  Role
  (Vector Permission)
  (Vector Permission)
-> Role -> Vector Permission
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 @"vec'keyPermission") Role
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet Role Role FieldSet FieldSet -> Role -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Role Role FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Role FieldSet
Data.ProtoLens.unknownFields Role
_x)))
instance Control.DeepSeq.NFData Role where
  rnf :: Role -> ()
rnf
    = \ Role
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Role -> FieldSet
_Role'_unknownFields Role
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Role -> ByteString
_Role'name Role
x__)
                (Vector Permission -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Role -> Vector Permission
_Role'keyPermission Role
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Authpb.Auth_Fields.name' @:: Lens' User Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Authpb.Auth_Fields.password' @:: Lens' User Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Authpb.Auth_Fields.roles' @:: Lens' User [Data.Text.Text]@
         * 'Proto.Etcd.Api.Authpb.Auth_Fields.vec'roles' @:: Lens' User (Data.Vector.Vector Data.Text.Text)@
         * 'Proto.Etcd.Api.Authpb.Auth_Fields.options' @:: Lens' User UserAddOptions@
         * 'Proto.Etcd.Api.Authpb.Auth_Fields.maybe'options' @:: Lens' User (Prelude.Maybe UserAddOptions)@ -}
data User
  = User'_constructor {User -> ByteString
_User'name :: !Data.ByteString.ByteString,
                       User -> ByteString
_User'password :: !Data.ByteString.ByteString,
                       User -> Vector Text
_User'roles :: !(Data.Vector.Vector Data.Text.Text),
                       User -> Maybe UserAddOptions
_User'options :: !(Prelude.Maybe UserAddOptions),
                       User -> FieldSet
_User'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (User -> User -> Bool
(User -> User -> Bool) -> (User -> User -> Bool) -> Eq User
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: User -> User -> Bool
== :: User -> User -> Bool
$c/= :: User -> User -> Bool
/= :: User -> User -> Bool
Prelude.Eq, Eq User
Eq User =>
(User -> User -> Ordering)
-> (User -> User -> Bool)
-> (User -> User -> Bool)
-> (User -> User -> Bool)
-> (User -> User -> Bool)
-> (User -> User -> User)
-> (User -> User -> User)
-> Ord User
User -> User -> Bool
User -> User -> Ordering
User -> User -> User
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 :: User -> User -> Ordering
compare :: User -> User -> Ordering
$c< :: User -> User -> Bool
< :: User -> User -> Bool
$c<= :: User -> User -> Bool
<= :: User -> User -> Bool
$c> :: User -> User -> Bool
> :: User -> User -> Bool
$c>= :: User -> User -> Bool
>= :: User -> User -> Bool
$cmax :: User -> User -> User
max :: User -> User -> User
$cmin :: User -> User -> User
min :: User -> User -> User
Prelude.Ord)
instance Prelude.Show User where
  showsPrec :: Int -> User -> ShowS
showsPrec Int
_ User
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (User -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort User
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField User "name" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name" -> (ByteString -> f ByteString) -> User -> f User
fieldOf Proxy# "name"
_
    = ((ByteString -> f ByteString) -> User -> f User)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> User
-> f User
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((User -> ByteString)
-> (User -> ByteString -> User)
-> Lens User User ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           User -> ByteString
_User'name (\ User
x__ ByteString
y__ -> User
x__ {_User'name = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField User "password" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "password" -> (ByteString -> f ByteString) -> User -> f User
fieldOf Proxy# "password"
_
    = ((ByteString -> f ByteString) -> User -> f User)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> User
-> f User
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((User -> ByteString)
-> (User -> ByteString -> User)
-> Lens User User ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           User -> ByteString
_User'password (\ User
x__ ByteString
y__ -> User
x__ {_User'password = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField User "roles" [Data.Text.Text] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "roles" -> ([Text] -> f [Text]) -> User -> f User
fieldOf Proxy# "roles"
_
    = ((Vector Text -> f (Vector Text)) -> User -> f User)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> User
-> f User
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((User -> Vector Text)
-> (User -> Vector Text -> User)
-> Lens User User (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           User -> Vector Text
_User'roles (\ User
x__ Vector Text
y__ -> User
x__ {_User'roles = y__}))
        ((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Text
_ [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField User "vec'roles" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'roles"
-> (Vector Text -> f (Vector Text)) -> User -> f User
fieldOf Proxy# "vec'roles"
_
    = ((Vector Text -> f (Vector Text)) -> User -> f User)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> User
-> f User
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((User -> Vector Text)
-> (User -> Vector Text -> User)
-> Lens User User (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           User -> Vector Text
_User'roles (\ User
x__ Vector Text
y__ -> User
x__ {_User'roles = y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField User "options" UserAddOptions where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "options"
-> (UserAddOptions -> f UserAddOptions) -> User -> f User
fieldOf Proxy# "options"
_
    = ((Maybe UserAddOptions -> f (Maybe UserAddOptions))
 -> User -> f User)
-> ((UserAddOptions -> f UserAddOptions)
    -> Maybe UserAddOptions -> f (Maybe UserAddOptions))
-> (UserAddOptions -> f UserAddOptions)
-> User
-> f User
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((User -> Maybe UserAddOptions)
-> (User -> Maybe UserAddOptions -> User)
-> Lens User User (Maybe UserAddOptions) (Maybe UserAddOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           User -> Maybe UserAddOptions
_User'options (\ User
x__ Maybe UserAddOptions
y__ -> User
x__ {_User'options = y__}))
        (UserAddOptions -> Lens' (Maybe UserAddOptions) UserAddOptions
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens UserAddOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField User "maybe'options" (Prelude.Maybe UserAddOptions) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'options"
-> (Maybe UserAddOptions -> f (Maybe UserAddOptions))
-> User
-> f User
fieldOf Proxy# "maybe'options"
_
    = ((Maybe UserAddOptions -> f (Maybe UserAddOptions))
 -> User -> f User)
-> ((Maybe UserAddOptions -> f (Maybe UserAddOptions))
    -> Maybe UserAddOptions -> f (Maybe UserAddOptions))
-> (Maybe UserAddOptions -> f (Maybe UserAddOptions))
-> User
-> f User
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((User -> Maybe UserAddOptions)
-> (User -> Maybe UserAddOptions -> User)
-> Lens User User (Maybe UserAddOptions) (Maybe UserAddOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           User -> Maybe UserAddOptions
_User'options (\ User
x__ Maybe UserAddOptions
y__ -> User
x__ {_User'options = y__}))
        (Maybe UserAddOptions -> f (Maybe UserAddOptions))
-> Maybe UserAddOptions -> f (Maybe UserAddOptions)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message User where
  messageName :: Proxy User -> Text
messageName Proxy User
_ = String -> Text
Data.Text.pack String
"authpb.User"
  packedMessageDescriptor :: Proxy User -> ByteString
packedMessageDescriptor Proxy User
_
    = ByteString
"\n\
      \\EOTUser\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\fR\EOTname\DC2\SUB\n\
      \\bpassword\CAN\STX \SOH(\fR\bpassword\DC2\DC4\n\
      \\ENQroles\CAN\ETX \ETX(\tR\ENQroles\DC20\n\
      \\aoptions\CAN\EOT \SOH(\v2\SYN.authpb.UserAddOptionsR\aoptions"
  packedFileDescriptor :: Proxy User -> ByteString
packedFileDescriptor Proxy User
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor User)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor User
name__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor User ByteString
-> FieldDescriptor User
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"name"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens User User ByteString ByteString
-> FieldAccessor User ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
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 @"name")) ::
              Data.ProtoLens.FieldDescriptor User
        password__field_descriptor :: FieldDescriptor User
password__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor User ByteString
-> FieldDescriptor User
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"password"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens User User ByteString ByteString
-> FieldAccessor User ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
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 @"password")) ::
              Data.ProtoLens.FieldDescriptor User
        roles__field_descriptor :: FieldDescriptor User
roles__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor User Text
-> FieldDescriptor User
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"roles"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Packing -> Lens' User [Text] -> FieldAccessor User Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"roles")) ::
              Data.ProtoLens.FieldDescriptor User
        options__field_descriptor :: FieldDescriptor User
options__field_descriptor
          = String
-> FieldTypeDescriptor UserAddOptions
-> FieldAccessor User UserAddOptions
-> FieldDescriptor User
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"options"
              (MessageOrGroup -> FieldTypeDescriptor UserAddOptions
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UserAddOptions)
              (Lens User User (Maybe UserAddOptions) (Maybe UserAddOptions)
-> FieldAccessor User UserAddOptions
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options")) ::
              Data.ProtoLens.FieldDescriptor User
      in
        [(Tag, FieldDescriptor User)] -> Map Tag (FieldDescriptor User)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor User
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor User
password__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor User
roles__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor User
options__field_descriptor)]
  unknownFields :: Lens' User FieldSet
unknownFields
    = (User -> FieldSet)
-> (User -> FieldSet -> User) -> Lens' User FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        User -> FieldSet
_User'_unknownFields
        (\ User
x__ FieldSet
y__ -> User
x__ {_User'_unknownFields = y__})
  defMessage :: User
defMessage
    = User'_constructor
        {_User'name :: ByteString
_User'name = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _User'password :: ByteString
_User'password = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _User'roles :: Vector Text
_User'roles = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _User'options :: Maybe UserAddOptions
_User'options = Maybe UserAddOptions
forall a. Maybe a
Prelude.Nothing, _User'_unknownFields :: FieldSet
_User'_unknownFields = []}
  parseMessage :: Parser User
parseMessage
    = let
        loop ::
          User
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
             -> Data.ProtoLens.Encoding.Bytes.Parser User
        loop :: User -> Growing Vector RealWorld Text -> Parser User
loop User
x Growing Vector RealWorld Text
mutable'roles
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'roles <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'roles)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'roles") frozen'roles x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"name"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x)
                                  mutable'roles
                        Word64
18
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"password"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"password") y x)
                                  mutable'roles
                        Word64
26
                          -> 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
"roles"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'roles y)
                                loop x v
                        Word64
34
                          -> do y <- Parser UserAddOptions -> String -> Parser UserAddOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"options"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x)
                                  mutable'roles
                        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)
                                  mutable'roles
      in
        Parser User -> String -> Parser User
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'roles <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld Text)
IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'roles)
          String
"User"
  buildMessage :: User -> Builder
buildMessage
    = \ User
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: ByteString
_v = FoldLike ByteString User User ByteString ByteString
-> User -> ByteString
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 @"name") User
_x
              in
                if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
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
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))
                         ByteString
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: ByteString
_v = FoldLike ByteString User User ByteString ByteString
-> User -> ByteString
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 @"password") User
_x
                 in
                   if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
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
18)
                         ((\ 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))
                            ByteString
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ Text
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                              ((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))
                      (FoldLike (Vector Text) User User (Vector Text) (Vector Text)
-> User -> Vector 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 @"vec'roles") User
_x))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe UserAddOptions)
  User
  User
  (Maybe UserAddOptions)
  (Maybe UserAddOptions)
-> User -> Maybe UserAddOptions
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 @"maybe'options") User
_x
                       of
                         Maybe UserAddOptions
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just UserAddOptions
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                                ((ByteString -> Builder)
-> (UserAddOptions -> ByteString) -> UserAddOptions -> 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))
                                   UserAddOptions -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage UserAddOptions
_v))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike FieldSet User User FieldSet FieldSet -> User -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet User User FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' User FieldSet
Data.ProtoLens.unknownFields User
_x)))))
instance Control.DeepSeq.NFData User where
  rnf :: User -> ()
rnf
    = \ User
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (User -> FieldSet
_User'_unknownFields User
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (User -> ByteString
_User'name User
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (User -> ByteString
_User'password User
x__)
                   (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (User -> Vector Text
_User'roles User
x__)
                      (Maybe UserAddOptions -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (User -> Maybe UserAddOptions
_User'options User
x__) ()))))
{- | Fields :
     
         * 'Proto.Etcd.Api.Authpb.Auth_Fields.noPassword' @:: Lens' UserAddOptions Prelude.Bool@ -}
data UserAddOptions
  = UserAddOptions'_constructor {UserAddOptions -> Bool
_UserAddOptions'noPassword :: !Prelude.Bool,
                                 UserAddOptions -> FieldSet
_UserAddOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (UserAddOptions -> UserAddOptions -> Bool
(UserAddOptions -> UserAddOptions -> Bool)
-> (UserAddOptions -> UserAddOptions -> Bool) -> Eq UserAddOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: UserAddOptions -> UserAddOptions -> Bool
== :: UserAddOptions -> UserAddOptions -> Bool
$c/= :: UserAddOptions -> UserAddOptions -> Bool
/= :: UserAddOptions -> UserAddOptions -> Bool
Prelude.Eq, Eq UserAddOptions
Eq UserAddOptions =>
(UserAddOptions -> UserAddOptions -> Ordering)
-> (UserAddOptions -> UserAddOptions -> Bool)
-> (UserAddOptions -> UserAddOptions -> Bool)
-> (UserAddOptions -> UserAddOptions -> Bool)
-> (UserAddOptions -> UserAddOptions -> Bool)
-> (UserAddOptions -> UserAddOptions -> UserAddOptions)
-> (UserAddOptions -> UserAddOptions -> UserAddOptions)
-> Ord UserAddOptions
UserAddOptions -> UserAddOptions -> Bool
UserAddOptions -> UserAddOptions -> Ordering
UserAddOptions -> UserAddOptions -> UserAddOptions
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 :: UserAddOptions -> UserAddOptions -> Ordering
compare :: UserAddOptions -> UserAddOptions -> Ordering
$c< :: UserAddOptions -> UserAddOptions -> Bool
< :: UserAddOptions -> UserAddOptions -> Bool
$c<= :: UserAddOptions -> UserAddOptions -> Bool
<= :: UserAddOptions -> UserAddOptions -> Bool
$c> :: UserAddOptions -> UserAddOptions -> Bool
> :: UserAddOptions -> UserAddOptions -> Bool
$c>= :: UserAddOptions -> UserAddOptions -> Bool
>= :: UserAddOptions -> UserAddOptions -> Bool
$cmax :: UserAddOptions -> UserAddOptions -> UserAddOptions
max :: UserAddOptions -> UserAddOptions -> UserAddOptions
$cmin :: UserAddOptions -> UserAddOptions -> UserAddOptions
min :: UserAddOptions -> UserAddOptions -> UserAddOptions
Prelude.Ord)
instance Prelude.Show UserAddOptions where
  showsPrec :: Int -> UserAddOptions -> ShowS
showsPrec Int
_ UserAddOptions
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (UserAddOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort UserAddOptions
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField UserAddOptions "noPassword" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "noPassword"
-> (Bool -> f Bool) -> UserAddOptions -> f UserAddOptions
fieldOf Proxy# "noPassword"
_
    = ((Bool -> f Bool) -> UserAddOptions -> f UserAddOptions)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> UserAddOptions
-> f UserAddOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UserAddOptions -> Bool)
-> (UserAddOptions -> Bool -> UserAddOptions)
-> Lens UserAddOptions UserAddOptions Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UserAddOptions -> Bool
_UserAddOptions'noPassword
           (\ UserAddOptions
x__ Bool
y__ -> UserAddOptions
x__ {_UserAddOptions'noPassword = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message UserAddOptions where
  messageName :: Proxy UserAddOptions -> Text
messageName Proxy UserAddOptions
_ = String -> Text
Data.Text.pack String
"authpb.UserAddOptions"
  packedMessageDescriptor :: Proxy UserAddOptions -> ByteString
packedMessageDescriptor Proxy UserAddOptions
_
    = ByteString
"\n\
      \\SOUserAddOptions\DC2\US\n\
      \\vno_password\CAN\SOH \SOH(\bR\n\
      \noPassword"
  packedFileDescriptor :: Proxy UserAddOptions -> ByteString
packedFileDescriptor Proxy UserAddOptions
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor UserAddOptions)
fieldsByTag
    = let
        noPassword__field_descriptor :: FieldDescriptor UserAddOptions
noPassword__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor UserAddOptions Bool
-> FieldDescriptor UserAddOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"no_password"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens UserAddOptions UserAddOptions Bool Bool
-> FieldAccessor UserAddOptions Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"noPassword")) ::
              Data.ProtoLens.FieldDescriptor UserAddOptions
      in
        [(Tag, FieldDescriptor UserAddOptions)]
-> Map Tag (FieldDescriptor UserAddOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor UserAddOptions
noPassword__field_descriptor)]
  unknownFields :: Lens' UserAddOptions FieldSet
unknownFields
    = (UserAddOptions -> FieldSet)
-> (UserAddOptions -> FieldSet -> UserAddOptions)
-> Lens' UserAddOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        UserAddOptions -> FieldSet
_UserAddOptions'_unknownFields
        (\ UserAddOptions
x__ FieldSet
y__ -> UserAddOptions
x__ {_UserAddOptions'_unknownFields = y__})
  defMessage :: UserAddOptions
defMessage
    = UserAddOptions'_constructor
        {_UserAddOptions'noPassword :: Bool
_UserAddOptions'noPassword = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _UserAddOptions'_unknownFields :: FieldSet
_UserAddOptions'_unknownFields = []}
  parseMessage :: Parser UserAddOptions
parseMessage
    = let
        loop ::
          UserAddOptions
          -> Data.ProtoLens.Encoding.Bytes.Parser UserAddOptions
        loop :: UserAddOptions -> Parser UserAddOptions
loop UserAddOptions
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 Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"no_password"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"noPassword") 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 UserAddOptions -> String -> Parser UserAddOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do UserAddOptions -> Parser UserAddOptions
loop UserAddOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"UserAddOptions"
  buildMessage :: UserAddOptions -> Builder
buildMessage
    = \ UserAddOptions
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Bool
_v
                  = FoldLike Bool UserAddOptions UserAddOptions Bool Bool
-> UserAddOptions -> Bool
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 @"noPassword") UserAddOptions
_x
              in
                if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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)
                      ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
                         Bool
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet UserAddOptions UserAddOptions FieldSet FieldSet
-> UserAddOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet UserAddOptions UserAddOptions FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UserAddOptions FieldSet
Data.ProtoLens.unknownFields UserAddOptions
_x))
instance Control.DeepSeq.NFData UserAddOptions where
  rnf :: UserAddOptions -> ()
rnf
    = \ UserAddOptions
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (UserAddOptions -> FieldSet
_UserAddOptions'_unknownFields UserAddOptions
x__)
             (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (UserAddOptions -> Bool
_UserAddOptions'noPassword UserAddOptions
x__) ())
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \\SUBetcd/api/authpb/auth.proto\DC2\ACKauthpb\SUB\DC4gogoproto/gogo.proto\"1\n\
    \\SOUserAddOptions\DC2\US\n\
    \\vno_password\CAN\SOH \SOH(\bR\n\
    \noPassword\"~\n\
    \\EOTUser\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\fR\EOTname\DC2\SUB\n\
    \\bpassword\CAN\STX \SOH(\fR\bpassword\DC2\DC4\n\
    \\ENQroles\CAN\ETX \ETX(\tR\ENQroles\DC20\n\
    \\aoptions\CAN\EOT \SOH(\v2\SYN.authpb.UserAddOptionsR\aoptions\"\156\SOH\n\
    \\n\
    \Permission\DC23\n\
    \\bpermType\CAN\SOH \SOH(\SO2\ETB.authpb.Permission.TypeR\bpermType\DC2\DLE\n\
    \\ETXkey\CAN\STX \SOH(\fR\ETXkey\DC2\ESC\n\
    \\trange_end\CAN\ETX \SOH(\fR\brangeEnd\"*\n\
    \\EOTType\DC2\b\n\
    \\EOTREAD\DLE\NUL\DC2\t\n\
    \\ENQWRITE\DLE\SOH\DC2\r\n\
    \\tREADWRITE\DLE\STX\"T\n\
    \\EOTRole\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\fR\EOTname\DC28\n\
    \\rkeyPermission\CAN\STX \ETX(\v2\DC2.authpb.PermissionR\rkeyPermissionB3Z\GSgo.etcd.io/etcd/api/v3/authpb\200\225\RS\NUL\208\225\RS\NUL\200\226\RS\SOH\208\226\RS\SOH\224\226\RS\SOHJ\255\b\n\
    \\ACK\DC2\EOT\NUL\NUL+\SOH\n\
    \\b\n\
    \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\SOH\NUL\SI\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX\ETX\NUL\RS\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ENQ\NUL4\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\ENQ\NUL4\n\
    \\b\n\
    \\SOH\b\DC2\ETX\a\NUL(\n\
    \\v\n\
    \\EOT\b\169\236\ETX\DC2\ETX\a\NUL(\n\
    \\b\n\
    \\SOH\b\DC2\ETX\b\NUL$\n\
    \\v\n\
    \\EOT\b\172\236\ETX\DC2\ETX\b\NUL$\n\
    \\b\n\
    \\SOH\b\DC2\ETX\t\NUL*\n\
    \\v\n\
    \\EOT\b\170\236\ETX\DC2\ETX\t\NUL*\n\
    \\b\n\
    \\SOH\b\DC2\ETX\n\
    \\NUL/\n\
    \\v\n\
    \\EOT\b\153\236\ETX\DC2\ETX\n\
    \\NUL/\n\
    \\b\n\
    \\SOH\b\DC2\ETX\v\NUL3\n\
    \\v\n\
    \\EOT\b\154\236\ETX\DC2\ETX\v\NUL3\n\
    \\n\
    \\n\
    \\STX\EOT\NUL\DC2\EOT\r\NUL\SI\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\r\b\SYN\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\SO\STX\ETB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\SO\STX\ACK\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\SO\a\DC2\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\SO\NAK\SYN\n\
    \<\n\
    \\STX\EOT\SOH\DC2\EOT\DC2\NUL\ETB\SOH\SUB0 User is a single entry in the bucket authUsers\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX\DC2\b\f\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX\DC3\STX\DC1\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\DC3\STX\a\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\DC3\b\f\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\DC3\SI\DLE\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETX\DC4\STX\NAK\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\DC4\STX\a\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\DC4\b\DLE\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\DC4\DC3\DC4\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\STX\DC2\ETX\NAK\STX\FS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\EOT\DC2\ETX\NAK\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ENQ\DC2\ETX\NAK\v\DC1\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX\NAK\DC2\ETB\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX\NAK\SUB\ESC\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\ETX\DC2\ETX\SYN\STX\GS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ETX\ACK\DC2\ETX\SYN\STX\DLE\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ETX\SOH\DC2\ETX\SYN\DC1\CAN\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ETX\ETX\DC2\ETX\SYN\ESC\FS\n\
    \+\n\
    \\STX\EOT\STX\DC2\EOT\SUB\NUL$\SOH\SUB\US Permission is a single entity\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX\SUB\b\DC2\n\
    \\f\n\
    \\EOT\EOT\STX\EOT\NUL\DC2\EOT\ESC\STX\US\ETX\n\
    \\f\n\
    \\ENQ\EOT\STX\EOT\NUL\SOH\DC2\ETX\ESC\a\v\n\
    \\r\n\
    \\ACK\EOT\STX\EOT\NUL\STX\NUL\DC2\ETX\FS\EOT\r\n\
    \\SO\n\
    \\a\EOT\STX\EOT\NUL\STX\NUL\SOH\DC2\ETX\FS\EOT\b\n\
    \\SO\n\
    \\a\EOT\STX\EOT\NUL\STX\NUL\STX\DC2\ETX\FS\v\f\n\
    \\r\n\
    \\ACK\EOT\STX\EOT\NUL\STX\SOH\DC2\ETX\GS\EOT\SO\n\
    \\SO\n\
    \\a\EOT\STX\EOT\NUL\STX\SOH\SOH\DC2\ETX\GS\EOT\t\n\
    \\SO\n\
    \\a\EOT\STX\EOT\NUL\STX\SOH\STX\DC2\ETX\GS\f\r\n\
    \\r\n\
    \\ACK\EOT\STX\EOT\NUL\STX\STX\DC2\ETX\RS\EOT\DC2\n\
    \\SO\n\
    \\a\EOT\STX\EOT\NUL\STX\STX\SOH\DC2\ETX\RS\EOT\r\n\
    \\SO\n\
    \\a\EOT\STX\EOT\NUL\STX\STX\STX\DC2\ETX\RS\DLE\DC1\n\
    \\v\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETX \STX\DC4\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX \STX\ACK\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX \a\SI\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX \DC2\DC3\n\
    \\v\n\
    \\EOT\EOT\STX\STX\SOH\DC2\ETX\"\STX\DLE\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX\"\STX\a\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX\"\b\v\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX\"\SO\SI\n\
    \\v\n\
    \\EOT\EOT\STX\STX\STX\DC2\ETX#\STX\SYN\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\ENQ\DC2\ETX#\STX\a\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\SOH\DC2\ETX#\b\DC1\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\ETX\DC2\ETX#\DC4\NAK\n\
    \<\n\
    \\STX\EOT\ETX\DC2\EOT'\NUL+\SOH\SUB0 Role is a single entry in the bucket authRoles\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETX'\b\f\n\
    \\v\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\ETX(\STX\DC1\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX(\STX\a\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX(\b\f\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX(\SI\DLE\n\
    \\v\n\
    \\EOT\EOT\ETX\STX\SOH\DC2\ETX*\STX(\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\EOT\DC2\ETX*\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\ACK\DC2\ETX*\v\NAK\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX*\SYN#\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX*&'b\ACKproto3"