{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,
UndecidableInstances, GeneralizedNewtypeDeriving,
MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,
PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports#-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}
module Proto.Etcd.Etcdserver.Api.V3lock.V3lockpb.V3lock
(Lock(..), LockRequest(..), LockResponse(..), UnlockRequest(..),
UnlockResponse(..))
where
import qualified Data.ProtoLens.Reexport.Lens.Labels.Prism
as Lens.Labels.Prism
import qualified Data.ProtoLens.Reexport.Prelude as Prelude
import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int
import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word
import qualified Data.ProtoLens.Reexport.Data.ProtoLens
as Data.ProtoLens
import qualified
Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum
as Data.ProtoLens.Message.Enum
import qualified
Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types
as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Reexport.Lens.Family2
as Lens.Family2
import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked
as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Reexport.Data.Default.Class
as Data.Default.Class
import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text
import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map
import qualified Data.ProtoLens.Reexport.Data.ByteString
as Data.ByteString
import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8
as Data.ByteString.Char8
import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels
import qualified Data.ProtoLens.Reexport.Text.Read as Text.Read
import qualified Proto.Etcd.Etcdserver.Etcdserverpb.Rpc
import qualified Proto.Gogoproto.Gogo
import qualified Proto.Google.Api.Annotations
data LockRequest = LockRequest{_LockRequest'name ::
!Data.ByteString.ByteString,
_LockRequest'lease :: !Data.Int.Int64,
_LockRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)
instance (Lens.Labels.HasLens' f LockRequest x a, a ~ b) =>
Lens.Labels.HasLens f LockRequest LockRequest x a b
where
lensOf = Lens.Labels.lensOf'
instance Prelude.Functor f =>
Lens.Labels.HasLens' f LockRequest "name"
(Data.ByteString.ByteString)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _LockRequest'name
(\ x__ y__ -> x__{_LockRequest'name = y__}))
Prelude.id
instance Prelude.Functor f =>
Lens.Labels.HasLens' f LockRequest "lease" (Data.Int.Int64)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _LockRequest'lease
(\ x__ y__ -> x__{_LockRequest'lease = y__}))
Prelude.id
instance Data.Default.Class.Default LockRequest where
def
= LockRequest{_LockRequest'name = Data.ProtoLens.fieldDefault,
_LockRequest'lease = Data.ProtoLens.fieldDefault,
_LockRequest'_unknownFields = ([])}
instance Data.ProtoLens.Message LockRequest where
messageName _ = Data.Text.pack "v3lockpb.LockRequest"
fieldsByTag
= let name__field_descriptor
= Data.ProtoLens.FieldDescriptor "name"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional
(Lens.Labels.lensOf
((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name")))
:: Data.ProtoLens.FieldDescriptor LockRequest
lease__field_descriptor
= Data.ProtoLens.FieldDescriptor "lease"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional
(Lens.Labels.lensOf
((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "lease")))
:: Data.ProtoLens.FieldDescriptor LockRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, name__field_descriptor),
(Data.ProtoLens.Tag 2, lease__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens _LockRequest'_unknownFields
(\ x__ y__ -> x__{_LockRequest'_unknownFields = y__})
data LockResponse = LockResponse{_LockResponse'header ::
!(Prelude.Maybe
Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader),
_LockResponse'key :: !Data.ByteString.ByteString,
_LockResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)
instance (Lens.Labels.HasLens' f LockResponse x a, a ~ b) =>
Lens.Labels.HasLens f LockResponse LockResponse x a b
where
lensOf = Lens.Labels.lensOf'
instance Prelude.Functor f =>
Lens.Labels.HasLens' f LockResponse "header"
(Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _LockResponse'header
(\ x__ y__ -> x__{_LockResponse'header = y__}))
(Data.ProtoLens.maybeLens Data.Default.Class.def)
instance Prelude.Functor f =>
Lens.Labels.HasLens' f LockResponse "maybe'header"
(Prelude.Maybe
Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _LockResponse'header
(\ x__ y__ -> x__{_LockResponse'header = y__}))
Prelude.id
instance Prelude.Functor f =>
Lens.Labels.HasLens' f LockResponse "key"
(Data.ByteString.ByteString)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _LockResponse'key
(\ x__ y__ -> x__{_LockResponse'key = y__}))
Prelude.id
instance Data.Default.Class.Default LockResponse where
def
= LockResponse{_LockResponse'header = Prelude.Nothing,
_LockResponse'key = Data.ProtoLens.fieldDefault,
_LockResponse'_unknownFields = ([])}
instance Data.ProtoLens.Message LockResponse where
messageName _ = Data.Text.pack "v3lockpb.LockResponse"
fieldsByTag
= let header__field_descriptor
= Data.ProtoLens.FieldDescriptor "header"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor
Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader)
(Data.ProtoLens.OptionalField
(Lens.Labels.lensOf
((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))
:: Data.ProtoLens.FieldDescriptor LockResponse
key__field_descriptor
= Data.ProtoLens.FieldDescriptor "key"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional
(Lens.Labels.lensOf
((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key")))
:: Data.ProtoLens.FieldDescriptor LockResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, header__field_descriptor),
(Data.ProtoLens.Tag 2, key__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens _LockResponse'_unknownFields
(\ x__ y__ -> x__{_LockResponse'_unknownFields = y__})
data UnlockRequest = UnlockRequest{_UnlockRequest'key ::
!Data.ByteString.ByteString,
_UnlockRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)
instance (Lens.Labels.HasLens' f UnlockRequest x a, a ~ b) =>
Lens.Labels.HasLens f UnlockRequest UnlockRequest x a b
where
lensOf = Lens.Labels.lensOf'
instance Prelude.Functor f =>
Lens.Labels.HasLens' f UnlockRequest "key"
(Data.ByteString.ByteString)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _UnlockRequest'key
(\ x__ y__ -> x__{_UnlockRequest'key = y__}))
Prelude.id
instance Data.Default.Class.Default UnlockRequest where
def
= UnlockRequest{_UnlockRequest'key = Data.ProtoLens.fieldDefault,
_UnlockRequest'_unknownFields = ([])}
instance Data.ProtoLens.Message UnlockRequest where
messageName _ = Data.Text.pack "v3lockpb.UnlockRequest"
fieldsByTag
= let key__field_descriptor
= Data.ProtoLens.FieldDescriptor "key"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional
(Lens.Labels.lensOf
((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key")))
:: Data.ProtoLens.FieldDescriptor UnlockRequest
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, key__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens _UnlockRequest'_unknownFields
(\ x__ y__ -> x__{_UnlockRequest'_unknownFields = y__})
data UnlockResponse = UnlockResponse{_UnlockResponse'header ::
!(Prelude.Maybe
Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader),
_UnlockResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)
instance (Lens.Labels.HasLens' f UnlockResponse x a, a ~ b) =>
Lens.Labels.HasLens f UnlockResponse UnlockResponse x a b
where
lensOf = Lens.Labels.lensOf'
instance Prelude.Functor f =>
Lens.Labels.HasLens' f UnlockResponse "header"
(Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _UnlockResponse'header
(\ x__ y__ -> x__{_UnlockResponse'header = y__}))
(Data.ProtoLens.maybeLens Data.Default.Class.def)
instance Prelude.Functor f =>
Lens.Labels.HasLens' f UnlockResponse "maybe'header"
(Prelude.Maybe
Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _UnlockResponse'header
(\ x__ y__ -> x__{_UnlockResponse'header = y__}))
Prelude.id
instance Data.Default.Class.Default UnlockResponse where
def
= UnlockResponse{_UnlockResponse'header = Prelude.Nothing,
_UnlockResponse'_unknownFields = ([])}
instance Data.ProtoLens.Message UnlockResponse where
messageName _ = Data.Text.pack "v3lockpb.UnlockResponse"
fieldsByTag
= let header__field_descriptor
= Data.ProtoLens.FieldDescriptor "header"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor
Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader)
(Data.ProtoLens.OptionalField
(Lens.Labels.lensOf
((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))
:: Data.ProtoLens.FieldDescriptor UnlockResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, header__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens _UnlockResponse'_unknownFields
(\ x__ y__ -> x__{_UnlockResponse'_unknownFields = y__})
data Lock = Lock{}
deriving ()
instance Data.ProtoLens.Service.Types.Service Lock where
type ServiceName Lock = "Lock"
type ServicePackage Lock = "v3lockpb"
type ServiceMethods Lock = '["lock", "unlock"]
instance Data.ProtoLens.Service.Types.HasMethodImpl Lock "lock"
where
type MethodName Lock "lock" = "Lock"
type MethodInput Lock "lock" = LockRequest
type MethodOutput Lock "lock" = LockResponse
type MethodStreamingType Lock "lock" =
'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Lock "unlock"
where
type MethodName Lock "unlock" = "Unlock"
type MethodInput Lock "unlock" = UnlockRequest
type MethodOutput Lock "unlock" = UnlockResponse
type MethodStreamingType Lock "unlock" =
'Data.ProtoLens.Service.Types.NonStreaming