From a3f7e15d274393a781438310dc427cb9401d0da0 Mon Sep 17 00:00:00 2001 From: YoEight Date: Thu, 30 Jul 2020 23:53:49 +0200 Subject: [PATCH] =?UTF-8?q?Start=20implementing=20gRPC=C2=A0API.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Proto/Cluster.hs | 5529 ++++++++++++++++++ Proto/Cluster_Fields.hs | 297 + Proto/Gossip.hs | 1091 ++++ Proto/Gossip_Fields.hs | 92 + Proto/Operations.hs | 1197 ++++ Proto/Operations_Fields.hs | 71 + Proto/Persistent.hs | 6721 ++++++++++++++++++++++ Proto/Persistent_Fields.hs | 397 ++ Proto/Projections.hs | 6439 +++++++++++++++++++++ Proto/Projections_Fields.hs | 321 ++ Proto/Shared.hs | 704 +++ Proto/Shared_Fields.hs | 78 + Proto/Streams.hs | 10167 +++++++++++++++++++++++++++++++++ Proto/Streams_Fields.hs | 582 ++ Proto/Users.hs | 4234 ++++++++++++++ Proto/Users_Fields.hs | 117 + etc/protos/cluster.proto | 146 + etc/protos/gossip.proto | 44 + etc/protos/operations.proto | 44 + etc/protos/persistent.proto | 168 + etc/protos/projections.proto | 174 + etc/protos/shared.proto | 22 + etc/protos/streams.proto | 231 + etc/protos/users.proto | 119 + 24 files changed, 38985 insertions(+) create mode 100644 Proto/Cluster.hs create mode 100644 Proto/Cluster_Fields.hs create mode 100644 Proto/Gossip.hs create mode 100644 Proto/Gossip_Fields.hs create mode 100644 Proto/Operations.hs create mode 100644 Proto/Operations_Fields.hs create mode 100644 Proto/Persistent.hs create mode 100644 Proto/Persistent_Fields.hs create mode 100644 Proto/Projections.hs create mode 100644 Proto/Projections_Fields.hs create mode 100644 Proto/Shared.hs create mode 100644 Proto/Shared_Fields.hs create mode 100644 Proto/Streams.hs create mode 100644 Proto/Streams_Fields.hs create mode 100644 Proto/Users.hs create mode 100644 Proto/Users_Fields.hs create mode 100644 etc/protos/cluster.proto create mode 100644 etc/protos/gossip.proto create mode 100644 etc/protos/operations.proto create mode 100644 etc/protos/persistent.proto create mode 100644 etc/protos/projections.proto create mode 100644 etc/protos/shared.proto create mode 100644 etc/protos/streams.proto create mode 100644 etc/protos/users.proto diff --git a/Proto/Cluster.hs b/Proto/Cluster.hs new file mode 100644 index 0000000..c98e5d5 --- /dev/null +++ b/Proto/Cluster.hs @@ -0,0 +1,5529 @@ +{- This file was auto-generated from cluster.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.Cluster ( + Gossip(..), Elections(..), AcceptRequest(), ClusterInfo(), + EndPoint(), GossipRequest(), LeaderIsResigningOkRequest(), + LeaderIsResigningRequest(), MemberInfo(), + MemberInfo'VNodeState(..), MemberInfo'VNodeState(), + MemberInfo'VNodeState'UnrecognizedValue, PrepareOkRequest(), + PrepareRequest(), ProposalRequest(), ViewChangeProofRequest(), + ViewChangeRequest() + ) 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.Shared +{- | Fields : + + * 'Proto.Cluster_Fields.serverId' @:: Lens' AcceptRequest Proto.Shared.UUID@ + * 'Proto.Cluster_Fields.maybe'serverId' @:: Lens' AcceptRequest (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Cluster_Fields.serverHttp' @:: Lens' AcceptRequest EndPoint@ + * 'Proto.Cluster_Fields.maybe'serverHttp' @:: Lens' AcceptRequest (Prelude.Maybe EndPoint)@ + * 'Proto.Cluster_Fields.leaderId' @:: Lens' AcceptRequest Proto.Shared.UUID@ + * 'Proto.Cluster_Fields.maybe'leaderId' @:: Lens' AcceptRequest (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Cluster_Fields.leaderHttp' @:: Lens' AcceptRequest EndPoint@ + * 'Proto.Cluster_Fields.maybe'leaderHttp' @:: Lens' AcceptRequest (Prelude.Maybe EndPoint)@ + * 'Proto.Cluster_Fields.view' @:: Lens' AcceptRequest Data.Int.Int32@ -} +data AcceptRequest + = AcceptRequest'_constructor {_AcceptRequest'serverId :: !(Prelude.Maybe Proto.Shared.UUID), + _AcceptRequest'serverHttp :: !(Prelude.Maybe EndPoint), + _AcceptRequest'leaderId :: !(Prelude.Maybe Proto.Shared.UUID), + _AcceptRequest'leaderHttp :: !(Prelude.Maybe EndPoint), + _AcceptRequest'view :: !Data.Int.Int32, + _AcceptRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AcceptRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField AcceptRequest "serverId" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AcceptRequest'serverId + (\ x__ y__ -> x__ {_AcceptRequest'serverId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField AcceptRequest "maybe'serverId" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AcceptRequest'serverId + (\ x__ y__ -> x__ {_AcceptRequest'serverId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AcceptRequest "serverHttp" EndPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AcceptRequest'serverHttp + (\ x__ y__ -> x__ {_AcceptRequest'serverHttp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField AcceptRequest "maybe'serverHttp" (Prelude.Maybe EndPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AcceptRequest'serverHttp + (\ x__ y__ -> x__ {_AcceptRequest'serverHttp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AcceptRequest "leaderId" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AcceptRequest'leaderId + (\ x__ y__ -> x__ {_AcceptRequest'leaderId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField AcceptRequest "maybe'leaderId" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AcceptRequest'leaderId + (\ x__ y__ -> x__ {_AcceptRequest'leaderId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AcceptRequest "leaderHttp" EndPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AcceptRequest'leaderHttp + (\ x__ y__ -> x__ {_AcceptRequest'leaderHttp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField AcceptRequest "maybe'leaderHttp" (Prelude.Maybe EndPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AcceptRequest'leaderHttp + (\ x__ y__ -> x__ {_AcceptRequest'leaderHttp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AcceptRequest "view" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AcceptRequest'view (\ x__ y__ -> x__ {_AcceptRequest'view = y__})) + Prelude.id +instance Data.ProtoLens.Message AcceptRequest where + messageName _ = Data.Text.pack "event_store.cluster.AcceptRequest" + packedMessageDescriptor _ + = "\n\ + \\rAcceptRequest\DC2<\n\ + \\tserver_id\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\bserverId\DC2>\n\ + \\vserver_http\CAN\STX \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \serverHttp\DC2<\n\ + \\tleader_id\CAN\ETX \SOH(\v2\US.event_store.client.shared.UUIDR\bleaderId\DC2>\n\ + \\vleader_http\CAN\EOT \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \leaderHttp\DC2\DC2\n\ + \\EOTview\CAN\ENQ \SOH(\ENQR\EOTview" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + serverId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "server_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'serverId")) :: + Data.ProtoLens.FieldDescriptor AcceptRequest + serverHttp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "server_http" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EndPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'serverHttp")) :: + Data.ProtoLens.FieldDescriptor AcceptRequest + leaderId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "leader_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'leaderId")) :: + Data.ProtoLens.FieldDescriptor AcceptRequest + leaderHttp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "leader_http" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EndPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'leaderHttp")) :: + Data.ProtoLens.FieldDescriptor AcceptRequest + view__field_descriptor + = Data.ProtoLens.FieldDescriptor + "view" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"view")) :: + Data.ProtoLens.FieldDescriptor AcceptRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, serverId__field_descriptor), + (Data.ProtoLens.Tag 2, serverHttp__field_descriptor), + (Data.ProtoLens.Tag 3, leaderId__field_descriptor), + (Data.ProtoLens.Tag 4, leaderHttp__field_descriptor), + (Data.ProtoLens.Tag 5, view__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AcceptRequest'_unknownFields + (\ x__ y__ -> x__ {_AcceptRequest'_unknownFields = y__}) + defMessage + = AcceptRequest'_constructor + {_AcceptRequest'serverId = Prelude.Nothing, + _AcceptRequest'serverHttp = Prelude.Nothing, + _AcceptRequest'leaderId = Prelude.Nothing, + _AcceptRequest'leaderHttp = Prelude.Nothing, + _AcceptRequest'view = Data.ProtoLens.fieldDefault, + _AcceptRequest'_unknownFields = []} + parseMessage + = let + loop :: + AcceptRequest -> Data.ProtoLens.Encoding.Bytes.Parser AcceptRequest + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "server_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"serverId") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "server_http" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"serverHttp") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "leader_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"leaderId") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "leader_http" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"leaderHttp") y x) + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "view" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"view") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "AcceptRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'serverId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'serverHttp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'leaderId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'leaderHttp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"view") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))) +instance Control.DeepSeq.NFData AcceptRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AcceptRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AcceptRequest'serverId x__) + (Control.DeepSeq.deepseq + (_AcceptRequest'serverHttp x__) + (Control.DeepSeq.deepseq + (_AcceptRequest'leaderId x__) + (Control.DeepSeq.deepseq + (_AcceptRequest'leaderHttp x__) + (Control.DeepSeq.deepseq (_AcceptRequest'view x__) ()))))) +{- | Fields : + + * 'Proto.Cluster_Fields.members' @:: Lens' ClusterInfo [MemberInfo]@ + * 'Proto.Cluster_Fields.vec'members' @:: Lens' ClusterInfo (Data.Vector.Vector MemberInfo)@ -} +data ClusterInfo + = ClusterInfo'_constructor {_ClusterInfo'members :: !(Data.Vector.Vector MemberInfo), + _ClusterInfo'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ClusterInfo where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ClusterInfo "members" [MemberInfo] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ClusterInfo'members + (\ x__ y__ -> x__ {_ClusterInfo'members = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField ClusterInfo "vec'members" (Data.Vector.Vector MemberInfo) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ClusterInfo'members + (\ x__ y__ -> x__ {_ClusterInfo'members = y__})) + Prelude.id +instance Data.ProtoLens.Message ClusterInfo where + messageName _ = Data.Text.pack "event_store.cluster.ClusterInfo" + packedMessageDescriptor _ + = "\n\ + \\vClusterInfo\DC29\n\ + \\amembers\CAN\SOH \ETX(\v2\US.event_store.cluster.MemberInfoR\amembers" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + members__field_descriptor + = Data.ProtoLens.FieldDescriptor + "members" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor MemberInfo) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"members")) :: + Data.ProtoLens.FieldDescriptor ClusterInfo + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, members__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ClusterInfo'_unknownFields + (\ x__ y__ -> x__ {_ClusterInfo'_unknownFields = y__}) + defMessage + = ClusterInfo'_constructor + {_ClusterInfo'members = Data.Vector.Generic.empty, + _ClusterInfo'_unknownFields = []} + parseMessage + = let + loop :: + ClusterInfo + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MemberInfo + -> Data.ProtoLens.Encoding.Bytes.Parser ClusterInfo + loop x mutable'members + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'members <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'members) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields + (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'members") frozen'members x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "members" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'members y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'members + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'members <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'members) + "ClusterInfo" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'members") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ClusterInfo where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ClusterInfo'_unknownFields x__) + (Control.DeepSeq.deepseq (_ClusterInfo'members x__) ()) +{- | Fields : + + * 'Proto.Cluster_Fields.address' @:: Lens' EndPoint Data.Text.Text@ + * 'Proto.Cluster_Fields.port' @:: Lens' EndPoint Data.Word.Word32@ -} +data EndPoint + = EndPoint'_constructor {_EndPoint'address :: !Data.Text.Text, + _EndPoint'port :: !Data.Word.Word32, + _EndPoint'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show EndPoint where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField EndPoint "address" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EndPoint'address (\ x__ y__ -> x__ {_EndPoint'address = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField EndPoint "port" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EndPoint'port (\ x__ y__ -> x__ {_EndPoint'port = y__})) + Prelude.id +instance Data.ProtoLens.Message EndPoint where + messageName _ = Data.Text.pack "event_store.cluster.EndPoint" + packedMessageDescriptor _ + = "\n\ + \\bEndPoint\DC2\CAN\n\ + \\aaddress\CAN\SOH \SOH(\tR\aaddress\DC2\DC2\n\ + \\EOTport\CAN\STX \SOH(\rR\EOTport" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + address__field_descriptor + = Data.ProtoLens.FieldDescriptor + "address" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"address")) :: + Data.ProtoLens.FieldDescriptor EndPoint + port__field_descriptor + = Data.ProtoLens.FieldDescriptor + "port" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"port")) :: + Data.ProtoLens.FieldDescriptor EndPoint + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, address__field_descriptor), + (Data.ProtoLens.Tag 2, port__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _EndPoint'_unknownFields + (\ x__ y__ -> x__ {_EndPoint'_unknownFields = y__}) + defMessage + = EndPoint'_constructor + {_EndPoint'address = Data.ProtoLens.fieldDefault, + _EndPoint'port = Data.ProtoLens.fieldDefault, + _EndPoint'_unknownFields = []} + parseMessage + = let + loop :: EndPoint -> Data.ProtoLens.Encoding.Bytes.Parser EndPoint + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "address" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"address") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "port" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"port") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "EndPoint" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"address") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"port") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData EndPoint where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_EndPoint'_unknownFields x__) + (Control.DeepSeq.deepseq + (_EndPoint'address x__) + (Control.DeepSeq.deepseq (_EndPoint'port x__) ())) +{- | Fields : + + * 'Proto.Cluster_Fields.info' @:: Lens' GossipRequest ClusterInfo@ + * 'Proto.Cluster_Fields.maybe'info' @:: Lens' GossipRequest (Prelude.Maybe ClusterInfo)@ + * 'Proto.Cluster_Fields.server' @:: Lens' GossipRequest EndPoint@ + * 'Proto.Cluster_Fields.maybe'server' @:: Lens' GossipRequest (Prelude.Maybe EndPoint)@ -} +data GossipRequest + = GossipRequest'_constructor {_GossipRequest'info :: !(Prelude.Maybe ClusterInfo), + _GossipRequest'server :: !(Prelude.Maybe EndPoint), + _GossipRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show GossipRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField GossipRequest "info" ClusterInfo where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GossipRequest'info (\ x__ y__ -> x__ {_GossipRequest'info = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField GossipRequest "maybe'info" (Prelude.Maybe ClusterInfo) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GossipRequest'info (\ x__ y__ -> x__ {_GossipRequest'info = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField GossipRequest "server" EndPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GossipRequest'server + (\ x__ y__ -> x__ {_GossipRequest'server = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField GossipRequest "maybe'server" (Prelude.Maybe EndPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GossipRequest'server + (\ x__ y__ -> x__ {_GossipRequest'server = y__})) + Prelude.id +instance Data.ProtoLens.Message GossipRequest where + messageName _ = Data.Text.pack "event_store.cluster.GossipRequest" + packedMessageDescriptor _ + = "\n\ + \\rGossipRequest\DC24\n\ + \\EOTinfo\CAN\SOH \SOH(\v2 .event_store.cluster.ClusterInfoR\EOTinfo\DC25\n\ + \\ACKserver\CAN\STX \SOH(\v2\GS.event_store.cluster.EndPointR\ACKserver" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + info__field_descriptor + = Data.ProtoLens.FieldDescriptor + "info" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ClusterInfo) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'info")) :: + Data.ProtoLens.FieldDescriptor GossipRequest + server__field_descriptor + = Data.ProtoLens.FieldDescriptor + "server" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EndPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'server")) :: + Data.ProtoLens.FieldDescriptor GossipRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, info__field_descriptor), + (Data.ProtoLens.Tag 2, server__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _GossipRequest'_unknownFields + (\ x__ y__ -> x__ {_GossipRequest'_unknownFields = y__}) + defMessage + = GossipRequest'_constructor + {_GossipRequest'info = Prelude.Nothing, + _GossipRequest'server = Prelude.Nothing, + _GossipRequest'_unknownFields = []} + parseMessage + = let + loop :: + GossipRequest -> Data.ProtoLens.Encoding.Bytes.Parser GossipRequest + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "info" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"info") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "server" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"server") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "GossipRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'info") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'server") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData GossipRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_GossipRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_GossipRequest'info x__) + (Control.DeepSeq.deepseq (_GossipRequest'server x__) ())) +{- | Fields : + + * 'Proto.Cluster_Fields.leaderId' @:: Lens' LeaderIsResigningOkRequest Proto.Shared.UUID@ + * 'Proto.Cluster_Fields.maybe'leaderId' @:: Lens' LeaderIsResigningOkRequest (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Cluster_Fields.leaderHttp' @:: Lens' LeaderIsResigningOkRequest EndPoint@ + * 'Proto.Cluster_Fields.maybe'leaderHttp' @:: Lens' LeaderIsResigningOkRequest (Prelude.Maybe EndPoint)@ + * 'Proto.Cluster_Fields.serverId' @:: Lens' LeaderIsResigningOkRequest Proto.Shared.UUID@ + * 'Proto.Cluster_Fields.maybe'serverId' @:: Lens' LeaderIsResigningOkRequest (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Cluster_Fields.serverHttp' @:: Lens' LeaderIsResigningOkRequest EndPoint@ + * 'Proto.Cluster_Fields.maybe'serverHttp' @:: Lens' LeaderIsResigningOkRequest (Prelude.Maybe EndPoint)@ -} +data LeaderIsResigningOkRequest + = LeaderIsResigningOkRequest'_constructor {_LeaderIsResigningOkRequest'leaderId :: !(Prelude.Maybe Proto.Shared.UUID), + _LeaderIsResigningOkRequest'leaderHttp :: !(Prelude.Maybe EndPoint), + _LeaderIsResigningOkRequest'serverId :: !(Prelude.Maybe Proto.Shared.UUID), + _LeaderIsResigningOkRequest'serverHttp :: !(Prelude.Maybe EndPoint), + _LeaderIsResigningOkRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LeaderIsResigningOkRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LeaderIsResigningOkRequest "leaderId" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LeaderIsResigningOkRequest'leaderId + (\ x__ y__ -> x__ {_LeaderIsResigningOkRequest'leaderId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField LeaderIsResigningOkRequest "maybe'leaderId" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LeaderIsResigningOkRequest'leaderId + (\ x__ y__ -> x__ {_LeaderIsResigningOkRequest'leaderId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LeaderIsResigningOkRequest "leaderHttp" EndPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LeaderIsResigningOkRequest'leaderHttp + (\ x__ y__ -> x__ {_LeaderIsResigningOkRequest'leaderHttp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField LeaderIsResigningOkRequest "maybe'leaderHttp" (Prelude.Maybe EndPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LeaderIsResigningOkRequest'leaderHttp + (\ x__ y__ -> x__ {_LeaderIsResigningOkRequest'leaderHttp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LeaderIsResigningOkRequest "serverId" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LeaderIsResigningOkRequest'serverId + (\ x__ y__ -> x__ {_LeaderIsResigningOkRequest'serverId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField LeaderIsResigningOkRequest "maybe'serverId" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LeaderIsResigningOkRequest'serverId + (\ x__ y__ -> x__ {_LeaderIsResigningOkRequest'serverId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LeaderIsResigningOkRequest "serverHttp" EndPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LeaderIsResigningOkRequest'serverHttp + (\ x__ y__ -> x__ {_LeaderIsResigningOkRequest'serverHttp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField LeaderIsResigningOkRequest "maybe'serverHttp" (Prelude.Maybe EndPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LeaderIsResigningOkRequest'serverHttp + (\ x__ y__ -> x__ {_LeaderIsResigningOkRequest'serverHttp = y__})) + Prelude.id +instance Data.ProtoLens.Message LeaderIsResigningOkRequest where + messageName _ + = Data.Text.pack "event_store.cluster.LeaderIsResigningOkRequest" + packedMessageDescriptor _ + = "\n\ + \\SUBLeaderIsResigningOkRequest\DC2<\n\ + \\tleader_id\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\bleaderId\DC2>\n\ + \\vleader_http\CAN\STX \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \leaderHttp\DC2<\n\ + \\tserver_id\CAN\ETX \SOH(\v2\US.event_store.client.shared.UUIDR\bserverId\DC2>\n\ + \\vserver_http\CAN\EOT \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \serverHttp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + leaderId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "leader_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'leaderId")) :: + Data.ProtoLens.FieldDescriptor LeaderIsResigningOkRequest + leaderHttp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "leader_http" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EndPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'leaderHttp")) :: + Data.ProtoLens.FieldDescriptor LeaderIsResigningOkRequest + serverId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "server_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'serverId")) :: + Data.ProtoLens.FieldDescriptor LeaderIsResigningOkRequest + serverHttp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "server_http" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EndPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'serverHttp")) :: + Data.ProtoLens.FieldDescriptor LeaderIsResigningOkRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, leaderId__field_descriptor), + (Data.ProtoLens.Tag 2, leaderHttp__field_descriptor), + (Data.ProtoLens.Tag 3, serverId__field_descriptor), + (Data.ProtoLens.Tag 4, serverHttp__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LeaderIsResigningOkRequest'_unknownFields + (\ x__ y__ + -> x__ {_LeaderIsResigningOkRequest'_unknownFields = y__}) + defMessage + = LeaderIsResigningOkRequest'_constructor + {_LeaderIsResigningOkRequest'leaderId = Prelude.Nothing, + _LeaderIsResigningOkRequest'leaderHttp = Prelude.Nothing, + _LeaderIsResigningOkRequest'serverId = Prelude.Nothing, + _LeaderIsResigningOkRequest'serverHttp = Prelude.Nothing, + _LeaderIsResigningOkRequest'_unknownFields = []} + parseMessage + = let + loop :: + LeaderIsResigningOkRequest + -> Data.ProtoLens.Encoding.Bytes.Parser LeaderIsResigningOkRequest + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "leader_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"leaderId") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "leader_http" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"leaderHttp") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "server_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"serverId") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "server_http" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"serverHttp") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "LeaderIsResigningOkRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'leaderId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'leaderHttp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'serverId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'serverHttp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData LeaderIsResigningOkRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LeaderIsResigningOkRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_LeaderIsResigningOkRequest'leaderId x__) + (Control.DeepSeq.deepseq + (_LeaderIsResigningOkRequest'leaderHttp x__) + (Control.DeepSeq.deepseq + (_LeaderIsResigningOkRequest'serverId x__) + (Control.DeepSeq.deepseq + (_LeaderIsResigningOkRequest'serverHttp x__) ())))) +{- | Fields : + + * 'Proto.Cluster_Fields.leaderId' @:: Lens' LeaderIsResigningRequest Proto.Shared.UUID@ + * 'Proto.Cluster_Fields.maybe'leaderId' @:: Lens' LeaderIsResigningRequest (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Cluster_Fields.leaderHttp' @:: Lens' LeaderIsResigningRequest EndPoint@ + * 'Proto.Cluster_Fields.maybe'leaderHttp' @:: Lens' LeaderIsResigningRequest (Prelude.Maybe EndPoint)@ -} +data LeaderIsResigningRequest + = LeaderIsResigningRequest'_constructor {_LeaderIsResigningRequest'leaderId :: !(Prelude.Maybe Proto.Shared.UUID), + _LeaderIsResigningRequest'leaderHttp :: !(Prelude.Maybe EndPoint), + _LeaderIsResigningRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LeaderIsResigningRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LeaderIsResigningRequest "leaderId" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LeaderIsResigningRequest'leaderId + (\ x__ y__ -> x__ {_LeaderIsResigningRequest'leaderId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField LeaderIsResigningRequest "maybe'leaderId" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LeaderIsResigningRequest'leaderId + (\ x__ y__ -> x__ {_LeaderIsResigningRequest'leaderId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LeaderIsResigningRequest "leaderHttp" EndPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LeaderIsResigningRequest'leaderHttp + (\ x__ y__ -> x__ {_LeaderIsResigningRequest'leaderHttp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField LeaderIsResigningRequest "maybe'leaderHttp" (Prelude.Maybe EndPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LeaderIsResigningRequest'leaderHttp + (\ x__ y__ -> x__ {_LeaderIsResigningRequest'leaderHttp = y__})) + Prelude.id +instance Data.ProtoLens.Message LeaderIsResigningRequest where + messageName _ + = Data.Text.pack "event_store.cluster.LeaderIsResigningRequest" + packedMessageDescriptor _ + = "\n\ + \\CANLeaderIsResigningRequest\DC2<\n\ + \\tleader_id\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\bleaderId\DC2>\n\ + \\vleader_http\CAN\STX \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \leaderHttp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + leaderId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "leader_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'leaderId")) :: + Data.ProtoLens.FieldDescriptor LeaderIsResigningRequest + leaderHttp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "leader_http" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EndPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'leaderHttp")) :: + Data.ProtoLens.FieldDescriptor LeaderIsResigningRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, leaderId__field_descriptor), + (Data.ProtoLens.Tag 2, leaderHttp__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LeaderIsResigningRequest'_unknownFields + (\ x__ y__ -> x__ {_LeaderIsResigningRequest'_unknownFields = y__}) + defMessage + = LeaderIsResigningRequest'_constructor + {_LeaderIsResigningRequest'leaderId = Prelude.Nothing, + _LeaderIsResigningRequest'leaderHttp = Prelude.Nothing, + _LeaderIsResigningRequest'_unknownFields = []} + parseMessage + = let + loop :: + LeaderIsResigningRequest + -> Data.ProtoLens.Encoding.Bytes.Parser LeaderIsResigningRequest + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "leader_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"leaderId") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "leader_http" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"leaderHttp") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "LeaderIsResigningRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'leaderId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'leaderHttp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData LeaderIsResigningRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LeaderIsResigningRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_LeaderIsResigningRequest'leaderId x__) + (Control.DeepSeq.deepseq + (_LeaderIsResigningRequest'leaderHttp x__) ())) +{- | Fields : + + * 'Proto.Cluster_Fields.instanceId' @:: Lens' MemberInfo Proto.Shared.UUID@ + * 'Proto.Cluster_Fields.maybe'instanceId' @:: Lens' MemberInfo (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Cluster_Fields.timeStamp' @:: Lens' MemberInfo Data.Int.Int64@ + * 'Proto.Cluster_Fields.state' @:: Lens' MemberInfo MemberInfo'VNodeState@ + * 'Proto.Cluster_Fields.isAlive' @:: Lens' MemberInfo Prelude.Bool@ + * 'Proto.Cluster_Fields.httpEndPoint' @:: Lens' MemberInfo EndPoint@ + * 'Proto.Cluster_Fields.maybe'httpEndPoint' @:: Lens' MemberInfo (Prelude.Maybe EndPoint)@ + * 'Proto.Cluster_Fields.internalTcp' @:: Lens' MemberInfo EndPoint@ + * 'Proto.Cluster_Fields.maybe'internalTcp' @:: Lens' MemberInfo (Prelude.Maybe EndPoint)@ + * 'Proto.Cluster_Fields.externalTcp' @:: Lens' MemberInfo EndPoint@ + * 'Proto.Cluster_Fields.maybe'externalTcp' @:: Lens' MemberInfo (Prelude.Maybe EndPoint)@ + * 'Proto.Cluster_Fields.internalTcpUsesTls' @:: Lens' MemberInfo Prelude.Bool@ + * 'Proto.Cluster_Fields.externalTcpUsesTls' @:: Lens' MemberInfo Prelude.Bool@ + * 'Proto.Cluster_Fields.lastCommitPosition' @:: Lens' MemberInfo Data.Int.Int64@ + * 'Proto.Cluster_Fields.writerCheckpoint' @:: Lens' MemberInfo Data.Int.Int64@ + * 'Proto.Cluster_Fields.chaserCheckpoint' @:: Lens' MemberInfo Data.Int.Int64@ + * 'Proto.Cluster_Fields.epochPosition' @:: Lens' MemberInfo Data.Int.Int64@ + * 'Proto.Cluster_Fields.epochNumber' @:: Lens' MemberInfo Data.Int.Int32@ + * 'Proto.Cluster_Fields.epochId' @:: Lens' MemberInfo Proto.Shared.UUID@ + * 'Proto.Cluster_Fields.maybe'epochId' @:: Lens' MemberInfo (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Cluster_Fields.nodePriority' @:: Lens' MemberInfo Data.Int.Int32@ + * 'Proto.Cluster_Fields.isReadOnlyReplica' @:: Lens' MemberInfo Prelude.Bool@ -} +data MemberInfo + = MemberInfo'_constructor {_MemberInfo'instanceId :: !(Prelude.Maybe Proto.Shared.UUID), + _MemberInfo'timeStamp :: !Data.Int.Int64, + _MemberInfo'state :: !MemberInfo'VNodeState, + _MemberInfo'isAlive :: !Prelude.Bool, + _MemberInfo'httpEndPoint :: !(Prelude.Maybe EndPoint), + _MemberInfo'internalTcp :: !(Prelude.Maybe EndPoint), + _MemberInfo'externalTcp :: !(Prelude.Maybe EndPoint), + _MemberInfo'internalTcpUsesTls :: !Prelude.Bool, + _MemberInfo'externalTcpUsesTls :: !Prelude.Bool, + _MemberInfo'lastCommitPosition :: !Data.Int.Int64, + _MemberInfo'writerCheckpoint :: !Data.Int.Int64, + _MemberInfo'chaserCheckpoint :: !Data.Int.Int64, + _MemberInfo'epochPosition :: !Data.Int.Int64, + _MemberInfo'epochNumber :: !Data.Int.Int32, + _MemberInfo'epochId :: !(Prelude.Maybe Proto.Shared.UUID), + _MemberInfo'nodePriority :: !Data.Int.Int32, + _MemberInfo'isReadOnlyReplica :: !Prelude.Bool, + _MemberInfo'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show MemberInfo where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField MemberInfo "instanceId" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'instanceId + (\ x__ y__ -> x__ {_MemberInfo'instanceId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField MemberInfo "maybe'instanceId" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'instanceId + (\ x__ y__ -> x__ {_MemberInfo'instanceId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "timeStamp" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'timeStamp + (\ x__ y__ -> x__ {_MemberInfo'timeStamp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "state" MemberInfo'VNodeState where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'state (\ x__ y__ -> x__ {_MemberInfo'state = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "isAlive" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'isAlive (\ x__ y__ -> x__ {_MemberInfo'isAlive = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "httpEndPoint" EndPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'httpEndPoint + (\ x__ y__ -> x__ {_MemberInfo'httpEndPoint = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField MemberInfo "maybe'httpEndPoint" (Prelude.Maybe EndPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'httpEndPoint + (\ x__ y__ -> x__ {_MemberInfo'httpEndPoint = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "internalTcp" EndPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'internalTcp + (\ x__ y__ -> x__ {_MemberInfo'internalTcp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField MemberInfo "maybe'internalTcp" (Prelude.Maybe EndPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'internalTcp + (\ x__ y__ -> x__ {_MemberInfo'internalTcp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "externalTcp" EndPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'externalTcp + (\ x__ y__ -> x__ {_MemberInfo'externalTcp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField MemberInfo "maybe'externalTcp" (Prelude.Maybe EndPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'externalTcp + (\ x__ y__ -> x__ {_MemberInfo'externalTcp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "internalTcpUsesTls" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'internalTcpUsesTls + (\ x__ y__ -> x__ {_MemberInfo'internalTcpUsesTls = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "externalTcpUsesTls" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'externalTcpUsesTls + (\ x__ y__ -> x__ {_MemberInfo'externalTcpUsesTls = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "lastCommitPosition" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'lastCommitPosition + (\ x__ y__ -> x__ {_MemberInfo'lastCommitPosition = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "writerCheckpoint" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'writerCheckpoint + (\ x__ y__ -> x__ {_MemberInfo'writerCheckpoint = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "chaserCheckpoint" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'chaserCheckpoint + (\ x__ y__ -> x__ {_MemberInfo'chaserCheckpoint = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "epochPosition" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'epochPosition + (\ x__ y__ -> x__ {_MemberInfo'epochPosition = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "epochNumber" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'epochNumber + (\ x__ y__ -> x__ {_MemberInfo'epochNumber = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "epochId" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'epochId (\ x__ y__ -> x__ {_MemberInfo'epochId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField MemberInfo "maybe'epochId" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'epochId (\ x__ y__ -> x__ {_MemberInfo'epochId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "nodePriority" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'nodePriority + (\ x__ y__ -> x__ {_MemberInfo'nodePriority = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "isReadOnlyReplica" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'isReadOnlyReplica + (\ x__ y__ -> x__ {_MemberInfo'isReadOnlyReplica = y__})) + Prelude.id +instance Data.ProtoLens.Message MemberInfo where + messageName _ = Data.Text.pack "event_store.cluster.MemberInfo" + packedMessageDescriptor _ + = "\n\ + \\n\ + \MemberInfo\DC2@\n\ + \\vinstance_id\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\n\ + \instanceId\DC2\GS\n\ + \\n\ + \time_stamp\CAN\STX \SOH(\ETXR\ttimeStamp\DC2@\n\ + \\ENQstate\CAN\ETX \SOH(\SO2*.event_store.cluster.MemberInfo.VNodeStateR\ENQstate\DC2\EM\n\ + \\bis_alive\CAN\EOT \SOH(\bR\aisAlive\DC2C\n\ + \\SOhttp_end_point\CAN\ENQ \SOH(\v2\GS.event_store.cluster.EndPointR\fhttpEndPoint\DC2@\n\ + \\finternal_tcp\CAN\ACK \SOH(\v2\GS.event_store.cluster.EndPointR\vinternalTcp\DC2@\n\ + \\fexternal_tcp\CAN\a \SOH(\v2\GS.event_store.cluster.EndPointR\vexternalTcp\DC21\n\ + \\NAKinternal_tcp_uses_tls\CAN\b \SOH(\bR\DC2internalTcpUsesTls\DC21\n\ + \\NAKexternal_tcp_uses_tls\CAN\t \SOH(\bR\DC2externalTcpUsesTls\DC20\n\ + \\DC4last_commit_position\CAN\n\ + \ \SOH(\ETXR\DC2lastCommitPosition\DC2+\n\ + \\DC1writer_checkpoint\CAN\v \SOH(\ETXR\DLEwriterCheckpoint\DC2+\n\ + \\DC1chaser_checkpoint\CAN\f \SOH(\ETXR\DLEchaserCheckpoint\DC2%\n\ + \\SOepoch_position\CAN\r \SOH(\ETXR\repochPosition\DC2!\n\ + \\fepoch_number\CAN\SO \SOH(\ENQR\vepochNumber\DC2:\n\ + \\bepoch_id\CAN\SI \SOH(\v2\US.event_store.client.shared.UUIDR\aepochId\DC2#\n\ + \\rnode_priority\CAN\DLE \SOH(\ENQR\fnodePriority\DC2/\n\ + \\DC4is_read_only_replica\CAN\DC1 \SOH(\bR\DC1isReadOnlyReplica\"\154\STX\n\ + \\n\ + \VNodeState\DC2\DLE\n\ + \\fInitializing\DLE\NUL\DC2\DC2\n\ + \\SODiscoverLeader\DLE\SOH\DC2\v\n\ + \\aUnknown\DLE\STX\DC2\SO\n\ + \\n\ + \PreReplica\DLE\ETX\DC2\SO\n\ + \\n\ + \CatchingUp\DLE\EOT\DC2\t\n\ + \\ENQClone\DLE\ENQ\DC2\f\n\ + \\bFollower\DLE\ACK\DC2\r\n\ + \\tPreLeader\DLE\a\DC2\n\ + \\n\ + \\ACKLeader\DLE\b\DC2\v\n\ + \\aManager\DLE\t\DC2\DLE\n\ + \\fShuttingDown\DLE\n\ + \\DC2\f\n\ + \\bShutdown\DLE\v\DC2\SYN\n\ + \\DC2ReadOnlyLeaderless\DLE\f\DC2\SYN\n\ + \\DC2PreReadOnlyReplica\DLE\r\DC2\DC3\n\ + \\SIReadOnlyReplica\DLE\SO\DC2\DC3\n\ + \\SIResigningLeader\DLE\SI" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + instanceId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "instance_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'instanceId")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + timeStamp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "time_stamp" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"timeStamp")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + state__field_descriptor + = Data.ProtoLens.FieldDescriptor + "state" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor MemberInfo'VNodeState) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"state")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + isAlive__field_descriptor + = Data.ProtoLens.FieldDescriptor + "is_alive" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"isAlive")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + httpEndPoint__field_descriptor + = Data.ProtoLens.FieldDescriptor + "http_end_point" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EndPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'httpEndPoint")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + internalTcp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "internal_tcp" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EndPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'internalTcp")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + externalTcp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "external_tcp" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EndPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'externalTcp")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + internalTcpUsesTls__field_descriptor + = Data.ProtoLens.FieldDescriptor + "internal_tcp_uses_tls" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"internalTcpUsesTls")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + externalTcpUsesTls__field_descriptor + = Data.ProtoLens.FieldDescriptor + "external_tcp_uses_tls" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"externalTcpUsesTls")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + lastCommitPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "last_commit_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"lastCommitPosition")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + writerCheckpoint__field_descriptor + = Data.ProtoLens.FieldDescriptor + "writer_checkpoint" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"writerCheckpoint")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + chaserCheckpoint__field_descriptor + = Data.ProtoLens.FieldDescriptor + "chaser_checkpoint" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"chaserCheckpoint")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + epochPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "epoch_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"epochPosition")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + epochNumber__field_descriptor + = Data.ProtoLens.FieldDescriptor + "epoch_number" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"epochNumber")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + epochId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "epoch_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'epochId")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + nodePriority__field_descriptor + = Data.ProtoLens.FieldDescriptor + "node_priority" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"nodePriority")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + isReadOnlyReplica__field_descriptor + = Data.ProtoLens.FieldDescriptor + "is_read_only_replica" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"isReadOnlyReplica")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, instanceId__field_descriptor), + (Data.ProtoLens.Tag 2, timeStamp__field_descriptor), + (Data.ProtoLens.Tag 3, state__field_descriptor), + (Data.ProtoLens.Tag 4, isAlive__field_descriptor), + (Data.ProtoLens.Tag 5, httpEndPoint__field_descriptor), + (Data.ProtoLens.Tag 6, internalTcp__field_descriptor), + (Data.ProtoLens.Tag 7, externalTcp__field_descriptor), + (Data.ProtoLens.Tag 8, internalTcpUsesTls__field_descriptor), + (Data.ProtoLens.Tag 9, externalTcpUsesTls__field_descriptor), + (Data.ProtoLens.Tag 10, lastCommitPosition__field_descriptor), + (Data.ProtoLens.Tag 11, writerCheckpoint__field_descriptor), + (Data.ProtoLens.Tag 12, chaserCheckpoint__field_descriptor), + (Data.ProtoLens.Tag 13, epochPosition__field_descriptor), + (Data.ProtoLens.Tag 14, epochNumber__field_descriptor), + (Data.ProtoLens.Tag 15, epochId__field_descriptor), + (Data.ProtoLens.Tag 16, nodePriority__field_descriptor), + (Data.ProtoLens.Tag 17, isReadOnlyReplica__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _MemberInfo'_unknownFields + (\ x__ y__ -> x__ {_MemberInfo'_unknownFields = y__}) + defMessage + = MemberInfo'_constructor + {_MemberInfo'instanceId = Prelude.Nothing, + _MemberInfo'timeStamp = Data.ProtoLens.fieldDefault, + _MemberInfo'state = Data.ProtoLens.fieldDefault, + _MemberInfo'isAlive = Data.ProtoLens.fieldDefault, + _MemberInfo'httpEndPoint = Prelude.Nothing, + _MemberInfo'internalTcp = Prelude.Nothing, + _MemberInfo'externalTcp = Prelude.Nothing, + _MemberInfo'internalTcpUsesTls = Data.ProtoLens.fieldDefault, + _MemberInfo'externalTcpUsesTls = Data.ProtoLens.fieldDefault, + _MemberInfo'lastCommitPosition = Data.ProtoLens.fieldDefault, + _MemberInfo'writerCheckpoint = Data.ProtoLens.fieldDefault, + _MemberInfo'chaserCheckpoint = Data.ProtoLens.fieldDefault, + _MemberInfo'epochPosition = Data.ProtoLens.fieldDefault, + _MemberInfo'epochNumber = Data.ProtoLens.fieldDefault, + _MemberInfo'epochId = Prelude.Nothing, + _MemberInfo'nodePriority = Data.ProtoLens.fieldDefault, + _MemberInfo'isReadOnlyReplica = Data.ProtoLens.fieldDefault, + _MemberInfo'_unknownFields = []} + parseMessage + = let + loop :: + MemberInfo -> Data.ProtoLens.Encoding.Bytes.Parser MemberInfo + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "instance_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"instanceId") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "time_stamp" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"timeStamp") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "state" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"state") y x) + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "is_alive" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"isAlive") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "http_end_point" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"httpEndPoint") y x) + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "internal_tcp" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"internalTcp") y x) + 58 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "external_tcp" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"externalTcp") y x) + 64 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "internal_tcp_uses_tls" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"internalTcpUsesTls") y x) + 72 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "external_tcp_uses_tls" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"externalTcpUsesTls") y x) + 80 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "last_commit_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"lastCommitPosition") y x) + 88 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "writer_checkpoint" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"writerCheckpoint") y x) + 96 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "chaser_checkpoint" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"chaserCheckpoint") y x) + 104 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "epoch_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"epochPosition") y x) + 112 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "epoch_number" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"epochNumber") y x) + 122 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "epoch_id" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"epochId") y x) + 128 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "node_priority" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"nodePriority") y x) + 136 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "is_read_only_replica" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"isReadOnlyReplica") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "MemberInfo" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'instanceId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"timeStamp") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"state") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"isAlive") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'httpEndPoint") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'internalTcp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'externalTcp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"internalTcpUsesTls") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 64) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"externalTcpUsesTls") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 72) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"lastCommitPosition") + _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 80) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"writerCheckpoint") + _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 88) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"chaserCheckpoint") + _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 96) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"epochPosition") + _x + in + if (Prelude.==) + _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 104) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"epochNumber") + _x + in + if (Prelude.==) + _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 112) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'epochId") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 122) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"nodePriority") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 128) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"isReadOnlyReplica") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 136) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields + _x)))))))))))))))))) +instance Control.DeepSeq.NFData MemberInfo where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_MemberInfo'_unknownFields x__) + (Control.DeepSeq.deepseq + (_MemberInfo'instanceId x__) + (Control.DeepSeq.deepseq + (_MemberInfo'timeStamp x__) + (Control.DeepSeq.deepseq + (_MemberInfo'state x__) + (Control.DeepSeq.deepseq + (_MemberInfo'isAlive x__) + (Control.DeepSeq.deepseq + (_MemberInfo'httpEndPoint x__) + (Control.DeepSeq.deepseq + (_MemberInfo'internalTcp x__) + (Control.DeepSeq.deepseq + (_MemberInfo'externalTcp x__) + (Control.DeepSeq.deepseq + (_MemberInfo'internalTcpUsesTls x__) + (Control.DeepSeq.deepseq + (_MemberInfo'externalTcpUsesTls x__) + (Control.DeepSeq.deepseq + (_MemberInfo'lastCommitPosition x__) + (Control.DeepSeq.deepseq + (_MemberInfo'writerCheckpoint x__) + (Control.DeepSeq.deepseq + (_MemberInfo'chaserCheckpoint x__) + (Control.DeepSeq.deepseq + (_MemberInfo'epochPosition x__) + (Control.DeepSeq.deepseq + (_MemberInfo'epochNumber x__) + (Control.DeepSeq.deepseq + (_MemberInfo'epochId x__) + (Control.DeepSeq.deepseq + (_MemberInfo'nodePriority x__) + (Control.DeepSeq.deepseq + (_MemberInfo'isReadOnlyReplica x__) + ()))))))))))))))))) +newtype MemberInfo'VNodeState'UnrecognizedValue + = MemberInfo'VNodeState'UnrecognizedValue Data.Int.Int32 + deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) +data MemberInfo'VNodeState + = MemberInfo'Initializing | + MemberInfo'DiscoverLeader | + MemberInfo'Unknown | + MemberInfo'PreReplica | + MemberInfo'CatchingUp | + MemberInfo'Clone | + MemberInfo'Follower | + MemberInfo'PreLeader | + MemberInfo'Leader | + MemberInfo'Manager | + MemberInfo'ShuttingDown | + MemberInfo'Shutdown | + MemberInfo'ReadOnlyLeaderless | + MemberInfo'PreReadOnlyReplica | + MemberInfo'ReadOnlyReplica | + MemberInfo'ResigningLeader | + MemberInfo'VNodeState'Unrecognized !MemberInfo'VNodeState'UnrecognizedValue + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum MemberInfo'VNodeState where + maybeToEnum 0 = Prelude.Just MemberInfo'Initializing + maybeToEnum 1 = Prelude.Just MemberInfo'DiscoverLeader + maybeToEnum 2 = Prelude.Just MemberInfo'Unknown + maybeToEnum 3 = Prelude.Just MemberInfo'PreReplica + maybeToEnum 4 = Prelude.Just MemberInfo'CatchingUp + maybeToEnum 5 = Prelude.Just MemberInfo'Clone + maybeToEnum 6 = Prelude.Just MemberInfo'Follower + maybeToEnum 7 = Prelude.Just MemberInfo'PreLeader + maybeToEnum 8 = Prelude.Just MemberInfo'Leader + maybeToEnum 9 = Prelude.Just MemberInfo'Manager + maybeToEnum 10 = Prelude.Just MemberInfo'ShuttingDown + maybeToEnum 11 = Prelude.Just MemberInfo'Shutdown + maybeToEnum 12 = Prelude.Just MemberInfo'ReadOnlyLeaderless + maybeToEnum 13 = Prelude.Just MemberInfo'PreReadOnlyReplica + maybeToEnum 14 = Prelude.Just MemberInfo'ReadOnlyReplica + maybeToEnum 15 = Prelude.Just MemberInfo'ResigningLeader + maybeToEnum k + = Prelude.Just + (MemberInfo'VNodeState'Unrecognized + (MemberInfo'VNodeState'UnrecognizedValue (Prelude.fromIntegral k))) + showEnum MemberInfo'Initializing = "Initializing" + showEnum MemberInfo'DiscoverLeader = "DiscoverLeader" + showEnum MemberInfo'Unknown = "Unknown" + showEnum MemberInfo'PreReplica = "PreReplica" + showEnum MemberInfo'CatchingUp = "CatchingUp" + showEnum MemberInfo'Clone = "Clone" + showEnum MemberInfo'Follower = "Follower" + showEnum MemberInfo'PreLeader = "PreLeader" + showEnum MemberInfo'Leader = "Leader" + showEnum MemberInfo'Manager = "Manager" + showEnum MemberInfo'ShuttingDown = "ShuttingDown" + showEnum MemberInfo'Shutdown = "Shutdown" + showEnum MemberInfo'ReadOnlyLeaderless = "ReadOnlyLeaderless" + showEnum MemberInfo'PreReadOnlyReplica = "PreReadOnlyReplica" + showEnum MemberInfo'ReadOnlyReplica = "ReadOnlyReplica" + showEnum MemberInfo'ResigningLeader = "ResigningLeader" + showEnum + (MemberInfo'VNodeState'Unrecognized (MemberInfo'VNodeState'UnrecognizedValue k)) + = Prelude.show k + readEnum k + | (Prelude.==) k "Initializing" + = Prelude.Just MemberInfo'Initializing + | (Prelude.==) k "DiscoverLeader" + = Prelude.Just MemberInfo'DiscoverLeader + | (Prelude.==) k "Unknown" = Prelude.Just MemberInfo'Unknown + | (Prelude.==) k "PreReplica" = Prelude.Just MemberInfo'PreReplica + | (Prelude.==) k "CatchingUp" = Prelude.Just MemberInfo'CatchingUp + | (Prelude.==) k "Clone" = Prelude.Just MemberInfo'Clone + | (Prelude.==) k "Follower" = Prelude.Just MemberInfo'Follower + | (Prelude.==) k "PreLeader" = Prelude.Just MemberInfo'PreLeader + | (Prelude.==) k "Leader" = Prelude.Just MemberInfo'Leader + | (Prelude.==) k "Manager" = Prelude.Just MemberInfo'Manager + | (Prelude.==) k "ShuttingDown" + = Prelude.Just MemberInfo'ShuttingDown + | (Prelude.==) k "Shutdown" = Prelude.Just MemberInfo'Shutdown + | (Prelude.==) k "ReadOnlyLeaderless" + = Prelude.Just MemberInfo'ReadOnlyLeaderless + | (Prelude.==) k "PreReadOnlyReplica" + = Prelude.Just MemberInfo'PreReadOnlyReplica + | (Prelude.==) k "ReadOnlyReplica" + = Prelude.Just MemberInfo'ReadOnlyReplica + | (Prelude.==) k "ResigningLeader" + = Prelude.Just MemberInfo'ResigningLeader + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded MemberInfo'VNodeState where + minBound = MemberInfo'Initializing + maxBound = MemberInfo'ResigningLeader +instance Prelude.Enum MemberInfo'VNodeState where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum VNodeState: " (Prelude.show k__))) + Prelude.id + (Data.ProtoLens.maybeToEnum k__) + fromEnum MemberInfo'Initializing = 0 + fromEnum MemberInfo'DiscoverLeader = 1 + fromEnum MemberInfo'Unknown = 2 + fromEnum MemberInfo'PreReplica = 3 + fromEnum MemberInfo'CatchingUp = 4 + fromEnum MemberInfo'Clone = 5 + fromEnum MemberInfo'Follower = 6 + fromEnum MemberInfo'PreLeader = 7 + fromEnum MemberInfo'Leader = 8 + fromEnum MemberInfo'Manager = 9 + fromEnum MemberInfo'ShuttingDown = 10 + fromEnum MemberInfo'Shutdown = 11 + fromEnum MemberInfo'ReadOnlyLeaderless = 12 + fromEnum MemberInfo'PreReadOnlyReplica = 13 + fromEnum MemberInfo'ReadOnlyReplica = 14 + fromEnum MemberInfo'ResigningLeader = 15 + fromEnum + (MemberInfo'VNodeState'Unrecognized (MemberInfo'VNodeState'UnrecognizedValue k)) + = Prelude.fromIntegral k + succ MemberInfo'ResigningLeader + = Prelude.error + "MemberInfo'VNodeState.succ: bad argument MemberInfo'ResigningLeader. This value would be out of bounds." + succ MemberInfo'Initializing = MemberInfo'DiscoverLeader + succ MemberInfo'DiscoverLeader = MemberInfo'Unknown + succ MemberInfo'Unknown = MemberInfo'PreReplica + succ MemberInfo'PreReplica = MemberInfo'CatchingUp + succ MemberInfo'CatchingUp = MemberInfo'Clone + succ MemberInfo'Clone = MemberInfo'Follower + succ MemberInfo'Follower = MemberInfo'PreLeader + succ MemberInfo'PreLeader = MemberInfo'Leader + succ MemberInfo'Leader = MemberInfo'Manager + succ MemberInfo'Manager = MemberInfo'ShuttingDown + succ MemberInfo'ShuttingDown = MemberInfo'Shutdown + succ MemberInfo'Shutdown = MemberInfo'ReadOnlyLeaderless + succ MemberInfo'ReadOnlyLeaderless = MemberInfo'PreReadOnlyReplica + succ MemberInfo'PreReadOnlyReplica = MemberInfo'ReadOnlyReplica + succ MemberInfo'ReadOnlyReplica = MemberInfo'ResigningLeader + succ (MemberInfo'VNodeState'Unrecognized _) + = Prelude.error + "MemberInfo'VNodeState.succ: bad argument: unrecognized value" + pred MemberInfo'Initializing + = Prelude.error + "MemberInfo'VNodeState.pred: bad argument MemberInfo'Initializing. This value would be out of bounds." + pred MemberInfo'DiscoverLeader = MemberInfo'Initializing + pred MemberInfo'Unknown = MemberInfo'DiscoverLeader + pred MemberInfo'PreReplica = MemberInfo'Unknown + pred MemberInfo'CatchingUp = MemberInfo'PreReplica + pred MemberInfo'Clone = MemberInfo'CatchingUp + pred MemberInfo'Follower = MemberInfo'Clone + pred MemberInfo'PreLeader = MemberInfo'Follower + pred MemberInfo'Leader = MemberInfo'PreLeader + pred MemberInfo'Manager = MemberInfo'Leader + pred MemberInfo'ShuttingDown = MemberInfo'Manager + pred MemberInfo'Shutdown = MemberInfo'ShuttingDown + pred MemberInfo'ReadOnlyLeaderless = MemberInfo'Shutdown + pred MemberInfo'PreReadOnlyReplica = MemberInfo'ReadOnlyLeaderless + pred MemberInfo'ReadOnlyReplica = MemberInfo'PreReadOnlyReplica + pred MemberInfo'ResigningLeader = MemberInfo'ReadOnlyReplica + pred (MemberInfo'VNodeState'Unrecognized _) + = Prelude.error + "MemberInfo'VNodeState.pred: bad argument: unrecognized value" + enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom + enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo + enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen + enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo +instance Data.ProtoLens.FieldDefault MemberInfo'VNodeState where + fieldDefault = MemberInfo'Initializing +instance Control.DeepSeq.NFData MemberInfo'VNodeState where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Cluster_Fields.view' @:: Lens' PrepareOkRequest Data.Int.Int32@ + * 'Proto.Cluster_Fields.serverId' @:: Lens' PrepareOkRequest Proto.Shared.UUID@ + * 'Proto.Cluster_Fields.maybe'serverId' @:: Lens' PrepareOkRequest (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Cluster_Fields.serverHttp' @:: Lens' PrepareOkRequest EndPoint@ + * 'Proto.Cluster_Fields.maybe'serverHttp' @:: Lens' PrepareOkRequest (Prelude.Maybe EndPoint)@ + * 'Proto.Cluster_Fields.epochNumber' @:: Lens' PrepareOkRequest Data.Int.Int32@ + * 'Proto.Cluster_Fields.epochPosition' @:: Lens' PrepareOkRequest Data.Int.Int64@ + * 'Proto.Cluster_Fields.epochId' @:: Lens' PrepareOkRequest Proto.Shared.UUID@ + * 'Proto.Cluster_Fields.maybe'epochId' @:: Lens' PrepareOkRequest (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Cluster_Fields.epochLeaderInstanceId' @:: Lens' PrepareOkRequest Proto.Shared.UUID@ + * 'Proto.Cluster_Fields.maybe'epochLeaderInstanceId' @:: Lens' PrepareOkRequest (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Cluster_Fields.lastCommitPosition' @:: Lens' PrepareOkRequest Data.Int.Int64@ + * 'Proto.Cluster_Fields.writerCheckpoint' @:: Lens' PrepareOkRequest Data.Int.Int64@ + * 'Proto.Cluster_Fields.chaserCheckpoint' @:: Lens' PrepareOkRequest Data.Int.Int64@ + * 'Proto.Cluster_Fields.nodePriority' @:: Lens' PrepareOkRequest Data.Int.Int32@ + * 'Proto.Cluster_Fields.clusterInfo' @:: Lens' PrepareOkRequest ClusterInfo@ + * 'Proto.Cluster_Fields.maybe'clusterInfo' @:: Lens' PrepareOkRequest (Prelude.Maybe ClusterInfo)@ -} +data PrepareOkRequest + = PrepareOkRequest'_constructor {_PrepareOkRequest'view :: !Data.Int.Int32, + _PrepareOkRequest'serverId :: !(Prelude.Maybe Proto.Shared.UUID), + _PrepareOkRequest'serverHttp :: !(Prelude.Maybe EndPoint), + _PrepareOkRequest'epochNumber :: !Data.Int.Int32, + _PrepareOkRequest'epochPosition :: !Data.Int.Int64, + _PrepareOkRequest'epochId :: !(Prelude.Maybe Proto.Shared.UUID), + _PrepareOkRequest'epochLeaderInstanceId :: !(Prelude.Maybe Proto.Shared.UUID), + _PrepareOkRequest'lastCommitPosition :: !Data.Int.Int64, + _PrepareOkRequest'writerCheckpoint :: !Data.Int.Int64, + _PrepareOkRequest'chaserCheckpoint :: !Data.Int.Int64, + _PrepareOkRequest'nodePriority :: !Data.Int.Int32, + _PrepareOkRequest'clusterInfo :: !(Prelude.Maybe ClusterInfo), + _PrepareOkRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show PrepareOkRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField PrepareOkRequest "view" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareOkRequest'view + (\ x__ y__ -> x__ {_PrepareOkRequest'view = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PrepareOkRequest "serverId" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareOkRequest'serverId + (\ x__ y__ -> x__ {_PrepareOkRequest'serverId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PrepareOkRequest "maybe'serverId" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareOkRequest'serverId + (\ x__ y__ -> x__ {_PrepareOkRequest'serverId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PrepareOkRequest "serverHttp" EndPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareOkRequest'serverHttp + (\ x__ y__ -> x__ {_PrepareOkRequest'serverHttp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PrepareOkRequest "maybe'serverHttp" (Prelude.Maybe EndPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareOkRequest'serverHttp + (\ x__ y__ -> x__ {_PrepareOkRequest'serverHttp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PrepareOkRequest "epochNumber" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareOkRequest'epochNumber + (\ x__ y__ -> x__ {_PrepareOkRequest'epochNumber = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PrepareOkRequest "epochPosition" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareOkRequest'epochPosition + (\ x__ y__ -> x__ {_PrepareOkRequest'epochPosition = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PrepareOkRequest "epochId" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareOkRequest'epochId + (\ x__ y__ -> x__ {_PrepareOkRequest'epochId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PrepareOkRequest "maybe'epochId" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareOkRequest'epochId + (\ x__ y__ -> x__ {_PrepareOkRequest'epochId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PrepareOkRequest "epochLeaderInstanceId" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareOkRequest'epochLeaderInstanceId + (\ x__ y__ -> x__ {_PrepareOkRequest'epochLeaderInstanceId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PrepareOkRequest "maybe'epochLeaderInstanceId" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareOkRequest'epochLeaderInstanceId + (\ x__ y__ -> x__ {_PrepareOkRequest'epochLeaderInstanceId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PrepareOkRequest "lastCommitPosition" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareOkRequest'lastCommitPosition + (\ x__ y__ -> x__ {_PrepareOkRequest'lastCommitPosition = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PrepareOkRequest "writerCheckpoint" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareOkRequest'writerCheckpoint + (\ x__ y__ -> x__ {_PrepareOkRequest'writerCheckpoint = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PrepareOkRequest "chaserCheckpoint" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareOkRequest'chaserCheckpoint + (\ x__ y__ -> x__ {_PrepareOkRequest'chaserCheckpoint = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PrepareOkRequest "nodePriority" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareOkRequest'nodePriority + (\ x__ y__ -> x__ {_PrepareOkRequest'nodePriority = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PrepareOkRequest "clusterInfo" ClusterInfo where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareOkRequest'clusterInfo + (\ x__ y__ -> x__ {_PrepareOkRequest'clusterInfo = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PrepareOkRequest "maybe'clusterInfo" (Prelude.Maybe ClusterInfo) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareOkRequest'clusterInfo + (\ x__ y__ -> x__ {_PrepareOkRequest'clusterInfo = y__})) + Prelude.id +instance Data.ProtoLens.Message PrepareOkRequest where + messageName _ + = Data.Text.pack "event_store.cluster.PrepareOkRequest" + packedMessageDescriptor _ + = "\n\ + \\DLEPrepareOkRequest\DC2\DC2\n\ + \\EOTview\CAN\SOH \SOH(\ENQR\EOTview\DC2<\n\ + \\tserver_id\CAN\STX \SOH(\v2\US.event_store.client.shared.UUIDR\bserverId\DC2>\n\ + \\vserver_http\CAN\ETX \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \serverHttp\DC2!\n\ + \\fepoch_number\CAN\EOT \SOH(\ENQR\vepochNumber\DC2%\n\ + \\SOepoch_position\CAN\ENQ \SOH(\ETXR\repochPosition\DC2:\n\ + \\bepoch_id\CAN\ACK \SOH(\v2\US.event_store.client.shared.UUIDR\aepochId\DC2X\n\ + \\CANepoch_leader_instance_id\CAN\a \SOH(\v2\US.event_store.client.shared.UUIDR\NAKepochLeaderInstanceId\DC20\n\ + \\DC4last_commit_position\CAN\b \SOH(\ETXR\DC2lastCommitPosition\DC2+\n\ + \\DC1writer_checkpoint\CAN\t \SOH(\ETXR\DLEwriterCheckpoint\DC2+\n\ + \\DC1chaser_checkpoint\CAN\n\ + \ \SOH(\ETXR\DLEchaserCheckpoint\DC2#\n\ + \\rnode_priority\CAN\v \SOH(\ENQR\fnodePriority\DC2C\n\ + \\fcluster_info\CAN\f \SOH(\v2 .event_store.cluster.ClusterInfoR\vclusterInfo" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + view__field_descriptor + = Data.ProtoLens.FieldDescriptor + "view" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"view")) :: + Data.ProtoLens.FieldDescriptor PrepareOkRequest + serverId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "server_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'serverId")) :: + Data.ProtoLens.FieldDescriptor PrepareOkRequest + serverHttp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "server_http" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EndPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'serverHttp")) :: + Data.ProtoLens.FieldDescriptor PrepareOkRequest + epochNumber__field_descriptor + = Data.ProtoLens.FieldDescriptor + "epoch_number" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"epochNumber")) :: + Data.ProtoLens.FieldDescriptor PrepareOkRequest + epochPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "epoch_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"epochPosition")) :: + Data.ProtoLens.FieldDescriptor PrepareOkRequest + epochId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "epoch_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'epochId")) :: + Data.ProtoLens.FieldDescriptor PrepareOkRequest + epochLeaderInstanceId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "epoch_leader_instance_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'epochLeaderInstanceId")) :: + Data.ProtoLens.FieldDescriptor PrepareOkRequest + lastCommitPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "last_commit_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"lastCommitPosition")) :: + Data.ProtoLens.FieldDescriptor PrepareOkRequest + writerCheckpoint__field_descriptor + = Data.ProtoLens.FieldDescriptor + "writer_checkpoint" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"writerCheckpoint")) :: + Data.ProtoLens.FieldDescriptor PrepareOkRequest + chaserCheckpoint__field_descriptor + = Data.ProtoLens.FieldDescriptor + "chaser_checkpoint" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"chaserCheckpoint")) :: + Data.ProtoLens.FieldDescriptor PrepareOkRequest + nodePriority__field_descriptor + = Data.ProtoLens.FieldDescriptor + "node_priority" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"nodePriority")) :: + Data.ProtoLens.FieldDescriptor PrepareOkRequest + clusterInfo__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cluster_info" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ClusterInfo) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'clusterInfo")) :: + Data.ProtoLens.FieldDescriptor PrepareOkRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, view__field_descriptor), + (Data.ProtoLens.Tag 2, serverId__field_descriptor), + (Data.ProtoLens.Tag 3, serverHttp__field_descriptor), + (Data.ProtoLens.Tag 4, epochNumber__field_descriptor), + (Data.ProtoLens.Tag 5, epochPosition__field_descriptor), + (Data.ProtoLens.Tag 6, epochId__field_descriptor), + (Data.ProtoLens.Tag 7, epochLeaderInstanceId__field_descriptor), + (Data.ProtoLens.Tag 8, lastCommitPosition__field_descriptor), + (Data.ProtoLens.Tag 9, writerCheckpoint__field_descriptor), + (Data.ProtoLens.Tag 10, chaserCheckpoint__field_descriptor), + (Data.ProtoLens.Tag 11, nodePriority__field_descriptor), + (Data.ProtoLens.Tag 12, clusterInfo__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _PrepareOkRequest'_unknownFields + (\ x__ y__ -> x__ {_PrepareOkRequest'_unknownFields = y__}) + defMessage + = PrepareOkRequest'_constructor + {_PrepareOkRequest'view = Data.ProtoLens.fieldDefault, + _PrepareOkRequest'serverId = Prelude.Nothing, + _PrepareOkRequest'serverHttp = Prelude.Nothing, + _PrepareOkRequest'epochNumber = Data.ProtoLens.fieldDefault, + _PrepareOkRequest'epochPosition = Data.ProtoLens.fieldDefault, + _PrepareOkRequest'epochId = Prelude.Nothing, + _PrepareOkRequest'epochLeaderInstanceId = Prelude.Nothing, + _PrepareOkRequest'lastCommitPosition = Data.ProtoLens.fieldDefault, + _PrepareOkRequest'writerCheckpoint = Data.ProtoLens.fieldDefault, + _PrepareOkRequest'chaserCheckpoint = Data.ProtoLens.fieldDefault, + _PrepareOkRequest'nodePriority = Data.ProtoLens.fieldDefault, + _PrepareOkRequest'clusterInfo = Prelude.Nothing, + _PrepareOkRequest'_unknownFields = []} + parseMessage + = let + loop :: + PrepareOkRequest + -> Data.ProtoLens.Encoding.Bytes.Parser PrepareOkRequest + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "view" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"view") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "server_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"serverId") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "server_http" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"serverHttp") y x) + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "epoch_number" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"epochNumber") y x) + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "epoch_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"epochPosition") y x) + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "epoch_id" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"epochId") y x) + 58 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "epoch_leader_instance_id" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"epochLeaderInstanceId") y x) + 64 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "last_commit_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"lastCommitPosition") y x) + 72 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "writer_checkpoint" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"writerCheckpoint") y x) + 80 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "chaser_checkpoint" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"chaserCheckpoint") y x) + 88 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "node_priority" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"nodePriority") y x) + 98 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "cluster_info" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"clusterInfo") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "PrepareOkRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"view") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'serverId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'serverHttp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"epochNumber") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"epochPosition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'epochId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'epochLeaderInstanceId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"lastCommitPosition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 64) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"writerCheckpoint") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 72) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"chaserCheckpoint") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 80) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"nodePriority") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 88) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'clusterInfo") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 98) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields _x))))))))))))) +instance Control.DeepSeq.NFData PrepareOkRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_PrepareOkRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_PrepareOkRequest'view x__) + (Control.DeepSeq.deepseq + (_PrepareOkRequest'serverId x__) + (Control.DeepSeq.deepseq + (_PrepareOkRequest'serverHttp x__) + (Control.DeepSeq.deepseq + (_PrepareOkRequest'epochNumber x__) + (Control.DeepSeq.deepseq + (_PrepareOkRequest'epochPosition x__) + (Control.DeepSeq.deepseq + (_PrepareOkRequest'epochId x__) + (Control.DeepSeq.deepseq + (_PrepareOkRequest'epochLeaderInstanceId x__) + (Control.DeepSeq.deepseq + (_PrepareOkRequest'lastCommitPosition x__) + (Control.DeepSeq.deepseq + (_PrepareOkRequest'writerCheckpoint x__) + (Control.DeepSeq.deepseq + (_PrepareOkRequest'chaserCheckpoint x__) + (Control.DeepSeq.deepseq + (_PrepareOkRequest'nodePriority x__) + (Control.DeepSeq.deepseq + (_PrepareOkRequest'clusterInfo x__) ())))))))))))) +{- | Fields : + + * 'Proto.Cluster_Fields.serverId' @:: Lens' PrepareRequest Proto.Shared.UUID@ + * 'Proto.Cluster_Fields.maybe'serverId' @:: Lens' PrepareRequest (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Cluster_Fields.serverHttp' @:: Lens' PrepareRequest EndPoint@ + * 'Proto.Cluster_Fields.maybe'serverHttp' @:: Lens' PrepareRequest (Prelude.Maybe EndPoint)@ + * 'Proto.Cluster_Fields.view' @:: Lens' PrepareRequest Data.Int.Int32@ -} +data PrepareRequest + = PrepareRequest'_constructor {_PrepareRequest'serverId :: !(Prelude.Maybe Proto.Shared.UUID), + _PrepareRequest'serverHttp :: !(Prelude.Maybe EndPoint), + _PrepareRequest'view :: !Data.Int.Int32, + _PrepareRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show PrepareRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField PrepareRequest "serverId" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareRequest'serverId + (\ x__ y__ -> x__ {_PrepareRequest'serverId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PrepareRequest "maybe'serverId" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareRequest'serverId + (\ x__ y__ -> x__ {_PrepareRequest'serverId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PrepareRequest "serverHttp" EndPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareRequest'serverHttp + (\ x__ y__ -> x__ {_PrepareRequest'serverHttp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PrepareRequest "maybe'serverHttp" (Prelude.Maybe EndPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareRequest'serverHttp + (\ x__ y__ -> x__ {_PrepareRequest'serverHttp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PrepareRequest "view" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PrepareRequest'view + (\ x__ y__ -> x__ {_PrepareRequest'view = y__})) + Prelude.id +instance Data.ProtoLens.Message PrepareRequest where + messageName _ = Data.Text.pack "event_store.cluster.PrepareRequest" + packedMessageDescriptor _ + = "\n\ + \\SOPrepareRequest\DC2<\n\ + \\tserver_id\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\bserverId\DC2>\n\ + \\vserver_http\CAN\STX \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \serverHttp\DC2\DC2\n\ + \\EOTview\CAN\ETX \SOH(\ENQR\EOTview" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + serverId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "server_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'serverId")) :: + Data.ProtoLens.FieldDescriptor PrepareRequest + serverHttp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "server_http" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EndPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'serverHttp")) :: + Data.ProtoLens.FieldDescriptor PrepareRequest + view__field_descriptor + = Data.ProtoLens.FieldDescriptor + "view" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"view")) :: + Data.ProtoLens.FieldDescriptor PrepareRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, serverId__field_descriptor), + (Data.ProtoLens.Tag 2, serverHttp__field_descriptor), + (Data.ProtoLens.Tag 3, view__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _PrepareRequest'_unknownFields + (\ x__ y__ -> x__ {_PrepareRequest'_unknownFields = y__}) + defMessage + = PrepareRequest'_constructor + {_PrepareRequest'serverId = Prelude.Nothing, + _PrepareRequest'serverHttp = Prelude.Nothing, + _PrepareRequest'view = Data.ProtoLens.fieldDefault, + _PrepareRequest'_unknownFields = []} + parseMessage + = let + loop :: + PrepareRequest + -> Data.ProtoLens.Encoding.Bytes.Parser PrepareRequest + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "server_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"serverId") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "server_http" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"serverHttp") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "view" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"view") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "PrepareRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'serverId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'serverHttp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"view") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData PrepareRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_PrepareRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_PrepareRequest'serverId x__) + (Control.DeepSeq.deepseq + (_PrepareRequest'serverHttp x__) + (Control.DeepSeq.deepseq (_PrepareRequest'view x__) ()))) +{- | Fields : + + * 'Proto.Cluster_Fields.serverId' @:: Lens' ProposalRequest Proto.Shared.UUID@ + * 'Proto.Cluster_Fields.maybe'serverId' @:: Lens' ProposalRequest (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Cluster_Fields.serverHttp' @:: Lens' ProposalRequest EndPoint@ + * 'Proto.Cluster_Fields.maybe'serverHttp' @:: Lens' ProposalRequest (Prelude.Maybe EndPoint)@ + * 'Proto.Cluster_Fields.leaderId' @:: Lens' ProposalRequest Proto.Shared.UUID@ + * 'Proto.Cluster_Fields.maybe'leaderId' @:: Lens' ProposalRequest (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Cluster_Fields.leaderHttp' @:: Lens' ProposalRequest EndPoint@ + * 'Proto.Cluster_Fields.maybe'leaderHttp' @:: Lens' ProposalRequest (Prelude.Maybe EndPoint)@ + * 'Proto.Cluster_Fields.view' @:: Lens' ProposalRequest Data.Int.Int32@ + * 'Proto.Cluster_Fields.epochNumber' @:: Lens' ProposalRequest Data.Int.Int32@ + * 'Proto.Cluster_Fields.epochPosition' @:: Lens' ProposalRequest Data.Int.Int64@ + * 'Proto.Cluster_Fields.epochId' @:: Lens' ProposalRequest Proto.Shared.UUID@ + * 'Proto.Cluster_Fields.maybe'epochId' @:: Lens' ProposalRequest (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Cluster_Fields.epochLeaderInstanceId' @:: Lens' ProposalRequest Proto.Shared.UUID@ + * 'Proto.Cluster_Fields.maybe'epochLeaderInstanceId' @:: Lens' ProposalRequest (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Cluster_Fields.lastCommitPosition' @:: Lens' ProposalRequest Data.Int.Int64@ + * 'Proto.Cluster_Fields.writerCheckpoint' @:: Lens' ProposalRequest Data.Int.Int64@ + * 'Proto.Cluster_Fields.chaserCheckpoint' @:: Lens' ProposalRequest Data.Int.Int64@ + * 'Proto.Cluster_Fields.nodePriority' @:: Lens' ProposalRequest Data.Int.Int32@ -} +data ProposalRequest + = ProposalRequest'_constructor {_ProposalRequest'serverId :: !(Prelude.Maybe Proto.Shared.UUID), + _ProposalRequest'serverHttp :: !(Prelude.Maybe EndPoint), + _ProposalRequest'leaderId :: !(Prelude.Maybe Proto.Shared.UUID), + _ProposalRequest'leaderHttp :: !(Prelude.Maybe EndPoint), + _ProposalRequest'view :: !Data.Int.Int32, + _ProposalRequest'epochNumber :: !Data.Int.Int32, + _ProposalRequest'epochPosition :: !Data.Int.Int64, + _ProposalRequest'epochId :: !(Prelude.Maybe Proto.Shared.UUID), + _ProposalRequest'epochLeaderInstanceId :: !(Prelude.Maybe Proto.Shared.UUID), + _ProposalRequest'lastCommitPosition :: !Data.Int.Int64, + _ProposalRequest'writerCheckpoint :: !Data.Int.Int64, + _ProposalRequest'chaserCheckpoint :: !Data.Int.Int64, + _ProposalRequest'nodePriority :: !Data.Int.Int32, + _ProposalRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ProposalRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ProposalRequest "serverId" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'serverId + (\ x__ y__ -> x__ {_ProposalRequest'serverId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ProposalRequest "maybe'serverId" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'serverId + (\ x__ y__ -> x__ {_ProposalRequest'serverId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ProposalRequest "serverHttp" EndPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'serverHttp + (\ x__ y__ -> x__ {_ProposalRequest'serverHttp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ProposalRequest "maybe'serverHttp" (Prelude.Maybe EndPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'serverHttp + (\ x__ y__ -> x__ {_ProposalRequest'serverHttp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ProposalRequest "leaderId" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'leaderId + (\ x__ y__ -> x__ {_ProposalRequest'leaderId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ProposalRequest "maybe'leaderId" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'leaderId + (\ x__ y__ -> x__ {_ProposalRequest'leaderId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ProposalRequest "leaderHttp" EndPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'leaderHttp + (\ x__ y__ -> x__ {_ProposalRequest'leaderHttp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ProposalRequest "maybe'leaderHttp" (Prelude.Maybe EndPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'leaderHttp + (\ x__ y__ -> x__ {_ProposalRequest'leaderHttp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ProposalRequest "view" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'view + (\ x__ y__ -> x__ {_ProposalRequest'view = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ProposalRequest "epochNumber" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'epochNumber + (\ x__ y__ -> x__ {_ProposalRequest'epochNumber = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ProposalRequest "epochPosition" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'epochPosition + (\ x__ y__ -> x__ {_ProposalRequest'epochPosition = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ProposalRequest "epochId" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'epochId + (\ x__ y__ -> x__ {_ProposalRequest'epochId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ProposalRequest "maybe'epochId" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'epochId + (\ x__ y__ -> x__ {_ProposalRequest'epochId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ProposalRequest "epochLeaderInstanceId" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'epochLeaderInstanceId + (\ x__ y__ -> x__ {_ProposalRequest'epochLeaderInstanceId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ProposalRequest "maybe'epochLeaderInstanceId" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'epochLeaderInstanceId + (\ x__ y__ -> x__ {_ProposalRequest'epochLeaderInstanceId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ProposalRequest "lastCommitPosition" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'lastCommitPosition + (\ x__ y__ -> x__ {_ProposalRequest'lastCommitPosition = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ProposalRequest "writerCheckpoint" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'writerCheckpoint + (\ x__ y__ -> x__ {_ProposalRequest'writerCheckpoint = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ProposalRequest "chaserCheckpoint" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'chaserCheckpoint + (\ x__ y__ -> x__ {_ProposalRequest'chaserCheckpoint = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ProposalRequest "nodePriority" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProposalRequest'nodePriority + (\ x__ y__ -> x__ {_ProposalRequest'nodePriority = y__})) + Prelude.id +instance Data.ProtoLens.Message ProposalRequest where + messageName _ + = Data.Text.pack "event_store.cluster.ProposalRequest" + packedMessageDescriptor _ + = "\n\ + \\SIProposalRequest\DC2<\n\ + \\tserver_id\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\bserverId\DC2>\n\ + \\vserver_http\CAN\STX \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \serverHttp\DC2<\n\ + \\tleader_id\CAN\ETX \SOH(\v2\US.event_store.client.shared.UUIDR\bleaderId\DC2>\n\ + \\vleader_http\CAN\EOT \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \leaderHttp\DC2\DC2\n\ + \\EOTview\CAN\ENQ \SOH(\ENQR\EOTview\DC2!\n\ + \\fepoch_number\CAN\ACK \SOH(\ENQR\vepochNumber\DC2%\n\ + \\SOepoch_position\CAN\a \SOH(\ETXR\repochPosition\DC2:\n\ + \\bepoch_id\CAN\b \SOH(\v2\US.event_store.client.shared.UUIDR\aepochId\DC2X\n\ + \\CANepoch_leader_instance_id\CAN\t \SOH(\v2\US.event_store.client.shared.UUIDR\NAKepochLeaderInstanceId\DC20\n\ + \\DC4last_commit_position\CAN\n\ + \ \SOH(\ETXR\DC2lastCommitPosition\DC2+\n\ + \\DC1writer_checkpoint\CAN\v \SOH(\ETXR\DLEwriterCheckpoint\DC2+\n\ + \\DC1chaser_checkpoint\CAN\f \SOH(\ETXR\DLEchaserCheckpoint\DC2#\n\ + \\rnode_priority\CAN\r \SOH(\ENQR\fnodePriority" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + serverId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "server_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'serverId")) :: + Data.ProtoLens.FieldDescriptor ProposalRequest + serverHttp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "server_http" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EndPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'serverHttp")) :: + Data.ProtoLens.FieldDescriptor ProposalRequest + leaderId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "leader_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'leaderId")) :: + Data.ProtoLens.FieldDescriptor ProposalRequest + leaderHttp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "leader_http" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EndPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'leaderHttp")) :: + Data.ProtoLens.FieldDescriptor ProposalRequest + view__field_descriptor + = Data.ProtoLens.FieldDescriptor + "view" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"view")) :: + Data.ProtoLens.FieldDescriptor ProposalRequest + epochNumber__field_descriptor + = Data.ProtoLens.FieldDescriptor + "epoch_number" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"epochNumber")) :: + Data.ProtoLens.FieldDescriptor ProposalRequest + epochPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "epoch_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"epochPosition")) :: + Data.ProtoLens.FieldDescriptor ProposalRequest + epochId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "epoch_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'epochId")) :: + Data.ProtoLens.FieldDescriptor ProposalRequest + epochLeaderInstanceId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "epoch_leader_instance_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'epochLeaderInstanceId")) :: + Data.ProtoLens.FieldDescriptor ProposalRequest + lastCommitPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "last_commit_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"lastCommitPosition")) :: + Data.ProtoLens.FieldDescriptor ProposalRequest + writerCheckpoint__field_descriptor + = Data.ProtoLens.FieldDescriptor + "writer_checkpoint" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"writerCheckpoint")) :: + Data.ProtoLens.FieldDescriptor ProposalRequest + chaserCheckpoint__field_descriptor + = Data.ProtoLens.FieldDescriptor + "chaser_checkpoint" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"chaserCheckpoint")) :: + Data.ProtoLens.FieldDescriptor ProposalRequest + nodePriority__field_descriptor + = Data.ProtoLens.FieldDescriptor + "node_priority" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"nodePriority")) :: + Data.ProtoLens.FieldDescriptor ProposalRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, serverId__field_descriptor), + (Data.ProtoLens.Tag 2, serverHttp__field_descriptor), + (Data.ProtoLens.Tag 3, leaderId__field_descriptor), + (Data.ProtoLens.Tag 4, leaderHttp__field_descriptor), + (Data.ProtoLens.Tag 5, view__field_descriptor), + (Data.ProtoLens.Tag 6, epochNumber__field_descriptor), + (Data.ProtoLens.Tag 7, epochPosition__field_descriptor), + (Data.ProtoLens.Tag 8, epochId__field_descriptor), + (Data.ProtoLens.Tag 9, epochLeaderInstanceId__field_descriptor), + (Data.ProtoLens.Tag 10, lastCommitPosition__field_descriptor), + (Data.ProtoLens.Tag 11, writerCheckpoint__field_descriptor), + (Data.ProtoLens.Tag 12, chaserCheckpoint__field_descriptor), + (Data.ProtoLens.Tag 13, nodePriority__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ProposalRequest'_unknownFields + (\ x__ y__ -> x__ {_ProposalRequest'_unknownFields = y__}) + defMessage + = ProposalRequest'_constructor + {_ProposalRequest'serverId = Prelude.Nothing, + _ProposalRequest'serverHttp = Prelude.Nothing, + _ProposalRequest'leaderId = Prelude.Nothing, + _ProposalRequest'leaderHttp = Prelude.Nothing, + _ProposalRequest'view = Data.ProtoLens.fieldDefault, + _ProposalRequest'epochNumber = Data.ProtoLens.fieldDefault, + _ProposalRequest'epochPosition = Data.ProtoLens.fieldDefault, + _ProposalRequest'epochId = Prelude.Nothing, + _ProposalRequest'epochLeaderInstanceId = Prelude.Nothing, + _ProposalRequest'lastCommitPosition = Data.ProtoLens.fieldDefault, + _ProposalRequest'writerCheckpoint = Data.ProtoLens.fieldDefault, + _ProposalRequest'chaserCheckpoint = Data.ProtoLens.fieldDefault, + _ProposalRequest'nodePriority = Data.ProtoLens.fieldDefault, + _ProposalRequest'_unknownFields = []} + parseMessage + = let + loop :: + ProposalRequest + -> Data.ProtoLens.Encoding.Bytes.Parser ProposalRequest + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "server_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"serverId") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "server_http" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"serverHttp") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "leader_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"leaderId") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "leader_http" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"leaderHttp") y x) + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "view" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"view") y x) + 48 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "epoch_number" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"epochNumber") y x) + 56 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "epoch_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"epochPosition") y x) + 66 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "epoch_id" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"epochId") y x) + 74 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "epoch_leader_instance_id" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"epochLeaderInstanceId") y x) + 80 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "last_commit_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"lastCommitPosition") y x) + 88 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "writer_checkpoint" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"writerCheckpoint") y x) + 96 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "chaser_checkpoint" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"chaserCheckpoint") y x) + 104 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "node_priority" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"nodePriority") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ProposalRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'serverId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'serverHttp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'leaderId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'leaderHttp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"view") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"epochNumber") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 48) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"epochPosition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 56) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'epochId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 66) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'epochLeaderInstanceId") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 74) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"lastCommitPosition") + _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 80) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"writerCheckpoint") + _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 88) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"chaserCheckpoint") + _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 96) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"nodePriority") + _x + in + if (Prelude.==) + _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 104) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields _x)))))))))))))) +instance Control.DeepSeq.NFData ProposalRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ProposalRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ProposalRequest'serverId x__) + (Control.DeepSeq.deepseq + (_ProposalRequest'serverHttp x__) + (Control.DeepSeq.deepseq + (_ProposalRequest'leaderId x__) + (Control.DeepSeq.deepseq + (_ProposalRequest'leaderHttp x__) + (Control.DeepSeq.deepseq + (_ProposalRequest'view x__) + (Control.DeepSeq.deepseq + (_ProposalRequest'epochNumber x__) + (Control.DeepSeq.deepseq + (_ProposalRequest'epochPosition x__) + (Control.DeepSeq.deepseq + (_ProposalRequest'epochId x__) + (Control.DeepSeq.deepseq + (_ProposalRequest'epochLeaderInstanceId x__) + (Control.DeepSeq.deepseq + (_ProposalRequest'lastCommitPosition x__) + (Control.DeepSeq.deepseq + (_ProposalRequest'writerCheckpoint x__) + (Control.DeepSeq.deepseq + (_ProposalRequest'chaserCheckpoint x__) + (Control.DeepSeq.deepseq + (_ProposalRequest'nodePriority x__) + ()))))))))))))) +{- | Fields : + + * 'Proto.Cluster_Fields.serverId' @:: Lens' ViewChangeProofRequest Proto.Shared.UUID@ + * 'Proto.Cluster_Fields.maybe'serverId' @:: Lens' ViewChangeProofRequest (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Cluster_Fields.serverHttp' @:: Lens' ViewChangeProofRequest EndPoint@ + * 'Proto.Cluster_Fields.maybe'serverHttp' @:: Lens' ViewChangeProofRequest (Prelude.Maybe EndPoint)@ + * 'Proto.Cluster_Fields.installedView' @:: Lens' ViewChangeProofRequest Data.Int.Int32@ -} +data ViewChangeProofRequest + = ViewChangeProofRequest'_constructor {_ViewChangeProofRequest'serverId :: !(Prelude.Maybe Proto.Shared.UUID), + _ViewChangeProofRequest'serverHttp :: !(Prelude.Maybe EndPoint), + _ViewChangeProofRequest'installedView :: !Data.Int.Int32, + _ViewChangeProofRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ViewChangeProofRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ViewChangeProofRequest "serverId" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ViewChangeProofRequest'serverId + (\ x__ y__ -> x__ {_ViewChangeProofRequest'serverId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ViewChangeProofRequest "maybe'serverId" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ViewChangeProofRequest'serverId + (\ x__ y__ -> x__ {_ViewChangeProofRequest'serverId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ViewChangeProofRequest "serverHttp" EndPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ViewChangeProofRequest'serverHttp + (\ x__ y__ -> x__ {_ViewChangeProofRequest'serverHttp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ViewChangeProofRequest "maybe'serverHttp" (Prelude.Maybe EndPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ViewChangeProofRequest'serverHttp + (\ x__ y__ -> x__ {_ViewChangeProofRequest'serverHttp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ViewChangeProofRequest "installedView" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ViewChangeProofRequest'installedView + (\ x__ y__ -> x__ {_ViewChangeProofRequest'installedView = y__})) + Prelude.id +instance Data.ProtoLens.Message ViewChangeProofRequest where + messageName _ + = Data.Text.pack "event_store.cluster.ViewChangeProofRequest" + packedMessageDescriptor _ + = "\n\ + \\SYNViewChangeProofRequest\DC2<\n\ + \\tserver_id\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\bserverId\DC2>\n\ + \\vserver_http\CAN\STX \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \serverHttp\DC2%\n\ + \\SOinstalled_view\CAN\ETX \SOH(\ENQR\rinstalledView" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + serverId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "server_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'serverId")) :: + Data.ProtoLens.FieldDescriptor ViewChangeProofRequest + serverHttp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "server_http" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EndPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'serverHttp")) :: + Data.ProtoLens.FieldDescriptor ViewChangeProofRequest + installedView__field_descriptor + = Data.ProtoLens.FieldDescriptor + "installed_view" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"installedView")) :: + Data.ProtoLens.FieldDescriptor ViewChangeProofRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, serverId__field_descriptor), + (Data.ProtoLens.Tag 2, serverHttp__field_descriptor), + (Data.ProtoLens.Tag 3, installedView__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ViewChangeProofRequest'_unknownFields + (\ x__ y__ -> x__ {_ViewChangeProofRequest'_unknownFields = y__}) + defMessage + = ViewChangeProofRequest'_constructor + {_ViewChangeProofRequest'serverId = Prelude.Nothing, + _ViewChangeProofRequest'serverHttp = Prelude.Nothing, + _ViewChangeProofRequest'installedView = Data.ProtoLens.fieldDefault, + _ViewChangeProofRequest'_unknownFields = []} + parseMessage + = let + loop :: + ViewChangeProofRequest + -> Data.ProtoLens.Encoding.Bytes.Parser ViewChangeProofRequest + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "server_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"serverId") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "server_http" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"serverHttp") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "installed_view" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"installedView") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ViewChangeProofRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'serverId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'serverHttp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"installedView") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData ViewChangeProofRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ViewChangeProofRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ViewChangeProofRequest'serverId x__) + (Control.DeepSeq.deepseq + (_ViewChangeProofRequest'serverHttp x__) + (Control.DeepSeq.deepseq + (_ViewChangeProofRequest'installedView x__) ()))) +{- | Fields : + + * 'Proto.Cluster_Fields.serverId' @:: Lens' ViewChangeRequest Proto.Shared.UUID@ + * 'Proto.Cluster_Fields.maybe'serverId' @:: Lens' ViewChangeRequest (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Cluster_Fields.serverHttp' @:: Lens' ViewChangeRequest EndPoint@ + * 'Proto.Cluster_Fields.maybe'serverHttp' @:: Lens' ViewChangeRequest (Prelude.Maybe EndPoint)@ + * 'Proto.Cluster_Fields.attemptedView' @:: Lens' ViewChangeRequest Data.Int.Int32@ -} +data ViewChangeRequest + = ViewChangeRequest'_constructor {_ViewChangeRequest'serverId :: !(Prelude.Maybe Proto.Shared.UUID), + _ViewChangeRequest'serverHttp :: !(Prelude.Maybe EndPoint), + _ViewChangeRequest'attemptedView :: !Data.Int.Int32, + _ViewChangeRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ViewChangeRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ViewChangeRequest "serverId" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ViewChangeRequest'serverId + (\ x__ y__ -> x__ {_ViewChangeRequest'serverId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ViewChangeRequest "maybe'serverId" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ViewChangeRequest'serverId + (\ x__ y__ -> x__ {_ViewChangeRequest'serverId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ViewChangeRequest "serverHttp" EndPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ViewChangeRequest'serverHttp + (\ x__ y__ -> x__ {_ViewChangeRequest'serverHttp = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ViewChangeRequest "maybe'serverHttp" (Prelude.Maybe EndPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ViewChangeRequest'serverHttp + (\ x__ y__ -> x__ {_ViewChangeRequest'serverHttp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ViewChangeRequest "attemptedView" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ViewChangeRequest'attemptedView + (\ x__ y__ -> x__ {_ViewChangeRequest'attemptedView = y__})) + Prelude.id +instance Data.ProtoLens.Message ViewChangeRequest where + messageName _ + = Data.Text.pack "event_store.cluster.ViewChangeRequest" + packedMessageDescriptor _ + = "\n\ + \\DC1ViewChangeRequest\DC2<\n\ + \\tserver_id\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\bserverId\DC2>\n\ + \\vserver_http\CAN\STX \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \serverHttp\DC2%\n\ + \\SOattempted_view\CAN\ETX \SOH(\ENQR\rattemptedView" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + serverId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "server_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'serverId")) :: + Data.ProtoLens.FieldDescriptor ViewChangeRequest + serverHttp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "server_http" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EndPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'serverHttp")) :: + Data.ProtoLens.FieldDescriptor ViewChangeRequest + attemptedView__field_descriptor + = Data.ProtoLens.FieldDescriptor + "attempted_view" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"attemptedView")) :: + Data.ProtoLens.FieldDescriptor ViewChangeRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, serverId__field_descriptor), + (Data.ProtoLens.Tag 2, serverHttp__field_descriptor), + (Data.ProtoLens.Tag 3, attemptedView__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ViewChangeRequest'_unknownFields + (\ x__ y__ -> x__ {_ViewChangeRequest'_unknownFields = y__}) + defMessage + = ViewChangeRequest'_constructor + {_ViewChangeRequest'serverId = Prelude.Nothing, + _ViewChangeRequest'serverHttp = Prelude.Nothing, + _ViewChangeRequest'attemptedView = Data.ProtoLens.fieldDefault, + _ViewChangeRequest'_unknownFields = []} + parseMessage + = let + loop :: + ViewChangeRequest + -> Data.ProtoLens.Encoding.Bytes.Parser ViewChangeRequest + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "server_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"serverId") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "server_http" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"serverHttp") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "attempted_view" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"attemptedView") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ViewChangeRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'serverId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'serverHttp") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"attemptedView") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData ViewChangeRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ViewChangeRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ViewChangeRequest'serverId x__) + (Control.DeepSeq.deepseq + (_ViewChangeRequest'serverHttp x__) + (Control.DeepSeq.deepseq + (_ViewChangeRequest'attemptedView x__) ()))) +data Gossip = Gossip {} +instance Data.ProtoLens.Service.Types.Service Gossip where + type ServiceName Gossip = "Gossip" + type ServicePackage Gossip = "event_store.cluster" + type ServiceMethods Gossip = '["read", "update"] +instance Data.ProtoLens.Service.Types.HasMethodImpl Gossip "update" where + type MethodName Gossip "update" = "Update" + type MethodInput Gossip "update" = GossipRequest + type MethodOutput Gossip "update" = ClusterInfo + type MethodStreamingType Gossip "update" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Gossip "read" where + type MethodName Gossip "read" = "Read" + type MethodInput Gossip "read" = Proto.Shared.Empty + type MethodOutput Gossip "read" = ClusterInfo + type MethodStreamingType Gossip "read" = 'Data.ProtoLens.Service.Types.NonStreaming +data Elections = Elections {} +instance Data.ProtoLens.Service.Types.Service Elections where + type ServiceName Elections = "Elections" + type ServicePackage Elections = "event_store.cluster" + type ServiceMethods Elections = '["accept", + "leaderIsResigning", + "leaderIsResigningOk", + "prepare", + "prepareOk", + "proposal", + "viewChange", + "viewChangeProof"] +instance Data.ProtoLens.Service.Types.HasMethodImpl Elections "viewChange" where + type MethodName Elections "viewChange" = "ViewChange" + type MethodInput Elections "viewChange" = ViewChangeRequest + type MethodOutput Elections "viewChange" = Proto.Shared.Empty + type MethodStreamingType Elections "viewChange" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Elections "viewChangeProof" where + type MethodName Elections "viewChangeProof" = "ViewChangeProof" + type MethodInput Elections "viewChangeProof" = ViewChangeProofRequest + type MethodOutput Elections "viewChangeProof" = Proto.Shared.Empty + type MethodStreamingType Elections "viewChangeProof" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Elections "prepare" where + type MethodName Elections "prepare" = "Prepare" + type MethodInput Elections "prepare" = PrepareRequest + type MethodOutput Elections "prepare" = Proto.Shared.Empty + type MethodStreamingType Elections "prepare" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Elections "prepareOk" where + type MethodName Elections "prepareOk" = "PrepareOk" + type MethodInput Elections "prepareOk" = PrepareOkRequest + type MethodOutput Elections "prepareOk" = Proto.Shared.Empty + type MethodStreamingType Elections "prepareOk" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Elections "proposal" where + type MethodName Elections "proposal" = "Proposal" + type MethodInput Elections "proposal" = ProposalRequest + type MethodOutput Elections "proposal" = Proto.Shared.Empty + type MethodStreamingType Elections "proposal" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Elections "accept" where + type MethodName Elections "accept" = "Accept" + type MethodInput Elections "accept" = AcceptRequest + type MethodOutput Elections "accept" = Proto.Shared.Empty + type MethodStreamingType Elections "accept" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Elections "leaderIsResigning" where + type MethodName Elections "leaderIsResigning" = "LeaderIsResigning" + type MethodInput Elections "leaderIsResigning" = LeaderIsResigningRequest + type MethodOutput Elections "leaderIsResigning" = Proto.Shared.Empty + type MethodStreamingType Elections "leaderIsResigning" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Elections "leaderIsResigningOk" where + type MethodName Elections "leaderIsResigningOk" = "LeaderIsResigningOk" + type MethodInput Elections "leaderIsResigningOk" = LeaderIsResigningOkRequest + type MethodOutput Elections "leaderIsResigningOk" = Proto.Shared.Empty + type MethodStreamingType Elections "leaderIsResigningOk" = 'Data.ProtoLens.Service.Types.NonStreaming +packedFileDescriptor :: Data.ByteString.ByteString +packedFileDescriptor + = "\n\ + \\rcluster.proto\DC2\DC3event_store.cluster\SUB\fshared.proto\"|\n\ + \\rGossipRequest\DC24\n\ + \\EOTinfo\CAN\SOH \SOH(\v2 .event_store.cluster.ClusterInfoR\EOTinfo\DC25\n\ + \\ACKserver\CAN\STX \SOH(\v2\GS.event_store.cluster.EndPointR\ACKserver\"\184\SOH\n\ + \\DC1ViewChangeRequest\DC2<\n\ + \\tserver_id\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\bserverId\DC2>\n\ + \\vserver_http\CAN\STX \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \serverHttp\DC2%\n\ + \\SOattempted_view\CAN\ETX \SOH(\ENQR\rattemptedView\"\189\SOH\n\ + \\SYNViewChangeProofRequest\DC2<\n\ + \\tserver_id\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\bserverId\DC2>\n\ + \\vserver_http\CAN\STX \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \serverHttp\DC2%\n\ + \\SOinstalled_view\CAN\ETX \SOH(\ENQR\rinstalledView\"\162\SOH\n\ + \\SOPrepareRequest\DC2<\n\ + \\tserver_id\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\bserverId\DC2>\n\ + \\vserver_http\CAN\STX \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \serverHttp\DC2\DC2\n\ + \\EOTview\CAN\ETX \SOH(\ENQR\EOTview\"\250\EOT\n\ + \\DLEPrepareOkRequest\DC2\DC2\n\ + \\EOTview\CAN\SOH \SOH(\ENQR\EOTview\DC2<\n\ + \\tserver_id\CAN\STX \SOH(\v2\US.event_store.client.shared.UUIDR\bserverId\DC2>\n\ + \\vserver_http\CAN\ETX \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \serverHttp\DC2!\n\ + \\fepoch_number\CAN\EOT \SOH(\ENQR\vepochNumber\DC2%\n\ + \\SOepoch_position\CAN\ENQ \SOH(\ETXR\repochPosition\DC2:\n\ + \\bepoch_id\CAN\ACK \SOH(\v2\US.event_store.client.shared.UUIDR\aepochId\DC2X\n\ + \\CANepoch_leader_instance_id\CAN\a \SOH(\v2\US.event_store.client.shared.UUIDR\NAKepochLeaderInstanceId\DC20\n\ + \\DC4last_commit_position\CAN\b \SOH(\ETXR\DC2lastCommitPosition\DC2+\n\ + \\DC1writer_checkpoint\CAN\t \SOH(\ETXR\DLEwriterCheckpoint\DC2+\n\ + \\DC1chaser_checkpoint\CAN\n\ + \ \SOH(\ETXR\DLEchaserCheckpoint\DC2#\n\ + \\rnode_priority\CAN\v \SOH(\ENQR\fnodePriority\DC2C\n\ + \\fcluster_info\CAN\f \SOH(\v2 .event_store.cluster.ClusterInfoR\vclusterInfo\"\178\ENQ\n\ + \\SIProposalRequest\DC2<\n\ + \\tserver_id\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\bserverId\DC2>\n\ + \\vserver_http\CAN\STX \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \serverHttp\DC2<\n\ + \\tleader_id\CAN\ETX \SOH(\v2\US.event_store.client.shared.UUIDR\bleaderId\DC2>\n\ + \\vleader_http\CAN\EOT \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \leaderHttp\DC2\DC2\n\ + \\EOTview\CAN\ENQ \SOH(\ENQR\EOTview\DC2!\n\ + \\fepoch_number\CAN\ACK \SOH(\ENQR\vepochNumber\DC2%\n\ + \\SOepoch_position\CAN\a \SOH(\ETXR\repochPosition\DC2:\n\ + \\bepoch_id\CAN\b \SOH(\v2\US.event_store.client.shared.UUIDR\aepochId\DC2X\n\ + \\CANepoch_leader_instance_id\CAN\t \SOH(\v2\US.event_store.client.shared.UUIDR\NAKepochLeaderInstanceId\DC20\n\ + \\DC4last_commit_position\CAN\n\ + \ \SOH(\ETXR\DC2lastCommitPosition\DC2+\n\ + \\DC1writer_checkpoint\CAN\v \SOH(\ETXR\DLEwriterCheckpoint\DC2+\n\ + \\DC1chaser_checkpoint\CAN\f \SOH(\ETXR\DLEchaserCheckpoint\DC2#\n\ + \\rnode_priority\CAN\r \SOH(\ENQR\fnodePriority\"\159\STX\n\ + \\rAcceptRequest\DC2<\n\ + \\tserver_id\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\bserverId\DC2>\n\ + \\vserver_http\CAN\STX \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \serverHttp\DC2<\n\ + \\tleader_id\CAN\ETX \SOH(\v2\US.event_store.client.shared.UUIDR\bleaderId\DC2>\n\ + \\vleader_http\CAN\EOT \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \leaderHttp\DC2\DC2\n\ + \\EOTview\CAN\ENQ \SOH(\ENQR\EOTview\"\152\SOH\n\ + \\CANLeaderIsResigningRequest\DC2<\n\ + \\tleader_id\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\bleaderId\DC2>\n\ + \\vleader_http\CAN\STX \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \leaderHttp\"\152\STX\n\ + \\SUBLeaderIsResigningOkRequest\DC2<\n\ + \\tleader_id\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\bleaderId\DC2>\n\ + \\vleader_http\CAN\STX \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \leaderHttp\DC2<\n\ + \\tserver_id\CAN\ETX \SOH(\v2\US.event_store.client.shared.UUIDR\bserverId\DC2>\n\ + \\vserver_http\CAN\EOT \SOH(\v2\GS.event_store.cluster.EndPointR\n\ + \serverHttp\"H\n\ + \\vClusterInfo\DC29\n\ + \\amembers\CAN\SOH \ETX(\v2\US.event_store.cluster.MemberInfoR\amembers\"8\n\ + \\bEndPoint\DC2\CAN\n\ + \\aaddress\CAN\SOH \SOH(\tR\aaddress\DC2\DC2\n\ + \\EOTport\CAN\STX \SOH(\rR\EOTport\"\254\b\n\ + \\n\ + \MemberInfo\DC2@\n\ + \\vinstance_id\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\n\ + \instanceId\DC2\GS\n\ + \\n\ + \time_stamp\CAN\STX \SOH(\ETXR\ttimeStamp\DC2@\n\ + \\ENQstate\CAN\ETX \SOH(\SO2*.event_store.cluster.MemberInfo.VNodeStateR\ENQstate\DC2\EM\n\ + \\bis_alive\CAN\EOT \SOH(\bR\aisAlive\DC2C\n\ + \\SOhttp_end_point\CAN\ENQ \SOH(\v2\GS.event_store.cluster.EndPointR\fhttpEndPoint\DC2@\n\ + \\finternal_tcp\CAN\ACK \SOH(\v2\GS.event_store.cluster.EndPointR\vinternalTcp\DC2@\n\ + \\fexternal_tcp\CAN\a \SOH(\v2\GS.event_store.cluster.EndPointR\vexternalTcp\DC21\n\ + \\NAKinternal_tcp_uses_tls\CAN\b \SOH(\bR\DC2internalTcpUsesTls\DC21\n\ + \\NAKexternal_tcp_uses_tls\CAN\t \SOH(\bR\DC2externalTcpUsesTls\DC20\n\ + \\DC4last_commit_position\CAN\n\ + \ \SOH(\ETXR\DC2lastCommitPosition\DC2+\n\ + \\DC1writer_checkpoint\CAN\v \SOH(\ETXR\DLEwriterCheckpoint\DC2+\n\ + \\DC1chaser_checkpoint\CAN\f \SOH(\ETXR\DLEchaserCheckpoint\DC2%\n\ + \\SOepoch_position\CAN\r \SOH(\ETXR\repochPosition\DC2!\n\ + \\fepoch_number\CAN\SO \SOH(\ENQR\vepochNumber\DC2:\n\ + \\bepoch_id\CAN\SI \SOH(\v2\US.event_store.client.shared.UUIDR\aepochId\DC2#\n\ + \\rnode_priority\CAN\DLE \SOH(\ENQR\fnodePriority\DC2/\n\ + \\DC4is_read_only_replica\CAN\DC1 \SOH(\bR\DC1isReadOnlyReplica\"\154\STX\n\ + \\n\ + \VNodeState\DC2\DLE\n\ + \\fInitializing\DLE\NUL\DC2\DC2\n\ + \\SODiscoverLeader\DLE\SOH\DC2\v\n\ + \\aUnknown\DLE\STX\DC2\SO\n\ + \\n\ + \PreReplica\DLE\ETX\DC2\SO\n\ + \\n\ + \CatchingUp\DLE\EOT\DC2\t\n\ + \\ENQClone\DLE\ENQ\DC2\f\n\ + \\bFollower\DLE\ACK\DC2\r\n\ + \\tPreLeader\DLE\a\DC2\n\ + \\n\ + \\ACKLeader\DLE\b\DC2\v\n\ + \\aManager\DLE\t\DC2\DLE\n\ + \\fShuttingDown\DLE\n\ + \\DC2\f\n\ + \\bShutdown\DLE\v\DC2\SYN\n\ + \\DC2ReadOnlyLeaderless\DLE\f\DC2\SYN\n\ + \\DC2PreReadOnlyReplica\DLE\r\DC2\DC3\n\ + \\SIReadOnlyReplica\DLE\SO\DC2\DC3\n\ + \\SIResigningLeader\DLE\SI2\164\SOH\n\ + \\ACKGossip\DC2N\n\ + \\ACKUpdate\DC2\".event_store.cluster.GossipRequest\SUB .event_store.cluster.ClusterInfo\DC2J\n\ + \\EOTRead\DC2 .event_store.client.shared.Empty\SUB .event_store.cluster.ClusterInfo2\225\ENQ\n\ + \\tElections\DC2V\n\ + \\n\ + \ViewChange\DC2&.event_store.cluster.ViewChangeRequest\SUB .event_store.client.shared.Empty\DC2`\n\ + \\SIViewChangeProof\DC2+.event_store.cluster.ViewChangeProofRequest\SUB .event_store.client.shared.Empty\DC2P\n\ + \\aPrepare\DC2#.event_store.cluster.PrepareRequest\SUB .event_store.client.shared.Empty\DC2T\n\ + \\tPrepareOk\DC2%.event_store.cluster.PrepareOkRequest\SUB .event_store.client.shared.Empty\DC2R\n\ + \\bProposal\DC2$.event_store.cluster.ProposalRequest\SUB .event_store.client.shared.Empty\DC2N\n\ + \\ACKAccept\DC2\".event_store.cluster.AcceptRequest\SUB .event_store.client.shared.Empty\DC2d\n\ + \\DC1LeaderIsResigning\DC2-.event_store.cluster.LeaderIsResigningRequest\SUB .event_store.client.shared.Empty\DC2h\n\ + \\DC3LeaderIsResigningOk\DC2/.event_store.cluster.LeaderIsResigningOkRequest\SUB .event_store.client.shared.EmptyB'\n\ + \%com.eventstore.dbclient.proto.clusterJ\235*\n\ + \\a\DC2\ENQ\NUL\NUL\144\SOH\SOH\n\ + \\b\n\ + \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\ + \\b\n\ + \\SOH\STX\DC2\ETX\SOH\NUL\FS\n\ + \\b\n\ + \\SOH\b\DC2\ETX\STX\NUL>\n\ + \\t\n\ + \\STX\b\SOH\DC2\ETX\STX\NUL>\n\ + \\t\n\ + \\STX\ETX\NUL\DC2\ETX\EOT\NUL\SYN\n\ + \\n\ + \\n\ + \\STX\ACK\NUL\DC2\EOT\ACK\NUL\t\SOH\n\ + \\n\ + \\n\ + \\ETX\ACK\NUL\SOH\DC2\ETX\ACK\b\SO\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\NUL\DC2\ETX\a\b9\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX\a\f\DC2\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX\a\DC4!\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX\a,7\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\SOH\DC2\ETX\b\bI\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\SOH\DC2\ETX\b\f\DLE\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\STX\DC2\ETX\b\DC21\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETX\b]\n\ + \\v\n\ + \\EOT\ACK\SOH\STX\STX\DC2\ETX\SO\bO\n\ + \\f\n\ + \\ENQ\ACK\SOH\STX\STX\SOH\DC2\ETX\SO\f\DC3\n\ + \\f\n\ + \\ENQ\ACK\SOH\STX\STX\STX\DC2\ETX\SO\NAK#\n\ + \\f\n\ + \\ENQ\ACK\SOH\STX\STX\ETX\DC2\ETX\SO.M\n\ + \\v\n\ + \\EOT\ACK\SOH\STX\ETX\DC2\ETX\SI\bS\n\ + \\f\n\ + \\ENQ\ACK\SOH\STX\ETX\SOH\DC2\ETX\SI\f\NAK\n\ + \\f\n\ + \\ENQ\ACK\SOH\STX\ETX\STX\DC2\ETX\SI\ETB'\n\ + \\f\n\ + \\ENQ\ACK\SOH\STX\ETX\ETX\DC2\ETX\SI2Q\n\ + \\v\n\ + \\EOT\ACK\SOH\STX\EOT\DC2\ETX\DLE\bQ\n\ + \\f\n\ + \\ENQ\ACK\SOH\STX\EOT\SOH\DC2\ETX\DLE\f\DC4\n\ + \\f\n\ + \\ENQ\ACK\SOH\STX\EOT\STX\DC2\ETX\DLE\SYN%\n\ + \\f\n\ + \\ENQ\ACK\SOH\STX\EOT\ETX\DC2\ETX\DLE0O\n\ + \\v\n\ + \\EOT\ACK\SOH\STX\ENQ\DC2\ETX\DC1\bM\n\ + \\f\n\ + \\ENQ\ACK\SOH\STX\ENQ\SOH\DC2\ETX\DC1\f\DC2\n\ + \\f\n\ + \\ENQ\ACK\SOH\STX\ENQ\STX\DC2\ETX\DC1\DC4!\n\ + \\f\n\ + \\ENQ\ACK\SOH\STX\ENQ\ETX\DC2\ETX\DC1,K\n\ + \\v\n\ + \\EOT\ACK\SOH\STX\ACK\DC2\ETX\DC3\bc\n\ + \\f\n\ + \\ENQ\ACK\SOH\STX\ACK\SOH\DC2\ETX\DC3\f\GS\n\ + \\f\n\ + \\ENQ\ACK\SOH\STX\ACK\STX\DC2\ETX\DC3\US7\n\ + \\f\n\ + \\ENQ\ACK\SOH\STX\ACK\ETX\DC2\ETX\DC3Ba\n\ + \\v\n\ + \\EOT\ACK\SOH\STX\a\DC2\ETX\DC4\bg\n\ + \\f\n\ + \\ENQ\ACK\SOH\STX\a\SOH\DC2\ETX\DC4\f\US\n\ + \\f\n\ + \\ENQ\ACK\SOH\STX\a\STX\DC2\ETX\DC4!;\n\ + \\f\n\ + \\ENQ\ACK\SOH\STX\a\ETX\DC2\ETX\DC4Fe\n\ + \\n\ + \\n\ + \\STX\EOT\NUL\DC2\EOT\ETB\NUL\SUB\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\NUL\SOH\DC2\ETX\ETB\b\NAK\n\ + \\v\n\ + \\EOT\EOT\NUL\STX\NUL\DC2\ETX\CAN\b\GS\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\CAN\b\DC3\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\CAN\DC4\CAN\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\CAN\ESC\FS\n\ + \\v\n\ + \\EOT\EOT\NUL\STX\SOH\DC2\ETX\EM\b\FS\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX\EM\b\DLE\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\EM\DC1\ETB\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\EM\SUB\ESC\n\ + \\n\ + \\n\ + \\STX\EOT\SOH\DC2\EOT\FS\NUL \SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\SOH\SOH\DC2\ETX\FS\b\EM\n\ + \\v\n\ + \\EOT\EOT\SOH\STX\NUL\DC2\ETX\GS\b5\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX\GS\b&\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\GS'0\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\GS34\n\ + \\v\n\ + \\EOT\EOT\SOH\STX\SOH\DC2\ETX\RS\b!\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETX\RS\b\DLE\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\RS\DC1\FS\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\RS\US \n\ + \\v\n\ + \\EOT\EOT\SOH\STX\STX\DC2\ETX\US\b!\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\STX\ENQ\DC2\ETX\US\b\r\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX\US\SO\FS\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX\US\US \n\ + \\n\ + \\n\ + \\STX\EOT\STX\DC2\EOT\"\NUL&\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\STX\SOH\DC2\ETX\"\b\RS\n\ + \\v\n\ + \\EOT\EOT\STX\STX\NUL\DC2\ETX#\b5\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX#\b&\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX#'0\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX#34\n\ + \\v\n\ + \\EOT\EOT\STX\STX\SOH\DC2\ETX$\b!\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETX$\b\DLE\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX$\DC1\FS\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX$\US \n\ + \\v\n\ + \\EOT\EOT\STX\STX\STX\DC2\ETX%\b!\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\STX\ENQ\DC2\ETX%\b\r\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\STX\SOH\DC2\ETX%\SO\FS\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\STX\ETX\DC2\ETX%\US \n\ + \\n\ + \\n\ + \\STX\EOT\ETX\DC2\EOT(\NUL,\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\ETX\SOH\DC2\ETX(\b\SYN\n\ + \\v\n\ + \\EOT\EOT\ETX\STX\NUL\DC2\ETX)\b5\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX)\b&\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX)'0\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX)34\n\ + \\v\n\ + \\EOT\EOT\ETX\STX\SOH\DC2\ETX*\b!\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\SOH\ACK\DC2\ETX*\b\DLE\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX*\DC1\FS\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX*\US \n\ + \\v\n\ + \\EOT\EOT\ETX\STX\STX\DC2\ETX+\b\ETB\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\STX\ENQ\DC2\ETX+\b\r\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETX+\SO\DC2\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETX+\NAK\SYN\n\ + \\n\ + \\n\ + \\STX\EOT\EOT\DC2\EOT.\NUL;\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\EOT\SOH\DC2\ETX.\b\CAN\n\ + \\v\n\ + \\EOT\EOT\EOT\STX\NUL\DC2\ETX/\b\ETB\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETX/\b\r\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX/\SO\DC2\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX/\NAK\SYN\n\ + \\v\n\ + \\EOT\EOT\EOT\STX\SOH\DC2\ETX0\b5\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\SOH\ACK\DC2\ETX0\b&\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETX0'0\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETX034\n\ + \\v\n\ + \\EOT\EOT\EOT\STX\STX\DC2\ETX1\b!\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\STX\ACK\DC2\ETX1\b\DLE\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\STX\SOH\DC2\ETX1\DC1\FS\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\STX\ETX\DC2\ETX1\US \n\ + \\v\n\ + \\EOT\EOT\EOT\STX\ETX\DC2\ETX2\b\US\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\ETX\ENQ\DC2\ETX2\b\r\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\ETX\SOH\DC2\ETX2\SO\SUB\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\ETX\ETX\DC2\ETX2\GS\RS\n\ + \\v\n\ + \\EOT\EOT\EOT\STX\EOT\DC2\ETX3\b!\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\EOT\ENQ\DC2\ETX3\b\r\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\EOT\SOH\DC2\ETX3\SO\FS\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\EOT\ETX\DC2\ETX3\US \n\ + \\v\n\ + \\EOT\EOT\EOT\STX\ENQ\DC2\ETX4\b4\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\ENQ\ACK\DC2\ETX4\b&\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\ENQ\SOH\DC2\ETX4'/\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\ENQ\ETX\DC2\ETX423\n\ + \\v\n\ + \\EOT\EOT\EOT\STX\ACK\DC2\ETX5\bD\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\ACK\ACK\DC2\ETX5\b&\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\ACK\SOH\DC2\ETX5'?\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\ACK\ETX\DC2\ETX5BC\n\ + \\v\n\ + \\EOT\EOT\EOT\STX\a\DC2\ETX6\b'\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\a\ENQ\DC2\ETX6\b\r\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\a\SOH\DC2\ETX6\SO\"\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\a\ETX\DC2\ETX6%&\n\ + \\v\n\ + \\EOT\EOT\EOT\STX\b\DC2\ETX7\b$\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\b\ENQ\DC2\ETX7\b\r\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\b\SOH\DC2\ETX7\SO\US\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\b\ETX\DC2\ETX7\"#\n\ + \\v\n\ + \\EOT\EOT\EOT\STX\t\DC2\ETX8\b%\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\t\ENQ\DC2\ETX8\b\r\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\t\SOH\DC2\ETX8\SO\US\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\t\ETX\DC2\ETX8\"$\n\ + \\v\n\ + \\EOT\EOT\EOT\STX\n\ + \\DC2\ETX9\b!\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\n\ + \\ENQ\DC2\ETX9\b\r\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\n\ + \\SOH\DC2\ETX9\SO\ESC\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\n\ + \\ETX\DC2\ETX9\RS \n\ + \\v\n\ + \\EOT\EOT\EOT\STX\v\DC2\ETX:\b&\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\v\ACK\DC2\ETX:\b\DC3\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\v\SOH\DC2\ETX:\DC4 \n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\v\ETX\DC2\ETX:#%\n\ + \\n\ + \\n\ + \\STX\EOT\ENQ\DC2\EOT=\NULK\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\ENQ\SOH\DC2\ETX=\b\ETB\n\ + \\v\n\ + \\EOT\EOT\ENQ\STX\NUL\DC2\ETX>\b5\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\ETX>\b&\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX>'0\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX>34\n\ + \\v\n\ + \\EOT\EOT\ENQ\STX\SOH\DC2\ETX?\b!\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\ETX?\b\DLE\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETX?\DC1\FS\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETX?\US \n\ + \\v\n\ + \\EOT\EOT\ENQ\STX\STX\DC2\ETX@\b5\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\STX\ACK\DC2\ETX@\b&\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\STX\SOH\DC2\ETX@'0\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\STX\ETX\DC2\ETX@34\n\ + \\v\n\ + \\EOT\EOT\ENQ\STX\ETX\DC2\ETXA\b!\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\ETX\ACK\DC2\ETXA\b\DLE\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\ETX\SOH\DC2\ETXA\DC1\FS\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\ETX\ETX\DC2\ETXA\US \n\ + \\v\n\ + \\EOT\EOT\ENQ\STX\EOT\DC2\ETXB\b\ETB\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\EOT\ENQ\DC2\ETXB\b\r\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\EOT\SOH\DC2\ETXB\SO\DC2\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\EOT\ETX\DC2\ETXB\NAK\SYN\n\ + \\v\n\ + \\EOT\EOT\ENQ\STX\ENQ\DC2\ETXC\b\US\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\ENQ\ENQ\DC2\ETXC\b\r\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\ENQ\SOH\DC2\ETXC\SO\SUB\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\ENQ\ETX\DC2\ETXC\GS\RS\n\ + \\v\n\ + \\EOT\EOT\ENQ\STX\ACK\DC2\ETXD\b!\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\ACK\ENQ\DC2\ETXD\b\r\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\ACK\SOH\DC2\ETXD\SO\FS\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\ACK\ETX\DC2\ETXD\US \n\ + \\v\n\ + \\EOT\EOT\ENQ\STX\a\DC2\ETXE\b4\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\a\ACK\DC2\ETXE\b&\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\a\SOH\DC2\ETXE'/\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\a\ETX\DC2\ETXE23\n\ + \\v\n\ + \\EOT\EOT\ENQ\STX\b\DC2\ETXF\bD\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\b\ACK\DC2\ETXF\b&\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\b\SOH\DC2\ETXF'?\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\b\ETX\DC2\ETXFBC\n\ + \\v\n\ + \\EOT\EOT\ENQ\STX\t\DC2\ETXG\b(\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\t\ENQ\DC2\ETXG\b\r\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\t\SOH\DC2\ETXG\SO\"\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\t\ETX\DC2\ETXG%'\n\ + \\v\n\ + \\EOT\EOT\ENQ\STX\n\ + \\DC2\ETXH\b%\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\n\ + \\ENQ\DC2\ETXH\b\r\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\n\ + \\SOH\DC2\ETXH\SO\US\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\n\ + \\ETX\DC2\ETXH\"$\n\ + \\v\n\ + \\EOT\EOT\ENQ\STX\v\DC2\ETXI\b%\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\v\ENQ\DC2\ETXI\b\r\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\v\SOH\DC2\ETXI\SO\US\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\v\ETX\DC2\ETXI\"$\n\ + \\v\n\ + \\EOT\EOT\ENQ\STX\f\DC2\ETXJ\b!\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\f\ENQ\DC2\ETXJ\b\r\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\f\SOH\DC2\ETXJ\SO\ESC\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\f\ETX\DC2\ETXJ\RS \n\ + \\n\ + \\n\ + \\STX\EOT\ACK\DC2\EOTM\NULS\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\ACK\SOH\DC2\ETXM\b\NAK\n\ + \\v\n\ + \\EOT\EOT\ACK\STX\NUL\DC2\ETXN\b5\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\ACK\DC2\ETXN\b&\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETXN'0\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETXN34\n\ + \\v\n\ + \\EOT\EOT\ACK\STX\SOH\DC2\ETXO\b!\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\ACK\DC2\ETXO\b\DLE\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETXO\DC1\FS\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETXO\US \n\ + \\v\n\ + \\EOT\EOT\ACK\STX\STX\DC2\ETXP\b5\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\STX\ACK\DC2\ETXP\b&\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETXP'0\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETXP34\n\ + \\v\n\ + \\EOT\EOT\ACK\STX\ETX\DC2\ETXQ\b!\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\ETX\ACK\DC2\ETXQ\b\DLE\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\ETX\SOH\DC2\ETXQ\DC1\FS\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\ETX\ETX\DC2\ETXQ\US \n\ + \\v\n\ + \\EOT\EOT\ACK\STX\EOT\DC2\ETXR\b\ETB\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\EOT\ENQ\DC2\ETXR\b\r\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\EOT\SOH\DC2\ETXR\SO\DC2\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\EOT\ETX\DC2\ETXR\NAK\SYN\n\ + \\n\ + \\n\ + \\STX\EOT\a\DC2\EOTU\NULX\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\a\SOH\DC2\ETXU\b \n\ + \\v\n\ + \\EOT\EOT\a\STX\NUL\DC2\ETXV\b5\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\ACK\DC2\ETXV\b&\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETXV'0\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXV34\n\ + \\v\n\ + \\EOT\EOT\a\STX\SOH\DC2\ETXW\b!\n\ + \\f\n\ + \\ENQ\EOT\a\STX\SOH\ACK\DC2\ETXW\b\DLE\n\ + \\f\n\ + \\ENQ\EOT\a\STX\SOH\SOH\DC2\ETXW\DC1\FS\n\ + \\f\n\ + \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETXW\US \n\ + \\n\ + \\n\ + \\STX\EOT\b\DC2\EOTZ\NUL_\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\b\SOH\DC2\ETXZ\b\"\n\ + \\v\n\ + \\EOT\EOT\b\STX\NUL\DC2\ETX[\b5\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\ACK\DC2\ETX[\b&\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETX['0\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETX[34\n\ + \\v\n\ + \\EOT\EOT\b\STX\SOH\DC2\ETX\\\b!\n\ + \\f\n\ + \\ENQ\EOT\b\STX\SOH\ACK\DC2\ETX\\\b\DLE\n\ + \\f\n\ + \\ENQ\EOT\b\STX\SOH\SOH\DC2\ETX\\\DC1\FS\n\ + \\f\n\ + \\ENQ\EOT\b\STX\SOH\ETX\DC2\ETX\\\US \n\ + \\v\n\ + \\EOT\EOT\b\STX\STX\DC2\ETX]\b5\n\ + \\f\n\ + \\ENQ\EOT\b\STX\STX\ACK\DC2\ETX]\b&\n\ + \\f\n\ + \\ENQ\EOT\b\STX\STX\SOH\DC2\ETX]'0\n\ + \\f\n\ + \\ENQ\EOT\b\STX\STX\ETX\DC2\ETX]34\n\ + \\v\n\ + \\EOT\EOT\b\STX\ETX\DC2\ETX^\b!\n\ + \\f\n\ + \\ENQ\EOT\b\STX\ETX\ACK\DC2\ETX^\b\DLE\n\ + \\f\n\ + \\ENQ\EOT\b\STX\ETX\SOH\DC2\ETX^\DC1\FS\n\ + \\f\n\ + \\ENQ\EOT\b\STX\ETX\ETX\DC2\ETX^\US \n\ + \\n\ + \\n\ + \\STX\EOT\t\DC2\EOTa\NULc\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\t\SOH\DC2\ETXa\b\DC3\n\ + \\v\n\ + \\EOT\EOT\t\STX\NUL\DC2\ETXb\b(\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\EOT\DC2\ETXb\b\DLE\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\ACK\DC2\ETXb\DC1\ESC\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXb\FS#\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXb&'\n\ + \\n\ + \\n\ + \\STX\EOT\n\ + \\DC2\EOTe\NULh\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\n\ + \\SOH\DC2\ETXe\b\DLE\n\ + \\v\n\ + \\EOT\EOT\n\ + \\STX\NUL\DC2\ETXf\b\ESC\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\ENQ\DC2\ETXf\b\SO\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\SOH\DC2\ETXf\SI\SYN\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\ETX\DC2\ETXf\EM\SUB\n\ + \\v\n\ + \\EOT\EOT\n\ + \\STX\SOH\DC2\ETXg\b\CAN\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\SOH\ENQ\DC2\ETXg\b\SO\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\SOH\SOH\DC2\ETXg\SI\DC3\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\SOH\ETX\DC2\ETXg\SYN\ETB\n\ + \\v\n\ + \\STX\EOT\v\DC2\ENQj\NUL\144\SOH\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\v\SOH\DC2\ETXj\b\DC2\n\ + \\f\n\ + \\EOT\EOT\v\EOT\NUL\DC2\EOTk\b|\t\n\ + \\f\n\ + \\ENQ\EOT\v\EOT\NUL\SOH\DC2\ETXk\r\ETB\n\ + \\r\n\ + \\ACK\EOT\v\EOT\NUL\STX\NUL\DC2\ETXl\DLE!\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\NUL\SOH\DC2\ETXl\DLE\FS\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\NUL\STX\DC2\ETXl\US \n\ + \\r\n\ + \\ACK\EOT\v\EOT\NUL\STX\SOH\DC2\ETXm\DLE#\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\SOH\SOH\DC2\ETXm\DLE\RS\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\SOH\STX\DC2\ETXm!\"\n\ + \\r\n\ + \\ACK\EOT\v\EOT\NUL\STX\STX\DC2\ETXn\DLE\FS\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\STX\SOH\DC2\ETXn\DLE\ETB\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\STX\STX\DC2\ETXn\SUB\ESC\n\ + \\r\n\ + \\ACK\EOT\v\EOT\NUL\STX\ETX\DC2\ETXo\DLE\US\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\ETX\SOH\DC2\ETXo\DLE\SUB\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\ETX\STX\DC2\ETXo\GS\RS\n\ + \\r\n\ + \\ACK\EOT\v\EOT\NUL\STX\EOT\DC2\ETXp\DLE\US\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\EOT\SOH\DC2\ETXp\DLE\SUB\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\EOT\STX\DC2\ETXp\GS\RS\n\ + \\r\n\ + \\ACK\EOT\v\EOT\NUL\STX\ENQ\DC2\ETXq\DLE\SUB\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\ENQ\SOH\DC2\ETXq\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\ENQ\STX\DC2\ETXq\CAN\EM\n\ + \\r\n\ + \\ACK\EOT\v\EOT\NUL\STX\ACK\DC2\ETXr\DLE\GS\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\ACK\SOH\DC2\ETXr\DLE\CAN\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\ACK\STX\DC2\ETXr\ESC\FS\n\ + \\r\n\ + \\ACK\EOT\v\EOT\NUL\STX\a\DC2\ETXs\DLE\RS\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\a\SOH\DC2\ETXs\DLE\EM\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\a\STX\DC2\ETXs\FS\GS\n\ + \\r\n\ + \\ACK\EOT\v\EOT\NUL\STX\b\DC2\ETXt\DLE\ESC\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\b\SOH\DC2\ETXt\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\b\STX\DC2\ETXt\EM\SUB\n\ + \\r\n\ + \\ACK\EOT\v\EOT\NUL\STX\t\DC2\ETXu\DLE\FS\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\t\SOH\DC2\ETXu\DLE\ETB\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\t\STX\DC2\ETXu\SUB\ESC\n\ + \\r\n\ + \\ACK\EOT\v\EOT\NUL\STX\n\ + \\DC2\ETXv\DLE\"\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\n\ + \\SOH\DC2\ETXv\DLE\FS\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\n\ + \\STX\DC2\ETXv\US!\n\ + \\r\n\ + \\ACK\EOT\v\EOT\NUL\STX\v\DC2\ETXw\DLE\RS\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\v\SOH\DC2\ETXw\DLE\CAN\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\v\STX\DC2\ETXw\ESC\GS\n\ + \\r\n\ + \\ACK\EOT\v\EOT\NUL\STX\f\DC2\ETXx\DLE(\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\f\SOH\DC2\ETXx\DLE\"\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\f\STX\DC2\ETXx%'\n\ + \\r\n\ + \\ACK\EOT\v\EOT\NUL\STX\r\DC2\ETXy\DLE(\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\r\SOH\DC2\ETXy\DLE\"\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\r\STX\DC2\ETXy%'\n\ + \\r\n\ + \\ACK\EOT\v\EOT\NUL\STX\SO\DC2\ETXz\DLE%\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\SO\SOH\DC2\ETXz\DLE\US\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\SO\STX\DC2\ETXz\"$\n\ + \\r\n\ + \\ACK\EOT\v\EOT\NUL\STX\SI\DC2\ETX{\DLE%\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\SI\SOH\DC2\ETX{\DLE\US\n\ + \\SO\n\ + \\a\EOT\v\EOT\NUL\STX\SI\STX\DC2\ETX{\"$\n\ + \\v\n\ + \\EOT\EOT\v\STX\NUL\DC2\ETX}\b7\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\ACK\DC2\ETX}\b&\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\SOH\DC2\ETX}'2\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\ETX\DC2\ETX}56\n\ + \\v\n\ + \\EOT\EOT\v\STX\SOH\DC2\ETX~\b\GS\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SOH\ENQ\DC2\ETX~\b\r\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SOH\SOH\DC2\ETX~\SO\CAN\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SOH\ETX\DC2\ETX~\ESC\FS\n\ + \\v\n\ + \\EOT\EOT\v\STX\STX\DC2\ETX\DEL\b\GS\n\ + \\f\n\ + \\ENQ\EOT\v\STX\STX\ACK\DC2\ETX\DEL\b\DC2\n\ + \\f\n\ + \\ENQ\EOT\v\STX\STX\SOH\DC2\ETX\DEL\DC3\CAN\n\ + \\f\n\ + \\ENQ\EOT\v\STX\STX\ETX\DC2\ETX\DEL\ESC\FS\n\ + \\f\n\ + \\EOT\EOT\v\STX\ETX\DC2\EOT\128\SOH\b\SUB\n\ + \\r\n\ + \\ENQ\EOT\v\STX\ETX\ENQ\DC2\EOT\128\SOH\b\f\n\ + \\r\n\ + \\ENQ\EOT\v\STX\ETX\SOH\DC2\EOT\128\SOH\r\NAK\n\ + \\r\n\ + \\ENQ\EOT\v\STX\ETX\ETX\DC2\EOT\128\SOH\CAN\EM\n\ + \\f\n\ + \\EOT\EOT\v\STX\EOT\DC2\EOT\129\SOH\b$\n\ + \\r\n\ + \\ENQ\EOT\v\STX\EOT\ACK\DC2\EOT\129\SOH\b\DLE\n\ + \\r\n\ + \\ENQ\EOT\v\STX\EOT\SOH\DC2\EOT\129\SOH\DC1\US\n\ + \\r\n\ + \\ENQ\EOT\v\STX\EOT\ETX\DC2\EOT\129\SOH\"#\n\ + \\f\n\ + \\EOT\EOT\v\STX\ENQ\DC2\EOT\130\SOH\b\"\n\ + \\r\n\ + \\ENQ\EOT\v\STX\ENQ\ACK\DC2\EOT\130\SOH\b\DLE\n\ + \\r\n\ + \\ENQ\EOT\v\STX\ENQ\SOH\DC2\EOT\130\SOH\DC1\GS\n\ + \\r\n\ + \\ENQ\EOT\v\STX\ENQ\ETX\DC2\EOT\130\SOH !\n\ + \\f\n\ + \\EOT\EOT\v\STX\ACK\DC2\EOT\131\SOH\b\"\n\ + \\r\n\ + \\ENQ\EOT\v\STX\ACK\ACK\DC2\EOT\131\SOH\b\DLE\n\ + \\r\n\ + \\ENQ\EOT\v\STX\ACK\SOH\DC2\EOT\131\SOH\DC1\GS\n\ + \\r\n\ + \\ENQ\EOT\v\STX\ACK\ETX\DC2\EOT\131\SOH !\n\ + \\f\n\ + \\EOT\EOT\v\STX\a\DC2\EOT\132\SOH\b'\n\ + \\r\n\ + \\ENQ\EOT\v\STX\a\ENQ\DC2\EOT\132\SOH\b\f\n\ + \\r\n\ + \\ENQ\EOT\v\STX\a\SOH\DC2\EOT\132\SOH\r\"\n\ + \\r\n\ + \\ENQ\EOT\v\STX\a\ETX\DC2\EOT\132\SOH%&\n\ + \\f\n\ + \\EOT\EOT\v\STX\b\DC2\EOT\133\SOH\b'\n\ + \\r\n\ + \\ENQ\EOT\v\STX\b\ENQ\DC2\EOT\133\SOH\b\f\n\ + \\r\n\ + \\ENQ\EOT\v\STX\b\SOH\DC2\EOT\133\SOH\r\"\n\ + \\r\n\ + \\ENQ\EOT\v\STX\b\ETX\DC2\EOT\133\SOH%&\n\ + \\f\n\ + \\EOT\EOT\v\STX\t\DC2\EOT\135\SOH\EOT$\n\ + \\r\n\ + \\ENQ\EOT\v\STX\t\ENQ\DC2\EOT\135\SOH\EOT\t\n\ + \\r\n\ + \\ENQ\EOT\v\STX\t\SOH\DC2\EOT\135\SOH\n\ + \\RS\n\ + \\r\n\ + \\ENQ\EOT\v\STX\t\ETX\DC2\EOT\135\SOH!#\n\ + \\f\n\ + \\EOT\EOT\v\STX\n\ + \\DC2\EOT\136\SOH\EOT!\n\ + \\r\n\ + \\ENQ\EOT\v\STX\n\ + \\ENQ\DC2\EOT\136\SOH\EOT\t\n\ + \\r\n\ + \\ENQ\EOT\v\STX\n\ + \\SOH\DC2\EOT\136\SOH\n\ + \\ESC\n\ + \\r\n\ + \\ENQ\EOT\v\STX\n\ + \\ETX\DC2\EOT\136\SOH\RS \n\ + \\f\n\ + \\EOT\EOT\v\STX\v\DC2\EOT\137\SOH\b%\n\ + \\r\n\ + \\ENQ\EOT\v\STX\v\ENQ\DC2\EOT\137\SOH\b\r\n\ + \\r\n\ + \\ENQ\EOT\v\STX\v\SOH\DC2\EOT\137\SOH\SO\US\n\ + \\r\n\ + \\ENQ\EOT\v\STX\v\ETX\DC2\EOT\137\SOH\"$\n\ + \\f\n\ + \\EOT\EOT\v\STX\f\DC2\EOT\138\SOH\EOT\RS\n\ + \\r\n\ + \\ENQ\EOT\v\STX\f\ENQ\DC2\EOT\138\SOH\EOT\t\n\ + \\r\n\ + \\ENQ\EOT\v\STX\f\SOH\DC2\EOT\138\SOH\n\ + \\CAN\n\ + \\r\n\ + \\ENQ\EOT\v\STX\f\ETX\DC2\EOT\138\SOH\ESC\GS\n\ + \\f\n\ + \\EOT\EOT\v\STX\r\DC2\EOT\139\SOH\EOT\FS\n\ + \\r\n\ + \\ENQ\EOT\v\STX\r\ENQ\DC2\EOT\139\SOH\EOT\t\n\ + \\r\n\ + \\ENQ\EOT\v\STX\r\SOH\DC2\EOT\139\SOH\n\ + \\SYN\n\ + \\r\n\ + \\ENQ\EOT\v\STX\r\ETX\DC2\EOT\139\SOH\EM\ESC\n\ + \\f\n\ + \\EOT\EOT\v\STX\SO\DC2\EOT\140\SOH\EOT1\n\ + \\r\n\ + \\ENQ\EOT\v\STX\SO\ACK\DC2\EOT\140\SOH\EOT\"\n\ + \\r\n\ + \\ENQ\EOT\v\STX\SO\SOH\DC2\EOT\140\SOH#+\n\ + \\r\n\ + \\ENQ\EOT\v\STX\SO\ETX\DC2\EOT\140\SOH.0\n\ + \\f\n\ + \\EOT\EOT\v\STX\SI\DC2\EOT\142\SOH\EOT\GS\n\ + \\r\n\ + \\ENQ\EOT\v\STX\SI\ENQ\DC2\EOT\142\SOH\EOT\t\n\ + \\r\n\ + \\ENQ\EOT\v\STX\SI\SOH\DC2\EOT\142\SOH\n\ + \\ETB\n\ + \\r\n\ + \\ENQ\EOT\v\STX\SI\ETX\DC2\EOT\142\SOH\SUB\FS\n\ + \\f\n\ + \\EOT\EOT\v\STX\DLE\DC2\EOT\143\SOH\EOT#\n\ + \\r\n\ + \\ENQ\EOT\v\STX\DLE\ENQ\DC2\EOT\143\SOH\EOT\b\n\ + \\r\n\ + \\ENQ\EOT\v\STX\DLE\SOH\DC2\EOT\143\SOH\t\GS\n\ + \\r\n\ + \\ENQ\EOT\v\STX\DLE\ETX\DC2\EOT\143\SOH \"b\ACKproto3" \ No newline at end of file diff --git a/Proto/Cluster_Fields.hs b/Proto/Cluster_Fields.hs new file mode 100644 index 0000000..059e315 --- /dev/null +++ b/Proto/Cluster_Fields.hs @@ -0,0 +1,297 @@ +{- This file was auto-generated from cluster.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.Cluster_Fields where +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.Shared +address :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "address" a) => + Lens.Family2.LensLike' f s a +address = Data.ProtoLens.Field.field @"address" +attemptedView :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "attemptedView" a) => + Lens.Family2.LensLike' f s a +attemptedView = Data.ProtoLens.Field.field @"attemptedView" +chaserCheckpoint :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "chaserCheckpoint" a) => + Lens.Family2.LensLike' f s a +chaserCheckpoint = Data.ProtoLens.Field.field @"chaserCheckpoint" +clusterInfo :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "clusterInfo" a) => + Lens.Family2.LensLike' f s a +clusterInfo = Data.ProtoLens.Field.field @"clusterInfo" +epochId :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "epochId" a) => + Lens.Family2.LensLike' f s a +epochId = Data.ProtoLens.Field.field @"epochId" +epochLeaderInstanceId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "epochLeaderInstanceId" a) => + Lens.Family2.LensLike' f s a +epochLeaderInstanceId + = Data.ProtoLens.Field.field @"epochLeaderInstanceId" +epochNumber :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "epochNumber" a) => + Lens.Family2.LensLike' f s a +epochNumber = Data.ProtoLens.Field.field @"epochNumber" +epochPosition :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "epochPosition" a) => + Lens.Family2.LensLike' f s a +epochPosition = Data.ProtoLens.Field.field @"epochPosition" +externalTcp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "externalTcp" a) => + Lens.Family2.LensLike' f s a +externalTcp = Data.ProtoLens.Field.field @"externalTcp" +externalTcpUsesTls :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "externalTcpUsesTls" a) => + Lens.Family2.LensLike' f s a +externalTcpUsesTls + = Data.ProtoLens.Field.field @"externalTcpUsesTls" +httpEndPoint :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "httpEndPoint" a) => + Lens.Family2.LensLike' f s a +httpEndPoint = Data.ProtoLens.Field.field @"httpEndPoint" +info :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "info" a) => + Lens.Family2.LensLike' f s a +info = Data.ProtoLens.Field.field @"info" +installedView :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "installedView" a) => + Lens.Family2.LensLike' f s a +installedView = Data.ProtoLens.Field.field @"installedView" +instanceId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "instanceId" a) => + Lens.Family2.LensLike' f s a +instanceId = Data.ProtoLens.Field.field @"instanceId" +internalTcp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "internalTcp" a) => + Lens.Family2.LensLike' f s a +internalTcp = Data.ProtoLens.Field.field @"internalTcp" +internalTcpUsesTls :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "internalTcpUsesTls" a) => + Lens.Family2.LensLike' f s a +internalTcpUsesTls + = Data.ProtoLens.Field.field @"internalTcpUsesTls" +isAlive :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "isAlive" a) => + Lens.Family2.LensLike' f s a +isAlive = Data.ProtoLens.Field.field @"isAlive" +isReadOnlyReplica :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "isReadOnlyReplica" a) => + Lens.Family2.LensLike' f s a +isReadOnlyReplica = Data.ProtoLens.Field.field @"isReadOnlyReplica" +lastCommitPosition :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "lastCommitPosition" a) => + Lens.Family2.LensLike' f s a +lastCommitPosition + = Data.ProtoLens.Field.field @"lastCommitPosition" +leaderHttp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "leaderHttp" a) => + Lens.Family2.LensLike' f s a +leaderHttp = Data.ProtoLens.Field.field @"leaderHttp" +leaderId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "leaderId" a) => + Lens.Family2.LensLike' f s a +leaderId = Data.ProtoLens.Field.field @"leaderId" +maybe'clusterInfo :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'clusterInfo" a) => + Lens.Family2.LensLike' f s a +maybe'clusterInfo = Data.ProtoLens.Field.field @"maybe'clusterInfo" +maybe'epochId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'epochId" a) => + Lens.Family2.LensLike' f s a +maybe'epochId = Data.ProtoLens.Field.field @"maybe'epochId" +maybe'epochLeaderInstanceId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'epochLeaderInstanceId" a) => + Lens.Family2.LensLike' f s a +maybe'epochLeaderInstanceId + = Data.ProtoLens.Field.field @"maybe'epochLeaderInstanceId" +maybe'externalTcp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'externalTcp" a) => + Lens.Family2.LensLike' f s a +maybe'externalTcp = Data.ProtoLens.Field.field @"maybe'externalTcp" +maybe'httpEndPoint :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'httpEndPoint" a) => + Lens.Family2.LensLike' f s a +maybe'httpEndPoint + = Data.ProtoLens.Field.field @"maybe'httpEndPoint" +maybe'info :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'info" a) => + Lens.Family2.LensLike' f s a +maybe'info = Data.ProtoLens.Field.field @"maybe'info" +maybe'instanceId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'instanceId" a) => + Lens.Family2.LensLike' f s a +maybe'instanceId = Data.ProtoLens.Field.field @"maybe'instanceId" +maybe'internalTcp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'internalTcp" a) => + Lens.Family2.LensLike' f s a +maybe'internalTcp = Data.ProtoLens.Field.field @"maybe'internalTcp" +maybe'leaderHttp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'leaderHttp" a) => + Lens.Family2.LensLike' f s a +maybe'leaderHttp = Data.ProtoLens.Field.field @"maybe'leaderHttp" +maybe'leaderId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'leaderId" a) => + Lens.Family2.LensLike' f s a +maybe'leaderId = Data.ProtoLens.Field.field @"maybe'leaderId" +maybe'server :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'server" a) => + Lens.Family2.LensLike' f s a +maybe'server = Data.ProtoLens.Field.field @"maybe'server" +maybe'serverHttp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'serverHttp" a) => + Lens.Family2.LensLike' f s a +maybe'serverHttp = Data.ProtoLens.Field.field @"maybe'serverHttp" +maybe'serverId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'serverId" a) => + Lens.Family2.LensLike' f s a +maybe'serverId = Data.ProtoLens.Field.field @"maybe'serverId" +members :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "members" a) => + Lens.Family2.LensLike' f s a +members = Data.ProtoLens.Field.field @"members" +nodePriority :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "nodePriority" a) => + Lens.Family2.LensLike' f s a +nodePriority = Data.ProtoLens.Field.field @"nodePriority" +port :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "port" a) => + Lens.Family2.LensLike' f s a +port = Data.ProtoLens.Field.field @"port" +server :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "server" a) => + Lens.Family2.LensLike' f s a +server = Data.ProtoLens.Field.field @"server" +serverHttp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "serverHttp" a) => + Lens.Family2.LensLike' f s a +serverHttp = Data.ProtoLens.Field.field @"serverHttp" +serverId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "serverId" a) => + Lens.Family2.LensLike' f s a +serverId = Data.ProtoLens.Field.field @"serverId" +state :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "state" a) => + Lens.Family2.LensLike' f s a +state = Data.ProtoLens.Field.field @"state" +timeStamp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "timeStamp" a) => + Lens.Family2.LensLike' f s a +timeStamp = Data.ProtoLens.Field.field @"timeStamp" +vec'members :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'members" a) => + Lens.Family2.LensLike' f s a +vec'members = Data.ProtoLens.Field.field @"vec'members" +view :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "view" a) => + Lens.Family2.LensLike' f s a +view = Data.ProtoLens.Field.field @"view" +writerCheckpoint :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "writerCheckpoint" a) => + Lens.Family2.LensLike' f s a +writerCheckpoint = Data.ProtoLens.Field.field @"writerCheckpoint" \ No newline at end of file diff --git a/Proto/Gossip.hs b/Proto/Gossip.hs new file mode 100644 index 0000000..abbca68 --- /dev/null +++ b/Proto/Gossip.hs @@ -0,0 +1,1091 @@ +{- This file was auto-generated from gossip.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.Gossip ( + Gossip(..), ClusterInfo(), EndPoint(), MemberInfo(), + MemberInfo'VNodeState(..), MemberInfo'VNodeState(), + MemberInfo'VNodeState'UnrecognizedValue + ) where +import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString +import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding +import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector +import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic +import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed +import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read +import qualified Proto.Shared +{- | Fields : + + * 'Proto.Gossip_Fields.members' @:: Lens' ClusterInfo [MemberInfo]@ + * 'Proto.Gossip_Fields.vec'members' @:: Lens' ClusterInfo (Data.Vector.Vector MemberInfo)@ -} +data ClusterInfo + = ClusterInfo'_constructor {_ClusterInfo'members :: !(Data.Vector.Vector MemberInfo), + _ClusterInfo'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ClusterInfo where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ClusterInfo "members" [MemberInfo] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ClusterInfo'members + (\ x__ y__ -> x__ {_ClusterInfo'members = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField ClusterInfo "vec'members" (Data.Vector.Vector MemberInfo) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ClusterInfo'members + (\ x__ y__ -> x__ {_ClusterInfo'members = y__})) + Prelude.id +instance Data.ProtoLens.Message ClusterInfo where + messageName _ + = Data.Text.pack "event_store.client.gossip.ClusterInfo" + packedMessageDescriptor _ + = "\n\ + \\vClusterInfo\DC2?\n\ + \\amembers\CAN\SOH \ETX(\v2%.event_store.client.gossip.MemberInfoR\amembers" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + members__field_descriptor + = Data.ProtoLens.FieldDescriptor + "members" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor MemberInfo) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"members")) :: + Data.ProtoLens.FieldDescriptor ClusterInfo + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, members__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ClusterInfo'_unknownFields + (\ x__ y__ -> x__ {_ClusterInfo'_unknownFields = y__}) + defMessage + = ClusterInfo'_constructor + {_ClusterInfo'members = Data.Vector.Generic.empty, + _ClusterInfo'_unknownFields = []} + parseMessage + = let + loop :: + ClusterInfo + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MemberInfo + -> Data.ProtoLens.Encoding.Bytes.Parser ClusterInfo + loop x mutable'members + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'members <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'members) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields + (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'members") frozen'members x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "members" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'members y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'members + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'members <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'members) + "ClusterInfo" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'members") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ClusterInfo where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ClusterInfo'_unknownFields x__) + (Control.DeepSeq.deepseq (_ClusterInfo'members x__) ()) +{- | Fields : + + * 'Proto.Gossip_Fields.address' @:: Lens' EndPoint Data.Text.Text@ + * 'Proto.Gossip_Fields.port' @:: Lens' EndPoint Data.Word.Word32@ -} +data EndPoint + = EndPoint'_constructor {_EndPoint'address :: !Data.Text.Text, + _EndPoint'port :: !Data.Word.Word32, + _EndPoint'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show EndPoint where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField EndPoint "address" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EndPoint'address (\ x__ y__ -> x__ {_EndPoint'address = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField EndPoint "port" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EndPoint'port (\ x__ y__ -> x__ {_EndPoint'port = y__})) + Prelude.id +instance Data.ProtoLens.Message EndPoint where + messageName _ = Data.Text.pack "event_store.client.gossip.EndPoint" + packedMessageDescriptor _ + = "\n\ + \\bEndPoint\DC2\CAN\n\ + \\aaddress\CAN\SOH \SOH(\tR\aaddress\DC2\DC2\n\ + \\EOTport\CAN\STX \SOH(\rR\EOTport" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + address__field_descriptor + = Data.ProtoLens.FieldDescriptor + "address" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"address")) :: + Data.ProtoLens.FieldDescriptor EndPoint + port__field_descriptor + = Data.ProtoLens.FieldDescriptor + "port" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"port")) :: + Data.ProtoLens.FieldDescriptor EndPoint + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, address__field_descriptor), + (Data.ProtoLens.Tag 2, port__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _EndPoint'_unknownFields + (\ x__ y__ -> x__ {_EndPoint'_unknownFields = y__}) + defMessage + = EndPoint'_constructor + {_EndPoint'address = Data.ProtoLens.fieldDefault, + _EndPoint'port = Data.ProtoLens.fieldDefault, + _EndPoint'_unknownFields = []} + parseMessage + = let + loop :: EndPoint -> Data.ProtoLens.Encoding.Bytes.Parser EndPoint + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "address" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"address") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "port" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"port") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "EndPoint" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"address") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"port") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData EndPoint where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_EndPoint'_unknownFields x__) + (Control.DeepSeq.deepseq + (_EndPoint'address x__) + (Control.DeepSeq.deepseq (_EndPoint'port x__) ())) +{- | Fields : + + * 'Proto.Gossip_Fields.instanceId' @:: Lens' MemberInfo Proto.Shared.UUID@ + * 'Proto.Gossip_Fields.maybe'instanceId' @:: Lens' MemberInfo (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Gossip_Fields.timeStamp' @:: Lens' MemberInfo Data.Int.Int64@ + * 'Proto.Gossip_Fields.state' @:: Lens' MemberInfo MemberInfo'VNodeState@ + * 'Proto.Gossip_Fields.isAlive' @:: Lens' MemberInfo Prelude.Bool@ + * 'Proto.Gossip_Fields.httpEndPoint' @:: Lens' MemberInfo EndPoint@ + * 'Proto.Gossip_Fields.maybe'httpEndPoint' @:: Lens' MemberInfo (Prelude.Maybe EndPoint)@ -} +data MemberInfo + = MemberInfo'_constructor {_MemberInfo'instanceId :: !(Prelude.Maybe Proto.Shared.UUID), + _MemberInfo'timeStamp :: !Data.Int.Int64, + _MemberInfo'state :: !MemberInfo'VNodeState, + _MemberInfo'isAlive :: !Prelude.Bool, + _MemberInfo'httpEndPoint :: !(Prelude.Maybe EndPoint), + _MemberInfo'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show MemberInfo where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField MemberInfo "instanceId" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'instanceId + (\ x__ y__ -> x__ {_MemberInfo'instanceId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField MemberInfo "maybe'instanceId" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'instanceId + (\ x__ y__ -> x__ {_MemberInfo'instanceId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "timeStamp" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'timeStamp + (\ x__ y__ -> x__ {_MemberInfo'timeStamp = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "state" MemberInfo'VNodeState where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'state (\ x__ y__ -> x__ {_MemberInfo'state = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "isAlive" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'isAlive (\ x__ y__ -> x__ {_MemberInfo'isAlive = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MemberInfo "httpEndPoint" EndPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'httpEndPoint + (\ x__ y__ -> x__ {_MemberInfo'httpEndPoint = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField MemberInfo "maybe'httpEndPoint" (Prelude.Maybe EndPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemberInfo'httpEndPoint + (\ x__ y__ -> x__ {_MemberInfo'httpEndPoint = y__})) + Prelude.id +instance Data.ProtoLens.Message MemberInfo where + messageName _ + = Data.Text.pack "event_store.client.gossip.MemberInfo" + packedMessageDescriptor _ + = "\n\ + \\n\ + \MemberInfo\DC2@\n\ + \\vinstance_id\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\n\ + \instanceId\DC2\GS\n\ + \\n\ + \time_stamp\CAN\STX \SOH(\ETXR\ttimeStamp\DC2F\n\ + \\ENQstate\CAN\ETX \SOH(\SO20.event_store.client.gossip.MemberInfo.VNodeStateR\ENQstate\DC2\EM\n\ + \\bis_alive\CAN\EOT \SOH(\bR\aisAlive\DC2I\n\ + \\SOhttp_end_point\CAN\ENQ \SOH(\v2#.event_store.client.gossip.EndPointR\fhttpEndPoint\"\154\STX\n\ + \\n\ + \VNodeState\DC2\DLE\n\ + \\fInitializing\DLE\NUL\DC2\DC2\n\ + \\SODiscoverLeader\DLE\SOH\DC2\v\n\ + \\aUnknown\DLE\STX\DC2\SO\n\ + \\n\ + \PreReplica\DLE\ETX\DC2\SO\n\ + \\n\ + \CatchingUp\DLE\EOT\DC2\t\n\ + \\ENQClone\DLE\ENQ\DC2\f\n\ + \\bFollower\DLE\ACK\DC2\r\n\ + \\tPreLeader\DLE\a\DC2\n\ + \\n\ + \\ACKLeader\DLE\b\DC2\v\n\ + \\aManager\DLE\t\DC2\DLE\n\ + \\fShuttingDown\DLE\n\ + \\DC2\f\n\ + \\bShutdown\DLE\v\DC2\SYN\n\ + \\DC2ReadOnlyLeaderless\DLE\f\DC2\SYN\n\ + \\DC2PreReadOnlyReplica\DLE\r\DC2\DC3\n\ + \\SIReadOnlyReplica\DLE\SO\DC2\DC3\n\ + \\SIResigningLeader\DLE\SI" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + instanceId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "instance_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'instanceId")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + timeStamp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "time_stamp" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"timeStamp")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + state__field_descriptor + = Data.ProtoLens.FieldDescriptor + "state" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor MemberInfo'VNodeState) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"state")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + isAlive__field_descriptor + = Data.ProtoLens.FieldDescriptor + "is_alive" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"isAlive")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + httpEndPoint__field_descriptor + = Data.ProtoLens.FieldDescriptor + "http_end_point" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EndPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'httpEndPoint")) :: + Data.ProtoLens.FieldDescriptor MemberInfo + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, instanceId__field_descriptor), + (Data.ProtoLens.Tag 2, timeStamp__field_descriptor), + (Data.ProtoLens.Tag 3, state__field_descriptor), + (Data.ProtoLens.Tag 4, isAlive__field_descriptor), + (Data.ProtoLens.Tag 5, httpEndPoint__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _MemberInfo'_unknownFields + (\ x__ y__ -> x__ {_MemberInfo'_unknownFields = y__}) + defMessage + = MemberInfo'_constructor + {_MemberInfo'instanceId = Prelude.Nothing, + _MemberInfo'timeStamp = Data.ProtoLens.fieldDefault, + _MemberInfo'state = Data.ProtoLens.fieldDefault, + _MemberInfo'isAlive = Data.ProtoLens.fieldDefault, + _MemberInfo'httpEndPoint = Prelude.Nothing, + _MemberInfo'_unknownFields = []} + parseMessage + = let + loop :: + MemberInfo -> Data.ProtoLens.Encoding.Bytes.Parser MemberInfo + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "instance_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"instanceId") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "time_stamp" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"timeStamp") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "state" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"state") y x) + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "is_alive" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"isAlive") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "http_end_point" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"httpEndPoint") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "MemberInfo" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'instanceId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"timeStamp") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"state") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"isAlive") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'httpEndPoint") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))) +instance Control.DeepSeq.NFData MemberInfo where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_MemberInfo'_unknownFields x__) + (Control.DeepSeq.deepseq + (_MemberInfo'instanceId x__) + (Control.DeepSeq.deepseq + (_MemberInfo'timeStamp x__) + (Control.DeepSeq.deepseq + (_MemberInfo'state x__) + (Control.DeepSeq.deepseq + (_MemberInfo'isAlive x__) + (Control.DeepSeq.deepseq (_MemberInfo'httpEndPoint x__) ()))))) +newtype MemberInfo'VNodeState'UnrecognizedValue + = MemberInfo'VNodeState'UnrecognizedValue Data.Int.Int32 + deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) +data MemberInfo'VNodeState + = MemberInfo'Initializing | + MemberInfo'DiscoverLeader | + MemberInfo'Unknown | + MemberInfo'PreReplica | + MemberInfo'CatchingUp | + MemberInfo'Clone | + MemberInfo'Follower | + MemberInfo'PreLeader | + MemberInfo'Leader | + MemberInfo'Manager | + MemberInfo'ShuttingDown | + MemberInfo'Shutdown | + MemberInfo'ReadOnlyLeaderless | + MemberInfo'PreReadOnlyReplica | + MemberInfo'ReadOnlyReplica | + MemberInfo'ResigningLeader | + MemberInfo'VNodeState'Unrecognized !MemberInfo'VNodeState'UnrecognizedValue + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum MemberInfo'VNodeState where + maybeToEnum 0 = Prelude.Just MemberInfo'Initializing + maybeToEnum 1 = Prelude.Just MemberInfo'DiscoverLeader + maybeToEnum 2 = Prelude.Just MemberInfo'Unknown + maybeToEnum 3 = Prelude.Just MemberInfo'PreReplica + maybeToEnum 4 = Prelude.Just MemberInfo'CatchingUp + maybeToEnum 5 = Prelude.Just MemberInfo'Clone + maybeToEnum 6 = Prelude.Just MemberInfo'Follower + maybeToEnum 7 = Prelude.Just MemberInfo'PreLeader + maybeToEnum 8 = Prelude.Just MemberInfo'Leader + maybeToEnum 9 = Prelude.Just MemberInfo'Manager + maybeToEnum 10 = Prelude.Just MemberInfo'ShuttingDown + maybeToEnum 11 = Prelude.Just MemberInfo'Shutdown + maybeToEnum 12 = Prelude.Just MemberInfo'ReadOnlyLeaderless + maybeToEnum 13 = Prelude.Just MemberInfo'PreReadOnlyReplica + maybeToEnum 14 = Prelude.Just MemberInfo'ReadOnlyReplica + maybeToEnum 15 = Prelude.Just MemberInfo'ResigningLeader + maybeToEnum k + = Prelude.Just + (MemberInfo'VNodeState'Unrecognized + (MemberInfo'VNodeState'UnrecognizedValue (Prelude.fromIntegral k))) + showEnum MemberInfo'Initializing = "Initializing" + showEnum MemberInfo'DiscoverLeader = "DiscoverLeader" + showEnum MemberInfo'Unknown = "Unknown" + showEnum MemberInfo'PreReplica = "PreReplica" + showEnum MemberInfo'CatchingUp = "CatchingUp" + showEnum MemberInfo'Clone = "Clone" + showEnum MemberInfo'Follower = "Follower" + showEnum MemberInfo'PreLeader = "PreLeader" + showEnum MemberInfo'Leader = "Leader" + showEnum MemberInfo'Manager = "Manager" + showEnum MemberInfo'ShuttingDown = "ShuttingDown" + showEnum MemberInfo'Shutdown = "Shutdown" + showEnum MemberInfo'ReadOnlyLeaderless = "ReadOnlyLeaderless" + showEnum MemberInfo'PreReadOnlyReplica = "PreReadOnlyReplica" + showEnum MemberInfo'ReadOnlyReplica = "ReadOnlyReplica" + showEnum MemberInfo'ResigningLeader = "ResigningLeader" + showEnum + (MemberInfo'VNodeState'Unrecognized (MemberInfo'VNodeState'UnrecognizedValue k)) + = Prelude.show k + readEnum k + | (Prelude.==) k "Initializing" + = Prelude.Just MemberInfo'Initializing + | (Prelude.==) k "DiscoverLeader" + = Prelude.Just MemberInfo'DiscoverLeader + | (Prelude.==) k "Unknown" = Prelude.Just MemberInfo'Unknown + | (Prelude.==) k "PreReplica" = Prelude.Just MemberInfo'PreReplica + | (Prelude.==) k "CatchingUp" = Prelude.Just MemberInfo'CatchingUp + | (Prelude.==) k "Clone" = Prelude.Just MemberInfo'Clone + | (Prelude.==) k "Follower" = Prelude.Just MemberInfo'Follower + | (Prelude.==) k "PreLeader" = Prelude.Just MemberInfo'PreLeader + | (Prelude.==) k "Leader" = Prelude.Just MemberInfo'Leader + | (Prelude.==) k "Manager" = Prelude.Just MemberInfo'Manager + | (Prelude.==) k "ShuttingDown" + = Prelude.Just MemberInfo'ShuttingDown + | (Prelude.==) k "Shutdown" = Prelude.Just MemberInfo'Shutdown + | (Prelude.==) k "ReadOnlyLeaderless" + = Prelude.Just MemberInfo'ReadOnlyLeaderless + | (Prelude.==) k "PreReadOnlyReplica" + = Prelude.Just MemberInfo'PreReadOnlyReplica + | (Prelude.==) k "ReadOnlyReplica" + = Prelude.Just MemberInfo'ReadOnlyReplica + | (Prelude.==) k "ResigningLeader" + = Prelude.Just MemberInfo'ResigningLeader + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded MemberInfo'VNodeState where + minBound = MemberInfo'Initializing + maxBound = MemberInfo'ResigningLeader +instance Prelude.Enum MemberInfo'VNodeState where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum VNodeState: " (Prelude.show k__))) + Prelude.id + (Data.ProtoLens.maybeToEnum k__) + fromEnum MemberInfo'Initializing = 0 + fromEnum MemberInfo'DiscoverLeader = 1 + fromEnum MemberInfo'Unknown = 2 + fromEnum MemberInfo'PreReplica = 3 + fromEnum MemberInfo'CatchingUp = 4 + fromEnum MemberInfo'Clone = 5 + fromEnum MemberInfo'Follower = 6 + fromEnum MemberInfo'PreLeader = 7 + fromEnum MemberInfo'Leader = 8 + fromEnum MemberInfo'Manager = 9 + fromEnum MemberInfo'ShuttingDown = 10 + fromEnum MemberInfo'Shutdown = 11 + fromEnum MemberInfo'ReadOnlyLeaderless = 12 + fromEnum MemberInfo'PreReadOnlyReplica = 13 + fromEnum MemberInfo'ReadOnlyReplica = 14 + fromEnum MemberInfo'ResigningLeader = 15 + fromEnum + (MemberInfo'VNodeState'Unrecognized (MemberInfo'VNodeState'UnrecognizedValue k)) + = Prelude.fromIntegral k + succ MemberInfo'ResigningLeader + = Prelude.error + "MemberInfo'VNodeState.succ: bad argument MemberInfo'ResigningLeader. This value would be out of bounds." + succ MemberInfo'Initializing = MemberInfo'DiscoverLeader + succ MemberInfo'DiscoverLeader = MemberInfo'Unknown + succ MemberInfo'Unknown = MemberInfo'PreReplica + succ MemberInfo'PreReplica = MemberInfo'CatchingUp + succ MemberInfo'CatchingUp = MemberInfo'Clone + succ MemberInfo'Clone = MemberInfo'Follower + succ MemberInfo'Follower = MemberInfo'PreLeader + succ MemberInfo'PreLeader = MemberInfo'Leader + succ MemberInfo'Leader = MemberInfo'Manager + succ MemberInfo'Manager = MemberInfo'ShuttingDown + succ MemberInfo'ShuttingDown = MemberInfo'Shutdown + succ MemberInfo'Shutdown = MemberInfo'ReadOnlyLeaderless + succ MemberInfo'ReadOnlyLeaderless = MemberInfo'PreReadOnlyReplica + succ MemberInfo'PreReadOnlyReplica = MemberInfo'ReadOnlyReplica + succ MemberInfo'ReadOnlyReplica = MemberInfo'ResigningLeader + succ (MemberInfo'VNodeState'Unrecognized _) + = Prelude.error + "MemberInfo'VNodeState.succ: bad argument: unrecognized value" + pred MemberInfo'Initializing + = Prelude.error + "MemberInfo'VNodeState.pred: bad argument MemberInfo'Initializing. This value would be out of bounds." + pred MemberInfo'DiscoverLeader = MemberInfo'Initializing + pred MemberInfo'Unknown = MemberInfo'DiscoverLeader + pred MemberInfo'PreReplica = MemberInfo'Unknown + pred MemberInfo'CatchingUp = MemberInfo'PreReplica + pred MemberInfo'Clone = MemberInfo'CatchingUp + pred MemberInfo'Follower = MemberInfo'Clone + pred MemberInfo'PreLeader = MemberInfo'Follower + pred MemberInfo'Leader = MemberInfo'PreLeader + pred MemberInfo'Manager = MemberInfo'Leader + pred MemberInfo'ShuttingDown = MemberInfo'Manager + pred MemberInfo'Shutdown = MemberInfo'ShuttingDown + pred MemberInfo'ReadOnlyLeaderless = MemberInfo'Shutdown + pred MemberInfo'PreReadOnlyReplica = MemberInfo'ReadOnlyLeaderless + pred MemberInfo'ReadOnlyReplica = MemberInfo'PreReadOnlyReplica + pred MemberInfo'ResigningLeader = MemberInfo'ReadOnlyReplica + pred (MemberInfo'VNodeState'Unrecognized _) + = Prelude.error + "MemberInfo'VNodeState.pred: bad argument: unrecognized value" + enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom + enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo + enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen + enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo +instance Data.ProtoLens.FieldDefault MemberInfo'VNodeState where + fieldDefault = MemberInfo'Initializing +instance Control.DeepSeq.NFData MemberInfo'VNodeState where + rnf x__ = Prelude.seq x__ () +data Gossip = Gossip {} +instance Data.ProtoLens.Service.Types.Service Gossip where + type ServiceName Gossip = "Gossip" + type ServicePackage Gossip = "event_store.client.gossip" + type ServiceMethods Gossip = '["read"] +instance Data.ProtoLens.Service.Types.HasMethodImpl Gossip "read" where + type MethodName Gossip "read" = "Read" + type MethodInput Gossip "read" = Proto.Shared.Empty + type MethodOutput Gossip "read" = ClusterInfo + type MethodStreamingType Gossip "read" = 'Data.ProtoLens.Service.Types.NonStreaming +packedFileDescriptor :: Data.ByteString.ByteString +packedFileDescriptor + = "\n\ + \\fgossip.proto\DC2\EMevent_store.client.gossip\SUB\fshared.proto\"N\n\ + \\vClusterInfo\DC2?\n\ + \\amembers\CAN\SOH \ETX(\v2%.event_store.client.gossip.MemberInfoR\amembers\"8\n\ + \\bEndPoint\DC2\CAN\n\ + \\aaddress\CAN\SOH \SOH(\tR\aaddress\DC2\DC2\n\ + \\EOTport\CAN\STX \SOH(\rR\EOTport\"\184\EOT\n\ + \\n\ + \MemberInfo\DC2@\n\ + \\vinstance_id\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\n\ + \instanceId\DC2\GS\n\ + \\n\ + \time_stamp\CAN\STX \SOH(\ETXR\ttimeStamp\DC2F\n\ + \\ENQstate\CAN\ETX \SOH(\SO20.event_store.client.gossip.MemberInfo.VNodeStateR\ENQstate\DC2\EM\n\ + \\bis_alive\CAN\EOT \SOH(\bR\aisAlive\DC2I\n\ + \\SOhttp_end_point\CAN\ENQ \SOH(\v2#.event_store.client.gossip.EndPointR\fhttpEndPoint\"\154\STX\n\ + \\n\ + \VNodeState\DC2\DLE\n\ + \\fInitializing\DLE\NUL\DC2\DC2\n\ + \\SODiscoverLeader\DLE\SOH\DC2\v\n\ + \\aUnknown\DLE\STX\DC2\SO\n\ + \\n\ + \PreReplica\DLE\ETX\DC2\SO\n\ + \\n\ + \CatchingUp\DLE\EOT\DC2\t\n\ + \\ENQClone\DLE\ENQ\DC2\f\n\ + \\bFollower\DLE\ACK\DC2\r\n\ + \\tPreLeader\DLE\a\DC2\n\ + \\n\ + \\ACKLeader\DLE\b\DC2\v\n\ + \\aManager\DLE\t\DC2\DLE\n\ + \\fShuttingDown\DLE\n\ + \\DC2\f\n\ + \\bShutdown\DLE\v\DC2\SYN\n\ + \\DC2ReadOnlyLeaderless\DLE\f\DC2\SYN\n\ + \\DC2PreReadOnlyReplica\DLE\r\DC2\DC3\n\ + \\SIReadOnlyReplica\DLE\SO\DC2\DC3\n\ + \\SIResigningLeader\DLE\SI2Z\n\ + \\ACKGossip\DC2P\n\ + \\EOTRead\DC2 .event_store.client.shared.Empty\SUB&.event_store.client.gossip.ClusterInfoB&\n\ + \$com.eventstore.dbclient.proto.gossipJ\165\v\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\"\n\ + \\b\n\ + \\SOH\b\DC2\ETX\STX\NUL=\n\ + \\t\n\ + \\STX\b\SOH\DC2\ETX\STX\NUL=\n\ + \\t\n\ + \\STX\ETX\NUL\DC2\ETX\EOT\NUL\SYN\n\ + \\n\ + \\n\ + \\STX\ACK\NUL\DC2\EOT\ACK\NUL\b\SOH\n\ + \\n\ + \\n\ + \\ETX\ACK\NUL\SOH\DC2\ETX\ACK\b\SO\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\NUL\DC2\ETX\a\bI\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX\a\f\DLE\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX\a\DC21\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX\a + Lens.Family2.LensLike' f s a +address = Data.ProtoLens.Field.field @"address" +httpEndPoint :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "httpEndPoint" a) => + Lens.Family2.LensLike' f s a +httpEndPoint = Data.ProtoLens.Field.field @"httpEndPoint" +instanceId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "instanceId" a) => + Lens.Family2.LensLike' f s a +instanceId = Data.ProtoLens.Field.field @"instanceId" +isAlive :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "isAlive" a) => + Lens.Family2.LensLike' f s a +isAlive = Data.ProtoLens.Field.field @"isAlive" +maybe'httpEndPoint :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'httpEndPoint" a) => + Lens.Family2.LensLike' f s a +maybe'httpEndPoint + = Data.ProtoLens.Field.field @"maybe'httpEndPoint" +maybe'instanceId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'instanceId" a) => + Lens.Family2.LensLike' f s a +maybe'instanceId = Data.ProtoLens.Field.field @"maybe'instanceId" +members :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "members" a) => + Lens.Family2.LensLike' f s a +members = Data.ProtoLens.Field.field @"members" +port :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "port" a) => + Lens.Family2.LensLike' f s a +port = Data.ProtoLens.Field.field @"port" +state :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "state" a) => + Lens.Family2.LensLike' f s a +state = Data.ProtoLens.Field.field @"state" +timeStamp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "timeStamp" a) => + Lens.Family2.LensLike' f s a +timeStamp = Data.ProtoLens.Field.field @"timeStamp" +vec'members :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'members" a) => + Lens.Family2.LensLike' f s a +vec'members = Data.ProtoLens.Field.field @"vec'members" \ No newline at end of file diff --git a/Proto/Operations.hs b/Proto/Operations.hs new file mode 100644 index 0000000..ba77485 --- /dev/null +++ b/Proto/Operations.hs @@ -0,0 +1,1197 @@ +{- This file was auto-generated from operations.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.Operations ( + Operations(..), ScavengeResp(), ScavengeResp'ScavengeResult(..), + ScavengeResp'ScavengeResult(), + ScavengeResp'ScavengeResult'UnrecognizedValue, + SetNodePriorityReq(), StartScavengeReq(), + StartScavengeReq'Options(), StopScavengeReq(), + StopScavengeReq'Options() + ) 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.Shared +{- | Fields : + + * 'Proto.Operations_Fields.scavengeId' @:: Lens' ScavengeResp Data.Text.Text@ + * 'Proto.Operations_Fields.scavengeResult' @:: Lens' ScavengeResp ScavengeResp'ScavengeResult@ -} +data ScavengeResp + = ScavengeResp'_constructor {_ScavengeResp'scavengeId :: !Data.Text.Text, + _ScavengeResp'scavengeResult :: !ScavengeResp'ScavengeResult, + _ScavengeResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ScavengeResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ScavengeResp "scavengeId" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ScavengeResp'scavengeId + (\ x__ y__ -> x__ {_ScavengeResp'scavengeId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ScavengeResp "scavengeResult" ScavengeResp'ScavengeResult where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ScavengeResp'scavengeResult + (\ x__ y__ -> x__ {_ScavengeResp'scavengeResult = y__})) + Prelude.id +instance Data.ProtoLens.Message ScavengeResp where + messageName _ + = Data.Text.pack "event_store.client.operations.ScavengeResp" + packedMessageDescriptor _ + = "\n\ + \\fScavengeResp\DC2\US\n\ + \\vscavenge_id\CAN\SOH \SOH(\tR\n\ + \scavengeId\DC2c\n\ + \\SIscavenge_result\CAN\STX \SOH(\SO2:.event_store.client.operations.ScavengeResp.ScavengeResultR\SOscavengeResult\":\n\ + \\SOScavengeResult\DC2\v\n\ + \\aStarted\DLE\NUL\DC2\SO\n\ + \\n\ + \InProgress\DLE\SOH\DC2\v\n\ + \\aStopped\DLE\STX" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + scavengeId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "scavenge_id" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"scavengeId")) :: + Data.ProtoLens.FieldDescriptor ScavengeResp + scavengeResult__field_descriptor + = Data.ProtoLens.FieldDescriptor + "scavenge_result" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor ScavengeResp'ScavengeResult) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"scavengeResult")) :: + Data.ProtoLens.FieldDescriptor ScavengeResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, scavengeId__field_descriptor), + (Data.ProtoLens.Tag 2, scavengeResult__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ScavengeResp'_unknownFields + (\ x__ y__ -> x__ {_ScavengeResp'_unknownFields = y__}) + defMessage + = ScavengeResp'_constructor + {_ScavengeResp'scavengeId = Data.ProtoLens.fieldDefault, + _ScavengeResp'scavengeResult = Data.ProtoLens.fieldDefault, + _ScavengeResp'_unknownFields = []} + parseMessage + = let + loop :: + ScavengeResp -> Data.ProtoLens.Encoding.Bytes.Parser ScavengeResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "scavenge_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"scavengeId") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "scavenge_result" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"scavengeResult") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ScavengeResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"scavengeId") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"scavengeResult") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ScavengeResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ScavengeResp'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ScavengeResp'scavengeId x__) + (Control.DeepSeq.deepseq (_ScavengeResp'scavengeResult x__) ())) +newtype ScavengeResp'ScavengeResult'UnrecognizedValue + = ScavengeResp'ScavengeResult'UnrecognizedValue Data.Int.Int32 + deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) +data ScavengeResp'ScavengeResult + = ScavengeResp'Started | + ScavengeResp'InProgress | + ScavengeResp'Stopped | + ScavengeResp'ScavengeResult'Unrecognized !ScavengeResp'ScavengeResult'UnrecognizedValue + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum ScavengeResp'ScavengeResult where + maybeToEnum 0 = Prelude.Just ScavengeResp'Started + maybeToEnum 1 = Prelude.Just ScavengeResp'InProgress + maybeToEnum 2 = Prelude.Just ScavengeResp'Stopped + maybeToEnum k + = Prelude.Just + (ScavengeResp'ScavengeResult'Unrecognized + (ScavengeResp'ScavengeResult'UnrecognizedValue + (Prelude.fromIntegral k))) + showEnum ScavengeResp'Started = "Started" + showEnum ScavengeResp'InProgress = "InProgress" + showEnum ScavengeResp'Stopped = "Stopped" + showEnum + (ScavengeResp'ScavengeResult'Unrecognized (ScavengeResp'ScavengeResult'UnrecognizedValue k)) + = Prelude.show k + readEnum k + | (Prelude.==) k "Started" = Prelude.Just ScavengeResp'Started + | (Prelude.==) k "InProgress" + = Prelude.Just ScavengeResp'InProgress + | (Prelude.==) k "Stopped" = Prelude.Just ScavengeResp'Stopped + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded ScavengeResp'ScavengeResult where + minBound = ScavengeResp'Started + maxBound = ScavengeResp'Stopped +instance Prelude.Enum ScavengeResp'ScavengeResult where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum ScavengeResult: " + (Prelude.show k__))) + Prelude.id + (Data.ProtoLens.maybeToEnum k__) + fromEnum ScavengeResp'Started = 0 + fromEnum ScavengeResp'InProgress = 1 + fromEnum ScavengeResp'Stopped = 2 + fromEnum + (ScavengeResp'ScavengeResult'Unrecognized (ScavengeResp'ScavengeResult'UnrecognizedValue k)) + = Prelude.fromIntegral k + succ ScavengeResp'Stopped + = Prelude.error + "ScavengeResp'ScavengeResult.succ: bad argument ScavengeResp'Stopped. This value would be out of bounds." + succ ScavengeResp'Started = ScavengeResp'InProgress + succ ScavengeResp'InProgress = ScavengeResp'Stopped + succ (ScavengeResp'ScavengeResult'Unrecognized _) + = Prelude.error + "ScavengeResp'ScavengeResult.succ: bad argument: unrecognized value" + pred ScavengeResp'Started + = Prelude.error + "ScavengeResp'ScavengeResult.pred: bad argument ScavengeResp'Started. This value would be out of bounds." + pred ScavengeResp'InProgress = ScavengeResp'Started + pred ScavengeResp'Stopped = ScavengeResp'InProgress + pred (ScavengeResp'ScavengeResult'Unrecognized _) + = Prelude.error + "ScavengeResp'ScavengeResult.pred: bad argument: unrecognized value" + enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom + enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo + enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen + enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo +instance Data.ProtoLens.FieldDefault ScavengeResp'ScavengeResult where + fieldDefault = ScavengeResp'Started +instance Control.DeepSeq.NFData ScavengeResp'ScavengeResult where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Operations_Fields.priority' @:: Lens' SetNodePriorityReq Data.Int.Int32@ -} +data SetNodePriorityReq + = SetNodePriorityReq'_constructor {_SetNodePriorityReq'priority :: !Data.Int.Int32, + _SetNodePriorityReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show SetNodePriorityReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField SetNodePriorityReq "priority" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SetNodePriorityReq'priority + (\ x__ y__ -> x__ {_SetNodePriorityReq'priority = y__})) + Prelude.id +instance Data.ProtoLens.Message SetNodePriorityReq where + messageName _ + = Data.Text.pack "event_store.client.operations.SetNodePriorityReq" + packedMessageDescriptor _ + = "\n\ + \\DC2SetNodePriorityReq\DC2\SUB\n\ + \\bpriority\CAN\SOH \SOH(\ENQR\bpriority" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + priority__field_descriptor + = Data.ProtoLens.FieldDescriptor + "priority" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"priority")) :: + Data.ProtoLens.FieldDescriptor SetNodePriorityReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, priority__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _SetNodePriorityReq'_unknownFields + (\ x__ y__ -> x__ {_SetNodePriorityReq'_unknownFields = y__}) + defMessage + = SetNodePriorityReq'_constructor + {_SetNodePriorityReq'priority = Data.ProtoLens.fieldDefault, + _SetNodePriorityReq'_unknownFields = []} + parseMessage + = let + loop :: + SetNodePriorityReq + -> Data.ProtoLens.Encoding.Bytes.Parser SetNodePriorityReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "priority" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"priority") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "SetNodePriorityReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"priority") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData SetNodePriorityReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_SetNodePriorityReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_SetNodePriorityReq'priority x__) ()) +{- | Fields : + + * 'Proto.Operations_Fields.options' @:: Lens' StartScavengeReq StartScavengeReq'Options@ + * 'Proto.Operations_Fields.maybe'options' @:: Lens' StartScavengeReq (Prelude.Maybe StartScavengeReq'Options)@ -} +data StartScavengeReq + = StartScavengeReq'_constructor {_StartScavengeReq'options :: !(Prelude.Maybe StartScavengeReq'Options), + _StartScavengeReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StartScavengeReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StartScavengeReq "options" StartScavengeReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StartScavengeReq'options + (\ x__ y__ -> x__ {_StartScavengeReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StartScavengeReq "maybe'options" (Prelude.Maybe StartScavengeReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StartScavengeReq'options + (\ x__ y__ -> x__ {_StartScavengeReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message StartScavengeReq where + messageName _ + = Data.Text.pack "event_store.client.operations.StartScavengeReq" + packedMessageDescriptor _ + = "\n\ + \\DLEStartScavengeReq\DC2Q\n\ + \\aoptions\CAN\SOH \SOH(\v27.event_store.client.operations.StartScavengeReq.OptionsR\aoptions\SUBV\n\ + \\aOptions\DC2!\n\ + \\fthread_count\CAN\SOH \SOH(\ENQR\vthreadCount\DC2(\n\ + \\DLEstart_from_chunk\CAN\STX \SOH(\ENQR\SOstartFromChunk" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StartScavengeReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor StartScavengeReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StartScavengeReq'_unknownFields + (\ x__ y__ -> x__ {_StartScavengeReq'_unknownFields = y__}) + defMessage + = StartScavengeReq'_constructor + {_StartScavengeReq'options = Prelude.Nothing, + _StartScavengeReq'_unknownFields = []} + parseMessage + = let + loop :: + StartScavengeReq + -> Data.ProtoLens.Encoding.Bytes.Parser StartScavengeReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StartScavengeReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData StartScavengeReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StartScavengeReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_StartScavengeReq'options x__) ()) +{- | Fields : + + * 'Proto.Operations_Fields.threadCount' @:: Lens' StartScavengeReq'Options Data.Int.Int32@ + * 'Proto.Operations_Fields.startFromChunk' @:: Lens' StartScavengeReq'Options Data.Int.Int32@ -} +data StartScavengeReq'Options + = StartScavengeReq'Options'_constructor {_StartScavengeReq'Options'threadCount :: !Data.Int.Int32, + _StartScavengeReq'Options'startFromChunk :: !Data.Int.Int32, + _StartScavengeReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StartScavengeReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StartScavengeReq'Options "threadCount" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StartScavengeReq'Options'threadCount + (\ x__ y__ -> x__ {_StartScavengeReq'Options'threadCount = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StartScavengeReq'Options "startFromChunk" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StartScavengeReq'Options'startFromChunk + (\ x__ y__ + -> x__ {_StartScavengeReq'Options'startFromChunk = y__})) + Prelude.id +instance Data.ProtoLens.Message StartScavengeReq'Options where + messageName _ + = Data.Text.pack + "event_store.client.operations.StartScavengeReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2!\n\ + \\fthread_count\CAN\SOH \SOH(\ENQR\vthreadCount\DC2(\n\ + \\DLEstart_from_chunk\CAN\STX \SOH(\ENQR\SOstartFromChunk" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + threadCount__field_descriptor + = Data.ProtoLens.FieldDescriptor + "thread_count" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"threadCount")) :: + Data.ProtoLens.FieldDescriptor StartScavengeReq'Options + startFromChunk__field_descriptor + = Data.ProtoLens.FieldDescriptor + "start_from_chunk" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"startFromChunk")) :: + Data.ProtoLens.FieldDescriptor StartScavengeReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, threadCount__field_descriptor), + (Data.ProtoLens.Tag 2, startFromChunk__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StartScavengeReq'Options'_unknownFields + (\ x__ y__ -> x__ {_StartScavengeReq'Options'_unknownFields = y__}) + defMessage + = StartScavengeReq'Options'_constructor + {_StartScavengeReq'Options'threadCount = Data.ProtoLens.fieldDefault, + _StartScavengeReq'Options'startFromChunk = Data.ProtoLens.fieldDefault, + _StartScavengeReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + StartScavengeReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser StartScavengeReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "thread_count" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"threadCount") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "start_from_chunk" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"startFromChunk") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"threadCount") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"startFromChunk") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData StartScavengeReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StartScavengeReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_StartScavengeReq'Options'threadCount x__) + (Control.DeepSeq.deepseq + (_StartScavengeReq'Options'startFromChunk x__) ())) +{- | Fields : + + * 'Proto.Operations_Fields.options' @:: Lens' StopScavengeReq StopScavengeReq'Options@ + * 'Proto.Operations_Fields.maybe'options' @:: Lens' StopScavengeReq (Prelude.Maybe StopScavengeReq'Options)@ -} +data StopScavengeReq + = StopScavengeReq'_constructor {_StopScavengeReq'options :: !(Prelude.Maybe StopScavengeReq'Options), + _StopScavengeReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StopScavengeReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StopScavengeReq "options" StopScavengeReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StopScavengeReq'options + (\ x__ y__ -> x__ {_StopScavengeReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StopScavengeReq "maybe'options" (Prelude.Maybe StopScavengeReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StopScavengeReq'options + (\ x__ y__ -> x__ {_StopScavengeReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message StopScavengeReq where + messageName _ + = Data.Text.pack "event_store.client.operations.StopScavengeReq" + packedMessageDescriptor _ + = "\n\ + \\SIStopScavengeReq\DC2P\n\ + \\aoptions\CAN\SOH \SOH(\v26.event_store.client.operations.StopScavengeReq.OptionsR\aoptions\SUB*\n\ + \\aOptions\DC2\US\n\ + \\vscavenge_id\CAN\SOH \SOH(\tR\n\ + \scavengeId" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StopScavengeReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor StopScavengeReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StopScavengeReq'_unknownFields + (\ x__ y__ -> x__ {_StopScavengeReq'_unknownFields = y__}) + defMessage + = StopScavengeReq'_constructor + {_StopScavengeReq'options = Prelude.Nothing, + _StopScavengeReq'_unknownFields = []} + parseMessage + = let + loop :: + StopScavengeReq + -> Data.ProtoLens.Encoding.Bytes.Parser StopScavengeReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StopScavengeReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData StopScavengeReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StopScavengeReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_StopScavengeReq'options x__) ()) +{- | Fields : + + * 'Proto.Operations_Fields.scavengeId' @:: Lens' StopScavengeReq'Options Data.Text.Text@ -} +data StopScavengeReq'Options + = StopScavengeReq'Options'_constructor {_StopScavengeReq'Options'scavengeId :: !Data.Text.Text, + _StopScavengeReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StopScavengeReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StopScavengeReq'Options "scavengeId" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StopScavengeReq'Options'scavengeId + (\ x__ y__ -> x__ {_StopScavengeReq'Options'scavengeId = y__})) + Prelude.id +instance Data.ProtoLens.Message StopScavengeReq'Options where + messageName _ + = Data.Text.pack + "event_store.client.operations.StopScavengeReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2\US\n\ + \\vscavenge_id\CAN\SOH \SOH(\tR\n\ + \scavengeId" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + scavengeId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "scavenge_id" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"scavengeId")) :: + Data.ProtoLens.FieldDescriptor StopScavengeReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, scavengeId__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StopScavengeReq'Options'_unknownFields + (\ x__ y__ -> x__ {_StopScavengeReq'Options'_unknownFields = y__}) + defMessage + = StopScavengeReq'Options'_constructor + {_StopScavengeReq'Options'scavengeId = Data.ProtoLens.fieldDefault, + _StopScavengeReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + StopScavengeReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser StopScavengeReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "scavenge_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"scavengeId") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"scavengeId") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData StopScavengeReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StopScavengeReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_StopScavengeReq'Options'scavengeId x__) ()) +data Operations = Operations {} +instance Data.ProtoLens.Service.Types.Service Operations where + type ServiceName Operations = "Operations" + type ServicePackage Operations = "event_store.client.operations" + type ServiceMethods Operations = '["mergeIndexes", + "resignNode", + "setNodePriority", + "shutdown", + "startScavenge", + "stopScavenge"] +instance Data.ProtoLens.Service.Types.HasMethodImpl Operations "startScavenge" where + type MethodName Operations "startScavenge" = "StartScavenge" + type MethodInput Operations "startScavenge" = StartScavengeReq + type MethodOutput Operations "startScavenge" = ScavengeResp + type MethodStreamingType Operations "startScavenge" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Operations "stopScavenge" where + type MethodName Operations "stopScavenge" = "StopScavenge" + type MethodInput Operations "stopScavenge" = StopScavengeReq + type MethodOutput Operations "stopScavenge" = ScavengeResp + type MethodStreamingType Operations "stopScavenge" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Operations "shutdown" where + type MethodName Operations "shutdown" = "Shutdown" + type MethodInput Operations "shutdown" = Proto.Shared.Empty + type MethodOutput Operations "shutdown" = Proto.Shared.Empty + type MethodStreamingType Operations "shutdown" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Operations "mergeIndexes" where + type MethodName Operations "mergeIndexes" = "MergeIndexes" + type MethodInput Operations "mergeIndexes" = Proto.Shared.Empty + type MethodOutput Operations "mergeIndexes" = Proto.Shared.Empty + type MethodStreamingType Operations "mergeIndexes" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Operations "resignNode" where + type MethodName Operations "resignNode" = "ResignNode" + type MethodInput Operations "resignNode" = Proto.Shared.Empty + type MethodOutput Operations "resignNode" = Proto.Shared.Empty + type MethodStreamingType Operations "resignNode" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Operations "setNodePriority" where + type MethodName Operations "setNodePriority" = "SetNodePriority" + type MethodInput Operations "setNodePriority" = SetNodePriorityReq + type MethodOutput Operations "setNodePriority" = Proto.Shared.Empty + type MethodStreamingType Operations "setNodePriority" = 'Data.ProtoLens.Service.Types.NonStreaming +packedFileDescriptor :: Data.ByteString.ByteString +packedFileDescriptor + = "\n\ + \\DLEoperations.proto\DC2\GSevent_store.client.operations\SUB\fshared.proto\"\189\SOH\n\ + \\DLEStartScavengeReq\DC2Q\n\ + \\aoptions\CAN\SOH \SOH(\v27.event_store.client.operations.StartScavengeReq.OptionsR\aoptions\SUBV\n\ + \\aOptions\DC2!\n\ + \\fthread_count\CAN\SOH \SOH(\ENQR\vthreadCount\DC2(\n\ + \\DLEstart_from_chunk\CAN\STX \SOH(\ENQR\SOstartFromChunk\"\143\SOH\n\ + \\SIStopScavengeReq\DC2P\n\ + \\aoptions\CAN\SOH \SOH(\v26.event_store.client.operations.StopScavengeReq.OptionsR\aoptions\SUB*\n\ + \\aOptions\DC2\US\n\ + \\vscavenge_id\CAN\SOH \SOH(\tR\n\ + \scavengeId\"\208\SOH\n\ + \\fScavengeResp\DC2\US\n\ + \\vscavenge_id\CAN\SOH \SOH(\tR\n\ + \scavengeId\DC2c\n\ + \\SIscavenge_result\CAN\STX \SOH(\SO2:.event_store.client.operations.ScavengeResp.ScavengeResultR\SOscavengeResult\":\n\ + \\SOScavengeResult\DC2\v\n\ + \\aStarted\DLE\NUL\DC2\SO\n\ + \\n\ + \InProgress\DLE\SOH\DC2\v\n\ + \\aStopped\DLE\STX\"0\n\ + \\DC2SetNodePriorityReq\DC2\SUB\n\ + \\bpriority\CAN\SOH \SOH(\ENQR\bpriority2\198\EOT\n\ + \\n\ + \Operations\DC2m\n\ + \\rStartScavenge\DC2/.event_store.client.operations.StartScavengeReq\SUB+.event_store.client.operations.ScavengeResp\DC2k\n\ + \\fStopScavenge\DC2..event_store.client.operations.StopScavengeReq\SUB+.event_store.client.operations.ScavengeResp\DC2N\n\ + \\bShutdown\DC2 .event_store.client.shared.Empty\SUB .event_store.client.shared.Empty\DC2R\n\ + \\fMergeIndexes\DC2 .event_store.client.shared.Empty\SUB .event_store.client.shared.Empty\DC2P\n\ + \\n\ + \ResignNode\DC2 .event_store.client.shared.Empty\SUB .event_store.client.shared.Empty\DC2f\n\ + \\SISetNodePriority\DC21.event_store.client.operations.SetNodePriorityReq\SUB .event_store.client.shared.EmptyB*\n\ + \(com.eventstore.dbclient.proto.operationsJ\175\t\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&\n\ + \\b\n\ + \\SOH\b\DC2\ETX\STX\NULA\n\ + \\t\n\ + \\STX\b\SOH\DC2\ETX\STX\NULA\n\ + \\t\n\ + \\STX\ETX\NUL\DC2\ETX\EOT\NUL\SYN\n\ + \\n\ + \\n\ + \\STX\ACK\NUL\DC2\EOT\ACK\NUL\r\SOH\n\ + \\n\ + \\n\ + \\ETX\ACK\NUL\SOH\DC2\ETX\ACK\b\DC2\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\NUL\DC2\ETX\a\bD\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX\a\f\EM\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX\a\ESC+\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX\a6B\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\SOH\DC2\ETX\b\bB\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\SOH\DC2\ETX\b\f\CAN\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\STX\DC2\ETX\b\SUB)\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETX\b4@\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\STX\DC2\ETX\t\ba\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\SOH\DC2\ETX\t\f\DC4\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\STX\DC2\ETX\t\SYN5\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\ETX\DC2\ETX\t@_\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\ETX\DC2\ETX\n\ + \\be\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\SOH\DC2\ETX\n\ + \\f\CAN\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\STX\DC2\ETX\n\ + \\SUB9\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\ETX\DC2\ETX\n\ + \Dc\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\EOT\DC2\ETX\v\bc\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\EOT\SOH\DC2\ETX\v\f\SYN\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\EOT\STX\DC2\ETX\v\CAN7\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\EOT\ETX\DC2\ETX\vBa\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\ENQ\DC2\ETX\f\b[\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ENQ\SOH\DC2\ETX\f\f\ESC\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ENQ\STX\DC2\ETX\f\GS/\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ENQ\ETX\DC2\ETX\f:Y\n\ + \\n\ + \\n\ + \\STX\EOT\NUL\DC2\EOT\SI\NUL\NAK\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\NUL\SOH\DC2\ETX\SI\b\CAN\n\ + \\v\n\ + \\EOT\EOT\NUL\STX\NUL\DC2\ETX\DLE\b\FS\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\DLE\b\SI\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\DLE\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\DLE\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\NUL\ETX\NUL\DC2\EOT\DC1\b\DC4\t\n\ + \\f\n\ + \\ENQ\EOT\NUL\ETX\NUL\SOH\DC2\ETX\DC1\DLE\ETB\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\NUL\DC2\ETX\DC2\DLE'\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\NUL\ENQ\DC2\ETX\DC2\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETX\DC2\SYN\"\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETX\DC2%&\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\SOH\DC2\ETX\DC3\DLE+\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\SOH\ENQ\DC2\ETX\DC3\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\SOH\SOH\DC2\ETX\DC3\SYN&\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\SOH\ETX\DC2\ETX\DC3)*\n\ + \\n\ + \\n\ + \\STX\EOT\SOH\DC2\EOT\ETB\NUL\FS\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\SOH\SOH\DC2\ETX\ETB\b\ETB\n\ + \\v\n\ + \\EOT\EOT\SOH\STX\NUL\DC2\ETX\CAN\b\FS\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX\CAN\b\SI\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\CAN\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\CAN\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\SOH\ETX\NUL\DC2\EOT\EM\b\ESC\t\n\ + \\f\n\ + \\ENQ\EOT\SOH\ETX\NUL\SOH\DC2\ETX\EM\DLE\ETB\n\ + \\r\n\ + \\ACK\EOT\SOH\ETX\NUL\STX\NUL\DC2\ETX\SUB\DLE'\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\NUL\ENQ\DC2\ETX\SUB\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\NUL\SOH\DC2\ETX\SUB\ETB\"\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\NUL\ETX\DC2\ETX\SUB%&\n\ + \\n\ + \\n\ + \\STX\EOT\STX\DC2\EOT\RS\NUL'\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\STX\SOH\DC2\ETX\RS\b\DC4\n\ + \\v\n\ + \\EOT\EOT\STX\STX\NUL\DC2\ETX\US\b\US\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX\US\b\SO\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\US\SI\SUB\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\US\GS\RS\n\ + \\v\n\ + \\EOT\EOT\STX\STX\SOH\DC2\ETX \b+\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETX \b\SYN\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX \ETB&\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX )*\n\ + \\f\n\ + \\EOT\EOT\STX\EOT\NUL\DC2\EOT\"\b&\t\n\ + \\f\n\ + \\ENQ\EOT\STX\EOT\NUL\SOH\DC2\ETX\"\r\ESC\n\ + \\r\n\ + \\ACK\EOT\STX\EOT\NUL\STX\NUL\DC2\ETX#\DLE\FS\n\ + \\SO\n\ + \\a\EOT\STX\EOT\NUL\STX\NUL\SOH\DC2\ETX#\DLE\ETB\n\ + \\SO\n\ + \\a\EOT\STX\EOT\NUL\STX\NUL\STX\DC2\ETX#\SUB\ESC\n\ + \\r\n\ + \\ACK\EOT\STX\EOT\NUL\STX\SOH\DC2\ETX$\DLE\US\n\ + \\SO\n\ + \\a\EOT\STX\EOT\NUL\STX\SOH\SOH\DC2\ETX$\DLE\SUB\n\ + \\SO\n\ + \\a\EOT\STX\EOT\NUL\STX\SOH\STX\DC2\ETX$\GS\RS\n\ + \\r\n\ + \\ACK\EOT\STX\EOT\NUL\STX\STX\DC2\ETX%\DLE\FS\n\ + \\SO\n\ + \\a\EOT\STX\EOT\NUL\STX\STX\SOH\DC2\ETX%\DLE\ETB\n\ + \\SO\n\ + \\a\EOT\STX\EOT\NUL\STX\STX\STX\DC2\ETX%\SUB\ESC\n\ + \\n\ + \\n\ + \\STX\EOT\ETX\DC2\EOT)\NUL+\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\ETX\SOH\DC2\ETX)\b\SUB\n\ + \\v\n\ + \\EOT\EOT\ETX\STX\NUL\DC2\ETX*\b\ESC\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX*\b\r\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX*\SO\SYN\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX*\EM\SUBb\ACKproto3" \ No newline at end of file diff --git a/Proto/Operations_Fields.hs b/Proto/Operations_Fields.hs new file mode 100644 index 0000000..1794af1 --- /dev/null +++ b/Proto/Operations_Fields.hs @@ -0,0 +1,71 @@ +{- This file was auto-generated from operations.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.Operations_Fields where +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.Shared +maybe'options :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'options" a) => + Lens.Family2.LensLike' f s a +maybe'options = Data.ProtoLens.Field.field @"maybe'options" +options :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "options" a) => + Lens.Family2.LensLike' f s a +options = Data.ProtoLens.Field.field @"options" +priority :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "priority" a) => + Lens.Family2.LensLike' f s a +priority = Data.ProtoLens.Field.field @"priority" +scavengeId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "scavengeId" a) => + Lens.Family2.LensLike' f s a +scavengeId = Data.ProtoLens.Field.field @"scavengeId" +scavengeResult :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "scavengeResult" a) => + Lens.Family2.LensLike' f s a +scavengeResult = Data.ProtoLens.Field.field @"scavengeResult" +startFromChunk :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "startFromChunk" a) => + Lens.Family2.LensLike' f s a +startFromChunk = Data.ProtoLens.Field.field @"startFromChunk" +threadCount :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "threadCount" a) => + Lens.Family2.LensLike' f s a +threadCount = Data.ProtoLens.Field.field @"threadCount" \ No newline at end of file diff --git a/Proto/Persistent.hs b/Proto/Persistent.hs new file mode 100644 index 0000000..cd9f3a8 --- /dev/null +++ b/Proto/Persistent.hs @@ -0,0 +1,6721 @@ +{- This file was auto-generated from persistent.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.Persistent ( + PersistentSubscriptions(..), CreateReq(), + CreateReq'ConsumerStrategy(..), CreateReq'ConsumerStrategy(), + CreateReq'ConsumerStrategy'UnrecognizedValue, CreateReq'Options(), + CreateReq'Settings(), CreateResp(), DeleteReq(), + DeleteReq'Options(), DeleteResp(), ReadReq(), ReadReq'Content(..), + _ReadReq'Options', _ReadReq'Ack', _ReadReq'Nack', ReadReq'Ack(), + ReadReq'Nack(), ReadReq'Nack'Action(..), ReadReq'Nack'Action(), + ReadReq'Nack'Action'UnrecognizedValue, ReadReq'Options(), + ReadReq'Options'UUIDOption(), + ReadReq'Options'UUIDOption'Content(..), + _ReadReq'Options'UUIDOption'Structured, + _ReadReq'Options'UUIDOption'String, ReadResp(), + ReadResp'Content(..), _ReadResp'Event, + _ReadResp'SubscriptionConfirmation', ReadResp'ReadEvent(), + ReadResp'ReadEvent'Position(..), ReadResp'ReadEvent'Count(..), + _ReadResp'ReadEvent'CommitPosition, _ReadResp'ReadEvent'NoPosition, + _ReadResp'ReadEvent'RetryCount, _ReadResp'ReadEvent'NoRetryCount, + ReadResp'ReadEvent'RecordedEvent(), + ReadResp'ReadEvent'RecordedEvent'MetadataEntry(), + ReadResp'SubscriptionConfirmation(), UpdateReq(), + UpdateReq'ConsumerStrategy(..), UpdateReq'ConsumerStrategy(), + UpdateReq'ConsumerStrategy'UnrecognizedValue, UpdateReq'Options(), + UpdateReq'Settings(), UpdateResp() + ) 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.Shared +{- | Fields : + + * 'Proto.Persistent_Fields.options' @:: Lens' CreateReq CreateReq'Options@ + * 'Proto.Persistent_Fields.maybe'options' @:: Lens' CreateReq (Prelude.Maybe CreateReq'Options)@ -} +data CreateReq + = CreateReq'_constructor {_CreateReq'options :: !(Prelude.Maybe CreateReq'Options), + _CreateReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CreateReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField CreateReq "options" CreateReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'options (\ x__ y__ -> x__ {_CreateReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField CreateReq "maybe'options" (Prelude.Maybe CreateReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'options (\ x__ y__ -> x__ {_CreateReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message CreateReq where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.CreateReq" + packedMessageDescriptor _ + = "\n\ + \\tCreateReq\DC2X\n\ + \\aoptions\CAN\SOH \SOH(\v2>.event_store.client.persistent_subscriptions.CreateReq.OptionsR\aoptions\SUB\223\SOH\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\GS\n\ + \\n\ + \group_name\CAN\STX \SOH(\tR\tgroupName\DC2[\n\ + \\bsettings\CAN\ETX \SOH(\v2?.event_store.client.persistent_subscriptions.CreateReq.SettingsR\bsettings\SUB\139\ENQ\n\ + \\bSettings\DC2#\n\ + \\rresolve_links\CAN\SOH \SOH(\bR\fresolveLinks\DC2\SUB\n\ + \\brevision\CAN\STX \SOH(\EOTR\brevision\DC2)\n\ + \\DLEextra_statistics\CAN\ETX \SOH(\bR\SIextraStatistics\DC2'\n\ + \\SImessage_timeout\CAN\EOT \SOH(\ETXR\SOmessageTimeout\DC2&\n\ + \\SImax_retry_count\CAN\ENQ \SOH(\ENQR\rmaxRetryCount\DC2)\n\ + \\DLEcheckpoint_after\CAN\ACK \SOH(\ETXR\SIcheckpointAfter\DC20\n\ + \\DC4min_checkpoint_count\CAN\a \SOH(\ENQR\DC2minCheckpointCount\DC20\n\ + \\DC4max_checkpoint_count\CAN\b \SOH(\ENQR\DC2maxCheckpointCount\DC20\n\ + \\DC4max_subscriber_count\CAN\t \SOH(\ENQR\DC2maxSubscriberCount\DC2(\n\ + \\DLElive_buffer_size\CAN\n\ + \ \SOH(\ENQR\SOliveBufferSize\DC2&\n\ + \\SIread_batch_size\CAN\v \SOH(\ENQR\rreadBatchSize\DC2.\n\ + \\DC3history_buffer_size\CAN\f \SOH(\ENQR\DC1historyBufferSize\DC2\DEL\n\ + \\ETBnamed_consumer_strategy\CAN\r \SOH(\SO2G.event_store.client.persistent_subscriptions.CreateReq.ConsumerStrategyR\NAKnamedConsumerStrategy\"D\n\ + \\DLEConsumerStrategy\DC2\DC4\n\ + \\DLEDispatchToSingle\DLE\NUL\DC2\SO\n\ + \\n\ + \RoundRobin\DLE\SOH\DC2\n\ + \\n\ + \\ACKPinned\DLE\STX" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CreateReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor CreateReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _CreateReq'_unknownFields + (\ x__ y__ -> x__ {_CreateReq'_unknownFields = y__}) + defMessage + = CreateReq'_constructor + {_CreateReq'options = Prelude.Nothing, + _CreateReq'_unknownFields = []} + parseMessage + = let + loop :: CreateReq -> Data.ProtoLens.Encoding.Bytes.Parser CreateReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "CreateReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData CreateReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_CreateReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_CreateReq'options x__) ()) +newtype CreateReq'ConsumerStrategy'UnrecognizedValue + = CreateReq'ConsumerStrategy'UnrecognizedValue Data.Int.Int32 + deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) +data CreateReq'ConsumerStrategy + = CreateReq'DispatchToSingle | + CreateReq'RoundRobin | + CreateReq'Pinned | + CreateReq'ConsumerStrategy'Unrecognized !CreateReq'ConsumerStrategy'UnrecognizedValue + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum CreateReq'ConsumerStrategy where + maybeToEnum 0 = Prelude.Just CreateReq'DispatchToSingle + maybeToEnum 1 = Prelude.Just CreateReq'RoundRobin + maybeToEnum 2 = Prelude.Just CreateReq'Pinned + maybeToEnum k + = Prelude.Just + (CreateReq'ConsumerStrategy'Unrecognized + (CreateReq'ConsumerStrategy'UnrecognizedValue + (Prelude.fromIntegral k))) + showEnum CreateReq'DispatchToSingle = "DispatchToSingle" + showEnum CreateReq'RoundRobin = "RoundRobin" + showEnum CreateReq'Pinned = "Pinned" + showEnum + (CreateReq'ConsumerStrategy'Unrecognized (CreateReq'ConsumerStrategy'UnrecognizedValue k)) + = Prelude.show k + readEnum k + | (Prelude.==) k "DispatchToSingle" + = Prelude.Just CreateReq'DispatchToSingle + | (Prelude.==) k "RoundRobin" = Prelude.Just CreateReq'RoundRobin + | (Prelude.==) k "Pinned" = Prelude.Just CreateReq'Pinned + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded CreateReq'ConsumerStrategy where + minBound = CreateReq'DispatchToSingle + maxBound = CreateReq'Pinned +instance Prelude.Enum CreateReq'ConsumerStrategy where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum ConsumerStrategy: " + (Prelude.show k__))) + Prelude.id + (Data.ProtoLens.maybeToEnum k__) + fromEnum CreateReq'DispatchToSingle = 0 + fromEnum CreateReq'RoundRobin = 1 + fromEnum CreateReq'Pinned = 2 + fromEnum + (CreateReq'ConsumerStrategy'Unrecognized (CreateReq'ConsumerStrategy'UnrecognizedValue k)) + = Prelude.fromIntegral k + succ CreateReq'Pinned + = Prelude.error + "CreateReq'ConsumerStrategy.succ: bad argument CreateReq'Pinned. This value would be out of bounds." + succ CreateReq'DispatchToSingle = CreateReq'RoundRobin + succ CreateReq'RoundRobin = CreateReq'Pinned + succ (CreateReq'ConsumerStrategy'Unrecognized _) + = Prelude.error + "CreateReq'ConsumerStrategy.succ: bad argument: unrecognized value" + pred CreateReq'DispatchToSingle + = Prelude.error + "CreateReq'ConsumerStrategy.pred: bad argument CreateReq'DispatchToSingle. This value would be out of bounds." + pred CreateReq'RoundRobin = CreateReq'DispatchToSingle + pred CreateReq'Pinned = CreateReq'RoundRobin + pred (CreateReq'ConsumerStrategy'Unrecognized _) + = Prelude.error + "CreateReq'ConsumerStrategy.pred: bad argument: unrecognized value" + enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom + enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo + enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen + enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo +instance Data.ProtoLens.FieldDefault CreateReq'ConsumerStrategy where + fieldDefault = CreateReq'DispatchToSingle +instance Control.DeepSeq.NFData CreateReq'ConsumerStrategy where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Persistent_Fields.streamIdentifier' @:: Lens' CreateReq'Options Proto.Shared.StreamIdentifier@ + * 'Proto.Persistent_Fields.maybe'streamIdentifier' @:: Lens' CreateReq'Options (Prelude.Maybe Proto.Shared.StreamIdentifier)@ + * 'Proto.Persistent_Fields.groupName' @:: Lens' CreateReq'Options Data.Text.Text@ + * 'Proto.Persistent_Fields.settings' @:: Lens' CreateReq'Options CreateReq'Settings@ + * 'Proto.Persistent_Fields.maybe'settings' @:: Lens' CreateReq'Options (Prelude.Maybe CreateReq'Settings)@ -} +data CreateReq'Options + = CreateReq'Options'_constructor {_CreateReq'Options'streamIdentifier :: !(Prelude.Maybe Proto.Shared.StreamIdentifier), + _CreateReq'Options'groupName :: !Data.Text.Text, + _CreateReq'Options'settings :: !(Prelude.Maybe CreateReq'Settings), + _CreateReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CreateReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField CreateReq'Options "streamIdentifier" Proto.Shared.StreamIdentifier where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'streamIdentifier + (\ x__ y__ -> x__ {_CreateReq'Options'streamIdentifier = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField CreateReq'Options "maybe'streamIdentifier" (Prelude.Maybe Proto.Shared.StreamIdentifier) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'streamIdentifier + (\ x__ y__ -> x__ {_CreateReq'Options'streamIdentifier = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Options "groupName" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'groupName + (\ x__ y__ -> x__ {_CreateReq'Options'groupName = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Options "settings" CreateReq'Settings where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'settings + (\ x__ y__ -> x__ {_CreateReq'Options'settings = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField CreateReq'Options "maybe'settings" (Prelude.Maybe CreateReq'Settings) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'settings + (\ x__ y__ -> x__ {_CreateReq'Options'settings = y__})) + Prelude.id +instance Data.ProtoLens.Message CreateReq'Options where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.CreateReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\GS\n\ + \\n\ + \group_name\CAN\STX \SOH(\tR\tgroupName\DC2[\n\ + \\bsettings\CAN\ETX \SOH(\v2?.event_store.client.persistent_subscriptions.CreateReq.SettingsR\bsettings" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + streamIdentifier__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_identifier" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.StreamIdentifier) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'streamIdentifier")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Options + groupName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "group_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"groupName")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Options + settings__field_descriptor + = Data.ProtoLens.FieldDescriptor + "settings" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CreateReq'Settings) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'settings")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, streamIdentifier__field_descriptor), + (Data.ProtoLens.Tag 2, groupName__field_descriptor), + (Data.ProtoLens.Tag 3, settings__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _CreateReq'Options'_unknownFields + (\ x__ y__ -> x__ {_CreateReq'Options'_unknownFields = y__}) + defMessage + = CreateReq'Options'_constructor + {_CreateReq'Options'streamIdentifier = Prelude.Nothing, + _CreateReq'Options'groupName = Data.ProtoLens.fieldDefault, + _CreateReq'Options'settings = Prelude.Nothing, + _CreateReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + CreateReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser CreateReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stream_identifier" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamIdentifier") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "group_name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"groupName") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "settings" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"settings") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'streamIdentifier") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"groupName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'settings") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData CreateReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_CreateReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_CreateReq'Options'streamIdentifier x__) + (Control.DeepSeq.deepseq + (_CreateReq'Options'groupName x__) + (Control.DeepSeq.deepseq (_CreateReq'Options'settings x__) ()))) +{- | Fields : + + * 'Proto.Persistent_Fields.resolveLinks' @:: Lens' CreateReq'Settings Prelude.Bool@ + * 'Proto.Persistent_Fields.revision' @:: Lens' CreateReq'Settings Data.Word.Word64@ + * 'Proto.Persistent_Fields.extraStatistics' @:: Lens' CreateReq'Settings Prelude.Bool@ + * 'Proto.Persistent_Fields.messageTimeout' @:: Lens' CreateReq'Settings Data.Int.Int64@ + * 'Proto.Persistent_Fields.maxRetryCount' @:: Lens' CreateReq'Settings Data.Int.Int32@ + * 'Proto.Persistent_Fields.checkpointAfter' @:: Lens' CreateReq'Settings Data.Int.Int64@ + * 'Proto.Persistent_Fields.minCheckpointCount' @:: Lens' CreateReq'Settings Data.Int.Int32@ + * 'Proto.Persistent_Fields.maxCheckpointCount' @:: Lens' CreateReq'Settings Data.Int.Int32@ + * 'Proto.Persistent_Fields.maxSubscriberCount' @:: Lens' CreateReq'Settings Data.Int.Int32@ + * 'Proto.Persistent_Fields.liveBufferSize' @:: Lens' CreateReq'Settings Data.Int.Int32@ + * 'Proto.Persistent_Fields.readBatchSize' @:: Lens' CreateReq'Settings Data.Int.Int32@ + * 'Proto.Persistent_Fields.historyBufferSize' @:: Lens' CreateReq'Settings Data.Int.Int32@ + * 'Proto.Persistent_Fields.namedConsumerStrategy' @:: Lens' CreateReq'Settings CreateReq'ConsumerStrategy@ -} +data CreateReq'Settings + = CreateReq'Settings'_constructor {_CreateReq'Settings'resolveLinks :: !Prelude.Bool, + _CreateReq'Settings'revision :: !Data.Word.Word64, + _CreateReq'Settings'extraStatistics :: !Prelude.Bool, + _CreateReq'Settings'messageTimeout :: !Data.Int.Int64, + _CreateReq'Settings'maxRetryCount :: !Data.Int.Int32, + _CreateReq'Settings'checkpointAfter :: !Data.Int.Int64, + _CreateReq'Settings'minCheckpointCount :: !Data.Int.Int32, + _CreateReq'Settings'maxCheckpointCount :: !Data.Int.Int32, + _CreateReq'Settings'maxSubscriberCount :: !Data.Int.Int32, + _CreateReq'Settings'liveBufferSize :: !Data.Int.Int32, + _CreateReq'Settings'readBatchSize :: !Data.Int.Int32, + _CreateReq'Settings'historyBufferSize :: !Data.Int.Int32, + _CreateReq'Settings'namedConsumerStrategy :: !CreateReq'ConsumerStrategy, + _CreateReq'Settings'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CreateReq'Settings where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField CreateReq'Settings "resolveLinks" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Settings'resolveLinks + (\ x__ y__ -> x__ {_CreateReq'Settings'resolveLinks = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Settings "revision" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Settings'revision + (\ x__ y__ -> x__ {_CreateReq'Settings'revision = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Settings "extraStatistics" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Settings'extraStatistics + (\ x__ y__ -> x__ {_CreateReq'Settings'extraStatistics = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Settings "messageTimeout" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Settings'messageTimeout + (\ x__ y__ -> x__ {_CreateReq'Settings'messageTimeout = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Settings "maxRetryCount" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Settings'maxRetryCount + (\ x__ y__ -> x__ {_CreateReq'Settings'maxRetryCount = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Settings "checkpointAfter" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Settings'checkpointAfter + (\ x__ y__ -> x__ {_CreateReq'Settings'checkpointAfter = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Settings "minCheckpointCount" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Settings'minCheckpointCount + (\ x__ y__ -> x__ {_CreateReq'Settings'minCheckpointCount = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Settings "maxCheckpointCount" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Settings'maxCheckpointCount + (\ x__ y__ -> x__ {_CreateReq'Settings'maxCheckpointCount = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Settings "maxSubscriberCount" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Settings'maxSubscriberCount + (\ x__ y__ -> x__ {_CreateReq'Settings'maxSubscriberCount = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Settings "liveBufferSize" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Settings'liveBufferSize + (\ x__ y__ -> x__ {_CreateReq'Settings'liveBufferSize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Settings "readBatchSize" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Settings'readBatchSize + (\ x__ y__ -> x__ {_CreateReq'Settings'readBatchSize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Settings "historyBufferSize" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Settings'historyBufferSize + (\ x__ y__ -> x__ {_CreateReq'Settings'historyBufferSize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Settings "namedConsumerStrategy" CreateReq'ConsumerStrategy where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Settings'namedConsumerStrategy + (\ x__ y__ + -> x__ {_CreateReq'Settings'namedConsumerStrategy = y__})) + Prelude.id +instance Data.ProtoLens.Message CreateReq'Settings where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.CreateReq.Settings" + packedMessageDescriptor _ + = "\n\ + \\bSettings\DC2#\n\ + \\rresolve_links\CAN\SOH \SOH(\bR\fresolveLinks\DC2\SUB\n\ + \\brevision\CAN\STX \SOH(\EOTR\brevision\DC2)\n\ + \\DLEextra_statistics\CAN\ETX \SOH(\bR\SIextraStatistics\DC2'\n\ + \\SImessage_timeout\CAN\EOT \SOH(\ETXR\SOmessageTimeout\DC2&\n\ + \\SImax_retry_count\CAN\ENQ \SOH(\ENQR\rmaxRetryCount\DC2)\n\ + \\DLEcheckpoint_after\CAN\ACK \SOH(\ETXR\SIcheckpointAfter\DC20\n\ + \\DC4min_checkpoint_count\CAN\a \SOH(\ENQR\DC2minCheckpointCount\DC20\n\ + \\DC4max_checkpoint_count\CAN\b \SOH(\ENQR\DC2maxCheckpointCount\DC20\n\ + \\DC4max_subscriber_count\CAN\t \SOH(\ENQR\DC2maxSubscriberCount\DC2(\n\ + \\DLElive_buffer_size\CAN\n\ + \ \SOH(\ENQR\SOliveBufferSize\DC2&\n\ + \\SIread_batch_size\CAN\v \SOH(\ENQR\rreadBatchSize\DC2.\n\ + \\DC3history_buffer_size\CAN\f \SOH(\ENQR\DC1historyBufferSize\DC2\DEL\n\ + \\ETBnamed_consumer_strategy\CAN\r \SOH(\SO2G.event_store.client.persistent_subscriptions.CreateReq.ConsumerStrategyR\NAKnamedConsumerStrategy" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + resolveLinks__field_descriptor + = Data.ProtoLens.FieldDescriptor + "resolve_links" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"resolveLinks")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Settings + revision__field_descriptor + = Data.ProtoLens.FieldDescriptor + "revision" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"revision")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Settings + extraStatistics__field_descriptor + = Data.ProtoLens.FieldDescriptor + "extra_statistics" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"extraStatistics")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Settings + messageTimeout__field_descriptor + = Data.ProtoLens.FieldDescriptor + "message_timeout" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"messageTimeout")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Settings + maxRetryCount__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_retry_count" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxRetryCount")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Settings + checkpointAfter__field_descriptor + = Data.ProtoLens.FieldDescriptor + "checkpoint_after" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"checkpointAfter")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Settings + minCheckpointCount__field_descriptor + = Data.ProtoLens.FieldDescriptor + "min_checkpoint_count" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"minCheckpointCount")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Settings + maxCheckpointCount__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_checkpoint_count" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxCheckpointCount")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Settings + maxSubscriberCount__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_subscriber_count" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxSubscriberCount")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Settings + liveBufferSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "live_buffer_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"liveBufferSize")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Settings + readBatchSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "read_batch_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"readBatchSize")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Settings + historyBufferSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "history_buffer_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"historyBufferSize")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Settings + namedConsumerStrategy__field_descriptor + = Data.ProtoLens.FieldDescriptor + "named_consumer_strategy" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor CreateReq'ConsumerStrategy) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"namedConsumerStrategy")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Settings + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, resolveLinks__field_descriptor), + (Data.ProtoLens.Tag 2, revision__field_descriptor), + (Data.ProtoLens.Tag 3, extraStatistics__field_descriptor), + (Data.ProtoLens.Tag 4, messageTimeout__field_descriptor), + (Data.ProtoLens.Tag 5, maxRetryCount__field_descriptor), + (Data.ProtoLens.Tag 6, checkpointAfter__field_descriptor), + (Data.ProtoLens.Tag 7, minCheckpointCount__field_descriptor), + (Data.ProtoLens.Tag 8, maxCheckpointCount__field_descriptor), + (Data.ProtoLens.Tag 9, maxSubscriberCount__field_descriptor), + (Data.ProtoLens.Tag 10, liveBufferSize__field_descriptor), + (Data.ProtoLens.Tag 11, readBatchSize__field_descriptor), + (Data.ProtoLens.Tag 12, historyBufferSize__field_descriptor), + (Data.ProtoLens.Tag 13, namedConsumerStrategy__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _CreateReq'Settings'_unknownFields + (\ x__ y__ -> x__ {_CreateReq'Settings'_unknownFields = y__}) + defMessage + = CreateReq'Settings'_constructor + {_CreateReq'Settings'resolveLinks = Data.ProtoLens.fieldDefault, + _CreateReq'Settings'revision = Data.ProtoLens.fieldDefault, + _CreateReq'Settings'extraStatistics = Data.ProtoLens.fieldDefault, + _CreateReq'Settings'messageTimeout = Data.ProtoLens.fieldDefault, + _CreateReq'Settings'maxRetryCount = Data.ProtoLens.fieldDefault, + _CreateReq'Settings'checkpointAfter = Data.ProtoLens.fieldDefault, + _CreateReq'Settings'minCheckpointCount = Data.ProtoLens.fieldDefault, + _CreateReq'Settings'maxCheckpointCount = Data.ProtoLens.fieldDefault, + _CreateReq'Settings'maxSubscriberCount = Data.ProtoLens.fieldDefault, + _CreateReq'Settings'liveBufferSize = Data.ProtoLens.fieldDefault, + _CreateReq'Settings'readBatchSize = Data.ProtoLens.fieldDefault, + _CreateReq'Settings'historyBufferSize = Data.ProtoLens.fieldDefault, + _CreateReq'Settings'namedConsumerStrategy = Data.ProtoLens.fieldDefault, + _CreateReq'Settings'_unknownFields = []} + parseMessage + = let + loop :: + CreateReq'Settings + -> Data.ProtoLens.Encoding.Bytes.Parser CreateReq'Settings + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "resolve_links" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"resolveLinks") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "revision" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"revision") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "extra_statistics" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"extraStatistics") y x) + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "message_timeout" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"messageTimeout") y x) + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "max_retry_count" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxRetryCount") y x) + 48 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "checkpoint_after" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"checkpointAfter") y x) + 56 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "min_checkpoint_count" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"minCheckpointCount") y x) + 64 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "max_checkpoint_count" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxCheckpointCount") y x) + 72 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "max_subscriber_count" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxSubscriberCount") y x) + 80 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "live_buffer_size" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"liveBufferSize") y x) + 88 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "read_batch_size" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"readBatchSize") y x) + 96 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "history_buffer_size" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"historyBufferSize") y x) + 104 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "named_consumer_strategy" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"namedConsumerStrategy") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Settings" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"resolveLinks") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"revision") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"extraStatistics") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"messageTimeout") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"maxRetryCount") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"checkpointAfter") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 48) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"minCheckpointCount") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 56) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"maxCheckpointCount") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 64) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"maxSubscriberCount") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 72) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"liveBufferSize") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 80) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"readBatchSize") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 88) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"historyBufferSize") + _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 96) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"namedConsumerStrategy") + _x + in + if (Prelude.==) + _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 104) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral) + Prelude.fromEnum + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields _x)))))))))))))) +instance Control.DeepSeq.NFData CreateReq'Settings where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_CreateReq'Settings'_unknownFields x__) + (Control.DeepSeq.deepseq + (_CreateReq'Settings'resolveLinks x__) + (Control.DeepSeq.deepseq + (_CreateReq'Settings'revision x__) + (Control.DeepSeq.deepseq + (_CreateReq'Settings'extraStatistics x__) + (Control.DeepSeq.deepseq + (_CreateReq'Settings'messageTimeout x__) + (Control.DeepSeq.deepseq + (_CreateReq'Settings'maxRetryCount x__) + (Control.DeepSeq.deepseq + (_CreateReq'Settings'checkpointAfter x__) + (Control.DeepSeq.deepseq + (_CreateReq'Settings'minCheckpointCount x__) + (Control.DeepSeq.deepseq + (_CreateReq'Settings'maxCheckpointCount x__) + (Control.DeepSeq.deepseq + (_CreateReq'Settings'maxSubscriberCount x__) + (Control.DeepSeq.deepseq + (_CreateReq'Settings'liveBufferSize x__) + (Control.DeepSeq.deepseq + (_CreateReq'Settings'readBatchSize x__) + (Control.DeepSeq.deepseq + (_CreateReq'Settings'historyBufferSize x__) + (Control.DeepSeq.deepseq + (_CreateReq'Settings'namedConsumerStrategy x__) + ()))))))))))))) +{- | Fields : + -} +data CreateResp + = CreateResp'_constructor {_CreateResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CreateResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message CreateResp where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.CreateResp" + packedMessageDescriptor _ + = "\n\ + \\n\ + \CreateResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _CreateResp'_unknownFields + (\ x__ y__ -> x__ {_CreateResp'_unknownFields = y__}) + defMessage + = CreateResp'_constructor {_CreateResp'_unknownFields = []} + parseMessage + = let + loop :: + CreateResp -> Data.ProtoLens.Encoding.Bytes.Parser CreateResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "CreateResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData CreateResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_CreateResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Persistent_Fields.options' @:: Lens' DeleteReq DeleteReq'Options@ + * 'Proto.Persistent_Fields.maybe'options' @:: Lens' DeleteReq (Prelude.Maybe DeleteReq'Options)@ -} +data DeleteReq + = DeleteReq'_constructor {_DeleteReq'options :: !(Prelude.Maybe DeleteReq'Options), + _DeleteReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DeleteReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DeleteReq "options" DeleteReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'options (\ x__ y__ -> x__ {_DeleteReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DeleteReq "maybe'options" (Prelude.Maybe DeleteReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'options (\ x__ y__ -> x__ {_DeleteReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message DeleteReq where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.DeleteReq" + packedMessageDescriptor _ + = "\n\ + \\tDeleteReq\DC2X\n\ + \\aoptions\CAN\SOH \SOH(\v2>.event_store.client.persistent_subscriptions.DeleteReq.OptionsR\aoptions\SUB\130\SOH\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\GS\n\ + \\n\ + \group_name\CAN\STX \SOH(\tR\tgroupName" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor DeleteReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor DeleteReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DeleteReq'_unknownFields + (\ x__ y__ -> x__ {_DeleteReq'_unknownFields = y__}) + defMessage + = DeleteReq'_constructor + {_DeleteReq'options = Prelude.Nothing, + _DeleteReq'_unknownFields = []} + parseMessage + = let + loop :: DeleteReq -> Data.ProtoLens.Encoding.Bytes.Parser DeleteReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "DeleteReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData DeleteReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DeleteReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_DeleteReq'options x__) ()) +{- | Fields : + + * 'Proto.Persistent_Fields.streamIdentifier' @:: Lens' DeleteReq'Options Proto.Shared.StreamIdentifier@ + * 'Proto.Persistent_Fields.maybe'streamIdentifier' @:: Lens' DeleteReq'Options (Prelude.Maybe Proto.Shared.StreamIdentifier)@ + * 'Proto.Persistent_Fields.groupName' @:: Lens' DeleteReq'Options Data.Text.Text@ -} +data DeleteReq'Options + = DeleteReq'Options'_constructor {_DeleteReq'Options'streamIdentifier :: !(Prelude.Maybe Proto.Shared.StreamIdentifier), + _DeleteReq'Options'groupName :: !Data.Text.Text, + _DeleteReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DeleteReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DeleteReq'Options "streamIdentifier" Proto.Shared.StreamIdentifier where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'streamIdentifier + (\ x__ y__ -> x__ {_DeleteReq'Options'streamIdentifier = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DeleteReq'Options "maybe'streamIdentifier" (Prelude.Maybe Proto.Shared.StreamIdentifier) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'streamIdentifier + (\ x__ y__ -> x__ {_DeleteReq'Options'streamIdentifier = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DeleteReq'Options "groupName" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'groupName + (\ x__ y__ -> x__ {_DeleteReq'Options'groupName = y__})) + Prelude.id +instance Data.ProtoLens.Message DeleteReq'Options where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.DeleteReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\GS\n\ + \\n\ + \group_name\CAN\STX \SOH(\tR\tgroupName" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + streamIdentifier__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_identifier" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.StreamIdentifier) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'streamIdentifier")) :: + Data.ProtoLens.FieldDescriptor DeleteReq'Options + groupName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "group_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"groupName")) :: + Data.ProtoLens.FieldDescriptor DeleteReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, streamIdentifier__field_descriptor), + (Data.ProtoLens.Tag 2, groupName__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DeleteReq'Options'_unknownFields + (\ x__ y__ -> x__ {_DeleteReq'Options'_unknownFields = y__}) + defMessage + = DeleteReq'Options'_constructor + {_DeleteReq'Options'streamIdentifier = Prelude.Nothing, + _DeleteReq'Options'groupName = Data.ProtoLens.fieldDefault, + _DeleteReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + DeleteReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser DeleteReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stream_identifier" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamIdentifier") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "group_name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"groupName") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'streamIdentifier") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"groupName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData DeleteReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DeleteReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_DeleteReq'Options'streamIdentifier x__) + (Control.DeepSeq.deepseq (_DeleteReq'Options'groupName x__) ())) +{- | Fields : + -} +data DeleteResp + = DeleteResp'_constructor {_DeleteResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DeleteResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message DeleteResp where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.DeleteResp" + packedMessageDescriptor _ + = "\n\ + \\n\ + \DeleteResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _DeleteResp'_unknownFields + (\ x__ y__ -> x__ {_DeleteResp'_unknownFields = y__}) + defMessage + = DeleteResp'_constructor {_DeleteResp'_unknownFields = []} + parseMessage + = let + loop :: + DeleteResp -> Data.ProtoLens.Encoding.Bytes.Parser DeleteResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "DeleteResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData DeleteResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_DeleteResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Persistent_Fields.maybe'content' @:: Lens' ReadReq (Prelude.Maybe ReadReq'Content)@ + * 'Proto.Persistent_Fields.maybe'options' @:: Lens' ReadReq (Prelude.Maybe ReadReq'Options)@ + * 'Proto.Persistent_Fields.options' @:: Lens' ReadReq ReadReq'Options@ + * 'Proto.Persistent_Fields.maybe'ack' @:: Lens' ReadReq (Prelude.Maybe ReadReq'Ack)@ + * 'Proto.Persistent_Fields.ack' @:: Lens' ReadReq ReadReq'Ack@ + * 'Proto.Persistent_Fields.maybe'nack' @:: Lens' ReadReq (Prelude.Maybe ReadReq'Nack)@ + * 'Proto.Persistent_Fields.nack' @:: Lens' ReadReq ReadReq'Nack@ -} +data ReadReq + = ReadReq'_constructor {_ReadReq'content :: !(Prelude.Maybe ReadReq'Content), + _ReadReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data ReadReq'Content + = ReadReq'Options' !ReadReq'Options | + ReadReq'Ack' !ReadReq'Ack | + ReadReq'Nack' !ReadReq'Nack + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField ReadReq "maybe'content" (Prelude.Maybe ReadReq'Content) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'content (\ x__ y__ -> x__ {_ReadReq'content = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq "maybe'options" (Prelude.Maybe ReadReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'content (\ x__ y__ -> x__ {_ReadReq'content = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options' x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options' y__)) +instance Data.ProtoLens.Field.HasField ReadReq "options" ReadReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'content (\ x__ y__ -> x__ {_ReadReq'content = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options' x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options' y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField ReadReq "maybe'ack" (Prelude.Maybe ReadReq'Ack) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'content (\ x__ y__ -> x__ {_ReadReq'content = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Ack' x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Ack' y__)) +instance Data.ProtoLens.Field.HasField ReadReq "ack" ReadReq'Ack where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'content (\ x__ y__ -> x__ {_ReadReq'content = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Ack' x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Ack' y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField ReadReq "maybe'nack" (Prelude.Maybe ReadReq'Nack) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'content (\ x__ y__ -> x__ {_ReadReq'content = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Nack' x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Nack' y__)) +instance Data.ProtoLens.Field.HasField ReadReq "nack" ReadReq'Nack where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'content (\ x__ y__ -> x__ {_ReadReq'content = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Nack' x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Nack' y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message ReadReq where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.ReadReq" + packedMessageDescriptor _ + = "\n\ + \\aReadReq\DC2X\n\ + \\aoptions\CAN\SOH \SOH(\v2<.event_store.client.persistent_subscriptions.ReadReq.OptionsH\NULR\aoptions\DC2L\n\ + \\ETXack\CAN\STX \SOH(\v28.event_store.client.persistent_subscriptions.ReadReq.AckH\NULR\ETXack\DC2O\n\ + \\EOTnack\CAN\ETX \SOH(\v29.event_store.client.persistent_subscriptions.ReadReq.NackH\NULR\EOTnack\SUB\167\ETX\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\GS\n\ + \\n\ + \group_name\CAN\STX \SOH(\tR\tgroupName\DC2\US\n\ + \\vbuffer_size\CAN\ETX \SOH(\ENQR\n\ + \bufferSize\DC2h\n\ + \\vuuid_option\CAN\EOT \SOH(\v2G.event_store.client.persistent_subscriptions.ReadReq.Options.UUIDOptionR\n\ + \uuidOption\SUB\151\SOH\n\ + \\n\ + \UUIDOption\DC2B\n\ + \\n\ + \structured\CAN\SOH \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \structured\DC2:\n\ + \\ACKstring\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ACKstringB\t\n\ + \\acontent\SUBH\n\ + \\ETXAck\DC2\SO\n\ + \\STXid\CAN\SOH \SOH(\fR\STXid\DC21\n\ + \\ETXids\CAN\STX \ETX(\v2\US.event_store.client.shared.UUIDR\ETXids\SUB\251\SOH\n\ + \\EOTNack\DC2\SO\n\ + \\STXid\CAN\SOH \SOH(\fR\STXid\DC21\n\ + \\ETXids\CAN\STX \ETX(\v2\US.event_store.client.shared.UUIDR\ETXids\DC2X\n\ + \\ACKaction\CAN\ETX \SOH(\SO2@.event_store.client.persistent_subscriptions.ReadReq.Nack.ActionR\ACKaction\DC2\SYN\n\ + \\ACKreason\CAN\EOT \SOH(\tR\ACKreason\">\n\ + \\ACKAction\DC2\v\n\ + \\aUnknown\DLE\NUL\DC2\b\n\ + \\EOTPark\DLE\SOH\DC2\t\n\ + \\ENQRetry\DLE\STX\DC2\b\n\ + \\EOTSkip\DLE\ETX\DC2\b\n\ + \\EOTStop\DLE\EOTB\t\n\ + \\acontent" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor ReadReq + ack__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ack" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadReq'Ack) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'ack")) :: + Data.ProtoLens.FieldDescriptor ReadReq + nack__field_descriptor + = Data.ProtoLens.FieldDescriptor + "nack" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadReq'Nack) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'nack")) :: + Data.ProtoLens.FieldDescriptor ReadReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor), + (Data.ProtoLens.Tag 2, ack__field_descriptor), + (Data.ProtoLens.Tag 3, nack__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadReq'_unknownFields + (\ x__ y__ -> x__ {_ReadReq'_unknownFields = y__}) + defMessage + = ReadReq'_constructor + {_ReadReq'content = Prelude.Nothing, _ReadReq'_unknownFields = []} + parseMessage + = let + loop :: ReadReq -> Data.ProtoLens.Encoding.Bytes.Parser ReadReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "ack" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ack") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "nack" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"nack") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ReadReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'content") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (ReadReq'Options' v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (ReadReq'Ack' v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (ReadReq'Nack' v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ReadReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_ReadReq'content x__) ()) +instance Control.DeepSeq.NFData ReadReq'Content where + rnf (ReadReq'Options' x__) = Control.DeepSeq.rnf x__ + rnf (ReadReq'Ack' x__) = Control.DeepSeq.rnf x__ + rnf (ReadReq'Nack' x__) = Control.DeepSeq.rnf x__ +_ReadReq'Options' :: + Data.ProtoLens.Prism.Prism' ReadReq'Content ReadReq'Options +_ReadReq'Options' + = Data.ProtoLens.Prism.prism' + ReadReq'Options' + (\ p__ + -> case p__ of + (ReadReq'Options' p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadReq'Ack' :: + Data.ProtoLens.Prism.Prism' ReadReq'Content ReadReq'Ack +_ReadReq'Ack' + = Data.ProtoLens.Prism.prism' + ReadReq'Ack' + (\ p__ + -> case p__ of + (ReadReq'Ack' p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadReq'Nack' :: + Data.ProtoLens.Prism.Prism' ReadReq'Content ReadReq'Nack +_ReadReq'Nack' + = Data.ProtoLens.Prism.prism' + ReadReq'Nack' + (\ p__ + -> case p__ of + (ReadReq'Nack' p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Persistent_Fields.id' @:: Lens' ReadReq'Ack Data.ByteString.ByteString@ + * 'Proto.Persistent_Fields.ids' @:: Lens' ReadReq'Ack [Proto.Shared.UUID]@ + * 'Proto.Persistent_Fields.vec'ids' @:: Lens' ReadReq'Ack (Data.Vector.Vector Proto.Shared.UUID)@ -} +data ReadReq'Ack + = ReadReq'Ack'_constructor {_ReadReq'Ack'id :: !Data.ByteString.ByteString, + _ReadReq'Ack'ids :: !(Data.Vector.Vector Proto.Shared.UUID), + _ReadReq'Ack'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadReq'Ack where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadReq'Ack "id" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Ack'id (\ x__ y__ -> x__ {_ReadReq'Ack'id = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Ack "ids" [Proto.Shared.UUID] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Ack'ids (\ x__ y__ -> x__ {_ReadReq'Ack'ids = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Ack "vec'ids" (Data.Vector.Vector Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Ack'ids (\ x__ y__ -> x__ {_ReadReq'Ack'ids = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadReq'Ack where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.ReadReq.Ack" + packedMessageDescriptor _ + = "\n\ + \\ETXAck\DC2\SO\n\ + \\STXid\CAN\SOH \SOH(\fR\STXid\DC21\n\ + \\ETXids\CAN\STX \ETX(\v2\US.event_store.client.shared.UUIDR\ETXids" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + id__field_descriptor + = Data.ProtoLens.FieldDescriptor + "id" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"id")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Ack + ids__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ids" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"ids")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Ack + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, id__field_descriptor), + (Data.ProtoLens.Tag 2, ids__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadReq'Ack'_unknownFields + (\ x__ y__ -> x__ {_ReadReq'Ack'_unknownFields = y__}) + defMessage + = ReadReq'Ack'_constructor + {_ReadReq'Ack'id = Data.ProtoLens.fieldDefault, + _ReadReq'Ack'ids = Data.Vector.Generic.empty, + _ReadReq'Ack'_unknownFields = []} + parseMessage + = let + loop :: + ReadReq'Ack + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Shared.UUID + -> Data.ProtoLens.Encoding.Bytes.Parser ReadReq'Ack + loop x mutable'ids + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'ids <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'ids) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields + (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'ids") frozen'ids x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"id") y x) + mutable'ids + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "ids" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'ids y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'ids + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'ids <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'ids) + "Ack" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"id") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'ids") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ReadReq'Ack where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadReq'Ack'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadReq'Ack'id x__) + (Control.DeepSeq.deepseq (_ReadReq'Ack'ids x__) ())) +{- | Fields : + + * 'Proto.Persistent_Fields.id' @:: Lens' ReadReq'Nack Data.ByteString.ByteString@ + * 'Proto.Persistent_Fields.ids' @:: Lens' ReadReq'Nack [Proto.Shared.UUID]@ + * 'Proto.Persistent_Fields.vec'ids' @:: Lens' ReadReq'Nack (Data.Vector.Vector Proto.Shared.UUID)@ + * 'Proto.Persistent_Fields.action' @:: Lens' ReadReq'Nack ReadReq'Nack'Action@ + * 'Proto.Persistent_Fields.reason' @:: Lens' ReadReq'Nack Data.Text.Text@ -} +data ReadReq'Nack + = ReadReq'Nack'_constructor {_ReadReq'Nack'id :: !Data.ByteString.ByteString, + _ReadReq'Nack'ids :: !(Data.Vector.Vector Proto.Shared.UUID), + _ReadReq'Nack'action :: !ReadReq'Nack'Action, + _ReadReq'Nack'reason :: !Data.Text.Text, + _ReadReq'Nack'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadReq'Nack where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadReq'Nack "id" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Nack'id (\ x__ y__ -> x__ {_ReadReq'Nack'id = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Nack "ids" [Proto.Shared.UUID] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Nack'ids (\ x__ y__ -> x__ {_ReadReq'Nack'ids = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Nack "vec'ids" (Data.Vector.Vector Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Nack'ids (\ x__ y__ -> x__ {_ReadReq'Nack'ids = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Nack "action" ReadReq'Nack'Action where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Nack'action + (\ x__ y__ -> x__ {_ReadReq'Nack'action = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Nack "reason" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Nack'reason + (\ x__ y__ -> x__ {_ReadReq'Nack'reason = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadReq'Nack where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.ReadReq.Nack" + packedMessageDescriptor _ + = "\n\ + \\EOTNack\DC2\SO\n\ + \\STXid\CAN\SOH \SOH(\fR\STXid\DC21\n\ + \\ETXids\CAN\STX \ETX(\v2\US.event_store.client.shared.UUIDR\ETXids\DC2X\n\ + \\ACKaction\CAN\ETX \SOH(\SO2@.event_store.client.persistent_subscriptions.ReadReq.Nack.ActionR\ACKaction\DC2\SYN\n\ + \\ACKreason\CAN\EOT \SOH(\tR\ACKreason\">\n\ + \\ACKAction\DC2\v\n\ + \\aUnknown\DLE\NUL\DC2\b\n\ + \\EOTPark\DLE\SOH\DC2\t\n\ + \\ENQRetry\DLE\STX\DC2\b\n\ + \\EOTSkip\DLE\ETX\DC2\b\n\ + \\EOTStop\DLE\EOT" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + id__field_descriptor + = Data.ProtoLens.FieldDescriptor + "id" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"id")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Nack + ids__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ids" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"ids")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Nack + action__field_descriptor + = Data.ProtoLens.FieldDescriptor + "action" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor ReadReq'Nack'Action) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"action")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Nack + reason__field_descriptor + = Data.ProtoLens.FieldDescriptor + "reason" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"reason")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Nack + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, id__field_descriptor), + (Data.ProtoLens.Tag 2, ids__field_descriptor), + (Data.ProtoLens.Tag 3, action__field_descriptor), + (Data.ProtoLens.Tag 4, reason__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadReq'Nack'_unknownFields + (\ x__ y__ -> x__ {_ReadReq'Nack'_unknownFields = y__}) + defMessage + = ReadReq'Nack'_constructor + {_ReadReq'Nack'id = Data.ProtoLens.fieldDefault, + _ReadReq'Nack'ids = Data.Vector.Generic.empty, + _ReadReq'Nack'action = Data.ProtoLens.fieldDefault, + _ReadReq'Nack'reason = Data.ProtoLens.fieldDefault, + _ReadReq'Nack'_unknownFields = []} + parseMessage + = let + loop :: + ReadReq'Nack + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Shared.UUID + -> Data.ProtoLens.Encoding.Bytes.Parser ReadReq'Nack + loop x mutable'ids + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'ids <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'ids) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields + (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'ids") frozen'ids x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"id") y x) + mutable'ids + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "ids" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'ids y) + loop x v + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "action" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"action") y x) + mutable'ids + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "reason" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"reason") y x) + mutable'ids + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'ids + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'ids <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'ids) + "Nack" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"id") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'ids") _x)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"action") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"reason") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData ReadReq'Nack where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadReq'Nack'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadReq'Nack'id x__) + (Control.DeepSeq.deepseq + (_ReadReq'Nack'ids x__) + (Control.DeepSeq.deepseq + (_ReadReq'Nack'action x__) + (Control.DeepSeq.deepseq (_ReadReq'Nack'reason x__) ())))) +newtype ReadReq'Nack'Action'UnrecognizedValue + = ReadReq'Nack'Action'UnrecognizedValue Data.Int.Int32 + deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) +data ReadReq'Nack'Action + = ReadReq'Nack'Unknown | + ReadReq'Nack'Park | + ReadReq'Nack'Retry | + ReadReq'Nack'Skip | + ReadReq'Nack'Stop | + ReadReq'Nack'Action'Unrecognized !ReadReq'Nack'Action'UnrecognizedValue + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum ReadReq'Nack'Action where + maybeToEnum 0 = Prelude.Just ReadReq'Nack'Unknown + maybeToEnum 1 = Prelude.Just ReadReq'Nack'Park + maybeToEnum 2 = Prelude.Just ReadReq'Nack'Retry + maybeToEnum 3 = Prelude.Just ReadReq'Nack'Skip + maybeToEnum 4 = Prelude.Just ReadReq'Nack'Stop + maybeToEnum k + = Prelude.Just + (ReadReq'Nack'Action'Unrecognized + (ReadReq'Nack'Action'UnrecognizedValue (Prelude.fromIntegral k))) + showEnum ReadReq'Nack'Unknown = "Unknown" + showEnum ReadReq'Nack'Park = "Park" + showEnum ReadReq'Nack'Retry = "Retry" + showEnum ReadReq'Nack'Skip = "Skip" + showEnum ReadReq'Nack'Stop = "Stop" + showEnum + (ReadReq'Nack'Action'Unrecognized (ReadReq'Nack'Action'UnrecognizedValue k)) + = Prelude.show k + readEnum k + | (Prelude.==) k "Unknown" = Prelude.Just ReadReq'Nack'Unknown + | (Prelude.==) k "Park" = Prelude.Just ReadReq'Nack'Park + | (Prelude.==) k "Retry" = Prelude.Just ReadReq'Nack'Retry + | (Prelude.==) k "Skip" = Prelude.Just ReadReq'Nack'Skip + | (Prelude.==) k "Stop" = Prelude.Just ReadReq'Nack'Stop + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded ReadReq'Nack'Action where + minBound = ReadReq'Nack'Unknown + maxBound = ReadReq'Nack'Stop +instance Prelude.Enum ReadReq'Nack'Action where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum Action: " (Prelude.show k__))) + Prelude.id + (Data.ProtoLens.maybeToEnum k__) + fromEnum ReadReq'Nack'Unknown = 0 + fromEnum ReadReq'Nack'Park = 1 + fromEnum ReadReq'Nack'Retry = 2 + fromEnum ReadReq'Nack'Skip = 3 + fromEnum ReadReq'Nack'Stop = 4 + fromEnum + (ReadReq'Nack'Action'Unrecognized (ReadReq'Nack'Action'UnrecognizedValue k)) + = Prelude.fromIntegral k + succ ReadReq'Nack'Stop + = Prelude.error + "ReadReq'Nack'Action.succ: bad argument ReadReq'Nack'Stop. This value would be out of bounds." + succ ReadReq'Nack'Unknown = ReadReq'Nack'Park + succ ReadReq'Nack'Park = ReadReq'Nack'Retry + succ ReadReq'Nack'Retry = ReadReq'Nack'Skip + succ ReadReq'Nack'Skip = ReadReq'Nack'Stop + succ (ReadReq'Nack'Action'Unrecognized _) + = Prelude.error + "ReadReq'Nack'Action.succ: bad argument: unrecognized value" + pred ReadReq'Nack'Unknown + = Prelude.error + "ReadReq'Nack'Action.pred: bad argument ReadReq'Nack'Unknown. This value would be out of bounds." + pred ReadReq'Nack'Park = ReadReq'Nack'Unknown + pred ReadReq'Nack'Retry = ReadReq'Nack'Park + pred ReadReq'Nack'Skip = ReadReq'Nack'Retry + pred ReadReq'Nack'Stop = ReadReq'Nack'Skip + pred (ReadReq'Nack'Action'Unrecognized _) + = Prelude.error + "ReadReq'Nack'Action.pred: bad argument: unrecognized value" + enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom + enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo + enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen + enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo +instance Data.ProtoLens.FieldDefault ReadReq'Nack'Action where + fieldDefault = ReadReq'Nack'Unknown +instance Control.DeepSeq.NFData ReadReq'Nack'Action where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Persistent_Fields.streamIdentifier' @:: Lens' ReadReq'Options Proto.Shared.StreamIdentifier@ + * 'Proto.Persistent_Fields.maybe'streamIdentifier' @:: Lens' ReadReq'Options (Prelude.Maybe Proto.Shared.StreamIdentifier)@ + * 'Proto.Persistent_Fields.groupName' @:: Lens' ReadReq'Options Data.Text.Text@ + * 'Proto.Persistent_Fields.bufferSize' @:: Lens' ReadReq'Options Data.Int.Int32@ + * 'Proto.Persistent_Fields.uuidOption' @:: Lens' ReadReq'Options ReadReq'Options'UUIDOption@ + * 'Proto.Persistent_Fields.maybe'uuidOption' @:: Lens' ReadReq'Options (Prelude.Maybe ReadReq'Options'UUIDOption)@ -} +data ReadReq'Options + = ReadReq'Options'_constructor {_ReadReq'Options'streamIdentifier :: !(Prelude.Maybe Proto.Shared.StreamIdentifier), + _ReadReq'Options'groupName :: !Data.Text.Text, + _ReadReq'Options'bufferSize :: !Data.Int.Int32, + _ReadReq'Options'uuidOption :: !(Prelude.Maybe ReadReq'Options'UUIDOption), + _ReadReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadReq'Options "streamIdentifier" Proto.Shared.StreamIdentifier where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'streamIdentifier + (\ x__ y__ -> x__ {_ReadReq'Options'streamIdentifier = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadReq'Options "maybe'streamIdentifier" (Prelude.Maybe Proto.Shared.StreamIdentifier) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'streamIdentifier + (\ x__ y__ -> x__ {_ReadReq'Options'streamIdentifier = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options "groupName" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'groupName + (\ x__ y__ -> x__ {_ReadReq'Options'groupName = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options "bufferSize" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'bufferSize + (\ x__ y__ -> x__ {_ReadReq'Options'bufferSize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options "uuidOption" ReadReq'Options'UUIDOption where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'uuidOption + (\ x__ y__ -> x__ {_ReadReq'Options'uuidOption = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadReq'Options "maybe'uuidOption" (Prelude.Maybe ReadReq'Options'UUIDOption) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'uuidOption + (\ x__ y__ -> x__ {_ReadReq'Options'uuidOption = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadReq'Options where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.ReadReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\GS\n\ + \\n\ + \group_name\CAN\STX \SOH(\tR\tgroupName\DC2\US\n\ + \\vbuffer_size\CAN\ETX \SOH(\ENQR\n\ + \bufferSize\DC2h\n\ + \\vuuid_option\CAN\EOT \SOH(\v2G.event_store.client.persistent_subscriptions.ReadReq.Options.UUIDOptionR\n\ + \uuidOption\SUB\151\SOH\n\ + \\n\ + \UUIDOption\DC2B\n\ + \\n\ + \structured\CAN\SOH \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \structured\DC2:\n\ + \\ACKstring\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ACKstringB\t\n\ + \\acontent" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + streamIdentifier__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_identifier" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.StreamIdentifier) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'streamIdentifier")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options + groupName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "group_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"groupName")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options + bufferSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "buffer_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"bufferSize")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options + uuidOption__field_descriptor + = Data.ProtoLens.FieldDescriptor + "uuid_option" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadReq'Options'UUIDOption) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'uuidOption")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, streamIdentifier__field_descriptor), + (Data.ProtoLens.Tag 2, groupName__field_descriptor), + (Data.ProtoLens.Tag 3, bufferSize__field_descriptor), + (Data.ProtoLens.Tag 4, uuidOption__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadReq'Options'_unknownFields + (\ x__ y__ -> x__ {_ReadReq'Options'_unknownFields = y__}) + defMessage + = ReadReq'Options'_constructor + {_ReadReq'Options'streamIdentifier = Prelude.Nothing, + _ReadReq'Options'groupName = Data.ProtoLens.fieldDefault, + _ReadReq'Options'bufferSize = Data.ProtoLens.fieldDefault, + _ReadReq'Options'uuidOption = Prelude.Nothing, + _ReadReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + ReadReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser ReadReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stream_identifier" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamIdentifier") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "group_name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"groupName") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "buffer_size" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"bufferSize") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "uuid_option" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"uuidOption") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'streamIdentifier") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"groupName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"bufferSize") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'uuidOption") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData ReadReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'streamIdentifier x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'groupName x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'bufferSize x__) + (Control.DeepSeq.deepseq (_ReadReq'Options'uuidOption x__) ())))) +{- | Fields : + + * 'Proto.Persistent_Fields.maybe'content' @:: Lens' ReadReq'Options'UUIDOption (Prelude.Maybe ReadReq'Options'UUIDOption'Content)@ + * 'Proto.Persistent_Fields.maybe'structured' @:: Lens' ReadReq'Options'UUIDOption (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Persistent_Fields.structured' @:: Lens' ReadReq'Options'UUIDOption Proto.Shared.Empty@ + * 'Proto.Persistent_Fields.maybe'string' @:: Lens' ReadReq'Options'UUIDOption (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Persistent_Fields.string' @:: Lens' ReadReq'Options'UUIDOption Proto.Shared.Empty@ -} +data ReadReq'Options'UUIDOption + = ReadReq'Options'UUIDOption'_constructor {_ReadReq'Options'UUIDOption'content :: !(Prelude.Maybe ReadReq'Options'UUIDOption'Content), + _ReadReq'Options'UUIDOption'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadReq'Options'UUIDOption where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data ReadReq'Options'UUIDOption'Content + = ReadReq'Options'UUIDOption'Structured !Proto.Shared.Empty | + ReadReq'Options'UUIDOption'String !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField ReadReq'Options'UUIDOption "maybe'content" (Prelude.Maybe ReadReq'Options'UUIDOption'Content) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'UUIDOption'content + (\ x__ y__ -> x__ {_ReadReq'Options'UUIDOption'content = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options'UUIDOption "maybe'structured" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'UUIDOption'content + (\ x__ y__ -> x__ {_ReadReq'Options'UUIDOption'content = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'UUIDOption'Structured x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap ReadReq'Options'UUIDOption'Structured y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'UUIDOption "structured" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'UUIDOption'content + (\ x__ y__ -> x__ {_ReadReq'Options'UUIDOption'content = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'UUIDOption'Structured x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap ReadReq'Options'UUIDOption'Structured y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'UUIDOption "maybe'string" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'UUIDOption'content + (\ x__ y__ -> x__ {_ReadReq'Options'UUIDOption'content = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'UUIDOption'String x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'UUIDOption'String y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'UUIDOption "string" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'UUIDOption'content + (\ x__ y__ -> x__ {_ReadReq'Options'UUIDOption'content = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'UUIDOption'String x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'UUIDOption'String y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message ReadReq'Options'UUIDOption where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.ReadReq.Options.UUIDOption" + packedMessageDescriptor _ + = "\n\ + \\n\ + \UUIDOption\DC2B\n\ + \\n\ + \structured\CAN\SOH \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \structured\DC2:\n\ + \\ACKstring\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ACKstringB\t\n\ + \\acontent" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + structured__field_descriptor + = Data.ProtoLens.FieldDescriptor + "structured" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'structured")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'UUIDOption + string__field_descriptor + = Data.ProtoLens.FieldDescriptor + "string" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'string")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'UUIDOption + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, structured__field_descriptor), + (Data.ProtoLens.Tag 2, string__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadReq'Options'UUIDOption'_unknownFields + (\ x__ y__ + -> x__ {_ReadReq'Options'UUIDOption'_unknownFields = y__}) + defMessage + = ReadReq'Options'UUIDOption'_constructor + {_ReadReq'Options'UUIDOption'content = Prelude.Nothing, + _ReadReq'Options'UUIDOption'_unknownFields = []} + parseMessage + = let + loop :: + ReadReq'Options'UUIDOption + -> Data.ProtoLens.Encoding.Bytes.Parser ReadReq'Options'UUIDOption + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "structured" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"structured") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "string" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"string") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "UUIDOption" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'content") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (ReadReq'Options'UUIDOption'Structured v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (ReadReq'Options'UUIDOption'String v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ReadReq'Options'UUIDOption where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadReq'Options'UUIDOption'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'UUIDOption'content x__) ()) +instance Control.DeepSeq.NFData ReadReq'Options'UUIDOption'Content where + rnf (ReadReq'Options'UUIDOption'Structured x__) + = Control.DeepSeq.rnf x__ + rnf (ReadReq'Options'UUIDOption'String x__) + = Control.DeepSeq.rnf x__ +_ReadReq'Options'UUIDOption'Structured :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'UUIDOption'Content Proto.Shared.Empty +_ReadReq'Options'UUIDOption'Structured + = Data.ProtoLens.Prism.prism' + ReadReq'Options'UUIDOption'Structured + (\ p__ + -> case p__ of + (ReadReq'Options'UUIDOption'Structured p__val) + -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadReq'Options'UUIDOption'String :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'UUIDOption'Content Proto.Shared.Empty +_ReadReq'Options'UUIDOption'String + = Data.ProtoLens.Prism.prism' + ReadReq'Options'UUIDOption'String + (\ p__ + -> case p__ of + (ReadReq'Options'UUIDOption'String p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Persistent_Fields.maybe'content' @:: Lens' ReadResp (Prelude.Maybe ReadResp'Content)@ + * 'Proto.Persistent_Fields.maybe'event' @:: Lens' ReadResp (Prelude.Maybe ReadResp'ReadEvent)@ + * 'Proto.Persistent_Fields.event' @:: Lens' ReadResp ReadResp'ReadEvent@ + * 'Proto.Persistent_Fields.maybe'subscriptionConfirmation' @:: Lens' ReadResp (Prelude.Maybe ReadResp'SubscriptionConfirmation)@ + * 'Proto.Persistent_Fields.subscriptionConfirmation' @:: Lens' ReadResp ReadResp'SubscriptionConfirmation@ -} +data ReadResp + = ReadResp'_constructor {_ReadResp'content :: !(Prelude.Maybe ReadResp'Content), + _ReadResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data ReadResp'Content + = ReadResp'Event !ReadResp'ReadEvent | + ReadResp'SubscriptionConfirmation' !ReadResp'SubscriptionConfirmation + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField ReadResp "maybe'content" (Prelude.Maybe ReadResp'Content) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'content (\ x__ y__ -> x__ {_ReadResp'content = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp "maybe'event" (Prelude.Maybe ReadResp'ReadEvent) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'content (\ x__ y__ -> x__ {_ReadResp'content = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'Event x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'Event y__)) +instance Data.ProtoLens.Field.HasField ReadResp "event" ReadResp'ReadEvent where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'content (\ x__ y__ -> x__ {_ReadResp'content = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'Event x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'Event y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField ReadResp "maybe'subscriptionConfirmation" (Prelude.Maybe ReadResp'SubscriptionConfirmation) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'content (\ x__ y__ -> x__ {_ReadResp'content = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'SubscriptionConfirmation' x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'SubscriptionConfirmation' y__)) +instance Data.ProtoLens.Field.HasField ReadResp "subscriptionConfirmation" ReadResp'SubscriptionConfirmation where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'content (\ x__ y__ -> x__ {_ReadResp'content = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'SubscriptionConfirmation' x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'SubscriptionConfirmation' y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message ReadResp where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.ReadResp" + packedMessageDescriptor _ + = "\n\ + \\bReadResp\DC2W\n\ + \\ENQevent\CAN\SOH \SOH(\v2?.event_store.client.persistent_subscriptions.ReadResp.ReadEventH\NULR\ENQevent\DC2\141\SOH\n\ + \\EMsubscription_confirmation\CAN\STX \SOH(\v2N.event_store.client.persistent_subscriptions.ReadResp.SubscriptionConfirmationH\NULR\CANsubscriptionConfirmation\SUB\210\a\n\ + \\tReadEvent\DC2c\n\ + \\ENQevent\CAN\SOH \SOH(\v2M.event_store.client.persistent_subscriptions.ReadResp.ReadEvent.RecordedEventR\ENQevent\DC2a\n\ + \\EOTlink\CAN\STX \SOH(\v2M.event_store.client.persistent_subscriptions.ReadResp.ReadEvent.RecordedEventR\EOTlink\DC2)\n\ + \\SIcommit_position\CAN\ETX \SOH(\EOTH\NULR\SOcommitPosition\DC2C\n\ + \\vno_position\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \noPosition\DC2!\n\ + \\vretry_count\CAN\ENQ \SOH(\ENQH\SOHR\n\ + \retryCount\DC2H\n\ + \\SOno_retry_count\CAN\ACK \SOH(\v2 .event_store.client.shared.EmptyH\SOHR\fnoRetryCount\SUB\138\EOT\n\ + \\rRecordedEvent\DC2/\n\ + \\STXid\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\STXid\DC2X\n\ + \\DC1stream_identifier\CAN\STX \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2'\n\ + \\SIstream_revision\CAN\ETX \SOH(\EOTR\SOstreamRevision\DC2)\n\ + \\DLEprepare_position\CAN\EOT \SOH(\EOTR\SIpreparePosition\DC2'\n\ + \\SIcommit_position\CAN\ENQ \SOH(\EOTR\SOcommitPosition\DC2w\n\ + \\bmetadata\CAN\ACK \ETX(\v2[.event_store.client.persistent_subscriptions.ReadResp.ReadEvent.RecordedEvent.MetadataEntryR\bmetadata\DC2'\n\ + \\SIcustom_metadata\CAN\a \SOH(\fR\SOcustomMetadata\DC2\DC2\n\ + \\EOTdata\CAN\b \SOH(\fR\EOTdata\SUB;\n\ + \\rMetadataEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOHB\n\ + \\n\ + \\bpositionB\a\n\ + \\ENQcount\SUBC\n\ + \\CANSubscriptionConfirmation\DC2'\n\ + \\SIsubscription_id\CAN\SOH \SOH(\tR\SOsubscriptionIdB\t\n\ + \\acontent" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + event__field_descriptor + = Data.ProtoLens.FieldDescriptor + "event" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadResp'ReadEvent) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'event")) :: + Data.ProtoLens.FieldDescriptor ReadResp + subscriptionConfirmation__field_descriptor + = Data.ProtoLens.FieldDescriptor + "subscription_confirmation" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadResp'SubscriptionConfirmation) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'subscriptionConfirmation")) :: + Data.ProtoLens.FieldDescriptor ReadResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, event__field_descriptor), + (Data.ProtoLens.Tag 2, subscriptionConfirmation__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadResp'_unknownFields + (\ x__ y__ -> x__ {_ReadResp'_unknownFields = y__}) + defMessage + = ReadResp'_constructor + {_ReadResp'content = Prelude.Nothing, + _ReadResp'_unknownFields = []} + parseMessage + = let + loop :: ReadResp -> Data.ProtoLens.Encoding.Bytes.Parser ReadResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "event" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"event") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "subscription_confirmation" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"subscriptionConfirmation") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ReadResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'content") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (ReadResp'Event v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (ReadResp'SubscriptionConfirmation' v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ReadResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadResp'_unknownFields x__) + (Control.DeepSeq.deepseq (_ReadResp'content x__) ()) +instance Control.DeepSeq.NFData ReadResp'Content where + rnf (ReadResp'Event x__) = Control.DeepSeq.rnf x__ + rnf (ReadResp'SubscriptionConfirmation' x__) + = Control.DeepSeq.rnf x__ +_ReadResp'Event :: + Data.ProtoLens.Prism.Prism' ReadResp'Content ReadResp'ReadEvent +_ReadResp'Event + = Data.ProtoLens.Prism.prism' + ReadResp'Event + (\ p__ + -> case p__ of + (ReadResp'Event p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadResp'SubscriptionConfirmation' :: + Data.ProtoLens.Prism.Prism' ReadResp'Content ReadResp'SubscriptionConfirmation +_ReadResp'SubscriptionConfirmation' + = Data.ProtoLens.Prism.prism' + ReadResp'SubscriptionConfirmation' + (\ p__ + -> case p__ of + (ReadResp'SubscriptionConfirmation' p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Persistent_Fields.event' @:: Lens' ReadResp'ReadEvent ReadResp'ReadEvent'RecordedEvent@ + * 'Proto.Persistent_Fields.maybe'event' @:: Lens' ReadResp'ReadEvent (Prelude.Maybe ReadResp'ReadEvent'RecordedEvent)@ + * 'Proto.Persistent_Fields.link' @:: Lens' ReadResp'ReadEvent ReadResp'ReadEvent'RecordedEvent@ + * 'Proto.Persistent_Fields.maybe'link' @:: Lens' ReadResp'ReadEvent (Prelude.Maybe ReadResp'ReadEvent'RecordedEvent)@ + * 'Proto.Persistent_Fields.maybe'position' @:: Lens' ReadResp'ReadEvent (Prelude.Maybe ReadResp'ReadEvent'Position)@ + * 'Proto.Persistent_Fields.maybe'commitPosition' @:: Lens' ReadResp'ReadEvent (Prelude.Maybe Data.Word.Word64)@ + * 'Proto.Persistent_Fields.commitPosition' @:: Lens' ReadResp'ReadEvent Data.Word.Word64@ + * 'Proto.Persistent_Fields.maybe'noPosition' @:: Lens' ReadResp'ReadEvent (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Persistent_Fields.noPosition' @:: Lens' ReadResp'ReadEvent Proto.Shared.Empty@ + * 'Proto.Persistent_Fields.maybe'count' @:: Lens' ReadResp'ReadEvent (Prelude.Maybe ReadResp'ReadEvent'Count)@ + * 'Proto.Persistent_Fields.maybe'retryCount' @:: Lens' ReadResp'ReadEvent (Prelude.Maybe Data.Int.Int32)@ + * 'Proto.Persistent_Fields.retryCount' @:: Lens' ReadResp'ReadEvent Data.Int.Int32@ + * 'Proto.Persistent_Fields.maybe'noRetryCount' @:: Lens' ReadResp'ReadEvent (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Persistent_Fields.noRetryCount' @:: Lens' ReadResp'ReadEvent Proto.Shared.Empty@ -} +data ReadResp'ReadEvent + = ReadResp'ReadEvent'_constructor {_ReadResp'ReadEvent'event :: !(Prelude.Maybe ReadResp'ReadEvent'RecordedEvent), + _ReadResp'ReadEvent'link :: !(Prelude.Maybe ReadResp'ReadEvent'RecordedEvent), + _ReadResp'ReadEvent'position :: !(Prelude.Maybe ReadResp'ReadEvent'Position), + _ReadResp'ReadEvent'count :: !(Prelude.Maybe ReadResp'ReadEvent'Count), + _ReadResp'ReadEvent'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadResp'ReadEvent where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data ReadResp'ReadEvent'Position + = ReadResp'ReadEvent'CommitPosition !Data.Word.Word64 | + ReadResp'ReadEvent'NoPosition !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +data ReadResp'ReadEvent'Count + = ReadResp'ReadEvent'RetryCount !Data.Int.Int32 | + ReadResp'ReadEvent'NoRetryCount !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "event" ReadResp'ReadEvent'RecordedEvent where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'event + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'event = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "maybe'event" (Prelude.Maybe ReadResp'ReadEvent'RecordedEvent) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'event + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'event = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "link" ReadResp'ReadEvent'RecordedEvent where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'link + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'link = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "maybe'link" (Prelude.Maybe ReadResp'ReadEvent'RecordedEvent) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'link + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'link = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "maybe'position" (Prelude.Maybe ReadResp'ReadEvent'Position) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'position + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'position = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "maybe'commitPosition" (Prelude.Maybe Data.Word.Word64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'position + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'position = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'ReadEvent'CommitPosition x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'ReadEvent'CommitPosition y__)) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "commitPosition" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'position + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'position = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'ReadEvent'CommitPosition x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'ReadEvent'CommitPosition y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "maybe'noPosition" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'position + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'position = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'ReadEvent'NoPosition x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'ReadEvent'NoPosition y__)) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "noPosition" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'position + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'position = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'ReadEvent'NoPosition x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'ReadEvent'NoPosition y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "maybe'count" (Prelude.Maybe ReadResp'ReadEvent'Count) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'count + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'count = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "maybe'retryCount" (Prelude.Maybe Data.Int.Int32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'count + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'count = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'ReadEvent'RetryCount x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'ReadEvent'RetryCount y__)) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "retryCount" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'count + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'count = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'ReadEvent'RetryCount x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'ReadEvent'RetryCount y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "maybe'noRetryCount" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'count + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'count = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'ReadEvent'NoRetryCount x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'ReadEvent'NoRetryCount y__)) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "noRetryCount" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'count + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'count = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'ReadEvent'NoRetryCount x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'ReadEvent'NoRetryCount y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message ReadResp'ReadEvent where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.ReadResp.ReadEvent" + packedMessageDescriptor _ + = "\n\ + \\tReadEvent\DC2c\n\ + \\ENQevent\CAN\SOH \SOH(\v2M.event_store.client.persistent_subscriptions.ReadResp.ReadEvent.RecordedEventR\ENQevent\DC2a\n\ + \\EOTlink\CAN\STX \SOH(\v2M.event_store.client.persistent_subscriptions.ReadResp.ReadEvent.RecordedEventR\EOTlink\DC2)\n\ + \\SIcommit_position\CAN\ETX \SOH(\EOTH\NULR\SOcommitPosition\DC2C\n\ + \\vno_position\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \noPosition\DC2!\n\ + \\vretry_count\CAN\ENQ \SOH(\ENQH\SOHR\n\ + \retryCount\DC2H\n\ + \\SOno_retry_count\CAN\ACK \SOH(\v2 .event_store.client.shared.EmptyH\SOHR\fnoRetryCount\SUB\138\EOT\n\ + \\rRecordedEvent\DC2/\n\ + \\STXid\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\STXid\DC2X\n\ + \\DC1stream_identifier\CAN\STX \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2'\n\ + \\SIstream_revision\CAN\ETX \SOH(\EOTR\SOstreamRevision\DC2)\n\ + \\DLEprepare_position\CAN\EOT \SOH(\EOTR\SIpreparePosition\DC2'\n\ + \\SIcommit_position\CAN\ENQ \SOH(\EOTR\SOcommitPosition\DC2w\n\ + \\bmetadata\CAN\ACK \ETX(\v2[.event_store.client.persistent_subscriptions.ReadResp.ReadEvent.RecordedEvent.MetadataEntryR\bmetadata\DC2'\n\ + \\SIcustom_metadata\CAN\a \SOH(\fR\SOcustomMetadata\DC2\DC2\n\ + \\EOTdata\CAN\b \SOH(\fR\EOTdata\SUB;\n\ + \\rMetadataEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOHB\n\ + \\n\ + \\bpositionB\a\n\ + \\ENQcount" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + event__field_descriptor + = Data.ProtoLens.FieldDescriptor + "event" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadResp'ReadEvent'RecordedEvent) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'event")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent + link__field_descriptor + = Data.ProtoLens.FieldDescriptor + "link" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadResp'ReadEvent'RecordedEvent) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'link")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent + commitPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "commit_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'commitPosition")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent + noPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "no_position" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'noPosition")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent + retryCount__field_descriptor + = Data.ProtoLens.FieldDescriptor + "retry_count" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'retryCount")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent + noRetryCount__field_descriptor + = Data.ProtoLens.FieldDescriptor + "no_retry_count" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'noRetryCount")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, event__field_descriptor), + (Data.ProtoLens.Tag 2, link__field_descriptor), + (Data.ProtoLens.Tag 3, commitPosition__field_descriptor), + (Data.ProtoLens.Tag 4, noPosition__field_descriptor), + (Data.ProtoLens.Tag 5, retryCount__field_descriptor), + (Data.ProtoLens.Tag 6, noRetryCount__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'_unknownFields + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'_unknownFields = y__}) + defMessage + = ReadResp'ReadEvent'_constructor + {_ReadResp'ReadEvent'event = Prelude.Nothing, + _ReadResp'ReadEvent'link = Prelude.Nothing, + _ReadResp'ReadEvent'position = Prelude.Nothing, + _ReadResp'ReadEvent'count = Prelude.Nothing, + _ReadResp'ReadEvent'_unknownFields = []} + parseMessage + = let + loop :: + ReadResp'ReadEvent + -> Data.ProtoLens.Encoding.Bytes.Parser ReadResp'ReadEvent + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "event" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"event") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "link" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"link") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "commit_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"commitPosition") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "no_position" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"noPosition") y x) + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "retry_count" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"retryCount") y x) + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "no_retry_count" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"noRetryCount") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ReadEvent" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'event") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'link") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'position") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (ReadResp'ReadEvent'CommitPosition v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + (Data.ProtoLens.Encoding.Bytes.putVarInt v) + (Prelude.Just (ReadResp'ReadEvent'NoPosition v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'count") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (ReadResp'ReadEvent'RetryCount v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral v) + (Prelude.Just (ReadResp'ReadEvent'NoRetryCount v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData ReadResp'ReadEvent where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'event x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'link x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'position x__) + (Control.DeepSeq.deepseq (_ReadResp'ReadEvent'count x__) ())))) +instance Control.DeepSeq.NFData ReadResp'ReadEvent'Position where + rnf (ReadResp'ReadEvent'CommitPosition x__) + = Control.DeepSeq.rnf x__ + rnf (ReadResp'ReadEvent'NoPosition x__) = Control.DeepSeq.rnf x__ +instance Control.DeepSeq.NFData ReadResp'ReadEvent'Count where + rnf (ReadResp'ReadEvent'RetryCount x__) = Control.DeepSeq.rnf x__ + rnf (ReadResp'ReadEvent'NoRetryCount x__) = Control.DeepSeq.rnf x__ +_ReadResp'ReadEvent'CommitPosition :: + Data.ProtoLens.Prism.Prism' ReadResp'ReadEvent'Position Data.Word.Word64 +_ReadResp'ReadEvent'CommitPosition + = Data.ProtoLens.Prism.prism' + ReadResp'ReadEvent'CommitPosition + (\ p__ + -> case p__ of + (ReadResp'ReadEvent'CommitPosition p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadResp'ReadEvent'NoPosition :: + Data.ProtoLens.Prism.Prism' ReadResp'ReadEvent'Position Proto.Shared.Empty +_ReadResp'ReadEvent'NoPosition + = Data.ProtoLens.Prism.prism' + ReadResp'ReadEvent'NoPosition + (\ p__ + -> case p__ of + (ReadResp'ReadEvent'NoPosition p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadResp'ReadEvent'RetryCount :: + Data.ProtoLens.Prism.Prism' ReadResp'ReadEvent'Count Data.Int.Int32 +_ReadResp'ReadEvent'RetryCount + = Data.ProtoLens.Prism.prism' + ReadResp'ReadEvent'RetryCount + (\ p__ + -> case p__ of + (ReadResp'ReadEvent'RetryCount p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadResp'ReadEvent'NoRetryCount :: + Data.ProtoLens.Prism.Prism' ReadResp'ReadEvent'Count Proto.Shared.Empty +_ReadResp'ReadEvent'NoRetryCount + = Data.ProtoLens.Prism.prism' + ReadResp'ReadEvent'NoRetryCount + (\ p__ + -> case p__ of + (ReadResp'ReadEvent'NoRetryCount p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Persistent_Fields.id' @:: Lens' ReadResp'ReadEvent'RecordedEvent Proto.Shared.UUID@ + * 'Proto.Persistent_Fields.maybe'id' @:: Lens' ReadResp'ReadEvent'RecordedEvent (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Persistent_Fields.streamIdentifier' @:: Lens' ReadResp'ReadEvent'RecordedEvent Proto.Shared.StreamIdentifier@ + * 'Proto.Persistent_Fields.maybe'streamIdentifier' @:: Lens' ReadResp'ReadEvent'RecordedEvent (Prelude.Maybe Proto.Shared.StreamIdentifier)@ + * 'Proto.Persistent_Fields.streamRevision' @:: Lens' ReadResp'ReadEvent'RecordedEvent Data.Word.Word64@ + * 'Proto.Persistent_Fields.preparePosition' @:: Lens' ReadResp'ReadEvent'RecordedEvent Data.Word.Word64@ + * 'Proto.Persistent_Fields.commitPosition' @:: Lens' ReadResp'ReadEvent'RecordedEvent Data.Word.Word64@ + * 'Proto.Persistent_Fields.metadata' @:: Lens' ReadResp'ReadEvent'RecordedEvent (Data.Map.Map Data.Text.Text Data.Text.Text)@ + * 'Proto.Persistent_Fields.customMetadata' @:: Lens' ReadResp'ReadEvent'RecordedEvent Data.ByteString.ByteString@ + * 'Proto.Persistent_Fields.data'' @:: Lens' ReadResp'ReadEvent'RecordedEvent Data.ByteString.ByteString@ -} +data ReadResp'ReadEvent'RecordedEvent + = ReadResp'ReadEvent'RecordedEvent'_constructor {_ReadResp'ReadEvent'RecordedEvent'id :: !(Prelude.Maybe Proto.Shared.UUID), + _ReadResp'ReadEvent'RecordedEvent'streamIdentifier :: !(Prelude.Maybe Proto.Shared.StreamIdentifier), + _ReadResp'ReadEvent'RecordedEvent'streamRevision :: !Data.Word.Word64, + _ReadResp'ReadEvent'RecordedEvent'preparePosition :: !Data.Word.Word64, + _ReadResp'ReadEvent'RecordedEvent'commitPosition :: !Data.Word.Word64, + _ReadResp'ReadEvent'RecordedEvent'metadata :: !(Data.Map.Map Data.Text.Text Data.Text.Text), + _ReadResp'ReadEvent'RecordedEvent'customMetadata :: !Data.ByteString.ByteString, + _ReadResp'ReadEvent'RecordedEvent'data' :: !Data.ByteString.ByteString, + _ReadResp'ReadEvent'RecordedEvent'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadResp'ReadEvent'RecordedEvent where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "id" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'id + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'RecordedEvent'id = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "maybe'id" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'id + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'RecordedEvent'id = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "streamIdentifier" Proto.Shared.StreamIdentifier where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'streamIdentifier + (\ x__ y__ + -> x__ {_ReadResp'ReadEvent'RecordedEvent'streamIdentifier = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "maybe'streamIdentifier" (Prelude.Maybe Proto.Shared.StreamIdentifier) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'streamIdentifier + (\ x__ y__ + -> x__ {_ReadResp'ReadEvent'RecordedEvent'streamIdentifier = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "streamRevision" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'streamRevision + (\ x__ y__ + -> x__ {_ReadResp'ReadEvent'RecordedEvent'streamRevision = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "preparePosition" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'preparePosition + (\ x__ y__ + -> x__ {_ReadResp'ReadEvent'RecordedEvent'preparePosition = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "commitPosition" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'commitPosition + (\ x__ y__ + -> x__ {_ReadResp'ReadEvent'RecordedEvent'commitPosition = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "metadata" (Data.Map.Map Data.Text.Text Data.Text.Text) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'metadata + (\ x__ y__ + -> x__ {_ReadResp'ReadEvent'RecordedEvent'metadata = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "customMetadata" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'customMetadata + (\ x__ y__ + -> x__ {_ReadResp'ReadEvent'RecordedEvent'customMetadata = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "data'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'data' + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'RecordedEvent'data' = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadResp'ReadEvent'RecordedEvent where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.ReadResp.ReadEvent.RecordedEvent" + packedMessageDescriptor _ + = "\n\ + \\rRecordedEvent\DC2/\n\ + \\STXid\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\STXid\DC2X\n\ + \\DC1stream_identifier\CAN\STX \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2'\n\ + \\SIstream_revision\CAN\ETX \SOH(\EOTR\SOstreamRevision\DC2)\n\ + \\DLEprepare_position\CAN\EOT \SOH(\EOTR\SIpreparePosition\DC2'\n\ + \\SIcommit_position\CAN\ENQ \SOH(\EOTR\SOcommitPosition\DC2w\n\ + \\bmetadata\CAN\ACK \ETX(\v2[.event_store.client.persistent_subscriptions.ReadResp.ReadEvent.RecordedEvent.MetadataEntryR\bmetadata\DC2'\n\ + \\SIcustom_metadata\CAN\a \SOH(\fR\SOcustomMetadata\DC2\DC2\n\ + \\EOTdata\CAN\b \SOH(\fR\EOTdata\SUB;\n\ + \\rMetadataEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + id__field_descriptor + = Data.ProtoLens.FieldDescriptor + "id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'id")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent + streamIdentifier__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_identifier" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.StreamIdentifier) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'streamIdentifier")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent + streamRevision__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_revision" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"streamRevision")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent + preparePosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "prepare_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"preparePosition")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent + commitPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "commit_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"commitPosition")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent + metadata__field_descriptor + = Data.ProtoLens.FieldDescriptor + "metadata" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadResp'ReadEvent'RecordedEvent'MetadataEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"metadata")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent + customMetadata__field_descriptor + = Data.ProtoLens.FieldDescriptor + "custom_metadata" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"customMetadata")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent + data'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "data" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"data'")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, id__field_descriptor), + (Data.ProtoLens.Tag 2, streamIdentifier__field_descriptor), + (Data.ProtoLens.Tag 3, streamRevision__field_descriptor), + (Data.ProtoLens.Tag 4, preparePosition__field_descriptor), + (Data.ProtoLens.Tag 5, commitPosition__field_descriptor), + (Data.ProtoLens.Tag 6, metadata__field_descriptor), + (Data.ProtoLens.Tag 7, customMetadata__field_descriptor), + (Data.ProtoLens.Tag 8, data'__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'_unknownFields + (\ x__ y__ + -> x__ {_ReadResp'ReadEvent'RecordedEvent'_unknownFields = y__}) + defMessage + = ReadResp'ReadEvent'RecordedEvent'_constructor + {_ReadResp'ReadEvent'RecordedEvent'id = Prelude.Nothing, + _ReadResp'ReadEvent'RecordedEvent'streamIdentifier = Prelude.Nothing, + _ReadResp'ReadEvent'RecordedEvent'streamRevision = Data.ProtoLens.fieldDefault, + _ReadResp'ReadEvent'RecordedEvent'preparePosition = Data.ProtoLens.fieldDefault, + _ReadResp'ReadEvent'RecordedEvent'commitPosition = Data.ProtoLens.fieldDefault, + _ReadResp'ReadEvent'RecordedEvent'metadata = Data.Map.empty, + _ReadResp'ReadEvent'RecordedEvent'customMetadata = Data.ProtoLens.fieldDefault, + _ReadResp'ReadEvent'RecordedEvent'data' = Data.ProtoLens.fieldDefault, + _ReadResp'ReadEvent'RecordedEvent'_unknownFields = []} + parseMessage + = let + loop :: + ReadResp'ReadEvent'RecordedEvent + -> Data.ProtoLens.Encoding.Bytes.Parser ReadResp'ReadEvent'RecordedEvent + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "id" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stream_identifier" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamIdentifier") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "stream_revision" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamRevision") y x) + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "prepare_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"preparePosition") y x) + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "commit_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"commitPosition") y x) + 50 + -> do !(entry :: ReadResp'ReadEvent'RecordedEvent'MetadataEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "metadata" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"metadata") + (\ !t -> Data.Map.insert key value t) + x)) + 58 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "custom_metadata" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"customMetadata") y x) + 66 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "data" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"data'") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RecordedEvent" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'id") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'streamIdentifier") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"streamRevision") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"preparePosition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"commitPosition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") + (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") + (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + ReadResp'ReadEvent'RecordedEvent'MetadataEntry))))) + (Data.Map.toList + (Lens.Family2.view + (Data.ProtoLens.Field.field @"metadata") _x)))) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"customMetadata") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"data'") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 66) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))))) +instance Control.DeepSeq.NFData ReadResp'ReadEvent'RecordedEvent where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'id x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'streamIdentifier x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'streamRevision x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'preparePosition x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'commitPosition x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'metadata x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'customMetadata x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'data' x__) ())))))))) +{- | Fields : + + * 'Proto.Persistent_Fields.key' @:: Lens' ReadResp'ReadEvent'RecordedEvent'MetadataEntry Data.Text.Text@ + * 'Proto.Persistent_Fields.value' @:: Lens' ReadResp'ReadEvent'RecordedEvent'MetadataEntry Data.Text.Text@ -} +data ReadResp'ReadEvent'RecordedEvent'MetadataEntry + = ReadResp'ReadEvent'RecordedEvent'MetadataEntry'_constructor {_ReadResp'ReadEvent'RecordedEvent'MetadataEntry'key :: !Data.Text.Text, + _ReadResp'ReadEvent'RecordedEvent'MetadataEntry'value :: !Data.Text.Text, + _ReadResp'ReadEvent'RecordedEvent'MetadataEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadResp'ReadEvent'RecordedEvent'MetadataEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent'MetadataEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'MetadataEntry'key + (\ x__ y__ + -> x__ + {_ReadResp'ReadEvent'RecordedEvent'MetadataEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent'MetadataEntry "value" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'MetadataEntry'value + (\ x__ y__ + -> x__ + {_ReadResp'ReadEvent'RecordedEvent'MetadataEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadResp'ReadEvent'RecordedEvent'MetadataEntry where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.ReadResp.ReadEvent.RecordedEvent.MetadataEntry" + packedMessageDescriptor _ + = "\n\ + \\rMetadataEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent'MetadataEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent'MetadataEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'MetadataEntry'_unknownFields + (\ x__ y__ + -> x__ + {_ReadResp'ReadEvent'RecordedEvent'MetadataEntry'_unknownFields = y__}) + defMessage + = ReadResp'ReadEvent'RecordedEvent'MetadataEntry'_constructor + {_ReadResp'ReadEvent'RecordedEvent'MetadataEntry'key = Data.ProtoLens.fieldDefault, + _ReadResp'ReadEvent'RecordedEvent'MetadataEntry'value = Data.ProtoLens.fieldDefault, + _ReadResp'ReadEvent'RecordedEvent'MetadataEntry'_unknownFields = []} + parseMessage + = let + loop :: + ReadResp'ReadEvent'RecordedEvent'MetadataEntry + -> Data.ProtoLens.Encoding.Bytes.Parser ReadResp'ReadEvent'RecordedEvent'MetadataEntry + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "MetadataEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ReadResp'ReadEvent'RecordedEvent'MetadataEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'MetadataEntry'_unknownFields + x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'MetadataEntry'key x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'MetadataEntry'value x__) ())) +{- | Fields : + + * 'Proto.Persistent_Fields.subscriptionId' @:: Lens' ReadResp'SubscriptionConfirmation Data.Text.Text@ -} +data ReadResp'SubscriptionConfirmation + = ReadResp'SubscriptionConfirmation'_constructor {_ReadResp'SubscriptionConfirmation'subscriptionId :: !Data.Text.Text, + _ReadResp'SubscriptionConfirmation'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadResp'SubscriptionConfirmation where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadResp'SubscriptionConfirmation "subscriptionId" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'SubscriptionConfirmation'subscriptionId + (\ x__ y__ + -> x__ {_ReadResp'SubscriptionConfirmation'subscriptionId = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadResp'SubscriptionConfirmation where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.ReadResp.SubscriptionConfirmation" + packedMessageDescriptor _ + = "\n\ + \\CANSubscriptionConfirmation\DC2'\n\ + \\SIsubscription_id\CAN\SOH \SOH(\tR\SOsubscriptionId" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + subscriptionId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "subscription_id" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"subscriptionId")) :: + Data.ProtoLens.FieldDescriptor ReadResp'SubscriptionConfirmation + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, subscriptionId__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadResp'SubscriptionConfirmation'_unknownFields + (\ x__ y__ + -> x__ {_ReadResp'SubscriptionConfirmation'_unknownFields = y__}) + defMessage + = ReadResp'SubscriptionConfirmation'_constructor + {_ReadResp'SubscriptionConfirmation'subscriptionId = Data.ProtoLens.fieldDefault, + _ReadResp'SubscriptionConfirmation'_unknownFields = []} + parseMessage + = let + loop :: + ReadResp'SubscriptionConfirmation + -> Data.ProtoLens.Encoding.Bytes.Parser ReadResp'SubscriptionConfirmation + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "subscription_id" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"subscriptionId") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "SubscriptionConfirmation" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"subscriptionId") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ReadResp'SubscriptionConfirmation where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadResp'SubscriptionConfirmation'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadResp'SubscriptionConfirmation'subscriptionId x__) ()) +{- | Fields : + + * 'Proto.Persistent_Fields.options' @:: Lens' UpdateReq UpdateReq'Options@ + * 'Proto.Persistent_Fields.maybe'options' @:: Lens' UpdateReq (Prelude.Maybe UpdateReq'Options)@ -} +data UpdateReq + = UpdateReq'_constructor {_UpdateReq'options :: !(Prelude.Maybe UpdateReq'Options), + _UpdateReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UpdateReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField UpdateReq "options" UpdateReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'options (\ x__ y__ -> x__ {_UpdateReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField UpdateReq "maybe'options" (Prelude.Maybe UpdateReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'options (\ x__ y__ -> x__ {_UpdateReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message UpdateReq where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.UpdateReq" + packedMessageDescriptor _ + = "\n\ + \\tUpdateReq\DC2X\n\ + \\aoptions\CAN\SOH \SOH(\v2>.event_store.client.persistent_subscriptions.UpdateReq.OptionsR\aoptions\SUB\223\SOH\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\GS\n\ + \\n\ + \group_name\CAN\STX \SOH(\tR\tgroupName\DC2[\n\ + \\bsettings\CAN\ETX \SOH(\v2?.event_store.client.persistent_subscriptions.UpdateReq.SettingsR\bsettings\SUB\139\ENQ\n\ + \\bSettings\DC2#\n\ + \\rresolve_links\CAN\SOH \SOH(\bR\fresolveLinks\DC2\SUB\n\ + \\brevision\CAN\STX \SOH(\EOTR\brevision\DC2)\n\ + \\DLEextra_statistics\CAN\ETX \SOH(\bR\SIextraStatistics\DC2'\n\ + \\SImessage_timeout\CAN\EOT \SOH(\ETXR\SOmessageTimeout\DC2&\n\ + \\SImax_retry_count\CAN\ENQ \SOH(\ENQR\rmaxRetryCount\DC2)\n\ + \\DLEcheckpoint_after\CAN\ACK \SOH(\ETXR\SIcheckpointAfter\DC20\n\ + \\DC4min_checkpoint_count\CAN\a \SOH(\ENQR\DC2minCheckpointCount\DC20\n\ + \\DC4max_checkpoint_count\CAN\b \SOH(\ENQR\DC2maxCheckpointCount\DC20\n\ + \\DC4max_subscriber_count\CAN\t \SOH(\ENQR\DC2maxSubscriberCount\DC2(\n\ + \\DLElive_buffer_size\CAN\n\ + \ \SOH(\ENQR\SOliveBufferSize\DC2&\n\ + \\SIread_batch_size\CAN\v \SOH(\ENQR\rreadBatchSize\DC2.\n\ + \\DC3history_buffer_size\CAN\f \SOH(\ENQR\DC1historyBufferSize\DC2\DEL\n\ + \\ETBnamed_consumer_strategy\CAN\r \SOH(\SO2G.event_store.client.persistent_subscriptions.UpdateReq.ConsumerStrategyR\NAKnamedConsumerStrategy\"D\n\ + \\DLEConsumerStrategy\DC2\DC4\n\ + \\DLEDispatchToSingle\DLE\NUL\DC2\SO\n\ + \\n\ + \RoundRobin\DLE\SOH\DC2\n\ + \\n\ + \\ACKPinned\DLE\STX" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor UpdateReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor UpdateReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _UpdateReq'_unknownFields + (\ x__ y__ -> x__ {_UpdateReq'_unknownFields = y__}) + defMessage + = UpdateReq'_constructor + {_UpdateReq'options = Prelude.Nothing, + _UpdateReq'_unknownFields = []} + parseMessage + = let + loop :: UpdateReq -> Data.ProtoLens.Encoding.Bytes.Parser UpdateReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "UpdateReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData UpdateReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_UpdateReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_UpdateReq'options x__) ()) +newtype UpdateReq'ConsumerStrategy'UnrecognizedValue + = UpdateReq'ConsumerStrategy'UnrecognizedValue Data.Int.Int32 + deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) +data UpdateReq'ConsumerStrategy + = UpdateReq'DispatchToSingle | + UpdateReq'RoundRobin | + UpdateReq'Pinned | + UpdateReq'ConsumerStrategy'Unrecognized !UpdateReq'ConsumerStrategy'UnrecognizedValue + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum UpdateReq'ConsumerStrategy where + maybeToEnum 0 = Prelude.Just UpdateReq'DispatchToSingle + maybeToEnum 1 = Prelude.Just UpdateReq'RoundRobin + maybeToEnum 2 = Prelude.Just UpdateReq'Pinned + maybeToEnum k + = Prelude.Just + (UpdateReq'ConsumerStrategy'Unrecognized + (UpdateReq'ConsumerStrategy'UnrecognizedValue + (Prelude.fromIntegral k))) + showEnum UpdateReq'DispatchToSingle = "DispatchToSingle" + showEnum UpdateReq'RoundRobin = "RoundRobin" + showEnum UpdateReq'Pinned = "Pinned" + showEnum + (UpdateReq'ConsumerStrategy'Unrecognized (UpdateReq'ConsumerStrategy'UnrecognizedValue k)) + = Prelude.show k + readEnum k + | (Prelude.==) k "DispatchToSingle" + = Prelude.Just UpdateReq'DispatchToSingle + | (Prelude.==) k "RoundRobin" = Prelude.Just UpdateReq'RoundRobin + | (Prelude.==) k "Pinned" = Prelude.Just UpdateReq'Pinned + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded UpdateReq'ConsumerStrategy where + minBound = UpdateReq'DispatchToSingle + maxBound = UpdateReq'Pinned +instance Prelude.Enum UpdateReq'ConsumerStrategy where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum ConsumerStrategy: " + (Prelude.show k__))) + Prelude.id + (Data.ProtoLens.maybeToEnum k__) + fromEnum UpdateReq'DispatchToSingle = 0 + fromEnum UpdateReq'RoundRobin = 1 + fromEnum UpdateReq'Pinned = 2 + fromEnum + (UpdateReq'ConsumerStrategy'Unrecognized (UpdateReq'ConsumerStrategy'UnrecognizedValue k)) + = Prelude.fromIntegral k + succ UpdateReq'Pinned + = Prelude.error + "UpdateReq'ConsumerStrategy.succ: bad argument UpdateReq'Pinned. This value would be out of bounds." + succ UpdateReq'DispatchToSingle = UpdateReq'RoundRobin + succ UpdateReq'RoundRobin = UpdateReq'Pinned + succ (UpdateReq'ConsumerStrategy'Unrecognized _) + = Prelude.error + "UpdateReq'ConsumerStrategy.succ: bad argument: unrecognized value" + pred UpdateReq'DispatchToSingle + = Prelude.error + "UpdateReq'ConsumerStrategy.pred: bad argument UpdateReq'DispatchToSingle. This value would be out of bounds." + pred UpdateReq'RoundRobin = UpdateReq'DispatchToSingle + pred UpdateReq'Pinned = UpdateReq'RoundRobin + pred (UpdateReq'ConsumerStrategy'Unrecognized _) + = Prelude.error + "UpdateReq'ConsumerStrategy.pred: bad argument: unrecognized value" + enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom + enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo + enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen + enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo +instance Data.ProtoLens.FieldDefault UpdateReq'ConsumerStrategy where + fieldDefault = UpdateReq'DispatchToSingle +instance Control.DeepSeq.NFData UpdateReq'ConsumerStrategy where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Persistent_Fields.streamIdentifier' @:: Lens' UpdateReq'Options Proto.Shared.StreamIdentifier@ + * 'Proto.Persistent_Fields.maybe'streamIdentifier' @:: Lens' UpdateReq'Options (Prelude.Maybe Proto.Shared.StreamIdentifier)@ + * 'Proto.Persistent_Fields.groupName' @:: Lens' UpdateReq'Options Data.Text.Text@ + * 'Proto.Persistent_Fields.settings' @:: Lens' UpdateReq'Options UpdateReq'Settings@ + * 'Proto.Persistent_Fields.maybe'settings' @:: Lens' UpdateReq'Options (Prelude.Maybe UpdateReq'Settings)@ -} +data UpdateReq'Options + = UpdateReq'Options'_constructor {_UpdateReq'Options'streamIdentifier :: !(Prelude.Maybe Proto.Shared.StreamIdentifier), + _UpdateReq'Options'groupName :: !Data.Text.Text, + _UpdateReq'Options'settings :: !(Prelude.Maybe UpdateReq'Settings), + _UpdateReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UpdateReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField UpdateReq'Options "streamIdentifier" Proto.Shared.StreamIdentifier where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Options'streamIdentifier + (\ x__ y__ -> x__ {_UpdateReq'Options'streamIdentifier = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField UpdateReq'Options "maybe'streamIdentifier" (Prelude.Maybe Proto.Shared.StreamIdentifier) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Options'streamIdentifier + (\ x__ y__ -> x__ {_UpdateReq'Options'streamIdentifier = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Options "groupName" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Options'groupName + (\ x__ y__ -> x__ {_UpdateReq'Options'groupName = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Options "settings" UpdateReq'Settings where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Options'settings + (\ x__ y__ -> x__ {_UpdateReq'Options'settings = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField UpdateReq'Options "maybe'settings" (Prelude.Maybe UpdateReq'Settings) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Options'settings + (\ x__ y__ -> x__ {_UpdateReq'Options'settings = y__})) + Prelude.id +instance Data.ProtoLens.Message UpdateReq'Options where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.UpdateReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\GS\n\ + \\n\ + \group_name\CAN\STX \SOH(\tR\tgroupName\DC2[\n\ + \\bsettings\CAN\ETX \SOH(\v2?.event_store.client.persistent_subscriptions.UpdateReq.SettingsR\bsettings" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + streamIdentifier__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_identifier" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.StreamIdentifier) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'streamIdentifier")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Options + groupName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "group_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"groupName")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Options + settings__field_descriptor + = Data.ProtoLens.FieldDescriptor + "settings" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor UpdateReq'Settings) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'settings")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, streamIdentifier__field_descriptor), + (Data.ProtoLens.Tag 2, groupName__field_descriptor), + (Data.ProtoLens.Tag 3, settings__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _UpdateReq'Options'_unknownFields + (\ x__ y__ -> x__ {_UpdateReq'Options'_unknownFields = y__}) + defMessage + = UpdateReq'Options'_constructor + {_UpdateReq'Options'streamIdentifier = Prelude.Nothing, + _UpdateReq'Options'groupName = Data.ProtoLens.fieldDefault, + _UpdateReq'Options'settings = Prelude.Nothing, + _UpdateReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + UpdateReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser UpdateReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stream_identifier" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamIdentifier") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "group_name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"groupName") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "settings" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"settings") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'streamIdentifier") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"groupName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'settings") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData UpdateReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_UpdateReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Options'streamIdentifier x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Options'groupName x__) + (Control.DeepSeq.deepseq (_UpdateReq'Options'settings x__) ()))) +{- | Fields : + + * 'Proto.Persistent_Fields.resolveLinks' @:: Lens' UpdateReq'Settings Prelude.Bool@ + * 'Proto.Persistent_Fields.revision' @:: Lens' UpdateReq'Settings Data.Word.Word64@ + * 'Proto.Persistent_Fields.extraStatistics' @:: Lens' UpdateReq'Settings Prelude.Bool@ + * 'Proto.Persistent_Fields.messageTimeout' @:: Lens' UpdateReq'Settings Data.Int.Int64@ + * 'Proto.Persistent_Fields.maxRetryCount' @:: Lens' UpdateReq'Settings Data.Int.Int32@ + * 'Proto.Persistent_Fields.checkpointAfter' @:: Lens' UpdateReq'Settings Data.Int.Int64@ + * 'Proto.Persistent_Fields.minCheckpointCount' @:: Lens' UpdateReq'Settings Data.Int.Int32@ + * 'Proto.Persistent_Fields.maxCheckpointCount' @:: Lens' UpdateReq'Settings Data.Int.Int32@ + * 'Proto.Persistent_Fields.maxSubscriberCount' @:: Lens' UpdateReq'Settings Data.Int.Int32@ + * 'Proto.Persistent_Fields.liveBufferSize' @:: Lens' UpdateReq'Settings Data.Int.Int32@ + * 'Proto.Persistent_Fields.readBatchSize' @:: Lens' UpdateReq'Settings Data.Int.Int32@ + * 'Proto.Persistent_Fields.historyBufferSize' @:: Lens' UpdateReq'Settings Data.Int.Int32@ + * 'Proto.Persistent_Fields.namedConsumerStrategy' @:: Lens' UpdateReq'Settings UpdateReq'ConsumerStrategy@ -} +data UpdateReq'Settings + = UpdateReq'Settings'_constructor {_UpdateReq'Settings'resolveLinks :: !Prelude.Bool, + _UpdateReq'Settings'revision :: !Data.Word.Word64, + _UpdateReq'Settings'extraStatistics :: !Prelude.Bool, + _UpdateReq'Settings'messageTimeout :: !Data.Int.Int64, + _UpdateReq'Settings'maxRetryCount :: !Data.Int.Int32, + _UpdateReq'Settings'checkpointAfter :: !Data.Int.Int64, + _UpdateReq'Settings'minCheckpointCount :: !Data.Int.Int32, + _UpdateReq'Settings'maxCheckpointCount :: !Data.Int.Int32, + _UpdateReq'Settings'maxSubscriberCount :: !Data.Int.Int32, + _UpdateReq'Settings'liveBufferSize :: !Data.Int.Int32, + _UpdateReq'Settings'readBatchSize :: !Data.Int.Int32, + _UpdateReq'Settings'historyBufferSize :: !Data.Int.Int32, + _UpdateReq'Settings'namedConsumerStrategy :: !UpdateReq'ConsumerStrategy, + _UpdateReq'Settings'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UpdateReq'Settings where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField UpdateReq'Settings "resolveLinks" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Settings'resolveLinks + (\ x__ y__ -> x__ {_UpdateReq'Settings'resolveLinks = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Settings "revision" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Settings'revision + (\ x__ y__ -> x__ {_UpdateReq'Settings'revision = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Settings "extraStatistics" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Settings'extraStatistics + (\ x__ y__ -> x__ {_UpdateReq'Settings'extraStatistics = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Settings "messageTimeout" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Settings'messageTimeout + (\ x__ y__ -> x__ {_UpdateReq'Settings'messageTimeout = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Settings "maxRetryCount" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Settings'maxRetryCount + (\ x__ y__ -> x__ {_UpdateReq'Settings'maxRetryCount = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Settings "checkpointAfter" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Settings'checkpointAfter + (\ x__ y__ -> x__ {_UpdateReq'Settings'checkpointAfter = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Settings "minCheckpointCount" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Settings'minCheckpointCount + (\ x__ y__ -> x__ {_UpdateReq'Settings'minCheckpointCount = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Settings "maxCheckpointCount" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Settings'maxCheckpointCount + (\ x__ y__ -> x__ {_UpdateReq'Settings'maxCheckpointCount = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Settings "maxSubscriberCount" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Settings'maxSubscriberCount + (\ x__ y__ -> x__ {_UpdateReq'Settings'maxSubscriberCount = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Settings "liveBufferSize" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Settings'liveBufferSize + (\ x__ y__ -> x__ {_UpdateReq'Settings'liveBufferSize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Settings "readBatchSize" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Settings'readBatchSize + (\ x__ y__ -> x__ {_UpdateReq'Settings'readBatchSize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Settings "historyBufferSize" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Settings'historyBufferSize + (\ x__ y__ -> x__ {_UpdateReq'Settings'historyBufferSize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Settings "namedConsumerStrategy" UpdateReq'ConsumerStrategy where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Settings'namedConsumerStrategy + (\ x__ y__ + -> x__ {_UpdateReq'Settings'namedConsumerStrategy = y__})) + Prelude.id +instance Data.ProtoLens.Message UpdateReq'Settings where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.UpdateReq.Settings" + packedMessageDescriptor _ + = "\n\ + \\bSettings\DC2#\n\ + \\rresolve_links\CAN\SOH \SOH(\bR\fresolveLinks\DC2\SUB\n\ + \\brevision\CAN\STX \SOH(\EOTR\brevision\DC2)\n\ + \\DLEextra_statistics\CAN\ETX \SOH(\bR\SIextraStatistics\DC2'\n\ + \\SImessage_timeout\CAN\EOT \SOH(\ETXR\SOmessageTimeout\DC2&\n\ + \\SImax_retry_count\CAN\ENQ \SOH(\ENQR\rmaxRetryCount\DC2)\n\ + \\DLEcheckpoint_after\CAN\ACK \SOH(\ETXR\SIcheckpointAfter\DC20\n\ + \\DC4min_checkpoint_count\CAN\a \SOH(\ENQR\DC2minCheckpointCount\DC20\n\ + \\DC4max_checkpoint_count\CAN\b \SOH(\ENQR\DC2maxCheckpointCount\DC20\n\ + \\DC4max_subscriber_count\CAN\t \SOH(\ENQR\DC2maxSubscriberCount\DC2(\n\ + \\DLElive_buffer_size\CAN\n\ + \ \SOH(\ENQR\SOliveBufferSize\DC2&\n\ + \\SIread_batch_size\CAN\v \SOH(\ENQR\rreadBatchSize\DC2.\n\ + \\DC3history_buffer_size\CAN\f \SOH(\ENQR\DC1historyBufferSize\DC2\DEL\n\ + \\ETBnamed_consumer_strategy\CAN\r \SOH(\SO2G.event_store.client.persistent_subscriptions.UpdateReq.ConsumerStrategyR\NAKnamedConsumerStrategy" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + resolveLinks__field_descriptor + = Data.ProtoLens.FieldDescriptor + "resolve_links" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"resolveLinks")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Settings + revision__field_descriptor + = Data.ProtoLens.FieldDescriptor + "revision" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"revision")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Settings + extraStatistics__field_descriptor + = Data.ProtoLens.FieldDescriptor + "extra_statistics" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"extraStatistics")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Settings + messageTimeout__field_descriptor + = Data.ProtoLens.FieldDescriptor + "message_timeout" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"messageTimeout")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Settings + maxRetryCount__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_retry_count" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxRetryCount")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Settings + checkpointAfter__field_descriptor + = Data.ProtoLens.FieldDescriptor + "checkpoint_after" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"checkpointAfter")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Settings + minCheckpointCount__field_descriptor + = Data.ProtoLens.FieldDescriptor + "min_checkpoint_count" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"minCheckpointCount")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Settings + maxCheckpointCount__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_checkpoint_count" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxCheckpointCount")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Settings + maxSubscriberCount__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_subscriber_count" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxSubscriberCount")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Settings + liveBufferSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "live_buffer_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"liveBufferSize")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Settings + readBatchSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "read_batch_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"readBatchSize")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Settings + historyBufferSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "history_buffer_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"historyBufferSize")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Settings + namedConsumerStrategy__field_descriptor + = Data.ProtoLens.FieldDescriptor + "named_consumer_strategy" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor UpdateReq'ConsumerStrategy) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"namedConsumerStrategy")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Settings + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, resolveLinks__field_descriptor), + (Data.ProtoLens.Tag 2, revision__field_descriptor), + (Data.ProtoLens.Tag 3, extraStatistics__field_descriptor), + (Data.ProtoLens.Tag 4, messageTimeout__field_descriptor), + (Data.ProtoLens.Tag 5, maxRetryCount__field_descriptor), + (Data.ProtoLens.Tag 6, checkpointAfter__field_descriptor), + (Data.ProtoLens.Tag 7, minCheckpointCount__field_descriptor), + (Data.ProtoLens.Tag 8, maxCheckpointCount__field_descriptor), + (Data.ProtoLens.Tag 9, maxSubscriberCount__field_descriptor), + (Data.ProtoLens.Tag 10, liveBufferSize__field_descriptor), + (Data.ProtoLens.Tag 11, readBatchSize__field_descriptor), + (Data.ProtoLens.Tag 12, historyBufferSize__field_descriptor), + (Data.ProtoLens.Tag 13, namedConsumerStrategy__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _UpdateReq'Settings'_unknownFields + (\ x__ y__ -> x__ {_UpdateReq'Settings'_unknownFields = y__}) + defMessage + = UpdateReq'Settings'_constructor + {_UpdateReq'Settings'resolveLinks = Data.ProtoLens.fieldDefault, + _UpdateReq'Settings'revision = Data.ProtoLens.fieldDefault, + _UpdateReq'Settings'extraStatistics = Data.ProtoLens.fieldDefault, + _UpdateReq'Settings'messageTimeout = Data.ProtoLens.fieldDefault, + _UpdateReq'Settings'maxRetryCount = Data.ProtoLens.fieldDefault, + _UpdateReq'Settings'checkpointAfter = Data.ProtoLens.fieldDefault, + _UpdateReq'Settings'minCheckpointCount = Data.ProtoLens.fieldDefault, + _UpdateReq'Settings'maxCheckpointCount = Data.ProtoLens.fieldDefault, + _UpdateReq'Settings'maxSubscriberCount = Data.ProtoLens.fieldDefault, + _UpdateReq'Settings'liveBufferSize = Data.ProtoLens.fieldDefault, + _UpdateReq'Settings'readBatchSize = Data.ProtoLens.fieldDefault, + _UpdateReq'Settings'historyBufferSize = Data.ProtoLens.fieldDefault, + _UpdateReq'Settings'namedConsumerStrategy = Data.ProtoLens.fieldDefault, + _UpdateReq'Settings'_unknownFields = []} + parseMessage + = let + loop :: + UpdateReq'Settings + -> Data.ProtoLens.Encoding.Bytes.Parser UpdateReq'Settings + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "resolve_links" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"resolveLinks") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "revision" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"revision") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "extra_statistics" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"extraStatistics") y x) + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "message_timeout" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"messageTimeout") y x) + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "max_retry_count" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxRetryCount") y x) + 48 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "checkpoint_after" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"checkpointAfter") y x) + 56 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "min_checkpoint_count" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"minCheckpointCount") y x) + 64 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "max_checkpoint_count" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxCheckpointCount") y x) + 72 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "max_subscriber_count" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxSubscriberCount") y x) + 80 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "live_buffer_size" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"liveBufferSize") y x) + 88 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "read_batch_size" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"readBatchSize") y x) + 96 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "history_buffer_size" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"historyBufferSize") y x) + 104 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "named_consumer_strategy" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"namedConsumerStrategy") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Settings" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"resolveLinks") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"revision") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"extraStatistics") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"messageTimeout") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"maxRetryCount") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"checkpointAfter") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 48) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"minCheckpointCount") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 56) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"maxCheckpointCount") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 64) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"maxSubscriberCount") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 72) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"liveBufferSize") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 80) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"readBatchSize") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 88) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"historyBufferSize") + _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 96) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"namedConsumerStrategy") + _x + in + if (Prelude.==) + _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 104) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral) + Prelude.fromEnum + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields _x)))))))))))))) +instance Control.DeepSeq.NFData UpdateReq'Settings where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_UpdateReq'Settings'_unknownFields x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Settings'resolveLinks x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Settings'revision x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Settings'extraStatistics x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Settings'messageTimeout x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Settings'maxRetryCount x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Settings'checkpointAfter x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Settings'minCheckpointCount x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Settings'maxCheckpointCount x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Settings'maxSubscriberCount x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Settings'liveBufferSize x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Settings'readBatchSize x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Settings'historyBufferSize x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Settings'namedConsumerStrategy x__) + ()))))))))))))) +{- | Fields : + -} +data UpdateResp + = UpdateResp'_constructor {_UpdateResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UpdateResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message UpdateResp where + messageName _ + = Data.Text.pack + "event_store.client.persistent_subscriptions.UpdateResp" + packedMessageDescriptor _ + = "\n\ + \\n\ + \UpdateResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _UpdateResp'_unknownFields + (\ x__ y__ -> x__ {_UpdateResp'_unknownFields = y__}) + defMessage + = UpdateResp'_constructor {_UpdateResp'_unknownFields = []} + parseMessage + = let + loop :: + UpdateResp -> Data.ProtoLens.Encoding.Bytes.Parser UpdateResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "UpdateResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData UpdateResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_UpdateResp'_unknownFields x__) () +data PersistentSubscriptions = PersistentSubscriptions {} +instance Data.ProtoLens.Service.Types.Service PersistentSubscriptions where + type ServiceName PersistentSubscriptions = "PersistentSubscriptions" + type ServicePackage PersistentSubscriptions = "event_store.client.persistent_subscriptions" + type ServiceMethods PersistentSubscriptions = '["create", + "delete", + "read", + "update"] +instance Data.ProtoLens.Service.Types.HasMethodImpl PersistentSubscriptions "create" where + type MethodName PersistentSubscriptions "create" = "Create" + type MethodInput PersistentSubscriptions "create" = CreateReq + type MethodOutput PersistentSubscriptions "create" = CreateResp + type MethodStreamingType PersistentSubscriptions "create" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl PersistentSubscriptions "update" where + type MethodName PersistentSubscriptions "update" = "Update" + type MethodInput PersistentSubscriptions "update" = UpdateReq + type MethodOutput PersistentSubscriptions "update" = UpdateResp + type MethodStreamingType PersistentSubscriptions "update" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl PersistentSubscriptions "delete" where + type MethodName PersistentSubscriptions "delete" = "Delete" + type MethodInput PersistentSubscriptions "delete" = DeleteReq + type MethodOutput PersistentSubscriptions "delete" = DeleteResp + type MethodStreamingType PersistentSubscriptions "delete" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl PersistentSubscriptions "read" where + type MethodName PersistentSubscriptions "read" = "Read" + type MethodInput PersistentSubscriptions "read" = ReadReq + type MethodOutput PersistentSubscriptions "read" = ReadResp + type MethodStreamingType PersistentSubscriptions "read" = 'Data.ProtoLens.Service.Types.BiDiStreaming +packedFileDescriptor :: Data.ByteString.ByteString +packedFileDescriptor + = "\n\ + \\DLEpersistent.proto\DC2+event_store.client.persistent_subscriptions\SUB\fshared.proto\"\255\a\n\ + \\aReadReq\DC2X\n\ + \\aoptions\CAN\SOH \SOH(\v2<.event_store.client.persistent_subscriptions.ReadReq.OptionsH\NULR\aoptions\DC2L\n\ + \\ETXack\CAN\STX \SOH(\v28.event_store.client.persistent_subscriptions.ReadReq.AckH\NULR\ETXack\DC2O\n\ + \\EOTnack\CAN\ETX \SOH(\v29.event_store.client.persistent_subscriptions.ReadReq.NackH\NULR\EOTnack\SUB\167\ETX\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\GS\n\ + \\n\ + \group_name\CAN\STX \SOH(\tR\tgroupName\DC2\US\n\ + \\vbuffer_size\CAN\ETX \SOH(\ENQR\n\ + \bufferSize\DC2h\n\ + \\vuuid_option\CAN\EOT \SOH(\v2G.event_store.client.persistent_subscriptions.ReadReq.Options.UUIDOptionR\n\ + \uuidOption\SUB\151\SOH\n\ + \\n\ + \UUIDOption\DC2B\n\ + \\n\ + \structured\CAN\SOH \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \structured\DC2:\n\ + \\ACKstring\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ACKstringB\t\n\ + \\acontent\SUBH\n\ + \\ETXAck\DC2\SO\n\ + \\STXid\CAN\SOH \SOH(\fR\STXid\DC21\n\ + \\ETXids\CAN\STX \ETX(\v2\US.event_store.client.shared.UUIDR\ETXids\SUB\251\SOH\n\ + \\EOTNack\DC2\SO\n\ + \\STXid\CAN\SOH \SOH(\fR\STXid\DC21\n\ + \\ETXids\CAN\STX \ETX(\v2\US.event_store.client.shared.UUIDR\ETXids\DC2X\n\ + \\ACKaction\CAN\ETX \SOH(\SO2@.event_store.client.persistent_subscriptions.ReadReq.Nack.ActionR\ACKaction\DC2\SYN\n\ + \\ACKreason\CAN\EOT \SOH(\tR\ACKreason\">\n\ + \\ACKAction\DC2\v\n\ + \\aUnknown\DLE\NUL\DC2\b\n\ + \\EOTPark\DLE\SOH\DC2\t\n\ + \\ENQRetry\DLE\STX\DC2\b\n\ + \\EOTSkip\DLE\ETX\DC2\b\n\ + \\EOTStop\DLE\EOTB\t\n\ + \\acontent\"\152\n\ + \\n\ + \\bReadResp\DC2W\n\ + \\ENQevent\CAN\SOH \SOH(\v2?.event_store.client.persistent_subscriptions.ReadResp.ReadEventH\NULR\ENQevent\DC2\141\SOH\n\ + \\EMsubscription_confirmation\CAN\STX \SOH(\v2N.event_store.client.persistent_subscriptions.ReadResp.SubscriptionConfirmationH\NULR\CANsubscriptionConfirmation\SUB\210\a\n\ + \\tReadEvent\DC2c\n\ + \\ENQevent\CAN\SOH \SOH(\v2M.event_store.client.persistent_subscriptions.ReadResp.ReadEvent.RecordedEventR\ENQevent\DC2a\n\ + \\EOTlink\CAN\STX \SOH(\v2M.event_store.client.persistent_subscriptions.ReadResp.ReadEvent.RecordedEventR\EOTlink\DC2)\n\ + \\SIcommit_position\CAN\ETX \SOH(\EOTH\NULR\SOcommitPosition\DC2C\n\ + \\vno_position\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \noPosition\DC2!\n\ + \\vretry_count\CAN\ENQ \SOH(\ENQH\SOHR\n\ + \retryCount\DC2H\n\ + \\SOno_retry_count\CAN\ACK \SOH(\v2 .event_store.client.shared.EmptyH\SOHR\fnoRetryCount\SUB\138\EOT\n\ + \\rRecordedEvent\DC2/\n\ + \\STXid\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\STXid\DC2X\n\ + \\DC1stream_identifier\CAN\STX \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2'\n\ + \\SIstream_revision\CAN\ETX \SOH(\EOTR\SOstreamRevision\DC2)\n\ + \\DLEprepare_position\CAN\EOT \SOH(\EOTR\SIpreparePosition\DC2'\n\ + \\SIcommit_position\CAN\ENQ \SOH(\EOTR\SOcommitPosition\DC2w\n\ + \\bmetadata\CAN\ACK \ETX(\v2[.event_store.client.persistent_subscriptions.ReadResp.ReadEvent.RecordedEvent.MetadataEntryR\bmetadata\DC2'\n\ + \\SIcustom_metadata\CAN\a \SOH(\fR\SOcustomMetadata\DC2\DC2\n\ + \\EOTdata\CAN\b \SOH(\fR\EOTdata\SUB;\n\ + \\rMetadataEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOHB\n\ + \\n\ + \\bpositionB\a\n\ + \\ENQcount\SUBC\n\ + \\CANSubscriptionConfirmation\DC2'\n\ + \\SIsubscription_id\CAN\SOH \SOH(\tR\SOsubscriptionIdB\t\n\ + \\acontent\"\155\b\n\ + \\tCreateReq\DC2X\n\ + \\aoptions\CAN\SOH \SOH(\v2>.event_store.client.persistent_subscriptions.CreateReq.OptionsR\aoptions\SUB\223\SOH\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\GS\n\ + \\n\ + \group_name\CAN\STX \SOH(\tR\tgroupName\DC2[\n\ + \\bsettings\CAN\ETX \SOH(\v2?.event_store.client.persistent_subscriptions.CreateReq.SettingsR\bsettings\SUB\139\ENQ\n\ + \\bSettings\DC2#\n\ + \\rresolve_links\CAN\SOH \SOH(\bR\fresolveLinks\DC2\SUB\n\ + \\brevision\CAN\STX \SOH(\EOTR\brevision\DC2)\n\ + \\DLEextra_statistics\CAN\ETX \SOH(\bR\SIextraStatistics\DC2'\n\ + \\SImessage_timeout\CAN\EOT \SOH(\ETXR\SOmessageTimeout\DC2&\n\ + \\SImax_retry_count\CAN\ENQ \SOH(\ENQR\rmaxRetryCount\DC2)\n\ + \\DLEcheckpoint_after\CAN\ACK \SOH(\ETXR\SIcheckpointAfter\DC20\n\ + \\DC4min_checkpoint_count\CAN\a \SOH(\ENQR\DC2minCheckpointCount\DC20\n\ + \\DC4max_checkpoint_count\CAN\b \SOH(\ENQR\DC2maxCheckpointCount\DC20\n\ + \\DC4max_subscriber_count\CAN\t \SOH(\ENQR\DC2maxSubscriberCount\DC2(\n\ + \\DLElive_buffer_size\CAN\n\ + \ \SOH(\ENQR\SOliveBufferSize\DC2&\n\ + \\SIread_batch_size\CAN\v \SOH(\ENQR\rreadBatchSize\DC2.\n\ + \\DC3history_buffer_size\CAN\f \SOH(\ENQR\DC1historyBufferSize\DC2\DEL\n\ + \\ETBnamed_consumer_strategy\CAN\r \SOH(\SO2G.event_store.client.persistent_subscriptions.CreateReq.ConsumerStrategyR\NAKnamedConsumerStrategy\"D\n\ + \\DLEConsumerStrategy\DC2\DC4\n\ + \\DLEDispatchToSingle\DLE\NUL\DC2\SO\n\ + \\n\ + \RoundRobin\DLE\SOH\DC2\n\ + \\n\ + \\ACKPinned\DLE\STX\"\f\n\ + \\n\ + \CreateResp\"\155\b\n\ + \\tUpdateReq\DC2X\n\ + \\aoptions\CAN\SOH \SOH(\v2>.event_store.client.persistent_subscriptions.UpdateReq.OptionsR\aoptions\SUB\223\SOH\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\GS\n\ + \\n\ + \group_name\CAN\STX \SOH(\tR\tgroupName\DC2[\n\ + \\bsettings\CAN\ETX \SOH(\v2?.event_store.client.persistent_subscriptions.UpdateReq.SettingsR\bsettings\SUB\139\ENQ\n\ + \\bSettings\DC2#\n\ + \\rresolve_links\CAN\SOH \SOH(\bR\fresolveLinks\DC2\SUB\n\ + \\brevision\CAN\STX \SOH(\EOTR\brevision\DC2)\n\ + \\DLEextra_statistics\CAN\ETX \SOH(\bR\SIextraStatistics\DC2'\n\ + \\SImessage_timeout\CAN\EOT \SOH(\ETXR\SOmessageTimeout\DC2&\n\ + \\SImax_retry_count\CAN\ENQ \SOH(\ENQR\rmaxRetryCount\DC2)\n\ + \\DLEcheckpoint_after\CAN\ACK \SOH(\ETXR\SIcheckpointAfter\DC20\n\ + \\DC4min_checkpoint_count\CAN\a \SOH(\ENQR\DC2minCheckpointCount\DC20\n\ + \\DC4max_checkpoint_count\CAN\b \SOH(\ENQR\DC2maxCheckpointCount\DC20\n\ + \\DC4max_subscriber_count\CAN\t \SOH(\ENQR\DC2maxSubscriberCount\DC2(\n\ + \\DLElive_buffer_size\CAN\n\ + \ \SOH(\ENQR\SOliveBufferSize\DC2&\n\ + \\SIread_batch_size\CAN\v \SOH(\ENQR\rreadBatchSize\DC2.\n\ + \\DC3history_buffer_size\CAN\f \SOH(\ENQR\DC1historyBufferSize\DC2\DEL\n\ + \\ETBnamed_consumer_strategy\CAN\r \SOH(\SO2G.event_store.client.persistent_subscriptions.UpdateReq.ConsumerStrategyR\NAKnamedConsumerStrategy\"D\n\ + \\DLEConsumerStrategy\DC2\DC4\n\ + \\DLEDispatchToSingle\DLE\NUL\DC2\SO\n\ + \\n\ + \RoundRobin\DLE\SOH\DC2\n\ + \\n\ + \\ACKPinned\DLE\STX\"\f\n\ + \\n\ + \UpdateResp\"\234\SOH\n\ + \\tDeleteReq\DC2X\n\ + \\aoptions\CAN\SOH \SOH(\v2>.event_store.client.persistent_subscriptions.DeleteReq.OptionsR\aoptions\SUB\130\SOH\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\GS\n\ + \\n\ + \group_name\CAN\STX \SOH(\tR\tgroupName\"\f\n\ + \\n\ + \DeleteResp2\131\EOT\n\ + \\ETBPersistentSubscriptions\DC2y\n\ + \\ACKCreate\DC26.event_store.client.persistent_subscriptions.CreateReq\SUB7.event_store.client.persistent_subscriptions.CreateResp\DC2y\n\ + \\ACKUpdate\DC26.event_store.client.persistent_subscriptions.UpdateReq\SUB7.event_store.client.persistent_subscriptions.UpdateResp\DC2y\n\ + \\ACKDelete\DC26.event_store.client.persistent_subscriptions.DeleteReq\SUB7.event_store.client.persistent_subscriptions.DeleteResp\DC2w\n\ + \\EOTRead\DC24.event_store.client.persistent_subscriptions.ReadReq\SUB5.event_store.client.persistent_subscriptions.ReadResp(\SOH0\SOHB7\n\ + \5com.eventstore.dbclient.proto.persistentsubscriptionsJ\136\&0\n\ + \\a\DC2\ENQ\NUL\NUL\167\SOH\SOH\n\ + \\b\n\ + \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\ + \\b\n\ + \\SOH\STX\DC2\ETX\SOH\NUL4\n\ + \\b\n\ + \\SOH\b\DC2\ETX\STX\NULN\n\ + \\t\n\ + \\STX\b\SOH\DC2\ETX\STX\NULN\n\ + \\t\n\ + \\STX\ETX\NUL\DC2\ETX\EOT\NUL\SYN\n\ + \\n\ + \\n\ + \\STX\ACK\NUL\DC2\EOT\ACK\NUL\v\SOH\n\ + \\n\ + \\n\ + \\ETX\ACK\NUL\SOH\DC2\ETX\ACK\b\US\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\NUL\DC2\ETX\a\b4\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX\a\f\DC2\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX\a\DC4\GS\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX\a(2\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\SOH\DC2\ETX\b\b4\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\SOH\DC2\ETX\b\f\DC2\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\STX\DC2\ETX\b\DC4\GS\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETX\b(2\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\STX\DC2\ETX\t\b4\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\SOH\DC2\ETX\t\f\DC2\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\STX\DC2\ETX\t\DC4\GS\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\ETX\DC2\ETX\t(2\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\ETX\DC2\ETX\n\ + \\b<\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\SOH\DC2\ETX\n\ + \\f\DLE\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\ENQ\DC2\ETX\n\ + \\DC2\CAN\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\STX\DC2\ETX\n\ + \\EM \n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\ACK\DC2\ETX\n\ + \+1\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\ETX\DC2\ETX\n\ + \2:\n\ + \\n\ + \\n\ + \\STX\EOT\NUL\DC2\EOT\r\NUL5\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\NUL\SOH\DC2\ETX\r\b\SI\n\ + \\f\n\ + \\EOT\EOT\NUL\b\NUL\DC2\EOT\SO\b\DC2\t\n\ + \\f\n\ + \\ENQ\EOT\NUL\b\NUL\SOH\DC2\ETX\SO\SO\NAK\n\ + \\v\n\ + \\EOT\EOT\NUL\STX\NUL\DC2\ETX\SI\DLE$\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\SI\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\SI\CAN\US\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\SI\"#\n\ + \\v\n\ + \\EOT\EOT\NUL\STX\SOH\DC2\ETX\DLE\DLE\FS\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX\DLE\DLE\DC3\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\DLE\DC4\ETB\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\DLE\SUB\ESC\n\ + \\v\n\ + \\EOT\EOT\NUL\STX\STX\DC2\ETX\DC1\DLE\RS\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\STX\ACK\DC2\ETX\DC1\DLE\DC4\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\DC1\NAK\EM\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\DC1\FS\GS\n\ + \\f\n\ + \\EOT\EOT\NUL\ETX\NUL\DC2\EOT\DC4\b \t\n\ + \\f\n\ + \\ENQ\EOT\NUL\ETX\NUL\SOH\DC2\ETX\DC4\DLE\ETB\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\NUL\DC2\ETX\NAK\DLEQ\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\NUL\ACK\DC2\ETX\NAK\DLE:\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETX\NAK;L\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETX\NAKOP\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\SOH\DC2\ETX\SYN\DLE&\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\SOH\ENQ\DC2\ETX\SYN\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\SOH\SOH\DC2\ETX\SYN\ETB!\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\SOH\ETX\DC2\ETX\SYN$%\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\STX\DC2\ETX\ETB\DLE&\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\STX\ENQ\DC2\ETX\ETB\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\STX\SOH\DC2\ETX\ETB\SYN!\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\STX\ETX\DC2\ETX\ETB$%\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\ETX\DC2\ETX\CAN\DLE+\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ETX\ACK\DC2\ETX\CAN\DLE\SUB\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ETX\SOH\DC2\ETX\CAN\ESC&\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ETX\ETX\DC2\ETX\CAN)*\n\ + \\SO\n\ + \\ACK\EOT\NUL\ETX\NUL\ETX\NUL\DC2\EOT\SUB\DLE\US\DC1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\ETX\NUL\SOH\DC2\ETX\SUB\CAN\"\n\ + \\DLE\n\ + \\b\EOT\NUL\ETX\NUL\ETX\NUL\b\NUL\DC2\EOT\ESC\CAN\RS\EM\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\b\NUL\SOH\DC2\ETX\ESC\RS%\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\DC2\ETX\FS O\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\ACK\DC2\ETX\FS ?\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETX\FS@J\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETX\FSMN\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\ETX\NUL\STX\SOH\DC2\ETX\GS K\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\SOH\ACK\DC2\ETX\GS ?\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\SOH\SOH\DC2\ETX\GS@F\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\SOH\ETX\DC2\ETX\GSIJ\n\ + \\f\n\ + \\EOT\EOT\NUL\ETX\SOH\DC2\EOT\"\b%\t\n\ + \\f\n\ + \\ENQ\EOT\NUL\ETX\SOH\SOH\DC2\ETX\"\DLE\DC3\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\SOH\STX\NUL\DC2\ETX#\DLE\GS\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\SOH\STX\NUL\ENQ\DC2\ETX#\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\SOH\STX\NUL\SOH\DC2\ETX#\SYN\CAN\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\SOH\STX\NUL\ETX\DC2\ETX#\ESC\FS\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\SOH\STX\SOH\DC2\ETX$\DLE@\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\SOH\STX\SOH\EOT\DC2\ETX$\DLE\CAN\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\SOH\STX\SOH\ACK\DC2\ETX$\EM7\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\SOH\STX\SOH\SOH\DC2\ETX$8;\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\SOH\STX\SOH\ETX\DC2\ETX$>?\n\ + \\f\n\ + \\EOT\EOT\NUL\ETX\STX\DC2\EOT'\b4\t\n\ + \\f\n\ + \\ENQ\EOT\NUL\ETX\STX\SOH\DC2\ETX'\DLE\DC4\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\STX\STX\NUL\DC2\ETX(\DLE\GS\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\STX\STX\NUL\ENQ\DC2\ETX(\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\STX\STX\NUL\SOH\DC2\ETX(\SYN\CAN\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\STX\STX\NUL\ETX\DC2\ETX(\ESC\FS\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\STX\STX\SOH\DC2\ETX)\DLE@\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\STX\STX\SOH\EOT\DC2\ETX)\DLE\CAN\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\STX\STX\SOH\ACK\DC2\ETX)\EM7\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\STX\STX\SOH\SOH\DC2\ETX)8;\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\STX\STX\SOH\ETX\DC2\ETX)>?\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\STX\STX\STX\DC2\ETX*\DLE\"\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\STX\STX\STX\ACK\DC2\ETX*\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\STX\STX\STX\SOH\DC2\ETX*\ETB\GS\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\STX\STX\STX\ETX\DC2\ETX* !\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\STX\STX\ETX\DC2\ETX+\DLE\"\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\STX\STX\ETX\ENQ\DC2\ETX+\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\STX\STX\ETX\SOH\DC2\ETX+\ETB\GS\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\STX\STX\ETX\ETX\DC2\ETX+ !\n\ + \\SO\n\ + \\ACK\EOT\NUL\ETX\STX\EOT\NUL\DC2\EOT-\DLE3\DC1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\STX\EOT\NUL\SOH\DC2\ETX-\NAK\ESC\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\STX\EOT\NUL\STX\NUL\DC2\ETX.\CAN$\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\STX\EOT\NUL\STX\NUL\SOH\DC2\ETX.\CAN\US\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\STX\EOT\NUL\STX\NUL\STX\DC2\ETX.\"#\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\STX\EOT\NUL\STX\SOH\DC2\ETX/\CAN!\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\STX\EOT\NUL\STX\SOH\SOH\DC2\ETX/\CAN\FS\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\STX\EOT\NUL\STX\SOH\STX\DC2\ETX/\US \n\ + \\SI\n\ + \\b\EOT\NUL\ETX\STX\EOT\NUL\STX\STX\DC2\ETX0\CAN\"\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\STX\EOT\NUL\STX\STX\SOH\DC2\ETX0\CAN\GS\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\STX\EOT\NUL\STX\STX\STX\DC2\ETX0 !\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\STX\EOT\NUL\STX\ETX\DC2\ETX1\CAN!\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\STX\EOT\NUL\STX\ETX\SOH\DC2\ETX1\CAN\FS\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\STX\EOT\NUL\STX\ETX\STX\DC2\ETX1\US \n\ + \\SI\n\ + \\b\EOT\NUL\ETX\STX\EOT\NUL\STX\EOT\DC2\ETX2\CAN!\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\STX\EOT\NUL\STX\EOT\SOH\DC2\ETX2\CAN\FS\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\STX\EOT\NUL\STX\EOT\STX\DC2\ETX2\US \n\ + \\n\ + \\n\ + \\STX\EOT\SOH\DC2\EOT7\NULU\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\SOH\SOH\DC2\ETX7\b\DLE\n\ + \\f\n\ + \\EOT\EOT\SOH\b\NUL\DC2\EOT8\b;\t\n\ + \\f\n\ + \\ENQ\EOT\SOH\b\NUL\SOH\DC2\ETX8\SO\NAK\n\ + \\v\n\ + \\EOT\EOT\SOH\STX\NUL\DC2\ETX9\DLE$\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX9\DLE\EM\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX9\SUB\US\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX9\"#\n\ + \\v\n\ + \\EOT\EOT\SOH\STX\SOH\DC2\ETX:\DLEG\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETX:\DLE(\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX:)B\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX:EF\n\ + \\f\n\ + \\EOT\EOT\SOH\ETX\NUL\DC2\EOT<\bQ\t\n\ + \\f\n\ + \\ENQ\EOT\SOH\ETX\NUL\SOH\DC2\ETX<\DLE\EM\n\ + \\r\n\ + \\ACK\EOT\SOH\ETX\NUL\STX\NUL\DC2\ETX=\DLE(\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\NUL\ACK\DC2\ETX=\DLE\GS\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\NUL\SOH\DC2\ETX=\RS#\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\NUL\ETX\DC2\ETX=&'\n\ + \\r\n\ + \\ACK\EOT\SOH\ETX\NUL\STX\SOH\DC2\ETX>\DLE'\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\SOH\ACK\DC2\ETX>\DLE\GS\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\SOH\SOH\DC2\ETX>\RS\"\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\SOH\ETX\DC2\ETX>%&\n\ + \\SO\n\ + \\ACK\EOT\SOH\ETX\NUL\b\NUL\DC2\EOT?\DLEB\DC1\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\b\NUL\SOH\DC2\ETX?\SYN\RS\n\ + \\r\n\ + \\ACK\EOT\SOH\ETX\NUL\STX\STX\DC2\ETX@\CAN3\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\STX\ENQ\DC2\ETX@\CAN\RS\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\STX\SOH\DC2\ETX@\US.\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\STX\ETX\DC2\ETX@12\n\ + \\r\n\ + \\ACK\EOT\SOH\ETX\NUL\STX\ETX\DC2\ETXA\CANH\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\ETX\ACK\DC2\ETXA\CAN7\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\ETX\SOH\DC2\ETXA8C\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\ETX\ETX\DC2\ETXAFG\n\ + \\SO\n\ + \\ACK\EOT\SOH\ETX\NUL\b\SOH\DC2\EOTC\DLEF\DC1\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\b\SOH\SOH\DC2\ETXC\SYN\ESC\n\ + \\r\n\ + \\ACK\EOT\SOH\ETX\NUL\STX\EOT\DC2\ETXD\CAN.\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\EOT\ENQ\DC2\ETXD\CAN\GS\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\EOT\SOH\DC2\ETXD\RS)\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\EOT\ETX\DC2\ETXD,-\n\ + \\r\n\ + \\ACK\EOT\SOH\ETX\NUL\STX\ENQ\DC2\ETXE\CANK\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\ENQ\ACK\DC2\ETXE\CAN7\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\ENQ\SOH\DC2\ETXE8F\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\ENQ\ETX\DC2\ETXEIJ\n\ + \\SO\n\ + \\ACK\EOT\SOH\ETX\NUL\ETX\NUL\DC2\EOTG\DLEP\DC1\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\ETX\NUL\SOH\DC2\ETXG\CAN%\n\ + \\SI\n\ + \\b\EOT\SOH\ETX\NUL\ETX\NUL\STX\NUL\DC2\ETXH\CAN>\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\NUL\ACK\DC2\ETXH\CAN6\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETXH79\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETXH<=\n\ + \\SI\n\ + \\b\EOT\SOH\ETX\NUL\ETX\NUL\STX\SOH\DC2\ETXI\CANY\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\SOH\ACK\DC2\ETXI\CANB\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\SOH\SOH\DC2\ETXICT\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\SOH\ETX\DC2\ETXIWX\n\ + \\SI\n\ + \\b\EOT\SOH\ETX\NUL\ETX\NUL\STX\STX\DC2\ETXJ\CAN3\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\STX\ENQ\DC2\ETXJ\CAN\RS\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\STX\SOH\DC2\ETXJ\US.\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\STX\ETX\DC2\ETXJ12\n\ + \\SI\n\ + \\b\EOT\SOH\ETX\NUL\ETX\NUL\STX\ETX\DC2\ETXK\CAN4\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\ETX\ENQ\DC2\ETXK\CAN\RS\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\ETX\SOH\DC2\ETXK\US/\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\ETX\ETX\DC2\ETXK23\n\ + \\SI\n\ + \\b\EOT\SOH\ETX\NUL\ETX\NUL\STX\EOT\DC2\ETXL\CAN3\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\EOT\ENQ\DC2\ETXL\CAN\RS\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\EOT\SOH\DC2\ETXL\US.\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\EOT\ETX\DC2\ETXL12\n\ + \\SI\n\ + \\b\EOT\SOH\ETX\NUL\ETX\NUL\STX\ENQ\DC2\ETXM\CAN9\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\ENQ\ACK\DC2\ETXM\CAN+\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\ENQ\SOH\DC2\ETXM,4\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\ENQ\ETX\DC2\ETXM78\n\ + \\SI\n\ + \\b\EOT\SOH\ETX\NUL\ETX\NUL\STX\ACK\DC2\ETXN\CAN2\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\ACK\ENQ\DC2\ETXN\CAN\GS\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\ACK\SOH\DC2\ETXN\RS-\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\ACK\ETX\DC2\ETXN01\n\ + \\SI\n\ + \\b\EOT\SOH\ETX\NUL\ETX\NUL\STX\a\DC2\ETXO\CAN'\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\a\ENQ\DC2\ETXO\CAN\GS\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\a\SOH\DC2\ETXO\RS\"\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\a\ETX\DC2\ETXO%&\n\ + \\f\n\ + \\EOT\EOT\SOH\ETX\SOH\DC2\EOTR\bT\t\n\ + \\f\n\ + \\ENQ\EOT\SOH\ETX\SOH\SOH\DC2\ETXR\DLE(\n\ + \\r\n\ + \\ACK\EOT\SOH\ETX\SOH\STX\NUL\DC2\ETXS\DLE+\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\SOH\STX\NUL\ENQ\DC2\ETXS\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\SOH\STX\NUL\SOH\DC2\ETXS\ETB&\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\SOH\STX\NUL\ETX\DC2\ETXS)*\n\ + \\n\ + \\n\ + \\STX\EOT\STX\DC2\EOTW\NULu\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\STX\SOH\DC2\ETXW\b\DC1\n\ + \\v\n\ + \\EOT\EOT\STX\STX\NUL\DC2\ETXX\b\FS\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETXX\b\SI\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETXX\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETXX\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\STX\ETX\NUL\DC2\EOTZ\b^\t\n\ + \\f\n\ + \\ENQ\EOT\STX\ETX\NUL\SOH\DC2\ETXZ\DLE\ETB\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\NUL\STX\NUL\DC2\ETX[\DLEQ\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\NUL\ACK\DC2\ETX[\DLE:\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\NUL\SOH\DC2\ETX[;L\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\NUL\ETX\DC2\ETX[OP\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\NUL\STX\SOH\DC2\ETX\\\DLE&\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\SOH\ENQ\DC2\ETX\\\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\SOH\SOH\DC2\ETX\\\ETB!\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\SOH\ETX\DC2\ETX\\$%\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\NUL\STX\STX\DC2\ETX]\DLE&\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\STX\ACK\DC2\ETX]\DLE\CAN\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\STX\SOH\DC2\ETX]\EM!\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\STX\ETX\DC2\ETX]$%\n\ + \\f\n\ + \\EOT\EOT\STX\ETX\SOH\DC2\EOT`\bn\t\n\ + \\f\n\ + \\ENQ\EOT\STX\ETX\SOH\SOH\DC2\ETX`\DLE\CAN\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\SOH\STX\NUL\DC2\ETXa\DLE'\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\NUL\ENQ\DC2\ETXa\DLE\DC4\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\NUL\SOH\DC2\ETXa\NAK\"\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\NUL\ETX\DC2\ETXa%&\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\SOH\STX\SOH\DC2\ETXb\DLE$\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\SOH\ENQ\DC2\ETXb\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\SOH\SOH\DC2\ETXb\ETB\US\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\SOH\ETX\DC2\ETXb\"#\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\SOH\STX\STX\DC2\ETXc\DLE*\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\STX\ENQ\DC2\ETXc\DLE\DC4\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\STX\SOH\DC2\ETXc\NAK%\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\STX\ETX\DC2\ETXc()\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\SOH\STX\ETX\DC2\ETXd\DLE*\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\ETX\ENQ\DC2\ETXd\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\ETX\SOH\DC2\ETXd\SYN%\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\ETX\ETX\DC2\ETXd()\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\SOH\STX\EOT\DC2\ETXe\DLE*\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\EOT\ENQ\DC2\ETXe\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\EOT\SOH\DC2\ETXe\SYN%\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\EOT\ETX\DC2\ETXe()\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\SOH\STX\ENQ\DC2\ETXf\DLE+\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\ENQ\ENQ\DC2\ETXf\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\ENQ\SOH\DC2\ETXf\SYN&\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\ENQ\ETX\DC2\ETXf)*\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\SOH\STX\ACK\DC2\ETXg\DLE/\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\ACK\ENQ\DC2\ETXg\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\ACK\SOH\DC2\ETXg\SYN*\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\ACK\ETX\DC2\ETXg-.\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\SOH\STX\a\DC2\ETXh\DLE/\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\a\ENQ\DC2\ETXh\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\a\SOH\DC2\ETXh\SYN*\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\a\ETX\DC2\ETXh-.\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\SOH\STX\b\DC2\ETXi\DLE/\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\b\ENQ\DC2\ETXi\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\b\SOH\DC2\ETXi\SYN*\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\b\ETX\DC2\ETXi-.\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\SOH\STX\t\DC2\ETXj\DLE,\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\t\ENQ\DC2\ETXj\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\t\SOH\DC2\ETXj\SYN&\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\t\ETX\DC2\ETXj)+\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\SOH\STX\n\ + \\DC2\ETXk\DLE+\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\n\ + \\ENQ\DC2\ETXk\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\n\ + \\SOH\DC2\ETXk\SYN%\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\n\ + \\ETX\DC2\ETXk(*\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\SOH\STX\v\DC2\ETXl\DLE/\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\v\ENQ\DC2\ETXl\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\v\SOH\DC2\ETXl\SYN)\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\v\ETX\DC2\ETXl,.\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\SOH\STX\f\DC2\ETXm\DLE>\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\f\ACK\DC2\ETXm\DLE \n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\f\SOH\DC2\ETXm!8\n\ + \\SO\n\ + \\a\EOT\STX\ETX\SOH\STX\f\ETX\DC2\ETXm;=\n\ + \\f\n\ + \\EOT\EOT\STX\EOT\NUL\DC2\EOTp\bt\t\n\ + \\f\n\ + \\ENQ\EOT\STX\EOT\NUL\SOH\DC2\ETXp\r\GS\n\ + \\r\n\ + \\ACK\EOT\STX\EOT\NUL\STX\NUL\DC2\ETXq\DLE%\n\ + \\SO\n\ + \\a\EOT\STX\EOT\NUL\STX\NUL\SOH\DC2\ETXq\DLE \n\ + \\SO\n\ + \\a\EOT\STX\EOT\NUL\STX\NUL\STX\DC2\ETXq#$\n\ + \\r\n\ + \\ACK\EOT\STX\EOT\NUL\STX\SOH\DC2\ETXr\DLE\US\n\ + \\SO\n\ + \\a\EOT\STX\EOT\NUL\STX\SOH\SOH\DC2\ETXr\DLE\SUB\n\ + \\SO\n\ + \\a\EOT\STX\EOT\NUL\STX\SOH\STX\DC2\ETXr\GS\RS\n\ + \\r\n\ + \\ACK\EOT\STX\EOT\NUL\STX\STX\DC2\ETXs\DLE\ESC\n\ + \\SO\n\ + \\a\EOT\STX\EOT\NUL\STX\STX\SOH\DC2\ETXs\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\STX\EOT\NUL\STX\STX\STX\DC2\ETXs\EM\SUB\n\ + \\n\ + \\n\ + \\STX\EOT\ETX\DC2\EOTw\NULx\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\ETX\SOH\DC2\ETXw\b\DC2\n\ + \\v\n\ + \\STX\EOT\EOT\DC2\ENQz\NUL\152\SOH\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\EOT\SOH\DC2\ETXz\b\DC1\n\ + \\v\n\ + \\EOT\EOT\EOT\STX\NUL\DC2\ETX{\b\FS\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETX{\b\SI\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX{\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX{\SUB\ESC\n\ + \\r\n\ + \\EOT\EOT\EOT\ETX\NUL\DC2\ENQ}\b\129\SOH\t\n\ + \\f\n\ + \\ENQ\EOT\EOT\ETX\NUL\SOH\DC2\ETX}\DLE\ETB\n\ + \\r\n\ + \\ACK\EOT\EOT\ETX\NUL\STX\NUL\DC2\ETX~\DLEQ\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\NUL\ACK\DC2\ETX~\DLE:\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\NUL\SOH\DC2\ETX~;L\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\NUL\ETX\DC2\ETX~OP\n\ + \\r\n\ + \\ACK\EOT\EOT\ETX\NUL\STX\SOH\DC2\ETX\DEL\DLE&\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\SOH\ENQ\DC2\ETX\DEL\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\SOH\SOH\DC2\ETX\DEL\ETB!\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\SOH\ETX\DC2\ETX\DEL$%\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\NUL\STX\STX\DC2\EOT\128\SOH\DLE&\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\STX\STX\ACK\DC2\EOT\128\SOH\DLE\CAN\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\STX\STX\SOH\DC2\EOT\128\SOH\EM!\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\STX\STX\ETX\DC2\EOT\128\SOH$%\n\ + \\SO\n\ + \\EOT\EOT\EOT\ETX\SOH\DC2\ACK\131\SOH\b\145\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\EOT\ETX\SOH\SOH\DC2\EOT\131\SOH\DLE\CAN\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\SOH\STX\NUL\DC2\EOT\132\SOH\DLE'\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\NUL\ENQ\DC2\EOT\132\SOH\DLE\DC4\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\NUL\SOH\DC2\EOT\132\SOH\NAK\"\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\NUL\ETX\DC2\EOT\132\SOH%&\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\SOH\STX\SOH\DC2\EOT\133\SOH\DLE$\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\SOH\ENQ\DC2\EOT\133\SOH\DLE\SYN\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\SOH\SOH\DC2\EOT\133\SOH\ETB\US\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\SOH\ETX\DC2\EOT\133\SOH\"#\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\SOH\STX\STX\DC2\EOT\134\SOH\DLE*\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\STX\ENQ\DC2\EOT\134\SOH\DLE\DC4\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\STX\SOH\DC2\EOT\134\SOH\NAK%\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\STX\ETX\DC2\EOT\134\SOH()\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\SOH\STX\ETX\DC2\EOT\135\SOH\DLE*\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\ETX\ENQ\DC2\EOT\135\SOH\DLE\NAK\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\ETX\SOH\DC2\EOT\135\SOH\SYN%\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\ETX\ETX\DC2\EOT\135\SOH()\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\SOH\STX\EOT\DC2\EOT\136\SOH\DLE*\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\EOT\ENQ\DC2\EOT\136\SOH\DLE\NAK\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\EOT\SOH\DC2\EOT\136\SOH\SYN%\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\EOT\ETX\DC2\EOT\136\SOH()\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\SOH\STX\ENQ\DC2\EOT\137\SOH\DLE+\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\ENQ\ENQ\DC2\EOT\137\SOH\DLE\NAK\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\ENQ\SOH\DC2\EOT\137\SOH\SYN&\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\ENQ\ETX\DC2\EOT\137\SOH)*\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\SOH\STX\ACK\DC2\EOT\138\SOH\DLE/\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\ACK\ENQ\DC2\EOT\138\SOH\DLE\NAK\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\ACK\SOH\DC2\EOT\138\SOH\SYN*\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\ACK\ETX\DC2\EOT\138\SOH-.\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\SOH\STX\a\DC2\EOT\139\SOH\DLE/\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\a\ENQ\DC2\EOT\139\SOH\DLE\NAK\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\a\SOH\DC2\EOT\139\SOH\SYN*\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\a\ETX\DC2\EOT\139\SOH-.\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\SOH\STX\b\DC2\EOT\140\SOH\DLE/\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\b\ENQ\DC2\EOT\140\SOH\DLE\NAK\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\b\SOH\DC2\EOT\140\SOH\SYN*\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\b\ETX\DC2\EOT\140\SOH-.\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\SOH\STX\t\DC2\EOT\141\SOH\DLE,\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\t\ENQ\DC2\EOT\141\SOH\DLE\NAK\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\t\SOH\DC2\EOT\141\SOH\SYN&\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\t\ETX\DC2\EOT\141\SOH)+\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\SOH\STX\n\ + \\DC2\EOT\142\SOH\DLE+\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\n\ + \\ENQ\DC2\EOT\142\SOH\DLE\NAK\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\n\ + \\SOH\DC2\EOT\142\SOH\SYN%\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\n\ + \\ETX\DC2\EOT\142\SOH(*\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\SOH\STX\v\DC2\EOT\143\SOH\DLE/\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\v\ENQ\DC2\EOT\143\SOH\DLE\NAK\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\v\SOH\DC2\EOT\143\SOH\SYN)\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\v\ETX\DC2\EOT\143\SOH,.\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\SOH\STX\f\DC2\EOT\144\SOH\DLE>\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\f\ACK\DC2\EOT\144\SOH\DLE \n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\f\SOH\DC2\EOT\144\SOH!8\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\SOH\STX\f\ETX\DC2\EOT\144\SOH;=\n\ + \\SO\n\ + \\EOT\EOT\EOT\EOT\NUL\DC2\ACK\147\SOH\b\151\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\EOT\EOT\NUL\SOH\DC2\EOT\147\SOH\r\GS\n\ + \\SO\n\ + \\ACK\EOT\EOT\EOT\NUL\STX\NUL\DC2\EOT\148\SOH\DLE%\n\ + \\SI\n\ + \\a\EOT\EOT\EOT\NUL\STX\NUL\SOH\DC2\EOT\148\SOH\DLE \n\ + \\SI\n\ + \\a\EOT\EOT\EOT\NUL\STX\NUL\STX\DC2\EOT\148\SOH#$\n\ + \\SO\n\ + \\ACK\EOT\EOT\EOT\NUL\STX\SOH\DC2\EOT\149\SOH\DLE\US\n\ + \\SI\n\ + \\a\EOT\EOT\EOT\NUL\STX\SOH\SOH\DC2\EOT\149\SOH\DLE\SUB\n\ + \\SI\n\ + \\a\EOT\EOT\EOT\NUL\STX\SOH\STX\DC2\EOT\149\SOH\GS\RS\n\ + \\SO\n\ + \\ACK\EOT\EOT\EOT\NUL\STX\STX\DC2\EOT\150\SOH\DLE\ESC\n\ + \\SI\n\ + \\a\EOT\EOT\EOT\NUL\STX\STX\SOH\DC2\EOT\150\SOH\DLE\SYN\n\ + \\SI\n\ + \\a\EOT\EOT\EOT\NUL\STX\STX\STX\DC2\EOT\150\SOH\EM\SUB\n\ + \\f\n\ + \\STX\EOT\ENQ\DC2\ACK\154\SOH\NUL\155\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\ENQ\SOH\DC2\EOT\154\SOH\b\DC2\n\ + \\f\n\ + \\STX\EOT\ACK\DC2\ACK\157\SOH\NUL\164\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\ACK\SOH\DC2\EOT\157\SOH\b\DC1\n\ + \\f\n\ + \\EOT\EOT\ACK\STX\NUL\DC2\EOT\158\SOH\b\FS\n\ + \\r\n\ + \\ENQ\EOT\ACK\STX\NUL\ACK\DC2\EOT\158\SOH\b\SI\n\ + \\r\n\ + \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\EOT\158\SOH\DLE\ETB\n\ + \\r\n\ + \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\EOT\158\SOH\SUB\ESC\n\ + \\SO\n\ + \\EOT\EOT\ACK\ETX\NUL\DC2\ACK\160\SOH\b\163\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\ACK\ETX\NUL\SOH\DC2\EOT\160\SOH\DLE\ETB\n\ + \\SO\n\ + \\ACK\EOT\ACK\ETX\NUL\STX\NUL\DC2\EOT\161\SOH\DLEQ\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\NUL\ACK\DC2\EOT\161\SOH\DLE:\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\NUL\SOH\DC2\EOT\161\SOH;L\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\NUL\ETX\DC2\EOT\161\SOHOP\n\ + \\SO\n\ + \\ACK\EOT\ACK\ETX\NUL\STX\SOH\DC2\EOT\162\SOH\DLE&\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\SOH\ENQ\DC2\EOT\162\SOH\DLE\SYN\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\SOH\SOH\DC2\EOT\162\SOH\ETB!\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\SOH\ETX\DC2\EOT\162\SOH$%\n\ + \\f\n\ + \\STX\EOT\a\DC2\ACK\166\SOH\NUL\167\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\a\SOH\DC2\EOT\166\SOH\b\DC2b\ACKproto3" \ No newline at end of file diff --git a/Proto/Persistent_Fields.hs b/Proto/Persistent_Fields.hs new file mode 100644 index 0000000..9de7d42 --- /dev/null +++ b/Proto/Persistent_Fields.hs @@ -0,0 +1,397 @@ +{- This file was auto-generated from persistent.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.Persistent_Fields where +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.Shared +ack :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "ack" a) => + Lens.Family2.LensLike' f s a +ack = Data.ProtoLens.Field.field @"ack" +action :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "action" a) => + Lens.Family2.LensLike' f s a +action = Data.ProtoLens.Field.field @"action" +bufferSize :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "bufferSize" a) => + Lens.Family2.LensLike' f s a +bufferSize = Data.ProtoLens.Field.field @"bufferSize" +checkpointAfter :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "checkpointAfter" a) => + Lens.Family2.LensLike' f s a +checkpointAfter = Data.ProtoLens.Field.field @"checkpointAfter" +commitPosition :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "commitPosition" a) => + Lens.Family2.LensLike' f s a +commitPosition = Data.ProtoLens.Field.field @"commitPosition" +customMetadata :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "customMetadata" a) => + Lens.Family2.LensLike' f s a +customMetadata = Data.ProtoLens.Field.field @"customMetadata" +data' :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "data'" a) => + Lens.Family2.LensLike' f s a +data' = Data.ProtoLens.Field.field @"data'" +event :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "event" a) => + Lens.Family2.LensLike' f s a +event = Data.ProtoLens.Field.field @"event" +extraStatistics :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "extraStatistics" a) => + Lens.Family2.LensLike' f s a +extraStatistics = Data.ProtoLens.Field.field @"extraStatistics" +groupName :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "groupName" a) => + Lens.Family2.LensLike' f s a +groupName = Data.ProtoLens.Field.field @"groupName" +historyBufferSize :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "historyBufferSize" a) => + Lens.Family2.LensLike' f s a +historyBufferSize = Data.ProtoLens.Field.field @"historyBufferSize" +id :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "id" a) => + Lens.Family2.LensLike' f s a +id = Data.ProtoLens.Field.field @"id" +ids :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "ids" a) => + Lens.Family2.LensLike' f s a +ids = Data.ProtoLens.Field.field @"ids" +key :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "key" a) => + Lens.Family2.LensLike' f s a +key = Data.ProtoLens.Field.field @"key" +link :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "link" a) => + Lens.Family2.LensLike' f s a +link = Data.ProtoLens.Field.field @"link" +liveBufferSize :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "liveBufferSize" a) => + Lens.Family2.LensLike' f s a +liveBufferSize = Data.ProtoLens.Field.field @"liveBufferSize" +maxCheckpointCount :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxCheckpointCount" a) => + Lens.Family2.LensLike' f s a +maxCheckpointCount + = Data.ProtoLens.Field.field @"maxCheckpointCount" +maxRetryCount :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxRetryCount" a) => + Lens.Family2.LensLike' f s a +maxRetryCount = Data.ProtoLens.Field.field @"maxRetryCount" +maxSubscriberCount :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxSubscriberCount" a) => + Lens.Family2.LensLike' f s a +maxSubscriberCount + = Data.ProtoLens.Field.field @"maxSubscriberCount" +maybe'ack :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'ack" a) => + Lens.Family2.LensLike' f s a +maybe'ack = Data.ProtoLens.Field.field @"maybe'ack" +maybe'commitPosition :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'commitPosition" a) => + Lens.Family2.LensLike' f s a +maybe'commitPosition + = Data.ProtoLens.Field.field @"maybe'commitPosition" +maybe'content :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'content" a) => + Lens.Family2.LensLike' f s a +maybe'content = Data.ProtoLens.Field.field @"maybe'content" +maybe'count :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'count" a) => + Lens.Family2.LensLike' f s a +maybe'count = Data.ProtoLens.Field.field @"maybe'count" +maybe'event :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'event" a) => + Lens.Family2.LensLike' f s a +maybe'event = Data.ProtoLens.Field.field @"maybe'event" +maybe'id :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'id" a) => + Lens.Family2.LensLike' f s a +maybe'id = Data.ProtoLens.Field.field @"maybe'id" +maybe'link :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'link" a) => + Lens.Family2.LensLike' f s a +maybe'link = Data.ProtoLens.Field.field @"maybe'link" +maybe'nack :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'nack" a) => + Lens.Family2.LensLike' f s a +maybe'nack = Data.ProtoLens.Field.field @"maybe'nack" +maybe'noPosition :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'noPosition" a) => + Lens.Family2.LensLike' f s a +maybe'noPosition = Data.ProtoLens.Field.field @"maybe'noPosition" +maybe'noRetryCount :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'noRetryCount" a) => + Lens.Family2.LensLike' f s a +maybe'noRetryCount + = Data.ProtoLens.Field.field @"maybe'noRetryCount" +maybe'options :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'options" a) => + Lens.Family2.LensLike' f s a +maybe'options = Data.ProtoLens.Field.field @"maybe'options" +maybe'position :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'position" a) => + Lens.Family2.LensLike' f s a +maybe'position = Data.ProtoLens.Field.field @"maybe'position" +maybe'retryCount :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'retryCount" a) => + Lens.Family2.LensLike' f s a +maybe'retryCount = Data.ProtoLens.Field.field @"maybe'retryCount" +maybe'settings :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'settings" a) => + Lens.Family2.LensLike' f s a +maybe'settings = Data.ProtoLens.Field.field @"maybe'settings" +maybe'streamIdentifier :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'streamIdentifier" a) => + Lens.Family2.LensLike' f s a +maybe'streamIdentifier + = Data.ProtoLens.Field.field @"maybe'streamIdentifier" +maybe'string :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'string" a) => + Lens.Family2.LensLike' f s a +maybe'string = Data.ProtoLens.Field.field @"maybe'string" +maybe'structured :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'structured" a) => + Lens.Family2.LensLike' f s a +maybe'structured = Data.ProtoLens.Field.field @"maybe'structured" +maybe'subscriptionConfirmation :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'subscriptionConfirmation" a) => + Lens.Family2.LensLike' f s a +maybe'subscriptionConfirmation + = Data.ProtoLens.Field.field @"maybe'subscriptionConfirmation" +maybe'uuidOption :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'uuidOption" a) => + Lens.Family2.LensLike' f s a +maybe'uuidOption = Data.ProtoLens.Field.field @"maybe'uuidOption" +messageTimeout :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "messageTimeout" a) => + Lens.Family2.LensLike' f s a +messageTimeout = Data.ProtoLens.Field.field @"messageTimeout" +metadata :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "metadata" a) => + Lens.Family2.LensLike' f s a +metadata = Data.ProtoLens.Field.field @"metadata" +minCheckpointCount :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "minCheckpointCount" a) => + Lens.Family2.LensLike' f s a +minCheckpointCount + = Data.ProtoLens.Field.field @"minCheckpointCount" +nack :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "nack" a) => + Lens.Family2.LensLike' f s a +nack = Data.ProtoLens.Field.field @"nack" +namedConsumerStrategy :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "namedConsumerStrategy" a) => + Lens.Family2.LensLike' f s a +namedConsumerStrategy + = Data.ProtoLens.Field.field @"namedConsumerStrategy" +noPosition :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "noPosition" a) => + Lens.Family2.LensLike' f s a +noPosition = Data.ProtoLens.Field.field @"noPosition" +noRetryCount :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "noRetryCount" a) => + Lens.Family2.LensLike' f s a +noRetryCount = Data.ProtoLens.Field.field @"noRetryCount" +options :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "options" a) => + Lens.Family2.LensLike' f s a +options = Data.ProtoLens.Field.field @"options" +preparePosition :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "preparePosition" a) => + Lens.Family2.LensLike' f s a +preparePosition = Data.ProtoLens.Field.field @"preparePosition" +readBatchSize :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "readBatchSize" a) => + Lens.Family2.LensLike' f s a +readBatchSize = Data.ProtoLens.Field.field @"readBatchSize" +reason :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "reason" a) => + Lens.Family2.LensLike' f s a +reason = Data.ProtoLens.Field.field @"reason" +resolveLinks :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "resolveLinks" a) => + Lens.Family2.LensLike' f s a +resolveLinks = Data.ProtoLens.Field.field @"resolveLinks" +retryCount :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "retryCount" a) => + Lens.Family2.LensLike' f s a +retryCount = Data.ProtoLens.Field.field @"retryCount" +revision :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "revision" a) => + Lens.Family2.LensLike' f s a +revision = Data.ProtoLens.Field.field @"revision" +settings :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "settings" a) => + Lens.Family2.LensLike' f s a +settings = Data.ProtoLens.Field.field @"settings" +streamIdentifier :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "streamIdentifier" a) => + Lens.Family2.LensLike' f s a +streamIdentifier = Data.ProtoLens.Field.field @"streamIdentifier" +streamRevision :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "streamRevision" a) => + Lens.Family2.LensLike' f s a +streamRevision = Data.ProtoLens.Field.field @"streamRevision" +string :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "string" a) => + Lens.Family2.LensLike' f s a +string = Data.ProtoLens.Field.field @"string" +structured :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "structured" a) => + Lens.Family2.LensLike' f s a +structured = Data.ProtoLens.Field.field @"structured" +subscriptionConfirmation :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "subscriptionConfirmation" a) => + Lens.Family2.LensLike' f s a +subscriptionConfirmation + = Data.ProtoLens.Field.field @"subscriptionConfirmation" +subscriptionId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "subscriptionId" a) => + Lens.Family2.LensLike' f s a +subscriptionId = Data.ProtoLens.Field.field @"subscriptionId" +uuidOption :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "uuidOption" a) => + Lens.Family2.LensLike' f s a +uuidOption = Data.ProtoLens.Field.field @"uuidOption" +value :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "value" a) => + Lens.Family2.LensLike' f s a +value = Data.ProtoLens.Field.field @"value" +vec'ids :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "vec'ids" a) => + Lens.Family2.LensLike' f s a +vec'ids = Data.ProtoLens.Field.field @"vec'ids" \ No newline at end of file diff --git a/Proto/Projections.hs b/Proto/Projections.hs new file mode 100644 index 0000000..2b0a991 --- /dev/null +++ b/Proto/Projections.hs @@ -0,0 +1,6439 @@ +{- This file was auto-generated from projections.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.Projections ( + Projections(..), CreateReq(), CreateReq'Options(), + CreateReq'Options'Mode(..), _CreateReq'Options'OneTime, + _CreateReq'Options'Transient', _CreateReq'Options'Continuous', + CreateReq'Options'Continuous(), CreateReq'Options'Transient(), + CreateResp(), DeleteReq(), DeleteReq'Options(), DeleteResp(), + DisableReq(), DisableReq'Options(), DisableResp(), EnableReq(), + EnableReq'Options(), EnableResp(), ResetReq(), ResetReq'Options(), + ResetResp(), ResultReq(), ResultReq'Options(), ResultResp(), + StateReq(), StateReq'Options(), StateResp(), StatisticsReq(), + StatisticsReq'Options(), StatisticsReq'Options'Mode(..), + _StatisticsReq'Options'Name, _StatisticsReq'Options'All, + _StatisticsReq'Options'Transient, + _StatisticsReq'Options'Continuous, _StatisticsReq'Options'OneTime, + StatisticsResp(), StatisticsResp'Details(), UpdateReq(), + UpdateReq'Options(), UpdateReq'Options'EmitOption(..), + _UpdateReq'Options'EmitEnabled, _UpdateReq'Options'NoEmitOptions, + UpdateResp() + ) 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.Google.Protobuf.Struct +import qualified Proto.Shared +{- | Fields : + + * 'Proto.Projections_Fields.options' @:: Lens' CreateReq CreateReq'Options@ + * 'Proto.Projections_Fields.maybe'options' @:: Lens' CreateReq (Prelude.Maybe CreateReq'Options)@ -} +data CreateReq + = CreateReq'_constructor {_CreateReq'options :: !(Prelude.Maybe CreateReq'Options), + _CreateReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CreateReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField CreateReq "options" CreateReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'options (\ x__ y__ -> x__ {_CreateReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField CreateReq "maybe'options" (Prelude.Maybe CreateReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'options (\ x__ y__ -> x__ {_CreateReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message CreateReq where + messageName _ + = Data.Text.pack "event_store.client.projections.CreateReq" + packedMessageDescriptor _ + = "\n\ + \\tCreateReq\DC2K\n\ + \\aoptions\CAN\SOH \SOH(\v21.event_store.client.projections.CreateReq.OptionsR\aoptions\SUB\154\ETX\n\ + \\aOptions\DC2=\n\ + \\bone_time\CAN\SOH \SOH(\v2 .event_store.client.shared.EmptyH\NULR\aoneTime\DC2[\n\ + \\ttransient\CAN\STX \SOH(\v2;.event_store.client.projections.CreateReq.Options.TransientH\NULR\ttransient\DC2^\n\ + \\n\ + \continuous\CAN\ETX \SOH(\v2<.event_store.client.projections.CreateReq.Options.ContinuousH\NULR\n\ + \continuous\DC2\DC4\n\ + \\ENQquery\CAN\EOT \SOH(\tR\ENQquery\SUB\US\n\ + \\tTransient\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\SUBT\n\ + \\n\ + \Continuous\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC22\n\ + \\NAKtrack_emitted_streams\CAN\STX \SOH(\bR\DC3trackEmittedStreamsB\ACK\n\ + \\EOTmode" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CreateReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor CreateReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _CreateReq'_unknownFields + (\ x__ y__ -> x__ {_CreateReq'_unknownFields = y__}) + defMessage + = CreateReq'_constructor + {_CreateReq'options = Prelude.Nothing, + _CreateReq'_unknownFields = []} + parseMessage + = let + loop :: CreateReq -> Data.ProtoLens.Encoding.Bytes.Parser CreateReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "CreateReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData CreateReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_CreateReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_CreateReq'options x__) ()) +{- | Fields : + + * 'Proto.Projections_Fields.query' @:: Lens' CreateReq'Options Data.Text.Text@ + * 'Proto.Projections_Fields.maybe'mode' @:: Lens' CreateReq'Options (Prelude.Maybe CreateReq'Options'Mode)@ + * 'Proto.Projections_Fields.maybe'oneTime' @:: Lens' CreateReq'Options (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Projections_Fields.oneTime' @:: Lens' CreateReq'Options Proto.Shared.Empty@ + * 'Proto.Projections_Fields.maybe'transient' @:: Lens' CreateReq'Options (Prelude.Maybe CreateReq'Options'Transient)@ + * 'Proto.Projections_Fields.transient' @:: Lens' CreateReq'Options CreateReq'Options'Transient@ + * 'Proto.Projections_Fields.maybe'continuous' @:: Lens' CreateReq'Options (Prelude.Maybe CreateReq'Options'Continuous)@ + * 'Proto.Projections_Fields.continuous' @:: Lens' CreateReq'Options CreateReq'Options'Continuous@ -} +data CreateReq'Options + = CreateReq'Options'_constructor {_CreateReq'Options'query :: !Data.Text.Text, + _CreateReq'Options'mode :: !(Prelude.Maybe CreateReq'Options'Mode), + _CreateReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CreateReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data CreateReq'Options'Mode + = CreateReq'Options'OneTime !Proto.Shared.Empty | + CreateReq'Options'Transient' !CreateReq'Options'Transient | + CreateReq'Options'Continuous' !CreateReq'Options'Continuous + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField CreateReq'Options "query" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'query + (\ x__ y__ -> x__ {_CreateReq'Options'query = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Options "maybe'mode" (Prelude.Maybe CreateReq'Options'Mode) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'mode + (\ x__ y__ -> x__ {_CreateReq'Options'mode = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Options "maybe'oneTime" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'mode + (\ x__ y__ -> x__ {_CreateReq'Options'mode = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CreateReq'Options'OneTime x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap CreateReq'Options'OneTime y__)) +instance Data.ProtoLens.Field.HasField CreateReq'Options "oneTime" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'mode + (\ x__ y__ -> x__ {_CreateReq'Options'mode = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CreateReq'Options'OneTime x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap CreateReq'Options'OneTime y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField CreateReq'Options "maybe'transient" (Prelude.Maybe CreateReq'Options'Transient) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'mode + (\ x__ y__ -> x__ {_CreateReq'Options'mode = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CreateReq'Options'Transient' x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap CreateReq'Options'Transient' y__)) +instance Data.ProtoLens.Field.HasField CreateReq'Options "transient" CreateReq'Options'Transient where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'mode + (\ x__ y__ -> x__ {_CreateReq'Options'mode = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CreateReq'Options'Transient' x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap CreateReq'Options'Transient' y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField CreateReq'Options "maybe'continuous" (Prelude.Maybe CreateReq'Options'Continuous) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'mode + (\ x__ y__ -> x__ {_CreateReq'Options'mode = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CreateReq'Options'Continuous' x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap CreateReq'Options'Continuous' y__)) +instance Data.ProtoLens.Field.HasField CreateReq'Options "continuous" CreateReq'Options'Continuous where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'mode + (\ x__ y__ -> x__ {_CreateReq'Options'mode = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CreateReq'Options'Continuous' x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap CreateReq'Options'Continuous' y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message CreateReq'Options where + messageName _ + = Data.Text.pack "event_store.client.projections.CreateReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2=\n\ + \\bone_time\CAN\SOH \SOH(\v2 .event_store.client.shared.EmptyH\NULR\aoneTime\DC2[\n\ + \\ttransient\CAN\STX \SOH(\v2;.event_store.client.projections.CreateReq.Options.TransientH\NULR\ttransient\DC2^\n\ + \\n\ + \continuous\CAN\ETX \SOH(\v2<.event_store.client.projections.CreateReq.Options.ContinuousH\NULR\n\ + \continuous\DC2\DC4\n\ + \\ENQquery\CAN\EOT \SOH(\tR\ENQquery\SUB\US\n\ + \\tTransient\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\SUBT\n\ + \\n\ + \Continuous\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC22\n\ + \\NAKtrack_emitted_streams\CAN\STX \SOH(\bR\DC3trackEmittedStreamsB\ACK\n\ + \\EOTmode" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + query__field_descriptor + = Data.ProtoLens.FieldDescriptor + "query" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"query")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Options + oneTime__field_descriptor + = Data.ProtoLens.FieldDescriptor + "one_time" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'oneTime")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Options + transient__field_descriptor + = Data.ProtoLens.FieldDescriptor + "transient" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CreateReq'Options'Transient) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'transient")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Options + continuous__field_descriptor + = Data.ProtoLens.FieldDescriptor + "continuous" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CreateReq'Options'Continuous) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'continuous")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 4, query__field_descriptor), + (Data.ProtoLens.Tag 1, oneTime__field_descriptor), + (Data.ProtoLens.Tag 2, transient__field_descriptor), + (Data.ProtoLens.Tag 3, continuous__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _CreateReq'Options'_unknownFields + (\ x__ y__ -> x__ {_CreateReq'Options'_unknownFields = y__}) + defMessage + = CreateReq'Options'_constructor + {_CreateReq'Options'query = Data.ProtoLens.fieldDefault, + _CreateReq'Options'mode = Prelude.Nothing, + _CreateReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + CreateReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser CreateReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "query" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"query") y x) + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "one_time" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"oneTime") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "transient" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"transient") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "continuous" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"continuous") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"query") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'mode") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (CreateReq'Options'OneTime v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (CreateReq'Options'Transient' v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (CreateReq'Options'Continuous' v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData CreateReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_CreateReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_CreateReq'Options'query x__) + (Control.DeepSeq.deepseq (_CreateReq'Options'mode x__) ())) +instance Control.DeepSeq.NFData CreateReq'Options'Mode where + rnf (CreateReq'Options'OneTime x__) = Control.DeepSeq.rnf x__ + rnf (CreateReq'Options'Transient' x__) = Control.DeepSeq.rnf x__ + rnf (CreateReq'Options'Continuous' x__) = Control.DeepSeq.rnf x__ +_CreateReq'Options'OneTime :: + Data.ProtoLens.Prism.Prism' CreateReq'Options'Mode Proto.Shared.Empty +_CreateReq'Options'OneTime + = Data.ProtoLens.Prism.prism' + CreateReq'Options'OneTime + (\ p__ + -> case p__ of + (CreateReq'Options'OneTime p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_CreateReq'Options'Transient' :: + Data.ProtoLens.Prism.Prism' CreateReq'Options'Mode CreateReq'Options'Transient +_CreateReq'Options'Transient' + = Data.ProtoLens.Prism.prism' + CreateReq'Options'Transient' + (\ p__ + -> case p__ of + (CreateReq'Options'Transient' p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_CreateReq'Options'Continuous' :: + Data.ProtoLens.Prism.Prism' CreateReq'Options'Mode CreateReq'Options'Continuous +_CreateReq'Options'Continuous' + = Data.ProtoLens.Prism.prism' + CreateReq'Options'Continuous' + (\ p__ + -> case p__ of + (CreateReq'Options'Continuous' p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Projections_Fields.name' @:: Lens' CreateReq'Options'Continuous Data.Text.Text@ + * 'Proto.Projections_Fields.trackEmittedStreams' @:: Lens' CreateReq'Options'Continuous Prelude.Bool@ -} +data CreateReq'Options'Continuous + = CreateReq'Options'Continuous'_constructor {_CreateReq'Options'Continuous'name :: !Data.Text.Text, + _CreateReq'Options'Continuous'trackEmittedStreams :: !Prelude.Bool, + _CreateReq'Options'Continuous'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CreateReq'Options'Continuous where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField CreateReq'Options'Continuous "name" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'Continuous'name + (\ x__ y__ -> x__ {_CreateReq'Options'Continuous'name = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Options'Continuous "trackEmittedStreams" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'Continuous'trackEmittedStreams + (\ x__ y__ + -> x__ {_CreateReq'Options'Continuous'trackEmittedStreams = y__})) + Prelude.id +instance Data.ProtoLens.Message CreateReq'Options'Continuous where + messageName _ + = Data.Text.pack + "event_store.client.projections.CreateReq.Options.Continuous" + packedMessageDescriptor _ + = "\n\ + \\n\ + \Continuous\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC22\n\ + \\NAKtrack_emitted_streams\CAN\STX \SOH(\bR\DC3trackEmittedStreams" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"name")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Options'Continuous + trackEmittedStreams__field_descriptor + = Data.ProtoLens.FieldDescriptor + "track_emitted_streams" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"trackEmittedStreams")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Options'Continuous + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, name__field_descriptor), + (Data.ProtoLens.Tag 2, trackEmittedStreams__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _CreateReq'Options'Continuous'_unknownFields + (\ x__ y__ + -> x__ {_CreateReq'Options'Continuous'_unknownFields = y__}) + defMessage + = CreateReq'Options'Continuous'_constructor + {_CreateReq'Options'Continuous'name = Data.ProtoLens.fieldDefault, + _CreateReq'Options'Continuous'trackEmittedStreams = Data.ProtoLens.fieldDefault, + _CreateReq'Options'Continuous'_unknownFields = []} + parseMessage + = let + loop :: + CreateReq'Options'Continuous + -> Data.ProtoLens.Encoding.Bytes.Parser CreateReq'Options'Continuous + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "name" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "track_emitted_streams" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"trackEmittedStreams") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Continuous" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"trackEmittedStreams") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData CreateReq'Options'Continuous where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_CreateReq'Options'Continuous'_unknownFields x__) + (Control.DeepSeq.deepseq + (_CreateReq'Options'Continuous'name x__) + (Control.DeepSeq.deepseq + (_CreateReq'Options'Continuous'trackEmittedStreams x__) ())) +{- | Fields : + + * 'Proto.Projections_Fields.name' @:: Lens' CreateReq'Options'Transient Data.Text.Text@ -} +data CreateReq'Options'Transient + = CreateReq'Options'Transient'_constructor {_CreateReq'Options'Transient'name :: !Data.Text.Text, + _CreateReq'Options'Transient'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CreateReq'Options'Transient where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField CreateReq'Options'Transient "name" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'Transient'name + (\ x__ y__ -> x__ {_CreateReq'Options'Transient'name = y__})) + Prelude.id +instance Data.ProtoLens.Message CreateReq'Options'Transient where + messageName _ + = Data.Text.pack + "event_store.client.projections.CreateReq.Options.Transient" + packedMessageDescriptor _ + = "\n\ + \\tTransient\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"name")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Options'Transient + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, name__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _CreateReq'Options'Transient'_unknownFields + (\ x__ y__ + -> x__ {_CreateReq'Options'Transient'_unknownFields = y__}) + defMessage + = CreateReq'Options'Transient'_constructor + {_CreateReq'Options'Transient'name = Data.ProtoLens.fieldDefault, + _CreateReq'Options'Transient'_unknownFields = []} + parseMessage + = let + loop :: + CreateReq'Options'Transient + -> Data.ProtoLens.Encoding.Bytes.Parser CreateReq'Options'Transient + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "name" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Transient" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData CreateReq'Options'Transient where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_CreateReq'Options'Transient'_unknownFields x__) + (Control.DeepSeq.deepseq + (_CreateReq'Options'Transient'name x__) ()) +{- | Fields : + -} +data CreateResp + = CreateResp'_constructor {_CreateResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CreateResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message CreateResp where + messageName _ + = Data.Text.pack "event_store.client.projections.CreateResp" + packedMessageDescriptor _ + = "\n\ + \\n\ + \CreateResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _CreateResp'_unknownFields + (\ x__ y__ -> x__ {_CreateResp'_unknownFields = y__}) + defMessage + = CreateResp'_constructor {_CreateResp'_unknownFields = []} + parseMessage + = let + loop :: + CreateResp -> Data.ProtoLens.Encoding.Bytes.Parser CreateResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "CreateResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData CreateResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_CreateResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Projections_Fields.options' @:: Lens' DeleteReq DeleteReq'Options@ + * 'Proto.Projections_Fields.maybe'options' @:: Lens' DeleteReq (Prelude.Maybe DeleteReq'Options)@ -} +data DeleteReq + = DeleteReq'_constructor {_DeleteReq'options :: !(Prelude.Maybe DeleteReq'Options), + _DeleteReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DeleteReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DeleteReq "options" DeleteReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'options (\ x__ y__ -> x__ {_DeleteReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DeleteReq "maybe'options" (Prelude.Maybe DeleteReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'options (\ x__ y__ -> x__ {_DeleteReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message DeleteReq where + messageName _ + = Data.Text.pack "event_store.client.projections.DeleteReq" + packedMessageDescriptor _ + = "\n\ + \\tDeleteReq\DC2K\n\ + \\aoptions\CAN\SOH \SOH(\v21.event_store.client.projections.DeleteReq.OptionsR\aoptions\SUB\189\SOH\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC24\n\ + \\SYNdelete_emitted_streams\CAN\STX \SOH(\bR\DC4deleteEmittedStreams\DC2.\n\ + \\DC3delete_state_stream\CAN\ETX \SOH(\bR\DC1deleteStateStream\DC28\n\ + \\CANdelete_checkpoint_stream\CAN\EOT \SOH(\bR\SYNdeleteCheckpointStream" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor DeleteReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor DeleteReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DeleteReq'_unknownFields + (\ x__ y__ -> x__ {_DeleteReq'_unknownFields = y__}) + defMessage + = DeleteReq'_constructor + {_DeleteReq'options = Prelude.Nothing, + _DeleteReq'_unknownFields = []} + parseMessage + = let + loop :: DeleteReq -> Data.ProtoLens.Encoding.Bytes.Parser DeleteReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "DeleteReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData DeleteReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DeleteReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_DeleteReq'options x__) ()) +{- | Fields : + + * 'Proto.Projections_Fields.name' @:: Lens' DeleteReq'Options Data.Text.Text@ + * 'Proto.Projections_Fields.deleteEmittedStreams' @:: Lens' DeleteReq'Options Prelude.Bool@ + * 'Proto.Projections_Fields.deleteStateStream' @:: Lens' DeleteReq'Options Prelude.Bool@ + * 'Proto.Projections_Fields.deleteCheckpointStream' @:: Lens' DeleteReq'Options Prelude.Bool@ -} +data DeleteReq'Options + = DeleteReq'Options'_constructor {_DeleteReq'Options'name :: !Data.Text.Text, + _DeleteReq'Options'deleteEmittedStreams :: !Prelude.Bool, + _DeleteReq'Options'deleteStateStream :: !Prelude.Bool, + _DeleteReq'Options'deleteCheckpointStream :: !Prelude.Bool, + _DeleteReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DeleteReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DeleteReq'Options "name" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'name + (\ x__ y__ -> x__ {_DeleteReq'Options'name = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DeleteReq'Options "deleteEmittedStreams" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'deleteEmittedStreams + (\ x__ y__ -> x__ {_DeleteReq'Options'deleteEmittedStreams = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DeleteReq'Options "deleteStateStream" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'deleteStateStream + (\ x__ y__ -> x__ {_DeleteReq'Options'deleteStateStream = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DeleteReq'Options "deleteCheckpointStream" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'deleteCheckpointStream + (\ x__ y__ + -> x__ {_DeleteReq'Options'deleteCheckpointStream = y__})) + Prelude.id +instance Data.ProtoLens.Message DeleteReq'Options where + messageName _ + = Data.Text.pack "event_store.client.projections.DeleteReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC24\n\ + \\SYNdelete_emitted_streams\CAN\STX \SOH(\bR\DC4deleteEmittedStreams\DC2.\n\ + \\DC3delete_state_stream\CAN\ETX \SOH(\bR\DC1deleteStateStream\DC28\n\ + \\CANdelete_checkpoint_stream\CAN\EOT \SOH(\bR\SYNdeleteCheckpointStream" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"name")) :: + Data.ProtoLens.FieldDescriptor DeleteReq'Options + deleteEmittedStreams__field_descriptor + = Data.ProtoLens.FieldDescriptor + "delete_emitted_streams" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"deleteEmittedStreams")) :: + Data.ProtoLens.FieldDescriptor DeleteReq'Options + deleteStateStream__field_descriptor + = Data.ProtoLens.FieldDescriptor + "delete_state_stream" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"deleteStateStream")) :: + Data.ProtoLens.FieldDescriptor DeleteReq'Options + deleteCheckpointStream__field_descriptor + = Data.ProtoLens.FieldDescriptor + "delete_checkpoint_stream" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"deleteCheckpointStream")) :: + Data.ProtoLens.FieldDescriptor DeleteReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, name__field_descriptor), + (Data.ProtoLens.Tag 2, deleteEmittedStreams__field_descriptor), + (Data.ProtoLens.Tag 3, deleteStateStream__field_descriptor), + (Data.ProtoLens.Tag 4, deleteCheckpointStream__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DeleteReq'Options'_unknownFields + (\ x__ y__ -> x__ {_DeleteReq'Options'_unknownFields = y__}) + defMessage + = DeleteReq'Options'_constructor + {_DeleteReq'Options'name = Data.ProtoLens.fieldDefault, + _DeleteReq'Options'deleteEmittedStreams = Data.ProtoLens.fieldDefault, + _DeleteReq'Options'deleteStateStream = Data.ProtoLens.fieldDefault, + _DeleteReq'Options'deleteCheckpointStream = Data.ProtoLens.fieldDefault, + _DeleteReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + DeleteReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser DeleteReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "name" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "delete_emitted_streams" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"deleteEmittedStreams") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "delete_state_stream" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"deleteStateStream") y x) + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "delete_checkpoint_stream" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"deleteCheckpointStream") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"deleteEmittedStreams") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"deleteStateStream") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"deleteCheckpointStream") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData DeleteReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DeleteReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_DeleteReq'Options'name x__) + (Control.DeepSeq.deepseq + (_DeleteReq'Options'deleteEmittedStreams x__) + (Control.DeepSeq.deepseq + (_DeleteReq'Options'deleteStateStream x__) + (Control.DeepSeq.deepseq + (_DeleteReq'Options'deleteCheckpointStream x__) ())))) +{- | Fields : + -} +data DeleteResp + = DeleteResp'_constructor {_DeleteResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DeleteResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message DeleteResp where + messageName _ + = Data.Text.pack "event_store.client.projections.DeleteResp" + packedMessageDescriptor _ + = "\n\ + \\n\ + \DeleteResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _DeleteResp'_unknownFields + (\ x__ y__ -> x__ {_DeleteResp'_unknownFields = y__}) + defMessage + = DeleteResp'_constructor {_DeleteResp'_unknownFields = []} + parseMessage + = let + loop :: + DeleteResp -> Data.ProtoLens.Encoding.Bytes.Parser DeleteResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "DeleteResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData DeleteResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_DeleteResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Projections_Fields.options' @:: Lens' DisableReq DisableReq'Options@ + * 'Proto.Projections_Fields.maybe'options' @:: Lens' DisableReq (Prelude.Maybe DisableReq'Options)@ -} +data DisableReq + = DisableReq'_constructor {_DisableReq'options :: !(Prelude.Maybe DisableReq'Options), + _DisableReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DisableReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DisableReq "options" DisableReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DisableReq'options (\ x__ y__ -> x__ {_DisableReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DisableReq "maybe'options" (Prelude.Maybe DisableReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DisableReq'options (\ x__ y__ -> x__ {_DisableReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message DisableReq where + messageName _ + = Data.Text.pack "event_store.client.projections.DisableReq" + packedMessageDescriptor _ + = "\n\ + \\n\ + \DisableReq\DC2L\n\ + \\aoptions\CAN\SOH \SOH(\v22.event_store.client.projections.DisableReq.OptionsR\aoptions\SUBH\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2)\n\ + \\DLEwrite_checkpoint\CAN\STX \SOH(\bR\SIwriteCheckpoint" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor DisableReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor DisableReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DisableReq'_unknownFields + (\ x__ y__ -> x__ {_DisableReq'_unknownFields = y__}) + defMessage + = DisableReq'_constructor + {_DisableReq'options = Prelude.Nothing, + _DisableReq'_unknownFields = []} + parseMessage + = let + loop :: + DisableReq -> Data.ProtoLens.Encoding.Bytes.Parser DisableReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "DisableReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData DisableReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DisableReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_DisableReq'options x__) ()) +{- | Fields : + + * 'Proto.Projections_Fields.name' @:: Lens' DisableReq'Options Data.Text.Text@ + * 'Proto.Projections_Fields.writeCheckpoint' @:: Lens' DisableReq'Options Prelude.Bool@ -} +data DisableReq'Options + = DisableReq'Options'_constructor {_DisableReq'Options'name :: !Data.Text.Text, + _DisableReq'Options'writeCheckpoint :: !Prelude.Bool, + _DisableReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DisableReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DisableReq'Options "name" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DisableReq'Options'name + (\ x__ y__ -> x__ {_DisableReq'Options'name = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DisableReq'Options "writeCheckpoint" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DisableReq'Options'writeCheckpoint + (\ x__ y__ -> x__ {_DisableReq'Options'writeCheckpoint = y__})) + Prelude.id +instance Data.ProtoLens.Message DisableReq'Options where + messageName _ + = Data.Text.pack + "event_store.client.projections.DisableReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2)\n\ + \\DLEwrite_checkpoint\CAN\STX \SOH(\bR\SIwriteCheckpoint" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"name")) :: + Data.ProtoLens.FieldDescriptor DisableReq'Options + writeCheckpoint__field_descriptor + = Data.ProtoLens.FieldDescriptor + "write_checkpoint" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"writeCheckpoint")) :: + Data.ProtoLens.FieldDescriptor DisableReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, name__field_descriptor), + (Data.ProtoLens.Tag 2, writeCheckpoint__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DisableReq'Options'_unknownFields + (\ x__ y__ -> x__ {_DisableReq'Options'_unknownFields = y__}) + defMessage + = DisableReq'Options'_constructor + {_DisableReq'Options'name = Data.ProtoLens.fieldDefault, + _DisableReq'Options'writeCheckpoint = Data.ProtoLens.fieldDefault, + _DisableReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + DisableReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser DisableReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "name" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "write_checkpoint" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"writeCheckpoint") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"writeCheckpoint") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData DisableReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DisableReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_DisableReq'Options'name x__) + (Control.DeepSeq.deepseq + (_DisableReq'Options'writeCheckpoint x__) ())) +{- | Fields : + -} +data DisableResp + = DisableResp'_constructor {_DisableResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DisableResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message DisableResp where + messageName _ + = Data.Text.pack "event_store.client.projections.DisableResp" + packedMessageDescriptor _ + = "\n\ + \\vDisableResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _DisableResp'_unknownFields + (\ x__ y__ -> x__ {_DisableResp'_unknownFields = y__}) + defMessage + = DisableResp'_constructor {_DisableResp'_unknownFields = []} + parseMessage + = let + loop :: + DisableResp -> Data.ProtoLens.Encoding.Bytes.Parser DisableResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "DisableResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData DisableResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_DisableResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Projections_Fields.options' @:: Lens' EnableReq EnableReq'Options@ + * 'Proto.Projections_Fields.maybe'options' @:: Lens' EnableReq (Prelude.Maybe EnableReq'Options)@ -} +data EnableReq + = EnableReq'_constructor {_EnableReq'options :: !(Prelude.Maybe EnableReq'Options), + _EnableReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show EnableReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField EnableReq "options" EnableReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EnableReq'options (\ x__ y__ -> x__ {_EnableReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField EnableReq "maybe'options" (Prelude.Maybe EnableReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EnableReq'options (\ x__ y__ -> x__ {_EnableReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message EnableReq where + messageName _ + = Data.Text.pack "event_store.client.projections.EnableReq" + packedMessageDescriptor _ + = "\n\ + \\tEnableReq\DC2K\n\ + \\aoptions\CAN\SOH \SOH(\v21.event_store.client.projections.EnableReq.OptionsR\aoptions\SUB\GS\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EnableReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor EnableReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _EnableReq'_unknownFields + (\ x__ y__ -> x__ {_EnableReq'_unknownFields = y__}) + defMessage + = EnableReq'_constructor + {_EnableReq'options = Prelude.Nothing, + _EnableReq'_unknownFields = []} + parseMessage + = let + loop :: EnableReq -> Data.ProtoLens.Encoding.Bytes.Parser EnableReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "EnableReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData EnableReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_EnableReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_EnableReq'options x__) ()) +{- | Fields : + + * 'Proto.Projections_Fields.name' @:: Lens' EnableReq'Options Data.Text.Text@ -} +data EnableReq'Options + = EnableReq'Options'_constructor {_EnableReq'Options'name :: !Data.Text.Text, + _EnableReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show EnableReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField EnableReq'Options "name" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EnableReq'Options'name + (\ x__ y__ -> x__ {_EnableReq'Options'name = y__})) + Prelude.id +instance Data.ProtoLens.Message EnableReq'Options where + messageName _ + = Data.Text.pack "event_store.client.projections.EnableReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"name")) :: + Data.ProtoLens.FieldDescriptor EnableReq'Options + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, name__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _EnableReq'Options'_unknownFields + (\ x__ y__ -> x__ {_EnableReq'Options'_unknownFields = y__}) + defMessage + = EnableReq'Options'_constructor + {_EnableReq'Options'name = Data.ProtoLens.fieldDefault, + _EnableReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + EnableReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser EnableReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "name" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData EnableReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_EnableReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq (_EnableReq'Options'name x__) ()) +{- | Fields : + -} +data EnableResp + = EnableResp'_constructor {_EnableResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show EnableResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message EnableResp where + messageName _ + = Data.Text.pack "event_store.client.projections.EnableResp" + packedMessageDescriptor _ + = "\n\ + \\n\ + \EnableResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _EnableResp'_unknownFields + (\ x__ y__ -> x__ {_EnableResp'_unknownFields = y__}) + defMessage + = EnableResp'_constructor {_EnableResp'_unknownFields = []} + parseMessage + = let + loop :: + EnableResp -> Data.ProtoLens.Encoding.Bytes.Parser EnableResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "EnableResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData EnableResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_EnableResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Projections_Fields.options' @:: Lens' ResetReq ResetReq'Options@ + * 'Proto.Projections_Fields.maybe'options' @:: Lens' ResetReq (Prelude.Maybe ResetReq'Options)@ -} +data ResetReq + = ResetReq'_constructor {_ResetReq'options :: !(Prelude.Maybe ResetReq'Options), + _ResetReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ResetReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ResetReq "options" ResetReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResetReq'options (\ x__ y__ -> x__ {_ResetReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ResetReq "maybe'options" (Prelude.Maybe ResetReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResetReq'options (\ x__ y__ -> x__ {_ResetReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message ResetReq where + messageName _ + = Data.Text.pack "event_store.client.projections.ResetReq" + packedMessageDescriptor _ + = "\n\ + \\bResetReq\DC2J\n\ + \\aoptions\CAN\SOH \SOH(\v20.event_store.client.projections.ResetReq.OptionsR\aoptions\SUBH\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2)\n\ + \\DLEwrite_checkpoint\CAN\STX \SOH(\bR\SIwriteCheckpoint" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ResetReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor ResetReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ResetReq'_unknownFields + (\ x__ y__ -> x__ {_ResetReq'_unknownFields = y__}) + defMessage + = ResetReq'_constructor + {_ResetReq'options = Prelude.Nothing, + _ResetReq'_unknownFields = []} + parseMessage + = let + loop :: ResetReq -> Data.ProtoLens.Encoding.Bytes.Parser ResetReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ResetReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ResetReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ResetReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_ResetReq'options x__) ()) +{- | Fields : + + * 'Proto.Projections_Fields.name' @:: Lens' ResetReq'Options Data.Text.Text@ + * 'Proto.Projections_Fields.writeCheckpoint' @:: Lens' ResetReq'Options Prelude.Bool@ -} +data ResetReq'Options + = ResetReq'Options'_constructor {_ResetReq'Options'name :: !Data.Text.Text, + _ResetReq'Options'writeCheckpoint :: !Prelude.Bool, + _ResetReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ResetReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ResetReq'Options "name" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResetReq'Options'name + (\ x__ y__ -> x__ {_ResetReq'Options'name = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ResetReq'Options "writeCheckpoint" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResetReq'Options'writeCheckpoint + (\ x__ y__ -> x__ {_ResetReq'Options'writeCheckpoint = y__})) + Prelude.id +instance Data.ProtoLens.Message ResetReq'Options where + messageName _ + = Data.Text.pack "event_store.client.projections.ResetReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2)\n\ + \\DLEwrite_checkpoint\CAN\STX \SOH(\bR\SIwriteCheckpoint" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"name")) :: + Data.ProtoLens.FieldDescriptor ResetReq'Options + writeCheckpoint__field_descriptor + = Data.ProtoLens.FieldDescriptor + "write_checkpoint" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"writeCheckpoint")) :: + Data.ProtoLens.FieldDescriptor ResetReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, name__field_descriptor), + (Data.ProtoLens.Tag 2, writeCheckpoint__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ResetReq'Options'_unknownFields + (\ x__ y__ -> x__ {_ResetReq'Options'_unknownFields = y__}) + defMessage + = ResetReq'Options'_constructor + {_ResetReq'Options'name = Data.ProtoLens.fieldDefault, + _ResetReq'Options'writeCheckpoint = Data.ProtoLens.fieldDefault, + _ResetReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + ResetReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser ResetReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "name" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "write_checkpoint" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"writeCheckpoint") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"writeCheckpoint") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ResetReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ResetReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ResetReq'Options'name x__) + (Control.DeepSeq.deepseq + (_ResetReq'Options'writeCheckpoint x__) ())) +{- | Fields : + -} +data ResetResp + = ResetResp'_constructor {_ResetResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ResetResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message ResetResp where + messageName _ + = Data.Text.pack "event_store.client.projections.ResetResp" + packedMessageDescriptor _ + = "\n\ + \\tResetResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _ResetResp'_unknownFields + (\ x__ y__ -> x__ {_ResetResp'_unknownFields = y__}) + defMessage + = ResetResp'_constructor {_ResetResp'_unknownFields = []} + parseMessage + = let + loop :: ResetResp -> Data.ProtoLens.Encoding.Bytes.Parser ResetResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ResetResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData ResetResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_ResetResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Projections_Fields.options' @:: Lens' ResultReq ResultReq'Options@ + * 'Proto.Projections_Fields.maybe'options' @:: Lens' ResultReq (Prelude.Maybe ResultReq'Options)@ -} +data ResultReq + = ResultReq'_constructor {_ResultReq'options :: !(Prelude.Maybe ResultReq'Options), + _ResultReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ResultReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ResultReq "options" ResultReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResultReq'options (\ x__ y__ -> x__ {_ResultReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ResultReq "maybe'options" (Prelude.Maybe ResultReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResultReq'options (\ x__ y__ -> x__ {_ResultReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message ResultReq where + messageName _ + = Data.Text.pack "event_store.client.projections.ResultReq" + packedMessageDescriptor _ + = "\n\ + \\tResultReq\DC2K\n\ + \\aoptions\CAN\SOH \SOH(\v21.event_store.client.projections.ResultReq.OptionsR\aoptions\SUB;\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\FS\n\ + \\tpartition\CAN\STX \SOH(\tR\tpartition" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ResultReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor ResultReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ResultReq'_unknownFields + (\ x__ y__ -> x__ {_ResultReq'_unknownFields = y__}) + defMessage + = ResultReq'_constructor + {_ResultReq'options = Prelude.Nothing, + _ResultReq'_unknownFields = []} + parseMessage + = let + loop :: ResultReq -> Data.ProtoLens.Encoding.Bytes.Parser ResultReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ResultReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ResultReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ResultReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_ResultReq'options x__) ()) +{- | Fields : + + * 'Proto.Projections_Fields.name' @:: Lens' ResultReq'Options Data.Text.Text@ + * 'Proto.Projections_Fields.partition' @:: Lens' ResultReq'Options Data.Text.Text@ -} +data ResultReq'Options + = ResultReq'Options'_constructor {_ResultReq'Options'name :: !Data.Text.Text, + _ResultReq'Options'partition :: !Data.Text.Text, + _ResultReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ResultReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ResultReq'Options "name" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResultReq'Options'name + (\ x__ y__ -> x__ {_ResultReq'Options'name = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ResultReq'Options "partition" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResultReq'Options'partition + (\ x__ y__ -> x__ {_ResultReq'Options'partition = y__})) + Prelude.id +instance Data.ProtoLens.Message ResultReq'Options where + messageName _ + = Data.Text.pack "event_store.client.projections.ResultReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\FS\n\ + \\tpartition\CAN\STX \SOH(\tR\tpartition" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"name")) :: + Data.ProtoLens.FieldDescriptor ResultReq'Options + partition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "partition" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"partition")) :: + Data.ProtoLens.FieldDescriptor ResultReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, name__field_descriptor), + (Data.ProtoLens.Tag 2, partition__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ResultReq'Options'_unknownFields + (\ x__ y__ -> x__ {_ResultReq'Options'_unknownFields = y__}) + defMessage + = ResultReq'Options'_constructor + {_ResultReq'Options'name = Data.ProtoLens.fieldDefault, + _ResultReq'Options'partition = Data.ProtoLens.fieldDefault, + _ResultReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + ResultReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser ResultReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "name" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "partition" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"partition") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"partition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ResultReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ResultReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ResultReq'Options'name x__) + (Control.DeepSeq.deepseq (_ResultReq'Options'partition x__) ())) +{- | Fields : + + * 'Proto.Projections_Fields.result' @:: Lens' ResultResp Proto.Google.Protobuf.Struct.Value@ + * 'Proto.Projections_Fields.maybe'result' @:: Lens' ResultResp (Prelude.Maybe Proto.Google.Protobuf.Struct.Value)@ -} +data ResultResp + = ResultResp'_constructor {_ResultResp'result :: !(Prelude.Maybe Proto.Google.Protobuf.Struct.Value), + _ResultResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ResultResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ResultResp "result" Proto.Google.Protobuf.Struct.Value where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResultResp'result (\ x__ y__ -> x__ {_ResultResp'result = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ResultResp "maybe'result" (Prelude.Maybe Proto.Google.Protobuf.Struct.Value) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResultResp'result (\ x__ y__ -> x__ {_ResultResp'result = y__})) + Prelude.id +instance Data.ProtoLens.Message ResultResp where + messageName _ + = Data.Text.pack "event_store.client.projections.ResultResp" + packedMessageDescriptor _ + = "\n\ + \\n\ + \ResultResp\DC2.\n\ + \\ACKresult\CAN\SOH \SOH(\v2\SYN.google.protobuf.ValueR\ACKresult" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + result__field_descriptor + = Data.ProtoLens.FieldDescriptor + "result" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Struct.Value) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'result")) :: + Data.ProtoLens.FieldDescriptor ResultResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, result__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ResultResp'_unknownFields + (\ x__ y__ -> x__ {_ResultResp'_unknownFields = y__}) + defMessage + = ResultResp'_constructor + {_ResultResp'result = Prelude.Nothing, + _ResultResp'_unknownFields = []} + parseMessage + = let + loop :: + ResultResp -> Data.ProtoLens.Encoding.Bytes.Parser ResultResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "result" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"result") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ResultResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'result") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ResultResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ResultResp'_unknownFields x__) + (Control.DeepSeq.deepseq (_ResultResp'result x__) ()) +{- | Fields : + + * 'Proto.Projections_Fields.options' @:: Lens' StateReq StateReq'Options@ + * 'Proto.Projections_Fields.maybe'options' @:: Lens' StateReq (Prelude.Maybe StateReq'Options)@ -} +data StateReq + = StateReq'_constructor {_StateReq'options :: !(Prelude.Maybe StateReq'Options), + _StateReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StateReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StateReq "options" StateReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StateReq'options (\ x__ y__ -> x__ {_StateReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StateReq "maybe'options" (Prelude.Maybe StateReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StateReq'options (\ x__ y__ -> x__ {_StateReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message StateReq where + messageName _ + = Data.Text.pack "event_store.client.projections.StateReq" + packedMessageDescriptor _ + = "\n\ + \\bStateReq\DC2J\n\ + \\aoptions\CAN\SOH \SOH(\v20.event_store.client.projections.StateReq.OptionsR\aoptions\SUB;\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\FS\n\ + \\tpartition\CAN\STX \SOH(\tR\tpartition" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StateReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor StateReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StateReq'_unknownFields + (\ x__ y__ -> x__ {_StateReq'_unknownFields = y__}) + defMessage + = StateReq'_constructor + {_StateReq'options = Prelude.Nothing, + _StateReq'_unknownFields = []} + parseMessage + = let + loop :: StateReq -> Data.ProtoLens.Encoding.Bytes.Parser StateReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StateReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData StateReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StateReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_StateReq'options x__) ()) +{- | Fields : + + * 'Proto.Projections_Fields.name' @:: Lens' StateReq'Options Data.Text.Text@ + * 'Proto.Projections_Fields.partition' @:: Lens' StateReq'Options Data.Text.Text@ -} +data StateReq'Options + = StateReq'Options'_constructor {_StateReq'Options'name :: !Data.Text.Text, + _StateReq'Options'partition :: !Data.Text.Text, + _StateReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StateReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StateReq'Options "name" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StateReq'Options'name + (\ x__ y__ -> x__ {_StateReq'Options'name = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StateReq'Options "partition" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StateReq'Options'partition + (\ x__ y__ -> x__ {_StateReq'Options'partition = y__})) + Prelude.id +instance Data.ProtoLens.Message StateReq'Options where + messageName _ + = Data.Text.pack "event_store.client.projections.StateReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\FS\n\ + \\tpartition\CAN\STX \SOH(\tR\tpartition" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"name")) :: + Data.ProtoLens.FieldDescriptor StateReq'Options + partition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "partition" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"partition")) :: + Data.ProtoLens.FieldDescriptor StateReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, name__field_descriptor), + (Data.ProtoLens.Tag 2, partition__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StateReq'Options'_unknownFields + (\ x__ y__ -> x__ {_StateReq'Options'_unknownFields = y__}) + defMessage + = StateReq'Options'_constructor + {_StateReq'Options'name = Data.ProtoLens.fieldDefault, + _StateReq'Options'partition = Data.ProtoLens.fieldDefault, + _StateReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + StateReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser StateReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "name" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "partition" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"partition") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"partition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData StateReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StateReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_StateReq'Options'name x__) + (Control.DeepSeq.deepseq (_StateReq'Options'partition x__) ())) +{- | Fields : + + * 'Proto.Projections_Fields.state' @:: Lens' StateResp Proto.Google.Protobuf.Struct.Value@ + * 'Proto.Projections_Fields.maybe'state' @:: Lens' StateResp (Prelude.Maybe Proto.Google.Protobuf.Struct.Value)@ -} +data StateResp + = StateResp'_constructor {_StateResp'state :: !(Prelude.Maybe Proto.Google.Protobuf.Struct.Value), + _StateResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StateResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StateResp "state" Proto.Google.Protobuf.Struct.Value where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StateResp'state (\ x__ y__ -> x__ {_StateResp'state = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StateResp "maybe'state" (Prelude.Maybe Proto.Google.Protobuf.Struct.Value) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StateResp'state (\ x__ y__ -> x__ {_StateResp'state = y__})) + Prelude.id +instance Data.ProtoLens.Message StateResp where + messageName _ + = Data.Text.pack "event_store.client.projections.StateResp" + packedMessageDescriptor _ + = "\n\ + \\tStateResp\DC2,\n\ + \\ENQstate\CAN\SOH \SOH(\v2\SYN.google.protobuf.ValueR\ENQstate" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + state__field_descriptor + = Data.ProtoLens.FieldDescriptor + "state" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Struct.Value) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'state")) :: + Data.ProtoLens.FieldDescriptor StateResp + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, state__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StateResp'_unknownFields + (\ x__ y__ -> x__ {_StateResp'_unknownFields = y__}) + defMessage + = StateResp'_constructor + {_StateResp'state = Prelude.Nothing, + _StateResp'_unknownFields = []} + parseMessage + = let + loop :: StateResp -> Data.ProtoLens.Encoding.Bytes.Parser StateResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "state" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"state") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StateResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'state") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData StateResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StateResp'_unknownFields x__) + (Control.DeepSeq.deepseq (_StateResp'state x__) ()) +{- | Fields : + + * 'Proto.Projections_Fields.options' @:: Lens' StatisticsReq StatisticsReq'Options@ + * 'Proto.Projections_Fields.maybe'options' @:: Lens' StatisticsReq (Prelude.Maybe StatisticsReq'Options)@ -} +data StatisticsReq + = StatisticsReq'_constructor {_StatisticsReq'options :: !(Prelude.Maybe StatisticsReq'Options), + _StatisticsReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StatisticsReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StatisticsReq "options" StatisticsReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsReq'options + (\ x__ y__ -> x__ {_StatisticsReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StatisticsReq "maybe'options" (Prelude.Maybe StatisticsReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsReq'options + (\ x__ y__ -> x__ {_StatisticsReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message StatisticsReq where + messageName _ + = Data.Text.pack "event_store.client.projections.StatisticsReq" + packedMessageDescriptor _ + = "\n\ + \\rStatisticsReq\DC2O\n\ + \\aoptions\CAN\SOH \SOH(\v25.event_store.client.projections.StatisticsReq.OptionsR\aoptions\SUB\162\STX\n\ + \\aOptions\DC2\DC4\n\ + \\EOTname\CAN\SOH \SOH(\tH\NULR\EOTname\DC24\n\ + \\ETXall\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXall\DC2@\n\ + \\ttransient\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ttransient\DC2B\n\ + \\n\ + \continuous\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \continuous\DC2=\n\ + \\bone_time\CAN\ENQ \SOH(\v2 .event_store.client.shared.EmptyH\NULR\aoneTimeB\ACK\n\ + \\EOTmode" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StatisticsReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor StatisticsReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StatisticsReq'_unknownFields + (\ x__ y__ -> x__ {_StatisticsReq'_unknownFields = y__}) + defMessage + = StatisticsReq'_constructor + {_StatisticsReq'options = Prelude.Nothing, + _StatisticsReq'_unknownFields = []} + parseMessage + = let + loop :: + StatisticsReq -> Data.ProtoLens.Encoding.Bytes.Parser StatisticsReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StatisticsReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData StatisticsReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StatisticsReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_StatisticsReq'options x__) ()) +{- | Fields : + + * 'Proto.Projections_Fields.maybe'mode' @:: Lens' StatisticsReq'Options (Prelude.Maybe StatisticsReq'Options'Mode)@ + * 'Proto.Projections_Fields.maybe'name' @:: Lens' StatisticsReq'Options (Prelude.Maybe Data.Text.Text)@ + * 'Proto.Projections_Fields.name' @:: Lens' StatisticsReq'Options Data.Text.Text@ + * 'Proto.Projections_Fields.maybe'all' @:: Lens' StatisticsReq'Options (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Projections_Fields.all' @:: Lens' StatisticsReq'Options Proto.Shared.Empty@ + * 'Proto.Projections_Fields.maybe'transient' @:: Lens' StatisticsReq'Options (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Projections_Fields.transient' @:: Lens' StatisticsReq'Options Proto.Shared.Empty@ + * 'Proto.Projections_Fields.maybe'continuous' @:: Lens' StatisticsReq'Options (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Projections_Fields.continuous' @:: Lens' StatisticsReq'Options Proto.Shared.Empty@ + * 'Proto.Projections_Fields.maybe'oneTime' @:: Lens' StatisticsReq'Options (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Projections_Fields.oneTime' @:: Lens' StatisticsReq'Options Proto.Shared.Empty@ -} +data StatisticsReq'Options + = StatisticsReq'Options'_constructor {_StatisticsReq'Options'mode :: !(Prelude.Maybe StatisticsReq'Options'Mode), + _StatisticsReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StatisticsReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data StatisticsReq'Options'Mode + = StatisticsReq'Options'Name !Data.Text.Text | + StatisticsReq'Options'All !Proto.Shared.Empty | + StatisticsReq'Options'Transient !Proto.Shared.Empty | + StatisticsReq'Options'Continuous !Proto.Shared.Empty | + StatisticsReq'Options'OneTime !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField StatisticsReq'Options "maybe'mode" (Prelude.Maybe StatisticsReq'Options'Mode) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsReq'Options'mode + (\ x__ y__ -> x__ {_StatisticsReq'Options'mode = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsReq'Options "maybe'name" (Prelude.Maybe Data.Text.Text) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsReq'Options'mode + (\ x__ y__ -> x__ {_StatisticsReq'Options'mode = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (StatisticsReq'Options'Name x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap StatisticsReq'Options'Name y__)) +instance Data.ProtoLens.Field.HasField StatisticsReq'Options "name" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsReq'Options'mode + (\ x__ y__ -> x__ {_StatisticsReq'Options'mode = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (StatisticsReq'Options'Name x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap StatisticsReq'Options'Name y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField StatisticsReq'Options "maybe'all" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsReq'Options'mode + (\ x__ y__ -> x__ {_StatisticsReq'Options'mode = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (StatisticsReq'Options'All x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap StatisticsReq'Options'All y__)) +instance Data.ProtoLens.Field.HasField StatisticsReq'Options "all" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsReq'Options'mode + (\ x__ y__ -> x__ {_StatisticsReq'Options'mode = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (StatisticsReq'Options'All x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap StatisticsReq'Options'All y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField StatisticsReq'Options "maybe'transient" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsReq'Options'mode + (\ x__ y__ -> x__ {_StatisticsReq'Options'mode = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (StatisticsReq'Options'Transient x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap StatisticsReq'Options'Transient y__)) +instance Data.ProtoLens.Field.HasField StatisticsReq'Options "transient" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsReq'Options'mode + (\ x__ y__ -> x__ {_StatisticsReq'Options'mode = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (StatisticsReq'Options'Transient x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap StatisticsReq'Options'Transient y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField StatisticsReq'Options "maybe'continuous" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsReq'Options'mode + (\ x__ y__ -> x__ {_StatisticsReq'Options'mode = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (StatisticsReq'Options'Continuous x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap StatisticsReq'Options'Continuous y__)) +instance Data.ProtoLens.Field.HasField StatisticsReq'Options "continuous" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsReq'Options'mode + (\ x__ y__ -> x__ {_StatisticsReq'Options'mode = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (StatisticsReq'Options'Continuous x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap StatisticsReq'Options'Continuous y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField StatisticsReq'Options "maybe'oneTime" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsReq'Options'mode + (\ x__ y__ -> x__ {_StatisticsReq'Options'mode = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (StatisticsReq'Options'OneTime x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap StatisticsReq'Options'OneTime y__)) +instance Data.ProtoLens.Field.HasField StatisticsReq'Options "oneTime" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsReq'Options'mode + (\ x__ y__ -> x__ {_StatisticsReq'Options'mode = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (StatisticsReq'Options'OneTime x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap StatisticsReq'Options'OneTime y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message StatisticsReq'Options where + messageName _ + = Data.Text.pack + "event_store.client.projections.StatisticsReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2\DC4\n\ + \\EOTname\CAN\SOH \SOH(\tH\NULR\EOTname\DC24\n\ + \\ETXall\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXall\DC2@\n\ + \\ttransient\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ttransient\DC2B\n\ + \\n\ + \continuous\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \continuous\DC2=\n\ + \\bone_time\CAN\ENQ \SOH(\v2 .event_store.client.shared.EmptyH\NULR\aoneTimeB\ACK\n\ + \\EOTmode" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'name")) :: + Data.ProtoLens.FieldDescriptor StatisticsReq'Options + all__field_descriptor + = Data.ProtoLens.FieldDescriptor + "all" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'all")) :: + Data.ProtoLens.FieldDescriptor StatisticsReq'Options + transient__field_descriptor + = Data.ProtoLens.FieldDescriptor + "transient" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'transient")) :: + Data.ProtoLens.FieldDescriptor StatisticsReq'Options + continuous__field_descriptor + = Data.ProtoLens.FieldDescriptor + "continuous" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'continuous")) :: + Data.ProtoLens.FieldDescriptor StatisticsReq'Options + oneTime__field_descriptor + = Data.ProtoLens.FieldDescriptor + "one_time" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'oneTime")) :: + Data.ProtoLens.FieldDescriptor StatisticsReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, name__field_descriptor), + (Data.ProtoLens.Tag 2, all__field_descriptor), + (Data.ProtoLens.Tag 3, transient__field_descriptor), + (Data.ProtoLens.Tag 4, continuous__field_descriptor), + (Data.ProtoLens.Tag 5, oneTime__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StatisticsReq'Options'_unknownFields + (\ x__ y__ -> x__ {_StatisticsReq'Options'_unknownFields = y__}) + defMessage + = StatisticsReq'Options'_constructor + {_StatisticsReq'Options'mode = Prelude.Nothing, + _StatisticsReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + StatisticsReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser StatisticsReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "name" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "all" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"all") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "transient" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"transient") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "continuous" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"continuous") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "one_time" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"oneTime") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'mode") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (StatisticsReq'Options'Name v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + v) + (Prelude.Just (StatisticsReq'Options'All v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (StatisticsReq'Options'Transient v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (StatisticsReq'Options'Continuous v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (StatisticsReq'Options'OneTime v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData StatisticsReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StatisticsReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq (_StatisticsReq'Options'mode x__) ()) +instance Control.DeepSeq.NFData StatisticsReq'Options'Mode where + rnf (StatisticsReq'Options'Name x__) = Control.DeepSeq.rnf x__ + rnf (StatisticsReq'Options'All x__) = Control.DeepSeq.rnf x__ + rnf (StatisticsReq'Options'Transient x__) = Control.DeepSeq.rnf x__ + rnf (StatisticsReq'Options'Continuous x__) + = Control.DeepSeq.rnf x__ + rnf (StatisticsReq'Options'OneTime x__) = Control.DeepSeq.rnf x__ +_StatisticsReq'Options'Name :: + Data.ProtoLens.Prism.Prism' StatisticsReq'Options'Mode Data.Text.Text +_StatisticsReq'Options'Name + = Data.ProtoLens.Prism.prism' + StatisticsReq'Options'Name + (\ p__ + -> case p__ of + (StatisticsReq'Options'Name p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_StatisticsReq'Options'All :: + Data.ProtoLens.Prism.Prism' StatisticsReq'Options'Mode Proto.Shared.Empty +_StatisticsReq'Options'All + = Data.ProtoLens.Prism.prism' + StatisticsReq'Options'All + (\ p__ + -> case p__ of + (StatisticsReq'Options'All p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_StatisticsReq'Options'Transient :: + Data.ProtoLens.Prism.Prism' StatisticsReq'Options'Mode Proto.Shared.Empty +_StatisticsReq'Options'Transient + = Data.ProtoLens.Prism.prism' + StatisticsReq'Options'Transient + (\ p__ + -> case p__ of + (StatisticsReq'Options'Transient p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_StatisticsReq'Options'Continuous :: + Data.ProtoLens.Prism.Prism' StatisticsReq'Options'Mode Proto.Shared.Empty +_StatisticsReq'Options'Continuous + = Data.ProtoLens.Prism.prism' + StatisticsReq'Options'Continuous + (\ p__ + -> case p__ of + (StatisticsReq'Options'Continuous p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_StatisticsReq'Options'OneTime :: + Data.ProtoLens.Prism.Prism' StatisticsReq'Options'Mode Proto.Shared.Empty +_StatisticsReq'Options'OneTime + = Data.ProtoLens.Prism.prism' + StatisticsReq'Options'OneTime + (\ p__ + -> case p__ of + (StatisticsReq'Options'OneTime p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Projections_Fields.details' @:: Lens' StatisticsResp StatisticsResp'Details@ + * 'Proto.Projections_Fields.maybe'details' @:: Lens' StatisticsResp (Prelude.Maybe StatisticsResp'Details)@ -} +data StatisticsResp + = StatisticsResp'_constructor {_StatisticsResp'details :: !(Prelude.Maybe StatisticsResp'Details), + _StatisticsResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StatisticsResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StatisticsResp "details" StatisticsResp'Details where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'details + (\ x__ y__ -> x__ {_StatisticsResp'details = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StatisticsResp "maybe'details" (Prelude.Maybe StatisticsResp'Details) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'details + (\ x__ y__ -> x__ {_StatisticsResp'details = y__})) + Prelude.id +instance Data.ProtoLens.Message StatisticsResp where + messageName _ + = Data.Text.pack "event_store.client.projections.StatisticsResp" + packedMessageDescriptor _ + = "\n\ + \\SOStatisticsResp\DC2P\n\ + \\adetails\CAN\SOH \SOH(\v26.event_store.client.projections.StatisticsResp.DetailsR\adetails\SUB\135\ACK\n\ + \\aDetails\DC2.\n\ + \\DC2coreProcessingTime\CAN\SOH \SOH(\ETXR\DC2coreProcessingTime\DC2\CAN\n\ + \\aversion\CAN\STX \SOH(\ETXR\aversion\DC2\DC4\n\ + \\ENQepoch\CAN\ETX \SOH(\ETXR\ENQepoch\DC2$\n\ + \\reffectiveName\CAN\EOT \SOH(\tR\reffectiveName\DC2*\n\ + \\DLEwritesInProgress\CAN\ENQ \SOH(\ENQR\DLEwritesInProgress\DC2(\n\ + \\SIreadsInProgress\CAN\ACK \SOH(\ENQR\SIreadsInProgress\DC2*\n\ + \\DLEpartitionsCached\CAN\a \SOH(\ENQR\DLEpartitionsCached\DC2\SYN\n\ + \\ACKstatus\CAN\b \SOH(\tR\ACKstatus\DC2 \n\ + \\vstateReason\CAN\t \SOH(\tR\vstateReason\DC2\DC2\n\ + \\EOTname\CAN\n\ + \ \SOH(\tR\EOTname\DC2\DC2\n\ + \\EOTmode\CAN\v \SOH(\tR\EOTmode\DC2\SUB\n\ + \\bposition\CAN\f \SOH(\tR\bposition\DC2\SUB\n\ + \\bprogress\CAN\r \SOH(\STXR\bprogress\DC2&\n\ + \\SOlastCheckpoint\CAN\SO \SOH(\tR\SOlastCheckpoint\DC2@\n\ + \\ESCeventsProcessedAfterRestart\CAN\SI \SOH(\ETXR\ESCeventsProcessedAfterRestart\DC2*\n\ + \\DLEcheckpointStatus\CAN\DLE \SOH(\tR\DLEcheckpointStatus\DC2&\n\ + \\SObufferedEvents\CAN\DC1 \SOH(\ETXR\SObufferedEvents\DC2N\n\ + \\"writePendingEventsBeforeCheckpoint\CAN\DC2 \SOH(\ENQR\"writePendingEventsBeforeCheckpoint\DC2L\n\ + \!writePendingEventsAfterCheckpoint\CAN\DC3 \SOH(\ENQR!writePendingEventsAfterCheckpoint" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + details__field_descriptor + = Data.ProtoLens.FieldDescriptor + "details" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StatisticsResp'Details) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'details")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, details__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StatisticsResp'_unknownFields + (\ x__ y__ -> x__ {_StatisticsResp'_unknownFields = y__}) + defMessage + = StatisticsResp'_constructor + {_StatisticsResp'details = Prelude.Nothing, + _StatisticsResp'_unknownFields = []} + parseMessage + = let + loop :: + StatisticsResp + -> Data.ProtoLens.Encoding.Bytes.Parser StatisticsResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "details" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"details") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StatisticsResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'details") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData StatisticsResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StatisticsResp'_unknownFields x__) + (Control.DeepSeq.deepseq (_StatisticsResp'details x__) ()) +{- | Fields : + + * 'Proto.Projections_Fields.coreProcessingTime' @:: Lens' StatisticsResp'Details Data.Int.Int64@ + * 'Proto.Projections_Fields.version' @:: Lens' StatisticsResp'Details Data.Int.Int64@ + * 'Proto.Projections_Fields.epoch' @:: Lens' StatisticsResp'Details Data.Int.Int64@ + * 'Proto.Projections_Fields.effectiveName' @:: Lens' StatisticsResp'Details Data.Text.Text@ + * 'Proto.Projections_Fields.writesInProgress' @:: Lens' StatisticsResp'Details Data.Int.Int32@ + * 'Proto.Projections_Fields.readsInProgress' @:: Lens' StatisticsResp'Details Data.Int.Int32@ + * 'Proto.Projections_Fields.partitionsCached' @:: Lens' StatisticsResp'Details Data.Int.Int32@ + * 'Proto.Projections_Fields.status' @:: Lens' StatisticsResp'Details Data.Text.Text@ + * 'Proto.Projections_Fields.stateReason' @:: Lens' StatisticsResp'Details Data.Text.Text@ + * 'Proto.Projections_Fields.name' @:: Lens' StatisticsResp'Details Data.Text.Text@ + * 'Proto.Projections_Fields.mode' @:: Lens' StatisticsResp'Details Data.Text.Text@ + * 'Proto.Projections_Fields.position' @:: Lens' StatisticsResp'Details Data.Text.Text@ + * 'Proto.Projections_Fields.progress' @:: Lens' StatisticsResp'Details Prelude.Float@ + * 'Proto.Projections_Fields.lastCheckpoint' @:: Lens' StatisticsResp'Details Data.Text.Text@ + * 'Proto.Projections_Fields.eventsProcessedAfterRestart' @:: Lens' StatisticsResp'Details Data.Int.Int64@ + * 'Proto.Projections_Fields.checkpointStatus' @:: Lens' StatisticsResp'Details Data.Text.Text@ + * 'Proto.Projections_Fields.bufferedEvents' @:: Lens' StatisticsResp'Details Data.Int.Int64@ + * 'Proto.Projections_Fields.writePendingEventsBeforeCheckpoint' @:: Lens' StatisticsResp'Details Data.Int.Int32@ + * 'Proto.Projections_Fields.writePendingEventsAfterCheckpoint' @:: Lens' StatisticsResp'Details Data.Int.Int32@ -} +data StatisticsResp'Details + = StatisticsResp'Details'_constructor {_StatisticsResp'Details'coreProcessingTime :: !Data.Int.Int64, + _StatisticsResp'Details'version :: !Data.Int.Int64, + _StatisticsResp'Details'epoch :: !Data.Int.Int64, + _StatisticsResp'Details'effectiveName :: !Data.Text.Text, + _StatisticsResp'Details'writesInProgress :: !Data.Int.Int32, + _StatisticsResp'Details'readsInProgress :: !Data.Int.Int32, + _StatisticsResp'Details'partitionsCached :: !Data.Int.Int32, + _StatisticsResp'Details'status :: !Data.Text.Text, + _StatisticsResp'Details'stateReason :: !Data.Text.Text, + _StatisticsResp'Details'name :: !Data.Text.Text, + _StatisticsResp'Details'mode :: !Data.Text.Text, + _StatisticsResp'Details'position :: !Data.Text.Text, + _StatisticsResp'Details'progress :: !Prelude.Float, + _StatisticsResp'Details'lastCheckpoint :: !Data.Text.Text, + _StatisticsResp'Details'eventsProcessedAfterRestart :: !Data.Int.Int64, + _StatisticsResp'Details'checkpointStatus :: !Data.Text.Text, + _StatisticsResp'Details'bufferedEvents :: !Data.Int.Int64, + _StatisticsResp'Details'writePendingEventsBeforeCheckpoint :: !Data.Int.Int32, + _StatisticsResp'Details'writePendingEventsAfterCheckpoint :: !Data.Int.Int32, + _StatisticsResp'Details'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StatisticsResp'Details where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "coreProcessingTime" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'coreProcessingTime + (\ x__ y__ + -> x__ {_StatisticsResp'Details'coreProcessingTime = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "version" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'version + (\ x__ y__ -> x__ {_StatisticsResp'Details'version = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "epoch" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'epoch + (\ x__ y__ -> x__ {_StatisticsResp'Details'epoch = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "effectiveName" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'effectiveName + (\ x__ y__ -> x__ {_StatisticsResp'Details'effectiveName = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "writesInProgress" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'writesInProgress + (\ x__ y__ + -> x__ {_StatisticsResp'Details'writesInProgress = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "readsInProgress" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'readsInProgress + (\ x__ y__ -> x__ {_StatisticsResp'Details'readsInProgress = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "partitionsCached" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'partitionsCached + (\ x__ y__ + -> x__ {_StatisticsResp'Details'partitionsCached = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "status" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'status + (\ x__ y__ -> x__ {_StatisticsResp'Details'status = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "stateReason" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'stateReason + (\ x__ y__ -> x__ {_StatisticsResp'Details'stateReason = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "name" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'name + (\ x__ y__ -> x__ {_StatisticsResp'Details'name = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "mode" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'mode + (\ x__ y__ -> x__ {_StatisticsResp'Details'mode = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "position" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'position + (\ x__ y__ -> x__ {_StatisticsResp'Details'position = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "progress" Prelude.Float where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'progress + (\ x__ y__ -> x__ {_StatisticsResp'Details'progress = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "lastCheckpoint" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'lastCheckpoint + (\ x__ y__ -> x__ {_StatisticsResp'Details'lastCheckpoint = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "eventsProcessedAfterRestart" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'eventsProcessedAfterRestart + (\ x__ y__ + -> x__ + {_StatisticsResp'Details'eventsProcessedAfterRestart = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "checkpointStatus" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'checkpointStatus + (\ x__ y__ + -> x__ {_StatisticsResp'Details'checkpointStatus = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "bufferedEvents" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'bufferedEvents + (\ x__ y__ -> x__ {_StatisticsResp'Details'bufferedEvents = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "writePendingEventsBeforeCheckpoint" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'writePendingEventsBeforeCheckpoint + (\ x__ y__ + -> x__ + {_StatisticsResp'Details'writePendingEventsBeforeCheckpoint = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StatisticsResp'Details "writePendingEventsAfterCheckpoint" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StatisticsResp'Details'writePendingEventsAfterCheckpoint + (\ x__ y__ + -> x__ + {_StatisticsResp'Details'writePendingEventsAfterCheckpoint = y__})) + Prelude.id +instance Data.ProtoLens.Message StatisticsResp'Details where + messageName _ + = Data.Text.pack + "event_store.client.projections.StatisticsResp.Details" + packedMessageDescriptor _ + = "\n\ + \\aDetails\DC2.\n\ + \\DC2coreProcessingTime\CAN\SOH \SOH(\ETXR\DC2coreProcessingTime\DC2\CAN\n\ + \\aversion\CAN\STX \SOH(\ETXR\aversion\DC2\DC4\n\ + \\ENQepoch\CAN\ETX \SOH(\ETXR\ENQepoch\DC2$\n\ + \\reffectiveName\CAN\EOT \SOH(\tR\reffectiveName\DC2*\n\ + \\DLEwritesInProgress\CAN\ENQ \SOH(\ENQR\DLEwritesInProgress\DC2(\n\ + \\SIreadsInProgress\CAN\ACK \SOH(\ENQR\SIreadsInProgress\DC2*\n\ + \\DLEpartitionsCached\CAN\a \SOH(\ENQR\DLEpartitionsCached\DC2\SYN\n\ + \\ACKstatus\CAN\b \SOH(\tR\ACKstatus\DC2 \n\ + \\vstateReason\CAN\t \SOH(\tR\vstateReason\DC2\DC2\n\ + \\EOTname\CAN\n\ + \ \SOH(\tR\EOTname\DC2\DC2\n\ + \\EOTmode\CAN\v \SOH(\tR\EOTmode\DC2\SUB\n\ + \\bposition\CAN\f \SOH(\tR\bposition\DC2\SUB\n\ + \\bprogress\CAN\r \SOH(\STXR\bprogress\DC2&\n\ + \\SOlastCheckpoint\CAN\SO \SOH(\tR\SOlastCheckpoint\DC2@\n\ + \\ESCeventsProcessedAfterRestart\CAN\SI \SOH(\ETXR\ESCeventsProcessedAfterRestart\DC2*\n\ + \\DLEcheckpointStatus\CAN\DLE \SOH(\tR\DLEcheckpointStatus\DC2&\n\ + \\SObufferedEvents\CAN\DC1 \SOH(\ETXR\SObufferedEvents\DC2N\n\ + \\"writePendingEventsBeforeCheckpoint\CAN\DC2 \SOH(\ENQR\"writePendingEventsBeforeCheckpoint\DC2L\n\ + \!writePendingEventsAfterCheckpoint\CAN\DC3 \SOH(\ENQR!writePendingEventsAfterCheckpoint" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + coreProcessingTime__field_descriptor + = Data.ProtoLens.FieldDescriptor + "coreProcessingTime" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"coreProcessingTime")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + version__field_descriptor + = Data.ProtoLens.FieldDescriptor + "version" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"version")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + epoch__field_descriptor + = Data.ProtoLens.FieldDescriptor + "epoch" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"epoch")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + effectiveName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "effectiveName" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"effectiveName")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + writesInProgress__field_descriptor + = Data.ProtoLens.FieldDescriptor + "writesInProgress" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"writesInProgress")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + readsInProgress__field_descriptor + = Data.ProtoLens.FieldDescriptor + "readsInProgress" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"readsInProgress")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + partitionsCached__field_descriptor + = Data.ProtoLens.FieldDescriptor + "partitionsCached" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"partitionsCached")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + status__field_descriptor + = Data.ProtoLens.FieldDescriptor + "status" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"status")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + stateReason__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stateReason" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"stateReason")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"name")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + mode__field_descriptor + = Data.ProtoLens.FieldDescriptor + "mode" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"mode")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + position__field_descriptor + = Data.ProtoLens.FieldDescriptor + "position" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"position")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + progress__field_descriptor + = Data.ProtoLens.FieldDescriptor + "progress" + (Data.ProtoLens.ScalarField Data.ProtoLens.FloatField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Float) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"progress")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + lastCheckpoint__field_descriptor + = Data.ProtoLens.FieldDescriptor + "lastCheckpoint" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"lastCheckpoint")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + eventsProcessedAfterRestart__field_descriptor + = Data.ProtoLens.FieldDescriptor + "eventsProcessedAfterRestart" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"eventsProcessedAfterRestart")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + checkpointStatus__field_descriptor + = Data.ProtoLens.FieldDescriptor + "checkpointStatus" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"checkpointStatus")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + bufferedEvents__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bufferedEvents" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"bufferedEvents")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + writePendingEventsBeforeCheckpoint__field_descriptor + = Data.ProtoLens.FieldDescriptor + "writePendingEventsBeforeCheckpoint" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field + @"writePendingEventsBeforeCheckpoint")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + writePendingEventsAfterCheckpoint__field_descriptor + = Data.ProtoLens.FieldDescriptor + "writePendingEventsAfterCheckpoint" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field + @"writePendingEventsAfterCheckpoint")) :: + Data.ProtoLens.FieldDescriptor StatisticsResp'Details + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, coreProcessingTime__field_descriptor), + (Data.ProtoLens.Tag 2, version__field_descriptor), + (Data.ProtoLens.Tag 3, epoch__field_descriptor), + (Data.ProtoLens.Tag 4, effectiveName__field_descriptor), + (Data.ProtoLens.Tag 5, writesInProgress__field_descriptor), + (Data.ProtoLens.Tag 6, readsInProgress__field_descriptor), + (Data.ProtoLens.Tag 7, partitionsCached__field_descriptor), + (Data.ProtoLens.Tag 8, status__field_descriptor), + (Data.ProtoLens.Tag 9, stateReason__field_descriptor), + (Data.ProtoLens.Tag 10, name__field_descriptor), + (Data.ProtoLens.Tag 11, mode__field_descriptor), + (Data.ProtoLens.Tag 12, position__field_descriptor), + (Data.ProtoLens.Tag 13, progress__field_descriptor), + (Data.ProtoLens.Tag 14, lastCheckpoint__field_descriptor), + (Data.ProtoLens.Tag 15, + eventsProcessedAfterRestart__field_descriptor), + (Data.ProtoLens.Tag 16, checkpointStatus__field_descriptor), + (Data.ProtoLens.Tag 17, bufferedEvents__field_descriptor), + (Data.ProtoLens.Tag 18, + writePendingEventsBeforeCheckpoint__field_descriptor), + (Data.ProtoLens.Tag 19, + writePendingEventsAfterCheckpoint__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StatisticsResp'Details'_unknownFields + (\ x__ y__ -> x__ {_StatisticsResp'Details'_unknownFields = y__}) + defMessage + = StatisticsResp'Details'_constructor + {_StatisticsResp'Details'coreProcessingTime = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'version = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'epoch = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'effectiveName = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'writesInProgress = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'readsInProgress = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'partitionsCached = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'status = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'stateReason = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'name = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'mode = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'position = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'progress = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'lastCheckpoint = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'eventsProcessedAfterRestart = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'checkpointStatus = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'bufferedEvents = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'writePendingEventsBeforeCheckpoint = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'writePendingEventsAfterCheckpoint = Data.ProtoLens.fieldDefault, + _StatisticsResp'Details'_unknownFields = []} + parseMessage + = let + loop :: + StatisticsResp'Details + -> Data.ProtoLens.Encoding.Bytes.Parser StatisticsResp'Details + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "coreProcessingTime" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"coreProcessingTime") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "version" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"version") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "epoch" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"epoch") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "effectiveName" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"effectiveName") y x) + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "writesInProgress" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"writesInProgress") y x) + 48 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "readsInProgress" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"readsInProgress") y x) + 56 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "partitionsCached" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"partitionsCached") y x) + 66 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "status" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"status") y x) + 74 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "stateReason" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"stateReason") y x) + 82 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "name" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + 90 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "mode" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"mode") y x) + 98 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "position" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"position") y x) + 109 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Data.ProtoLens.Encoding.Bytes.wordToFloat + Data.ProtoLens.Encoding.Bytes.getFixed32) + "progress" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"progress") y x) + 114 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "lastCheckpoint" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"lastCheckpoint") y x) + 120 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "eventsProcessedAfterRestart" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"eventsProcessedAfterRestart") + y + x) + 130 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "checkpointStatus" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"checkpointStatus") y x) + 136 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "bufferedEvents" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"bufferedEvents") y x) + 144 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "writePendingEventsBeforeCheckpoint" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field + @"writePendingEventsBeforeCheckpoint") + y + x) + 152 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "writePendingEventsAfterCheckpoint" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field + @"writePendingEventsAfterCheckpoint") + y + x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Details" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"coreProcessingTime") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"version") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"epoch") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"effectiveName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"writesInProgress") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"readsInProgress") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 48) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"partitionsCached") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 56) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"status") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 66) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"stateReason") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 74) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"name") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 82) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"mode") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 90) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"position") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 98) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"progress") + _x + in + if (Prelude.==) + _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 109) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putFixed32 + Data.ProtoLens.Encoding.Bytes.floatToWord + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"lastCheckpoint") + _x + in + if (Prelude.==) + _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 114) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"eventsProcessedAfterRestart") + _x + in + if (Prelude.==) + _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 120) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"checkpointStatus") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 130) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"bufferedEvents") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 136) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"writePendingEventsBeforeCheckpoint") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 144) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"writePendingEventsAfterCheckpoint") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 152) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields + _x)))))))))))))))))))) +instance Control.DeepSeq.NFData StatisticsResp'Details where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StatisticsResp'Details'_unknownFields x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'coreProcessingTime x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'version x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'epoch x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'effectiveName x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'writesInProgress x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'readsInProgress x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'partitionsCached x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'status x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'stateReason x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'name x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'mode x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'position x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'progress x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'lastCheckpoint x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'eventsProcessedAfterRestart + x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'checkpointStatus + x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'bufferedEvents + x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'writePendingEventsBeforeCheckpoint + x__) + (Control.DeepSeq.deepseq + (_StatisticsResp'Details'writePendingEventsAfterCheckpoint + x__) + ()))))))))))))))))))) +{- | Fields : + + * 'Proto.Projections_Fields.options' @:: Lens' UpdateReq UpdateReq'Options@ + * 'Proto.Projections_Fields.maybe'options' @:: Lens' UpdateReq (Prelude.Maybe UpdateReq'Options)@ -} +data UpdateReq + = UpdateReq'_constructor {_UpdateReq'options :: !(Prelude.Maybe UpdateReq'Options), + _UpdateReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UpdateReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField UpdateReq "options" UpdateReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'options (\ x__ y__ -> x__ {_UpdateReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField UpdateReq "maybe'options" (Prelude.Maybe UpdateReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'options (\ x__ y__ -> x__ {_UpdateReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message UpdateReq where + messageName _ + = Data.Text.pack "event_store.client.projections.UpdateReq" + packedMessageDescriptor _ + = "\n\ + \\tUpdateReq\DC2K\n\ + \\aoptions\CAN\SOH \SOH(\v21.event_store.client.projections.UpdateReq.OptionsR\aoptions\SUB\179\SOH\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\DC4\n\ + \\ENQquery\CAN\STX \SOH(\tR\ENQquery\DC2#\n\ + \\femit_enabled\CAN\ETX \SOH(\bH\NULR\vemitEnabled\DC2J\n\ + \\SIno_emit_options\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\rnoEmitOptionsB\r\n\ + \\vemit_option" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor UpdateReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor UpdateReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _UpdateReq'_unknownFields + (\ x__ y__ -> x__ {_UpdateReq'_unknownFields = y__}) + defMessage + = UpdateReq'_constructor + {_UpdateReq'options = Prelude.Nothing, + _UpdateReq'_unknownFields = []} + parseMessage + = let + loop :: UpdateReq -> Data.ProtoLens.Encoding.Bytes.Parser UpdateReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "UpdateReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData UpdateReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_UpdateReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_UpdateReq'options x__) ()) +{- | Fields : + + * 'Proto.Projections_Fields.name' @:: Lens' UpdateReq'Options Data.Text.Text@ + * 'Proto.Projections_Fields.query' @:: Lens' UpdateReq'Options Data.Text.Text@ + * 'Proto.Projections_Fields.maybe'emitOption' @:: Lens' UpdateReq'Options (Prelude.Maybe UpdateReq'Options'EmitOption)@ + * 'Proto.Projections_Fields.maybe'emitEnabled' @:: Lens' UpdateReq'Options (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Projections_Fields.emitEnabled' @:: Lens' UpdateReq'Options Prelude.Bool@ + * 'Proto.Projections_Fields.maybe'noEmitOptions' @:: Lens' UpdateReq'Options (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Projections_Fields.noEmitOptions' @:: Lens' UpdateReq'Options Proto.Shared.Empty@ -} +data UpdateReq'Options + = UpdateReq'Options'_constructor {_UpdateReq'Options'name :: !Data.Text.Text, + _UpdateReq'Options'query :: !Data.Text.Text, + _UpdateReq'Options'emitOption :: !(Prelude.Maybe UpdateReq'Options'EmitOption), + _UpdateReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UpdateReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data UpdateReq'Options'EmitOption + = UpdateReq'Options'EmitEnabled !Prelude.Bool | + UpdateReq'Options'NoEmitOptions !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField UpdateReq'Options "name" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Options'name + (\ x__ y__ -> x__ {_UpdateReq'Options'name = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Options "query" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Options'query + (\ x__ y__ -> x__ {_UpdateReq'Options'query = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Options "maybe'emitOption" (Prelude.Maybe UpdateReq'Options'EmitOption) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Options'emitOption + (\ x__ y__ -> x__ {_UpdateReq'Options'emitOption = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Options "maybe'emitEnabled" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Options'emitOption + (\ x__ y__ -> x__ {_UpdateReq'Options'emitOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (UpdateReq'Options'EmitEnabled x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap UpdateReq'Options'EmitEnabled y__)) +instance Data.ProtoLens.Field.HasField UpdateReq'Options "emitEnabled" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Options'emitOption + (\ x__ y__ -> x__ {_UpdateReq'Options'emitOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (UpdateReq'Options'EmitEnabled x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap UpdateReq'Options'EmitEnabled y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField UpdateReq'Options "maybe'noEmitOptions" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Options'emitOption + (\ x__ y__ -> x__ {_UpdateReq'Options'emitOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (UpdateReq'Options'NoEmitOptions x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap UpdateReq'Options'NoEmitOptions y__)) +instance Data.ProtoLens.Field.HasField UpdateReq'Options "noEmitOptions" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Options'emitOption + (\ x__ y__ -> x__ {_UpdateReq'Options'emitOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (UpdateReq'Options'NoEmitOptions x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap UpdateReq'Options'NoEmitOptions y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message UpdateReq'Options where + messageName _ + = Data.Text.pack "event_store.client.projections.UpdateReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\DC4\n\ + \\ENQquery\CAN\STX \SOH(\tR\ENQquery\DC2#\n\ + \\femit_enabled\CAN\ETX \SOH(\bH\NULR\vemitEnabled\DC2J\n\ + \\SIno_emit_options\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\rnoEmitOptionsB\r\n\ + \\vemit_option" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"name")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Options + query__field_descriptor + = Data.ProtoLens.FieldDescriptor + "query" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"query")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Options + emitEnabled__field_descriptor + = Data.ProtoLens.FieldDescriptor + "emit_enabled" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'emitEnabled")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Options + noEmitOptions__field_descriptor + = Data.ProtoLens.FieldDescriptor + "no_emit_options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'noEmitOptions")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, name__field_descriptor), + (Data.ProtoLens.Tag 2, query__field_descriptor), + (Data.ProtoLens.Tag 3, emitEnabled__field_descriptor), + (Data.ProtoLens.Tag 4, noEmitOptions__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _UpdateReq'Options'_unknownFields + (\ x__ y__ -> x__ {_UpdateReq'Options'_unknownFields = y__}) + defMessage + = UpdateReq'Options'_constructor + {_UpdateReq'Options'name = Data.ProtoLens.fieldDefault, + _UpdateReq'Options'query = Data.ProtoLens.fieldDefault, + _UpdateReq'Options'emitOption = Prelude.Nothing, + _UpdateReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + UpdateReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser UpdateReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "name" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "query" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"query") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "emit_enabled" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"emitEnabled") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "no_emit_options" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"noEmitOptions") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"query") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'emitOption") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (UpdateReq'Options'EmitEnabled v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + v) + (Prelude.Just (UpdateReq'Options'NoEmitOptions v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData UpdateReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_UpdateReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Options'name x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Options'query x__) + (Control.DeepSeq.deepseq (_UpdateReq'Options'emitOption x__) ()))) +instance Control.DeepSeq.NFData UpdateReq'Options'EmitOption where + rnf (UpdateReq'Options'EmitEnabled x__) = Control.DeepSeq.rnf x__ + rnf (UpdateReq'Options'NoEmitOptions x__) = Control.DeepSeq.rnf x__ +_UpdateReq'Options'EmitEnabled :: + Data.ProtoLens.Prism.Prism' UpdateReq'Options'EmitOption Prelude.Bool +_UpdateReq'Options'EmitEnabled + = Data.ProtoLens.Prism.prism' + UpdateReq'Options'EmitEnabled + (\ p__ + -> case p__ of + (UpdateReq'Options'EmitEnabled p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_UpdateReq'Options'NoEmitOptions :: + Data.ProtoLens.Prism.Prism' UpdateReq'Options'EmitOption Proto.Shared.Empty +_UpdateReq'Options'NoEmitOptions + = Data.ProtoLens.Prism.prism' + UpdateReq'Options'NoEmitOptions + (\ p__ + -> case p__ of + (UpdateReq'Options'NoEmitOptions p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + -} +data UpdateResp + = UpdateResp'_constructor {_UpdateResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UpdateResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message UpdateResp where + messageName _ + = Data.Text.pack "event_store.client.projections.UpdateResp" + packedMessageDescriptor _ + = "\n\ + \\n\ + \UpdateResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _UpdateResp'_unknownFields + (\ x__ y__ -> x__ {_UpdateResp'_unknownFields = y__}) + defMessage + = UpdateResp'_constructor {_UpdateResp'_unknownFields = []} + parseMessage + = let + loop :: + UpdateResp -> Data.ProtoLens.Encoding.Bytes.Parser UpdateResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "UpdateResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData UpdateResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_UpdateResp'_unknownFields x__) () +data Projections = Projections {} +instance Data.ProtoLens.Service.Types.Service Projections where + type ServiceName Projections = "Projections" + type ServicePackage Projections = "event_store.client.projections" + type ServiceMethods Projections = '["create", + "delete", + "disable", + "enable", + "reset", + "restartSubsystem", + "result", + "state", + "statistics", + "update"] +instance Data.ProtoLens.Service.Types.HasMethodImpl Projections "create" where + type MethodName Projections "create" = "Create" + type MethodInput Projections "create" = CreateReq + type MethodOutput Projections "create" = CreateResp + type MethodStreamingType Projections "create" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Projections "update" where + type MethodName Projections "update" = "Update" + type MethodInput Projections "update" = UpdateReq + type MethodOutput Projections "update" = UpdateResp + type MethodStreamingType Projections "update" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Projections "delete" where + type MethodName Projections "delete" = "Delete" + type MethodInput Projections "delete" = DeleteReq + type MethodOutput Projections "delete" = DeleteResp + type MethodStreamingType Projections "delete" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Projections "statistics" where + type MethodName Projections "statistics" = "Statistics" + type MethodInput Projections "statistics" = StatisticsReq + type MethodOutput Projections "statistics" = StatisticsResp + type MethodStreamingType Projections "statistics" = 'Data.ProtoLens.Service.Types.ServerStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Projections "disable" where + type MethodName Projections "disable" = "Disable" + type MethodInput Projections "disable" = DisableReq + type MethodOutput Projections "disable" = DisableResp + type MethodStreamingType Projections "disable" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Projections "enable" where + type MethodName Projections "enable" = "Enable" + type MethodInput Projections "enable" = EnableReq + type MethodOutput Projections "enable" = EnableResp + type MethodStreamingType Projections "enable" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Projections "reset" where + type MethodName Projections "reset" = "Reset" + type MethodInput Projections "reset" = ResetReq + type MethodOutput Projections "reset" = ResetResp + type MethodStreamingType Projections "reset" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Projections "state" where + type MethodName Projections "state" = "State" + type MethodInput Projections "state" = StateReq + type MethodOutput Projections "state" = StateResp + type MethodStreamingType Projections "state" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Projections "result" where + type MethodName Projections "result" = "Result" + type MethodInput Projections "result" = ResultReq + type MethodOutput Projections "result" = ResultResp + type MethodStreamingType Projections "result" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Projections "restartSubsystem" where + type MethodName Projections "restartSubsystem" = "RestartSubsystem" + type MethodInput Projections "restartSubsystem" = Proto.Shared.Empty + type MethodOutput Projections "restartSubsystem" = Proto.Shared.Empty + type MethodStreamingType Projections "restartSubsystem" = 'Data.ProtoLens.Service.Types.NonStreaming +packedFileDescriptor :: Data.ByteString.ByteString +packedFileDescriptor + = "\n\ + \\DC1projections.proto\DC2\RSevent_store.client.projections\SUB\FSgoogle/protobuf/struct.proto\SUB\fshared.proto\"\245\ETX\n\ + \\tCreateReq\DC2K\n\ + \\aoptions\CAN\SOH \SOH(\v21.event_store.client.projections.CreateReq.OptionsR\aoptions\SUB\154\ETX\n\ + \\aOptions\DC2=\n\ + \\bone_time\CAN\SOH \SOH(\v2 .event_store.client.shared.EmptyH\NULR\aoneTime\DC2[\n\ + \\ttransient\CAN\STX \SOH(\v2;.event_store.client.projections.CreateReq.Options.TransientH\NULR\ttransient\DC2^\n\ + \\n\ + \continuous\CAN\ETX \SOH(\v2<.event_store.client.projections.CreateReq.Options.ContinuousH\NULR\n\ + \continuous\DC2\DC4\n\ + \\ENQquery\CAN\EOT \SOH(\tR\ENQquery\SUB\US\n\ + \\tTransient\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\SUBT\n\ + \\n\ + \Continuous\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC22\n\ + \\NAKtrack_emitted_streams\CAN\STX \SOH(\bR\DC3trackEmittedStreamsB\ACK\n\ + \\EOTmode\"\f\n\ + \\n\ + \CreateResp\"\142\STX\n\ + \\tUpdateReq\DC2K\n\ + \\aoptions\CAN\SOH \SOH(\v21.event_store.client.projections.UpdateReq.OptionsR\aoptions\SUB\179\SOH\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\DC4\n\ + \\ENQquery\CAN\STX \SOH(\tR\ENQquery\DC2#\n\ + \\femit_enabled\CAN\ETX \SOH(\bH\NULR\vemitEnabled\DC2J\n\ + \\SIno_emit_options\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\rnoEmitOptionsB\r\n\ + \\vemit_option\"\f\n\ + \\n\ + \UpdateResp\"\152\STX\n\ + \\tDeleteReq\DC2K\n\ + \\aoptions\CAN\SOH \SOH(\v21.event_store.client.projections.DeleteReq.OptionsR\aoptions\SUB\189\SOH\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC24\n\ + \\SYNdelete_emitted_streams\CAN\STX \SOH(\bR\DC4deleteEmittedStreams\DC2.\n\ + \\DC3delete_state_stream\CAN\ETX \SOH(\bR\DC1deleteStateStream\DC28\n\ + \\CANdelete_checkpoint_stream\CAN\EOT \SOH(\bR\SYNdeleteCheckpointStream\"\f\n\ + \\n\ + \DeleteResp\"\133\ETX\n\ + \\rStatisticsReq\DC2O\n\ + \\aoptions\CAN\SOH \SOH(\v25.event_store.client.projections.StatisticsReq.OptionsR\aoptions\SUB\162\STX\n\ + \\aOptions\DC2\DC4\n\ + \\EOTname\CAN\SOH \SOH(\tH\NULR\EOTname\DC24\n\ + \\ETXall\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXall\DC2@\n\ + \\ttransient\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ttransient\DC2B\n\ + \\n\ + \continuous\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \continuous\DC2=\n\ + \\bone_time\CAN\ENQ \SOH(\v2 .event_store.client.shared.EmptyH\NULR\aoneTimeB\ACK\n\ + \\EOTmode\"\236\ACK\n\ + \\SOStatisticsResp\DC2P\n\ + \\adetails\CAN\SOH \SOH(\v26.event_store.client.projections.StatisticsResp.DetailsR\adetails\SUB\135\ACK\n\ + \\aDetails\DC2.\n\ + \\DC2coreProcessingTime\CAN\SOH \SOH(\ETXR\DC2coreProcessingTime\DC2\CAN\n\ + \\aversion\CAN\STX \SOH(\ETXR\aversion\DC2\DC4\n\ + \\ENQepoch\CAN\ETX \SOH(\ETXR\ENQepoch\DC2$\n\ + \\reffectiveName\CAN\EOT \SOH(\tR\reffectiveName\DC2*\n\ + \\DLEwritesInProgress\CAN\ENQ \SOH(\ENQR\DLEwritesInProgress\DC2(\n\ + \\SIreadsInProgress\CAN\ACK \SOH(\ENQR\SIreadsInProgress\DC2*\n\ + \\DLEpartitionsCached\CAN\a \SOH(\ENQR\DLEpartitionsCached\DC2\SYN\n\ + \\ACKstatus\CAN\b \SOH(\tR\ACKstatus\DC2 \n\ + \\vstateReason\CAN\t \SOH(\tR\vstateReason\DC2\DC2\n\ + \\EOTname\CAN\n\ + \ \SOH(\tR\EOTname\DC2\DC2\n\ + \\EOTmode\CAN\v \SOH(\tR\EOTmode\DC2\SUB\n\ + \\bposition\CAN\f \SOH(\tR\bposition\DC2\SUB\n\ + \\bprogress\CAN\r \SOH(\STXR\bprogress\DC2&\n\ + \\SOlastCheckpoint\CAN\SO \SOH(\tR\SOlastCheckpoint\DC2@\n\ + \\ESCeventsProcessedAfterRestart\CAN\SI \SOH(\ETXR\ESCeventsProcessedAfterRestart\DC2*\n\ + \\DLEcheckpointStatus\CAN\DLE \SOH(\tR\DLEcheckpointStatus\DC2&\n\ + \\SObufferedEvents\CAN\DC1 \SOH(\ETXR\SObufferedEvents\DC2N\n\ + \\"writePendingEventsBeforeCheckpoint\CAN\DC2 \SOH(\ENQR\"writePendingEventsBeforeCheckpoint\DC2L\n\ + \!writePendingEventsAfterCheckpoint\CAN\DC3 \SOH(\ENQR!writePendingEventsAfterCheckpoint\"\147\SOH\n\ + \\bStateReq\DC2J\n\ + \\aoptions\CAN\SOH \SOH(\v20.event_store.client.projections.StateReq.OptionsR\aoptions\SUB;\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\FS\n\ + \\tpartition\CAN\STX \SOH(\tR\tpartition\"9\n\ + \\tStateResp\DC2,\n\ + \\ENQstate\CAN\SOH \SOH(\v2\SYN.google.protobuf.ValueR\ENQstate\"\149\SOH\n\ + \\tResultReq\DC2K\n\ + \\aoptions\CAN\SOH \SOH(\v21.event_store.client.projections.ResultReq.OptionsR\aoptions\SUB;\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\FS\n\ + \\tpartition\CAN\STX \SOH(\tR\tpartition\"<\n\ + \\n\ + \ResultResp\DC2.\n\ + \\ACKresult\CAN\SOH \SOH(\v2\SYN.google.protobuf.ValueR\ACKresult\"\160\SOH\n\ + \\bResetReq\DC2J\n\ + \\aoptions\CAN\SOH \SOH(\v20.event_store.client.projections.ResetReq.OptionsR\aoptions\SUBH\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2)\n\ + \\DLEwrite_checkpoint\CAN\STX \SOH(\bR\SIwriteCheckpoint\"\v\n\ + \\tResetResp\"w\n\ + \\tEnableReq\DC2K\n\ + \\aoptions\CAN\SOH \SOH(\v21.event_store.client.projections.EnableReq.OptionsR\aoptions\SUB\GS\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\"\f\n\ + \\n\ + \EnableResp\"\164\SOH\n\ + \\n\ + \DisableReq\DC2L\n\ + \\aoptions\CAN\SOH \SOH(\v22.event_store.client.projections.DisableReq.OptionsR\aoptions\SUBH\n\ + \\aOptions\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2)\n\ + \\DLEwrite_checkpoint\CAN\STX \SOH(\bR\SIwriteCheckpoint\"\r\n\ + \\vDisableResp2\217\a\n\ + \\vProjections\DC2_\n\ + \\ACKCreate\DC2).event_store.client.projections.CreateReq\SUB*.event_store.client.projections.CreateResp\DC2_\n\ + \\ACKUpdate\DC2).event_store.client.projections.UpdateReq\SUB*.event_store.client.projections.UpdateResp\DC2_\n\ + \\ACKDelete\DC2).event_store.client.projections.DeleteReq\SUB*.event_store.client.projections.DeleteResp\DC2m\n\ + \\n\ + \Statistics\DC2-.event_store.client.projections.StatisticsReq\SUB..event_store.client.projections.StatisticsResp0\SOH\DC2b\n\ + \\aDisable\DC2*.event_store.client.projections.DisableReq\SUB+.event_store.client.projections.DisableResp\DC2_\n\ + \\ACKEnable\DC2).event_store.client.projections.EnableReq\SUB*.event_store.client.projections.EnableResp\DC2\\\n\ + \\ENQReset\DC2(.event_store.client.projections.ResetReq\SUB).event_store.client.projections.ResetResp\DC2\\\n\ + \\ENQState\DC2(.event_store.client.projections.StateReq\SUB).event_store.client.projections.StateResp\DC2_\n\ + \\ACKResult\DC2).event_store.client.projections.ResultReq\SUB*.event_store.client.projections.ResultResp\DC2V\n\ + \\DLERestartSubsystem\DC2 .event_store.client.shared.Empty\SUB .event_store.client.shared.EmptyB+\n\ + \)com.eventstore.dbclient.proto.projectionsJ\198)\n\ + \\a\DC2\ENQ\NUL\NUL\173\SOH\SOH\n\ + \\b\n\ + \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\ + \\b\n\ + \\SOH\STX\DC2\ETX\SOH\NUL'\n\ + \\b\n\ + \\SOH\b\DC2\ETX\STX\NULB\n\ + \\t\n\ + \\STX\b\SOH\DC2\ETX\STX\NULB\n\ + \\t\n\ + \\STX\ETX\NUL\DC2\ETX\EOT\NUL&\n\ + \\t\n\ + \\STX\ETX\SOH\DC2\ETX\ENQ\NUL\SYN\n\ + \\n\ + \\n\ + \\STX\ACK\NUL\DC2\EOT\a\NUL\DC2\SOH\n\ + \\n\ + \\n\ + \\ETX\ACK\NUL\SOH\DC2\ETX\a\b\DC3\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\NUL\DC2\ETX\b\b4\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX\b\f\DC2\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX\b\DC4\GS\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX\b(2\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\SOH\DC2\ETX\t\b4\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\SOH\DC2\ETX\t\f\DC2\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\STX\DC2\ETX\t\DC4\GS\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETX\t(2\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\STX\DC2\ETX\n\ + \\b4\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\SOH\DC2\ETX\n\ + \\f\DC2\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\STX\DC2\ETX\n\ + \\DC4\GS\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\ETX\DC2\ETX\n\ + \(2\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\ETX\DC2\ETX\v\bG\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\SOH\DC2\ETX\v\f\SYN\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\STX\DC2\ETX\v\CAN%\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\ACK\DC2\ETX\v06\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\ETX\DC2\ETX\v7E\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\EOT\DC2\ETX\f\b7\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\EOT\SOH\DC2\ETX\f\f\DC3\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\EOT\STX\DC2\ETX\f\NAK\US\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\EOT\ETX\DC2\ETX\f*5\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\ENQ\DC2\ETX\r\b4\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ENQ\SOH\DC2\ETX\r\f\DC2\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ENQ\STX\DC2\ETX\r\DC4\GS\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ENQ\ETX\DC2\ETX\r(2\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\ACK\DC2\ETX\SO\b1\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ACK\SOH\DC2\ETX\SO\f\DC1\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ACK\STX\DC2\ETX\SO\DC3\ESC\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ACK\ETX\DC2\ETX\SO&/\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\a\DC2\ETX\SI\b1\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\a\SOH\DC2\ETX\SI\f\DC1\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\a\STX\DC2\ETX\SI\DC3\ESC\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\a\ETX\DC2\ETX\SI&/\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\b\DC2\ETX\DLE\b4\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\b\SOH\DC2\ETX\DLE\f\DC2\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\b\STX\DC2\ETX\DLE\DC4\GS\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\b\ETX\DC2\ETX\DLE(2\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\t\DC2\ETX\DC1\bi\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\t\SOH\DC2\ETX\DC1\f\FS\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\t\STX\DC2\ETX\DC1\RS=\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\t\ETX\DC2\ETX\DC1Hg\n\ + \\n\ + \\n\ + \\STX\EOT\NUL\DC2\EOT\DC4\NUL'\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\NUL\SOH\DC2\ETX\DC4\b\DC1\n\ + \\v\n\ + \\EOT\EOT\NUL\STX\NUL\DC2\ETX\NAK\b\FS\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\NAK\b\SI\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\NAK\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\NAK\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\NUL\ETX\NUL\DC2\EOT\ETB\b&\t\n\ + \\f\n\ + \\ENQ\EOT\NUL\ETX\NUL\SOH\DC2\ETX\ETB\DLE\ETB\n\ + \\SO\n\ + \\ACK\EOT\NUL\ETX\NUL\b\NUL\DC2\EOT\CAN\DLE\FS\DC1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\b\NUL\SOH\DC2\ETX\CAN\SYN\SUB\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\NUL\DC2\ETX\EM\CANE\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\NUL\ACK\DC2\ETX\EM\CAN7\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETX\EM8@\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETX\EMCD\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\SOH\DC2\ETX\SUB\CAN0\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\SOH\ACK\DC2\ETX\SUB\CAN!\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\SOH\SOH\DC2\ETX\SUB\"+\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\SOH\ETX\DC2\ETX\SUB./\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\STX\DC2\ETX\ESC\CAN2\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\STX\ACK\DC2\ETX\ESC\CAN\"\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\STX\SOH\DC2\ETX\ESC#-\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\STX\ETX\DC2\ETX\ESC01\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\ETX\DC2\ETX\GS\DLE!\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ETX\ENQ\DC2\ETX\GS\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ETX\SOH\DC2\ETX\GS\ETB\FS\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ETX\ETX\DC2\ETX\GS\US \n\ + \\SO\n\ + \\ACK\EOT\NUL\ETX\NUL\ETX\NUL\DC2\EOT\US\DLE!\DC1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\ETX\NUL\SOH\DC2\ETX\US\CAN!\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\DC2\ETX \CAN(\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\ENQ\DC2\ETX \CAN\RS\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETX \US#\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETX &'\n\ + \\SO\n\ + \\ACK\EOT\NUL\ETX\NUL\ETX\SOH\DC2\EOT\"\DLE%\DC1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\ETX\SOH\SOH\DC2\ETX\"\CAN\"\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\ETX\SOH\STX\NUL\DC2\ETX#\CAN(\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\NUL\ENQ\DC2\ETX#\CAN\RS\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\NUL\SOH\DC2\ETX#\US#\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\NUL\ETX\DC2\ETX#&'\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\ETX\SOH\STX\SOH\DC2\ETX$\CAN7\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\SOH\ENQ\DC2\ETX$\CAN\FS\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\SOH\SOH\DC2\ETX$\GS2\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\SOH\ETX\DC2\ETX$56\n\ + \\n\ + \\n\ + \\STX\EOT\SOH\DC2\EOT)\NUL*\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\SOH\SOH\DC2\ETX)\b\DC2\n\ + \\n\ + \\n\ + \\STX\EOT\STX\DC2\EOT,\NUL7\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\STX\SOH\DC2\ETX,\b\DC1\n\ + \\v\n\ + \\EOT\EOT\STX\STX\NUL\DC2\ETX-\b\FS\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX-\b\SI\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX-\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX-\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\STX\ETX\NUL\DC2\EOT/\b6\t\n\ + \\f\n\ + \\ENQ\EOT\STX\ETX\NUL\SOH\DC2\ETX/\DLE\ETB\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\NUL\STX\NUL\DC2\ETX0\DLE \n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\NUL\ENQ\DC2\ETX0\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\NUL\SOH\DC2\ETX0\ETB\ESC\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\NUL\ETX\DC2\ETX0\RS\US\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\NUL\STX\SOH\DC2\ETX1\DLE!\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\SOH\ENQ\DC2\ETX1\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\SOH\SOH\DC2\ETX1\ETB\FS\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\SOH\ETX\DC2\ETX1\US \n\ + \\SO\n\ + \\ACK\EOT\STX\ETX\NUL\b\NUL\DC2\EOT2\DLE5\DC1\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\b\NUL\SOH\DC2\ETX2\SYN!\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\NUL\STX\STX\DC2\ETX3\CAN.\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\STX\ENQ\DC2\ETX3\CAN\FS\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\STX\SOH\DC2\ETX3\GS)\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\STX\ETX\DC2\ETX3,-\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\NUL\STX\ETX\DC2\ETX4\CANL\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\ETX\ACK\DC2\ETX4\CAN7\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\ETX\SOH\DC2\ETX48G\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\ETX\ETX\DC2\ETX4JK\n\ + \\n\ + \\n\ + \\STX\EOT\ETX\DC2\EOT9\NUL:\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\ETX\SOH\DC2\ETX9\b\DC2\n\ + \\n\ + \\n\ + \\STX\EOT\EOT\DC2\EOT<\NULE\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\EOT\SOH\DC2\ETX<\b\DC1\n\ + \\v\n\ + \\EOT\EOT\EOT\STX\NUL\DC2\ETX=\b\FS\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETX=\b\SI\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX=\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX=\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\EOT\ETX\NUL\DC2\EOT?\bD\t\n\ + \\f\n\ + \\ENQ\EOT\EOT\ETX\NUL\SOH\DC2\ETX?\DLE\ETB\n\ + \\r\n\ + \\ACK\EOT\EOT\ETX\NUL\STX\NUL\DC2\ETX@\DLE \n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\NUL\ENQ\DC2\ETX@\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\NUL\SOH\DC2\ETX@\ETB\ESC\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\NUL\ETX\DC2\ETX@\RS\US\n\ + \\r\n\ + \\ACK\EOT\EOT\ETX\NUL\STX\SOH\DC2\ETXA\DLE0\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\SOH\ENQ\DC2\ETXA\DLE\DC4\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\SOH\SOH\DC2\ETXA\NAK+\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\SOH\ETX\DC2\ETXA./\n\ + \\r\n\ + \\ACK\EOT\EOT\ETX\NUL\STX\STX\DC2\ETXB\DLE-\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\STX\ENQ\DC2\ETXB\DLE\DC4\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\STX\SOH\DC2\ETXB\NAK(\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\STX\ETX\DC2\ETXB+,\n\ + \\r\n\ + \\ACK\EOT\EOT\ETX\NUL\STX\ETX\DC2\ETXC\DLE2\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\ETX\ENQ\DC2\ETXC\DLE\DC4\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\ETX\SOH\DC2\ETXC\NAK-\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\ETX\ETX\DC2\ETXC01\n\ + \\n\ + \\n\ + \\STX\EOT\ENQ\DC2\EOTG\NULH\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\ENQ\SOH\DC2\ETXG\b\DC2\n\ + \\n\ + \\n\ + \\STX\EOT\ACK\DC2\EOTJ\NULU\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\ACK\SOH\DC2\ETXJ\b\NAK\n\ + \\v\n\ + \\EOT\EOT\ACK\STX\NUL\DC2\ETXK\b\FS\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\ACK\DC2\ETXK\b\SI\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETXK\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETXK\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\ACK\ETX\NUL\DC2\EOTL\bT\t\n\ + \\f\n\ + \\ENQ\EOT\ACK\ETX\NUL\SOH\DC2\ETXL\DLE\ETB\n\ + \\SO\n\ + \\ACK\EOT\ACK\ETX\NUL\b\NUL\DC2\EOTM\DLES\DC1\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\b\NUL\SOH\DC2\ETXM\SYN\SUB\n\ + \\r\n\ + \\ACK\EOT\ACK\ETX\NUL\STX\NUL\DC2\ETXN\CAN(\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\STX\NUL\ENQ\DC2\ETXN\CAN\RS\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\STX\NUL\SOH\DC2\ETXN\US#\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\STX\NUL\ETX\DC2\ETXN&'\n\ + \\r\n\ + \\ACK\EOT\ACK\ETX\NUL\STX\SOH\DC2\ETXO\CAN@\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\STX\SOH\ACK\DC2\ETXO\CAN7\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\STX\SOH\SOH\DC2\ETXO8;\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\STX\SOH\ETX\DC2\ETXO>?\n\ + \\r\n\ + \\ACK\EOT\ACK\ETX\NUL\STX\STX\DC2\ETXP\CANF\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\STX\STX\ACK\DC2\ETXP\CAN7\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\STX\STX\SOH\DC2\ETXP8A\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\STX\STX\ETX\DC2\ETXPDE\n\ + \\r\n\ + \\ACK\EOT\ACK\ETX\NUL\STX\ETX\DC2\ETXQ\CANG\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\STX\ETX\ACK\DC2\ETXQ\CAN7\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\STX\ETX\SOH\DC2\ETXQ8B\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\STX\ETX\ETX\DC2\ETXQEF\n\ + \\r\n\ + \\ACK\EOT\ACK\ETX\NUL\STX\EOT\DC2\ETXR\CANE\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\STX\EOT\ACK\DC2\ETXR\CAN7\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\STX\EOT\SOH\DC2\ETXR8@\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\STX\EOT\ETX\DC2\ETXRCD\n\ + \\n\ + \\n\ + \\STX\EOT\a\DC2\EOTW\NULo\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\a\SOH\DC2\ETXW\b\SYN\n\ + \\v\n\ + \\EOT\EOT\a\STX\NUL\DC2\ETXX\b\FS\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\ACK\DC2\ETXX\b\SI\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETXX\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXX\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\a\ETX\NUL\DC2\EOTZ\bn\t\n\ + \\f\n\ + \\ENQ\EOT\a\ETX\NUL\SOH\DC2\ETXZ\DLE\ETB\n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\NUL\DC2\ETX[\DLE-\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\NUL\ENQ\DC2\ETX[\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\NUL\SOH\DC2\ETX[\SYN(\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\NUL\ETX\DC2\ETX[+,\n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\SOH\DC2\ETX\\\DLE\"\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\SOH\ENQ\DC2\ETX\\\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\SOH\SOH\DC2\ETX\\\SYN\GS\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\SOH\ETX\DC2\ETX\\ !\n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\STX\DC2\ETX]\DLE \n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\STX\ENQ\DC2\ETX]\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\STX\SOH\DC2\ETX]\SYN\ESC\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\STX\ETX\DC2\ETX]\RS\US\n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\ETX\DC2\ETX^\DLE)\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\ETX\ENQ\DC2\ETX^\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\ETX\SOH\DC2\ETX^\ETB$\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\ETX\ETX\DC2\ETX^'(\n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\EOT\DC2\ETX_\DLE+\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\EOT\ENQ\DC2\ETX_\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\EOT\SOH\DC2\ETX_\SYN&\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\EOT\ETX\DC2\ETX_)*\n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\ENQ\DC2\ETX`\DLE*\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\ENQ\ENQ\DC2\ETX`\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\ENQ\SOH\DC2\ETX`\SYN%\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\ENQ\ETX\DC2\ETX`()\n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\ACK\DC2\ETXa\DLE+\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\ACK\ENQ\DC2\ETXa\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\ACK\SOH\DC2\ETXa\SYN&\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\ACK\ETX\DC2\ETXa)*\n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\a\DC2\ETXb\DLE\"\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\a\ENQ\DC2\ETXb\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\a\SOH\DC2\ETXb\ETB\GS\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\a\ETX\DC2\ETXb !\n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\b\DC2\ETXc\DLE'\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\b\ENQ\DC2\ETXc\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\b\SOH\DC2\ETXc\ETB\"\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\b\ETX\DC2\ETXc%&\n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\t\DC2\ETXd\DLE!\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\t\ENQ\DC2\ETXd\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\t\SOH\DC2\ETXd\ETB\ESC\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\t\ETX\DC2\ETXd\RS \n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\n\ + \\DC2\ETXe\DLE!\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\n\ + \\ENQ\DC2\ETXe\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\n\ + \\SOH\DC2\ETXe\ETB\ESC\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\n\ + \\ETX\DC2\ETXe\RS \n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\v\DC2\ETXf\DLE%\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\v\ENQ\DC2\ETXf\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\v\SOH\DC2\ETXf\ETB\US\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\v\ETX\DC2\ETXf\"$\n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\f\DC2\ETXg\DLE$\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\f\ENQ\DC2\ETXg\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\f\SOH\DC2\ETXg\SYN\RS\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\f\ETX\DC2\ETXg!#\n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\r\DC2\ETXh\DLE+\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\r\ENQ\DC2\ETXh\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\r\SOH\DC2\ETXh\ETB%\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\r\ETX\DC2\ETXh(*\n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\SO\DC2\ETXi\DLE7\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\SO\ENQ\DC2\ETXi\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\SO\SOH\DC2\ETXi\SYN1\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\SO\ETX\DC2\ETXi46\n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\SI\DC2\ETXj\DLE-\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\SI\ENQ\DC2\ETXj\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\SI\SOH\DC2\ETXj\ETB'\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\SI\ETX\DC2\ETXj*,\n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\DLE\DC2\ETXk\DLE*\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\DLE\ENQ\DC2\ETXk\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\DLE\SOH\DC2\ETXk\SYN$\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\DLE\ETX\DC2\ETXk')\n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\DC1\DC2\ETXl\DLE>\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\DC1\ENQ\DC2\ETXl\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\DC1\SOH\DC2\ETXl\SYN8\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\DC1\ETX\DC2\ETXl;=\n\ + \\r\n\ + \\ACK\EOT\a\ETX\NUL\STX\DC2\DC2\ETXm\DLE=\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\DC2\ENQ\DC2\ETXm\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\DC2\SOH\DC2\ETXm\SYN7\n\ + \\SO\n\ + \\a\EOT\a\ETX\NUL\STX\DC2\ETX\DC2\ETXm:<\n\ + \\n\ + \\n\ + \\STX\EOT\b\DC2\EOTq\NULx\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\b\SOH\DC2\ETXq\b\DLE\n\ + \\v\n\ + \\EOT\EOT\b\STX\NUL\DC2\ETXr\b\FS\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\ACK\DC2\ETXr\b\SI\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXr\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXr\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\b\ETX\NUL\DC2\EOTt\bw\t\n\ + \\f\n\ + \\ENQ\EOT\b\ETX\NUL\SOH\DC2\ETXt\DLE\ETB\n\ + \\r\n\ + \\ACK\EOT\b\ETX\NUL\STX\NUL\DC2\ETXu\DLE \n\ + \\SO\n\ + \\a\EOT\b\ETX\NUL\STX\NUL\ENQ\DC2\ETXu\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\b\ETX\NUL\STX\NUL\SOH\DC2\ETXu\ETB\ESC\n\ + \\SO\n\ + \\a\EOT\b\ETX\NUL\STX\NUL\ETX\DC2\ETXu\RS\US\n\ + \\r\n\ + \\ACK\EOT\b\ETX\NUL\STX\SOH\DC2\ETXv\DLE%\n\ + \\SO\n\ + \\a\EOT\b\ETX\NUL\STX\SOH\ENQ\DC2\ETXv\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\b\ETX\NUL\STX\SOH\SOH\DC2\ETXv\ETB \n\ + \\SO\n\ + \\a\EOT\b\ETX\NUL\STX\SOH\ETX\DC2\ETXv#$\n\ + \\n\ + \\n\ + \\STX\EOT\t\DC2\EOTz\NUL|\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\t\SOH\DC2\ETXz\b\DC1\n\ + \\v\n\ + \\EOT\EOT\t\STX\NUL\DC2\ETX{\b(\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\ACK\DC2\ETX{\b\GS\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\SOH\DC2\ETX{\RS#\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\ETX\DC2\ETX{&'\n\ + \\v\n\ + \\STX\EOT\n\ + \\DC2\ENQ~\NUL\133\SOH\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\n\ + \\SOH\DC2\ETX~\b\DC1\n\ + \\v\n\ + \\EOT\EOT\n\ + \\STX\NUL\DC2\ETX\DEL\b\FS\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\ACK\DC2\ETX\DEL\b\SI\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\SOH\DC2\ETX\DEL\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\ETX\DC2\ETX\DEL\SUB\ESC\n\ + \\SO\n\ + \\EOT\EOT\n\ + \\ETX\NUL\DC2\ACK\129\SOH\b\132\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\n\ + \\ETX\NUL\SOH\DC2\EOT\129\SOH\DLE\ETB\n\ + \\SO\n\ + \\ACK\EOT\n\ + \\ETX\NUL\STX\NUL\DC2\EOT\130\SOH\DLE \n\ + \\SI\n\ + \\a\EOT\n\ + \\ETX\NUL\STX\NUL\ENQ\DC2\EOT\130\SOH\DLE\SYN\n\ + \\SI\n\ + \\a\EOT\n\ + \\ETX\NUL\STX\NUL\SOH\DC2\EOT\130\SOH\ETB\ESC\n\ + \\SI\n\ + \\a\EOT\n\ + \\ETX\NUL\STX\NUL\ETX\DC2\EOT\130\SOH\RS\US\n\ + \\SO\n\ + \\ACK\EOT\n\ + \\ETX\NUL\STX\SOH\DC2\EOT\131\SOH\DLE%\n\ + \\SI\n\ + \\a\EOT\n\ + \\ETX\NUL\STX\SOH\ENQ\DC2\EOT\131\SOH\DLE\SYN\n\ + \\SI\n\ + \\a\EOT\n\ + \\ETX\NUL\STX\SOH\SOH\DC2\EOT\131\SOH\ETB \n\ + \\SI\n\ + \\a\EOT\n\ + \\ETX\NUL\STX\SOH\ETX\DC2\EOT\131\SOH#$\n\ + \\f\n\ + \\STX\EOT\v\DC2\ACK\135\SOH\NUL\137\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\v\SOH\DC2\EOT\135\SOH\b\DC2\n\ + \\f\n\ + \\EOT\EOT\v\STX\NUL\DC2\EOT\136\SOH\b)\n\ + \\r\n\ + \\ENQ\EOT\v\STX\NUL\ACK\DC2\EOT\136\SOH\b\GS\n\ + \\r\n\ + \\ENQ\EOT\v\STX\NUL\SOH\DC2\EOT\136\SOH\RS$\n\ + \\r\n\ + \\ENQ\EOT\v\STX\NUL\ETX\DC2\EOT\136\SOH'(\n\ + \\f\n\ + \\STX\EOT\f\DC2\ACK\139\SOH\NUL\146\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\f\SOH\DC2\EOT\139\SOH\b\DLE\n\ + \\f\n\ + \\EOT\EOT\f\STX\NUL\DC2\EOT\140\SOH\b\FS\n\ + \\r\n\ + \\ENQ\EOT\f\STX\NUL\ACK\DC2\EOT\140\SOH\b\SI\n\ + \\r\n\ + \\ENQ\EOT\f\STX\NUL\SOH\DC2\EOT\140\SOH\DLE\ETB\n\ + \\r\n\ + \\ENQ\EOT\f\STX\NUL\ETX\DC2\EOT\140\SOH\SUB\ESC\n\ + \\SO\n\ + \\EOT\EOT\f\ETX\NUL\DC2\ACK\142\SOH\b\145\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\f\ETX\NUL\SOH\DC2\EOT\142\SOH\DLE\ETB\n\ + \\SO\n\ + \\ACK\EOT\f\ETX\NUL\STX\NUL\DC2\EOT\143\SOH\DLE \n\ + \\SI\n\ + \\a\EOT\f\ETX\NUL\STX\NUL\ENQ\DC2\EOT\143\SOH\DLE\SYN\n\ + \\SI\n\ + \\a\EOT\f\ETX\NUL\STX\NUL\SOH\DC2\EOT\143\SOH\ETB\ESC\n\ + \\SI\n\ + \\a\EOT\f\ETX\NUL\STX\NUL\ETX\DC2\EOT\143\SOH\RS\US\n\ + \\SO\n\ + \\ACK\EOT\f\ETX\NUL\STX\SOH\DC2\EOT\144\SOH\DLE*\n\ + \\SI\n\ + \\a\EOT\f\ETX\NUL\STX\SOH\ENQ\DC2\EOT\144\SOH\DLE\DC4\n\ + \\SI\n\ + \\a\EOT\f\ETX\NUL\STX\SOH\SOH\DC2\EOT\144\SOH\NAK%\n\ + \\SI\n\ + \\a\EOT\f\ETX\NUL\STX\SOH\ETX\DC2\EOT\144\SOH()\n\ + \\f\n\ + \\STX\EOT\r\DC2\ACK\148\SOH\NUL\149\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\r\SOH\DC2\EOT\148\SOH\b\DC1\n\ + \\f\n\ + \\STX\EOT\SO\DC2\ACK\152\SOH\NUL\158\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\SO\SOH\DC2\EOT\152\SOH\b\DC1\n\ + \\f\n\ + \\EOT\EOT\SO\STX\NUL\DC2\EOT\153\SOH\b\FS\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\NUL\ACK\DC2\EOT\153\SOH\b\SI\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\NUL\SOH\DC2\EOT\153\SOH\DLE\ETB\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\NUL\ETX\DC2\EOT\153\SOH\SUB\ESC\n\ + \\SO\n\ + \\EOT\EOT\SO\ETX\NUL\DC2\ACK\155\SOH\b\157\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\SO\ETX\NUL\SOH\DC2\EOT\155\SOH\DLE\ETB\n\ + \\SO\n\ + \\ACK\EOT\SO\ETX\NUL\STX\NUL\DC2\EOT\156\SOH\DLE \n\ + \\SI\n\ + \\a\EOT\SO\ETX\NUL\STX\NUL\ENQ\DC2\EOT\156\SOH\DLE\SYN\n\ + \\SI\n\ + \\a\EOT\SO\ETX\NUL\STX\NUL\SOH\DC2\EOT\156\SOH\ETB\ESC\n\ + \\SI\n\ + \\a\EOT\SO\ETX\NUL\STX\NUL\ETX\DC2\EOT\156\SOH\RS\US\n\ + \\f\n\ + \\STX\EOT\SI\DC2\ACK\160\SOH\NUL\161\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\SI\SOH\DC2\EOT\160\SOH\b\DC2\n\ + \\f\n\ + \\STX\EOT\DLE\DC2\ACK\163\SOH\NUL\170\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\DLE\SOH\DC2\EOT\163\SOH\b\DC2\n\ + \\f\n\ + \\EOT\EOT\DLE\STX\NUL\DC2\EOT\164\SOH\b\FS\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\NUL\ACK\DC2\EOT\164\SOH\b\SI\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\NUL\SOH\DC2\EOT\164\SOH\DLE\ETB\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\NUL\ETX\DC2\EOT\164\SOH\SUB\ESC\n\ + \\SO\n\ + \\EOT\EOT\DLE\ETX\NUL\DC2\ACK\166\SOH\b\169\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\DLE\ETX\NUL\SOH\DC2\EOT\166\SOH\DLE\ETB\n\ + \\SO\n\ + \\ACK\EOT\DLE\ETX\NUL\STX\NUL\DC2\EOT\167\SOH\DLE \n\ + \\SI\n\ + \\a\EOT\DLE\ETX\NUL\STX\NUL\ENQ\DC2\EOT\167\SOH\DLE\SYN\n\ + \\SI\n\ + \\a\EOT\DLE\ETX\NUL\STX\NUL\SOH\DC2\EOT\167\SOH\ETB\ESC\n\ + \\SI\n\ + \\a\EOT\DLE\ETX\NUL\STX\NUL\ETX\DC2\EOT\167\SOH\RS\US\n\ + \\SO\n\ + \\ACK\EOT\DLE\ETX\NUL\STX\SOH\DC2\EOT\168\SOH\DLE*\n\ + \\SI\n\ + \\a\EOT\DLE\ETX\NUL\STX\SOH\ENQ\DC2\EOT\168\SOH\DLE\DC4\n\ + \\SI\n\ + \\a\EOT\DLE\ETX\NUL\STX\SOH\SOH\DC2\EOT\168\SOH\NAK%\n\ + \\SI\n\ + \\a\EOT\DLE\ETX\NUL\STX\SOH\ETX\DC2\EOT\168\SOH()\n\ + \\f\n\ + \\STX\EOT\DC1\DC2\ACK\172\SOH\NUL\173\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\DC1\SOH\DC2\EOT\172\SOH\b\DC3b\ACKproto3" \ No newline at end of file diff --git a/Proto/Projections_Fields.hs b/Proto/Projections_Fields.hs new file mode 100644 index 0000000..e80f121 --- /dev/null +++ b/Proto/Projections_Fields.hs @@ -0,0 +1,321 @@ +{- This file was auto-generated from projections.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.Projections_Fields where +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.Google.Protobuf.Struct +import qualified Proto.Shared +all :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "all" a) => + Lens.Family2.LensLike' f s a +all = Data.ProtoLens.Field.field @"all" +bufferedEvents :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "bufferedEvents" a) => + Lens.Family2.LensLike' f s a +bufferedEvents = Data.ProtoLens.Field.field @"bufferedEvents" +checkpointStatus :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "checkpointStatus" a) => + Lens.Family2.LensLike' f s a +checkpointStatus = Data.ProtoLens.Field.field @"checkpointStatus" +continuous :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "continuous" a) => + Lens.Family2.LensLike' f s a +continuous = Data.ProtoLens.Field.field @"continuous" +coreProcessingTime :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "coreProcessingTime" a) => + Lens.Family2.LensLike' f s a +coreProcessingTime + = Data.ProtoLens.Field.field @"coreProcessingTime" +deleteCheckpointStream :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "deleteCheckpointStream" a) => + Lens.Family2.LensLike' f s a +deleteCheckpointStream + = Data.ProtoLens.Field.field @"deleteCheckpointStream" +deleteEmittedStreams :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "deleteEmittedStreams" a) => + Lens.Family2.LensLike' f s a +deleteEmittedStreams + = Data.ProtoLens.Field.field @"deleteEmittedStreams" +deleteStateStream :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "deleteStateStream" a) => + Lens.Family2.LensLike' f s a +deleteStateStream = Data.ProtoLens.Field.field @"deleteStateStream" +details :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "details" a) => + Lens.Family2.LensLike' f s a +details = Data.ProtoLens.Field.field @"details" +effectiveName :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "effectiveName" a) => + Lens.Family2.LensLike' f s a +effectiveName = Data.ProtoLens.Field.field @"effectiveName" +emitEnabled :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "emitEnabled" a) => + Lens.Family2.LensLike' f s a +emitEnabled = Data.ProtoLens.Field.field @"emitEnabled" +epoch :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "epoch" a) => + Lens.Family2.LensLike' f s a +epoch = Data.ProtoLens.Field.field @"epoch" +eventsProcessedAfterRestart :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "eventsProcessedAfterRestart" a) => + Lens.Family2.LensLike' f s a +eventsProcessedAfterRestart + = Data.ProtoLens.Field.field @"eventsProcessedAfterRestart" +lastCheckpoint :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "lastCheckpoint" a) => + Lens.Family2.LensLike' f s a +lastCheckpoint = Data.ProtoLens.Field.field @"lastCheckpoint" +maybe'all :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'all" a) => + Lens.Family2.LensLike' f s a +maybe'all = Data.ProtoLens.Field.field @"maybe'all" +maybe'continuous :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'continuous" a) => + Lens.Family2.LensLike' f s a +maybe'continuous = Data.ProtoLens.Field.field @"maybe'continuous" +maybe'details :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'details" a) => + Lens.Family2.LensLike' f s a +maybe'details = Data.ProtoLens.Field.field @"maybe'details" +maybe'emitEnabled :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'emitEnabled" a) => + Lens.Family2.LensLike' f s a +maybe'emitEnabled = Data.ProtoLens.Field.field @"maybe'emitEnabled" +maybe'emitOption :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'emitOption" a) => + Lens.Family2.LensLike' f s a +maybe'emitOption = Data.ProtoLens.Field.field @"maybe'emitOption" +maybe'mode :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'mode" a) => + Lens.Family2.LensLike' f s a +maybe'mode = Data.ProtoLens.Field.field @"maybe'mode" +maybe'name :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'name" a) => + Lens.Family2.LensLike' f s a +maybe'name = Data.ProtoLens.Field.field @"maybe'name" +maybe'noEmitOptions :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'noEmitOptions" a) => + Lens.Family2.LensLike' f s a +maybe'noEmitOptions + = Data.ProtoLens.Field.field @"maybe'noEmitOptions" +maybe'oneTime :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'oneTime" a) => + Lens.Family2.LensLike' f s a +maybe'oneTime = Data.ProtoLens.Field.field @"maybe'oneTime" +maybe'options :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'options" a) => + Lens.Family2.LensLike' f s a +maybe'options = Data.ProtoLens.Field.field @"maybe'options" +maybe'result :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'result" a) => + Lens.Family2.LensLike' f s a +maybe'result = Data.ProtoLens.Field.field @"maybe'result" +maybe'state :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'state" a) => + Lens.Family2.LensLike' f s a +maybe'state = Data.ProtoLens.Field.field @"maybe'state" +maybe'transient :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'transient" a) => + Lens.Family2.LensLike' f s a +maybe'transient = Data.ProtoLens.Field.field @"maybe'transient" +mode :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "mode" a) => + Lens.Family2.LensLike' f s a +mode = Data.ProtoLens.Field.field @"mode" +name :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "name" a) => + Lens.Family2.LensLike' f s a +name = Data.ProtoLens.Field.field @"name" +noEmitOptions :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "noEmitOptions" a) => + Lens.Family2.LensLike' f s a +noEmitOptions = Data.ProtoLens.Field.field @"noEmitOptions" +oneTime :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "oneTime" a) => + Lens.Family2.LensLike' f s a +oneTime = Data.ProtoLens.Field.field @"oneTime" +options :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "options" a) => + Lens.Family2.LensLike' f s a +options = Data.ProtoLens.Field.field @"options" +partition :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "partition" a) => + Lens.Family2.LensLike' f s a +partition = Data.ProtoLens.Field.field @"partition" +partitionsCached :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "partitionsCached" a) => + Lens.Family2.LensLike' f s a +partitionsCached = Data.ProtoLens.Field.field @"partitionsCached" +position :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "position" a) => + Lens.Family2.LensLike' f s a +position = Data.ProtoLens.Field.field @"position" +progress :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "progress" a) => + Lens.Family2.LensLike' f s a +progress = Data.ProtoLens.Field.field @"progress" +query :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "query" a) => + Lens.Family2.LensLike' f s a +query = Data.ProtoLens.Field.field @"query" +readsInProgress :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "readsInProgress" a) => + Lens.Family2.LensLike' f s a +readsInProgress = Data.ProtoLens.Field.field @"readsInProgress" +result :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "result" a) => + Lens.Family2.LensLike' f s a +result = Data.ProtoLens.Field.field @"result" +state :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "state" a) => + Lens.Family2.LensLike' f s a +state = Data.ProtoLens.Field.field @"state" +stateReason :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "stateReason" a) => + Lens.Family2.LensLike' f s a +stateReason = Data.ProtoLens.Field.field @"stateReason" +status :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "status" a) => + Lens.Family2.LensLike' f s a +status = Data.ProtoLens.Field.field @"status" +trackEmittedStreams :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "trackEmittedStreams" a) => + Lens.Family2.LensLike' f s a +trackEmittedStreams + = Data.ProtoLens.Field.field @"trackEmittedStreams" +transient :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "transient" a) => + Lens.Family2.LensLike' f s a +transient = Data.ProtoLens.Field.field @"transient" +version :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "version" a) => + Lens.Family2.LensLike' f s a +version = Data.ProtoLens.Field.field @"version" +writeCheckpoint :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "writeCheckpoint" a) => + Lens.Family2.LensLike' f s a +writeCheckpoint = Data.ProtoLens.Field.field @"writeCheckpoint" +writePendingEventsAfterCheckpoint :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "writePendingEventsAfterCheckpoint" a) => + Lens.Family2.LensLike' f s a +writePendingEventsAfterCheckpoint + = Data.ProtoLens.Field.field @"writePendingEventsAfterCheckpoint" +writePendingEventsBeforeCheckpoint :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "writePendingEventsBeforeCheckpoint" a) => + Lens.Family2.LensLike' f s a +writePendingEventsBeforeCheckpoint + = Data.ProtoLens.Field.field @"writePendingEventsBeforeCheckpoint" +writesInProgress :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "writesInProgress" a) => + Lens.Family2.LensLike' f s a +writesInProgress = Data.ProtoLens.Field.field @"writesInProgress" \ No newline at end of file diff --git a/Proto/Shared.hs b/Proto/Shared.hs new file mode 100644 index 0000000..c1b7667 --- /dev/null +++ b/Proto/Shared.hs @@ -0,0 +1,704 @@ +{- This file was auto-generated from shared.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.Shared ( + Empty(), StreamIdentifier(), UUID(), UUID'Value(..), + _UUID'Structured', _UUID'String, UUID'Structured() + ) where +import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString +import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding +import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector +import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic +import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed +import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read +{- | Fields : + -} +data Empty + = Empty'_constructor {_Empty'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Empty where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message Empty where + messageName _ = Data.Text.pack "event_store.client.shared.Empty" + packedMessageDescriptor _ + = "\n\ + \\ENQEmpty" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _Empty'_unknownFields + (\ x__ y__ -> x__ {_Empty'_unknownFields = y__}) + defMessage = Empty'_constructor {_Empty'_unknownFields = []} + parseMessage + = let + loop :: Empty -> Data.ProtoLens.Encoding.Bytes.Parser Empty + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Empty" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData Empty where + rnf + = \ x__ -> Control.DeepSeq.deepseq (_Empty'_unknownFields x__) () +{- | Fields : + + * 'Proto.Shared_Fields.streamName' @:: Lens' StreamIdentifier Data.ByteString.ByteString@ -} +data StreamIdentifier + = StreamIdentifier'_constructor {_StreamIdentifier'streamName :: !Data.ByteString.ByteString, + _StreamIdentifier'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StreamIdentifier where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StreamIdentifier "streamName" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StreamIdentifier'streamName + (\ x__ y__ -> x__ {_StreamIdentifier'streamName = y__})) + Prelude.id +instance Data.ProtoLens.Message StreamIdentifier where + messageName _ + = Data.Text.pack "event_store.client.shared.StreamIdentifier" + packedMessageDescriptor _ + = "\n\ + \\DLEStreamIdentifier\DC2\RS\n\ + \\n\ + \streamName\CAN\ETX \SOH(\fR\n\ + \streamNameJ\EOT\b\SOH\DLE\ETX" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + streamName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "streamName" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"streamName")) :: + Data.ProtoLens.FieldDescriptor StreamIdentifier + in + Data.Map.fromList + [(Data.ProtoLens.Tag 3, streamName__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StreamIdentifier'_unknownFields + (\ x__ y__ -> x__ {_StreamIdentifier'_unknownFields = y__}) + defMessage + = StreamIdentifier'_constructor + {_StreamIdentifier'streamName = Data.ProtoLens.fieldDefault, + _StreamIdentifier'_unknownFields = []} + parseMessage + = let + loop :: + StreamIdentifier + -> Data.ProtoLens.Encoding.Bytes.Parser StreamIdentifier + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "streamName" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"streamName") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StreamIdentifier" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"streamName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData StreamIdentifier where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StreamIdentifier'_unknownFields x__) + (Control.DeepSeq.deepseq (_StreamIdentifier'streamName x__) ()) +{- | Fields : + + * 'Proto.Shared_Fields.maybe'value' @:: Lens' UUID (Prelude.Maybe UUID'Value)@ + * 'Proto.Shared_Fields.maybe'structured' @:: Lens' UUID (Prelude.Maybe UUID'Structured)@ + * 'Proto.Shared_Fields.structured' @:: Lens' UUID UUID'Structured@ + * 'Proto.Shared_Fields.maybe'string' @:: Lens' UUID (Prelude.Maybe Data.Text.Text)@ + * 'Proto.Shared_Fields.string' @:: Lens' UUID Data.Text.Text@ -} +data UUID + = UUID'_constructor {_UUID'value :: !(Prelude.Maybe UUID'Value), + _UUID'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UUID where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data UUID'Value + = UUID'Structured' !UUID'Structured | UUID'String !Data.Text.Text + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField UUID "maybe'value" (Prelude.Maybe UUID'Value) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UUID'value (\ x__ y__ -> x__ {_UUID'value = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UUID "maybe'structured" (Prelude.Maybe UUID'Structured) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UUID'value (\ x__ y__ -> x__ {_UUID'value = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (UUID'Structured' x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap UUID'Structured' y__)) +instance Data.ProtoLens.Field.HasField UUID "structured" UUID'Structured where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UUID'value (\ x__ y__ -> x__ {_UUID'value = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (UUID'Structured' x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap UUID'Structured' y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField UUID "maybe'string" (Prelude.Maybe Data.Text.Text) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UUID'value (\ x__ y__ -> x__ {_UUID'value = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (UUID'String x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap UUID'String y__)) +instance Data.ProtoLens.Field.HasField UUID "string" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UUID'value (\ x__ y__ -> x__ {_UUID'value = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (UUID'String x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap UUID'String y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Message UUID where + messageName _ = Data.Text.pack "event_store.client.shared.UUID" + packedMessageDescriptor _ + = "\n\ + \\EOTUUID\DC2L\n\ + \\n\ + \structured\CAN\SOH \SOH(\v2*.event_store.client.shared.UUID.StructuredH\NULR\n\ + \structured\DC2\CAN\n\ + \\ACKstring\CAN\STX \SOH(\tH\NULR\ACKstring\SUBv\n\ + \\n\ + \Structured\DC22\n\ + \\NAKmost_significant_bits\CAN\SOH \SOH(\ETXR\DC3mostSignificantBits\DC24\n\ + \\SYNleast_significant_bits\CAN\STX \SOH(\ETXR\DC4leastSignificantBitsB\a\n\ + \\ENQvalue" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + structured__field_descriptor + = Data.ProtoLens.FieldDescriptor + "structured" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor UUID'Structured) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'structured")) :: + Data.ProtoLens.FieldDescriptor UUID + string__field_descriptor + = Data.ProtoLens.FieldDescriptor + "string" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'string")) :: + Data.ProtoLens.FieldDescriptor UUID + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, structured__field_descriptor), + (Data.ProtoLens.Tag 2, string__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _UUID'_unknownFields + (\ x__ y__ -> x__ {_UUID'_unknownFields = y__}) + defMessage + = UUID'_constructor + {_UUID'value = Prelude.Nothing, _UUID'_unknownFields = []} + parseMessage + = let + loop :: UUID -> Data.ProtoLens.Encoding.Bytes.Parser UUID + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "structured" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"structured") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "string" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"string") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "UUID" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (UUID'Structured' v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (UUID'String v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData UUID where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_UUID'_unknownFields x__) + (Control.DeepSeq.deepseq (_UUID'value x__) ()) +instance Control.DeepSeq.NFData UUID'Value where + rnf (UUID'Structured' x__) = Control.DeepSeq.rnf x__ + rnf (UUID'String x__) = Control.DeepSeq.rnf x__ +_UUID'Structured' :: + Data.ProtoLens.Prism.Prism' UUID'Value UUID'Structured +_UUID'Structured' + = Data.ProtoLens.Prism.prism' + UUID'Structured' + (\ p__ + -> case p__ of + (UUID'Structured' p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_UUID'String :: + Data.ProtoLens.Prism.Prism' UUID'Value Data.Text.Text +_UUID'String + = Data.ProtoLens.Prism.prism' + UUID'String + (\ p__ + -> case p__ of + (UUID'String p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Shared_Fields.mostSignificantBits' @:: Lens' UUID'Structured Data.Int.Int64@ + * 'Proto.Shared_Fields.leastSignificantBits' @:: Lens' UUID'Structured Data.Int.Int64@ -} +data UUID'Structured + = UUID'Structured'_constructor {_UUID'Structured'mostSignificantBits :: !Data.Int.Int64, + _UUID'Structured'leastSignificantBits :: !Data.Int.Int64, + _UUID'Structured'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UUID'Structured where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField UUID'Structured "mostSignificantBits" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UUID'Structured'mostSignificantBits + (\ x__ y__ -> x__ {_UUID'Structured'mostSignificantBits = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UUID'Structured "leastSignificantBits" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UUID'Structured'leastSignificantBits + (\ x__ y__ -> x__ {_UUID'Structured'leastSignificantBits = y__})) + Prelude.id +instance Data.ProtoLens.Message UUID'Structured where + messageName _ + = Data.Text.pack "event_store.client.shared.UUID.Structured" + packedMessageDescriptor _ + = "\n\ + \\n\ + \Structured\DC22\n\ + \\NAKmost_significant_bits\CAN\SOH \SOH(\ETXR\DC3mostSignificantBits\DC24\n\ + \\SYNleast_significant_bits\CAN\STX \SOH(\ETXR\DC4leastSignificantBits" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + mostSignificantBits__field_descriptor + = Data.ProtoLens.FieldDescriptor + "most_significant_bits" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"mostSignificantBits")) :: + Data.ProtoLens.FieldDescriptor UUID'Structured + leastSignificantBits__field_descriptor + = Data.ProtoLens.FieldDescriptor + "least_significant_bits" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"leastSignificantBits")) :: + Data.ProtoLens.FieldDescriptor UUID'Structured + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, mostSignificantBits__field_descriptor), + (Data.ProtoLens.Tag 2, leastSignificantBits__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _UUID'Structured'_unknownFields + (\ x__ y__ -> x__ {_UUID'Structured'_unknownFields = y__}) + defMessage + = UUID'Structured'_constructor + {_UUID'Structured'mostSignificantBits = Data.ProtoLens.fieldDefault, + _UUID'Structured'leastSignificantBits = Data.ProtoLens.fieldDefault, + _UUID'Structured'_unknownFields = []} + parseMessage + = let + loop :: + UUID'Structured + -> Data.ProtoLens.Encoding.Bytes.Parser UUID'Structured + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "most_significant_bits" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"mostSignificantBits") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "least_significant_bits" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"leastSignificantBits") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Structured" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"mostSignificantBits") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"leastSignificantBits") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData UUID'Structured where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_UUID'Structured'_unknownFields x__) + (Control.DeepSeq.deepseq + (_UUID'Structured'mostSignificantBits x__) + (Control.DeepSeq.deepseq + (_UUID'Structured'leastSignificantBits x__) ())) +packedFileDescriptor :: Data.ByteString.ByteString +packedFileDescriptor + = "\n\ + \\fshared.proto\DC2\EMevent_store.client.shared\"\239\SOH\n\ + \\EOTUUID\DC2L\n\ + \\n\ + \structured\CAN\SOH \SOH(\v2*.event_store.client.shared.UUID.StructuredH\NULR\n\ + \structured\DC2\CAN\n\ + \\ACKstring\CAN\STX \SOH(\tH\NULR\ACKstring\SUBv\n\ + \\n\ + \Structured\DC22\n\ + \\NAKmost_significant_bits\CAN\SOH \SOH(\ETXR\DC3mostSignificantBits\DC24\n\ + \\SYNleast_significant_bits\CAN\STX \SOH(\ETXR\DC4leastSignificantBitsB\a\n\ + \\ENQvalue\"\a\n\ + \\ENQEmpty\"8\n\ + \\DLEStreamIdentifier\DC2\RS\n\ + \\n\ + \streamName\CAN\ETX \SOH(\fR\n\ + \streamNameJ\EOT\b\SOH\DLE\ETXB&\n\ + \$com.eventstore.dbclient.proto.sharedJ\137\EOT\n\ + \\ACK\DC2\EOT\NUL\NUL\NAK\SOH\n\ + \\b\n\ + \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\ + \\b\n\ + \\SOH\STX\DC2\ETX\SOH\NUL\"\n\ + \\b\n\ + \\SOH\b\DC2\ETX\STX\NUL=\n\ + \\t\n\ + \\STX\b\SOH\DC2\ETX\STX\NUL=\n\ + \\n\ + \\n\ + \\STX\EOT\NUL\DC2\EOT\EOT\NUL\SO\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\NUL\SOH\DC2\ETX\EOT\b\f\n\ + \\f\n\ + \\EOT\EOT\NUL\b\NUL\DC2\EOT\ENQ\b\b\t\n\ + \\f\n\ + \\ENQ\EOT\NUL\b\NUL\SOH\DC2\ETX\ENQ\SO\DC3\n\ + \\v\n\ + \\EOT\EOT\NUL\STX\NUL\DC2\ETX\ACK\DLE*\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\ACK\DLE\SUB\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\ACK\ESC%\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\ACK()\n\ + \\v\n\ + \\EOT\EOT\NUL\STX\SOH\DC2\ETX\a\DLE\"\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\a\DLE\SYN\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\a\ETB\GS\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\a !\n\ + \\f\n\ + \\EOT\EOT\NUL\ETX\NUL\DC2\EOT\n\ + \\b\r\t\n\ + \\f\n\ + \\ENQ\EOT\NUL\ETX\NUL\SOH\DC2\ETX\n\ + \\DLE\SUB\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\NUL\DC2\ETX\v\DLE0\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\NUL\ENQ\DC2\ETX\v\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETX\v\SYN+\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETX\v./\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\SOH\DC2\ETX\f\DLE1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\SOH\ENQ\DC2\ETX\f\DLE\NAK\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\SOH\SOH\DC2\ETX\f\SYN,\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\SOH\ETX\DC2\ETX\f/0\n\ + \\n\ + \\n\ + \\STX\EOT\SOH\DC2\EOT\SI\NUL\DLE\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\SOH\SOH\DC2\ETX\SI\b\r\n\ + \\n\ + \\n\ + \\STX\EOT\STX\DC2\EOT\DC2\NUL\NAK\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\STX\SOH\DC2\ETX\DC2\b\CAN\n\ + \\n\ + \\n\ + \\ETX\EOT\STX\t\DC2\ETX\DC3\b\CAN\n\ + \\v\n\ + \\EOT\EOT\STX\t\NUL\DC2\ETX\DC3\DC1\ETB\n\ + \\f\n\ + \\ENQ\EOT\STX\t\NUL\SOH\DC2\ETX\DC3\DC1\DC2\n\ + \\f\n\ + \\ENQ\EOT\STX\t\NUL\STX\DC2\ETX\DC3\SYN\ETB\n\ + \\v\n\ + \\EOT\EOT\STX\STX\NUL\DC2\ETX\DC4\b\GS\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX\DC4\b\r\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\DC4\SO\CAN\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\DC4\ESC\FSb\ACKproto3" \ No newline at end of file diff --git a/Proto/Shared_Fields.hs b/Proto/Shared_Fields.hs new file mode 100644 index 0000000..3b514c0 --- /dev/null +++ b/Proto/Shared_Fields.hs @@ -0,0 +1,78 @@ +{- This file was auto-generated from shared.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.Shared_Fields where +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 +leastSignificantBits :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "leastSignificantBits" a) => + Lens.Family2.LensLike' f s a +leastSignificantBits + = Data.ProtoLens.Field.field @"leastSignificantBits" +maybe'string :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'string" a) => + Lens.Family2.LensLike' f s a +maybe'string = Data.ProtoLens.Field.field @"maybe'string" +maybe'structured :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'structured" a) => + Lens.Family2.LensLike' f s a +maybe'structured = Data.ProtoLens.Field.field @"maybe'structured" +maybe'value :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'value" a) => + Lens.Family2.LensLike' f s a +maybe'value = Data.ProtoLens.Field.field @"maybe'value" +mostSignificantBits :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "mostSignificantBits" a) => + Lens.Family2.LensLike' f s a +mostSignificantBits + = Data.ProtoLens.Field.field @"mostSignificantBits" +streamName :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "streamName" a) => + Lens.Family2.LensLike' f s a +streamName = Data.ProtoLens.Field.field @"streamName" +string :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "string" a) => + Lens.Family2.LensLike' f s a +string = Data.ProtoLens.Field.field @"string" +structured :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "structured" a) => + Lens.Family2.LensLike' f s a +structured = Data.ProtoLens.Field.field @"structured" \ No newline at end of file diff --git a/Proto/Streams.hs b/Proto/Streams.hs new file mode 100644 index 0000000..4f1c899 --- /dev/null +++ b/Proto/Streams.hs @@ -0,0 +1,10167 @@ +{- This file was auto-generated from streams.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.Streams ( + Streams(..), AppendReq(), AppendReq'Content(..), + _AppendReq'Options', _AppendReq'ProposedMessage', + AppendReq'Options(), AppendReq'Options'ExpectedStreamRevision(..), + _AppendReq'Options'Revision, _AppendReq'Options'NoStream, + _AppendReq'Options'Any, _AppendReq'Options'StreamExists, + AppendReq'ProposedMessage(), + AppendReq'ProposedMessage'MetadataEntry(), AppendResp(), + AppendResp'Result(..), _AppendResp'Success', + _AppendResp'WrongExpectedVersion', AppendResp'Position(), + AppendResp'Success(), AppendResp'Success'CurrentRevisionOption(..), + AppendResp'Success'PositionOption(..), + _AppendResp'Success'CurrentRevision, _AppendResp'Success'NoStream, + _AppendResp'Success'Position, _AppendResp'Success'NoPosition, + AppendResp'WrongExpectedVersion(), + AppendResp'WrongExpectedVersion'CurrentRevisionOption(..), + AppendResp'WrongExpectedVersion'ExpectedRevisionOption(..), + _AppendResp'WrongExpectedVersion'CurrentRevision, + _AppendResp'WrongExpectedVersion'NoStream, + _AppendResp'WrongExpectedVersion'ExpectedRevision, + _AppendResp'WrongExpectedVersion'Any, + _AppendResp'WrongExpectedVersion'StreamExists, DeleteReq(), + DeleteReq'Options(), DeleteReq'Options'ExpectedStreamRevision(..), + _DeleteReq'Options'Revision, _DeleteReq'Options'NoStream, + _DeleteReq'Options'Any, _DeleteReq'Options'StreamExists, + DeleteResp(), DeleteResp'PositionOption(..), _DeleteResp'Position', + _DeleteResp'NoPosition, DeleteResp'Position(), ReadReq(), + ReadReq'Options(), ReadReq'Options'StreamOption(..), + ReadReq'Options'CountOption(..), ReadReq'Options'FilterOption(..), + _ReadReq'Options'Stream, _ReadReq'Options'All, + _ReadReq'Options'Count, _ReadReq'Options'Subscription, + _ReadReq'Options'Filter, _ReadReq'Options'NoFilter, + ReadReq'Options'AllOptions(), + ReadReq'Options'AllOptions'AllOption(..), + _ReadReq'Options'AllOptions'Position, + _ReadReq'Options'AllOptions'Start, _ReadReq'Options'AllOptions'End, + ReadReq'Options'FilterOptions(), + ReadReq'Options'FilterOptions'Filter(..), + ReadReq'Options'FilterOptions'Window(..), + _ReadReq'Options'FilterOptions'StreamIdentifier, + _ReadReq'Options'FilterOptions'EventType, + _ReadReq'Options'FilterOptions'Max, + _ReadReq'Options'FilterOptions'Count, + ReadReq'Options'FilterOptions'Expression(), + ReadReq'Options'Position(), ReadReq'Options'ReadDirection(..), + ReadReq'Options'ReadDirection(), + ReadReq'Options'ReadDirection'UnrecognizedValue, + ReadReq'Options'StreamOptions(), + ReadReq'Options'StreamOptions'RevisionOption(..), + _ReadReq'Options'StreamOptions'Revision, + _ReadReq'Options'StreamOptions'Start, + _ReadReq'Options'StreamOptions'End, + ReadReq'Options'SubscriptionOptions(), + ReadReq'Options'UUIDOption(), + ReadReq'Options'UUIDOption'Content(..), + _ReadReq'Options'UUIDOption'Structured, + _ReadReq'Options'UUIDOption'String, ReadResp(), + ReadResp'Content(..), _ReadResp'Event, _ReadResp'Confirmation, + _ReadResp'Checkpoint', _ReadResp'StreamNotFound', + ReadResp'Checkpoint(), ReadResp'ReadEvent(), + ReadResp'ReadEvent'Position(..), + _ReadResp'ReadEvent'CommitPosition, _ReadResp'ReadEvent'NoPosition, + ReadResp'ReadEvent'RecordedEvent(), + ReadResp'ReadEvent'RecordedEvent'MetadataEntry(), + ReadResp'StreamNotFound(), ReadResp'SubscriptionConfirmation(), + TombstoneReq(), TombstoneReq'Options(), + TombstoneReq'Options'ExpectedStreamRevision(..), + _TombstoneReq'Options'Revision, _TombstoneReq'Options'NoStream, + _TombstoneReq'Options'Any, _TombstoneReq'Options'StreamExists, + TombstoneResp(), TombstoneResp'PositionOption(..), + _TombstoneResp'Position', _TombstoneResp'NoPosition, + TombstoneResp'Position() + ) 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.Shared +{- | Fields : + + * 'Proto.Streams_Fields.maybe'content' @:: Lens' AppendReq (Prelude.Maybe AppendReq'Content)@ + * 'Proto.Streams_Fields.maybe'options' @:: Lens' AppendReq (Prelude.Maybe AppendReq'Options)@ + * 'Proto.Streams_Fields.options' @:: Lens' AppendReq AppendReq'Options@ + * 'Proto.Streams_Fields.maybe'proposedMessage' @:: Lens' AppendReq (Prelude.Maybe AppendReq'ProposedMessage)@ + * 'Proto.Streams_Fields.proposedMessage' @:: Lens' AppendReq AppendReq'ProposedMessage@ -} +data AppendReq + = AppendReq'_constructor {_AppendReq'content :: !(Prelude.Maybe AppendReq'Content), + _AppendReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AppendReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data AppendReq'Content + = AppendReq'Options' !AppendReq'Options | + AppendReq'ProposedMessage' !AppendReq'ProposedMessage + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField AppendReq "maybe'content" (Prelude.Maybe AppendReq'Content) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'content (\ x__ y__ -> x__ {_AppendReq'content = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AppendReq "maybe'options" (Prelude.Maybe AppendReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'content (\ x__ y__ -> x__ {_AppendReq'content = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendReq'Options' x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendReq'Options' y__)) +instance Data.ProtoLens.Field.HasField AppendReq "options" AppendReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'content (\ x__ y__ -> x__ {_AppendReq'content = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendReq'Options' x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendReq'Options' y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField AppendReq "maybe'proposedMessage" (Prelude.Maybe AppendReq'ProposedMessage) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'content (\ x__ y__ -> x__ {_AppendReq'content = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendReq'ProposedMessage' x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendReq'ProposedMessage' y__)) +instance Data.ProtoLens.Field.HasField AppendReq "proposedMessage" AppendReq'ProposedMessage where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'content (\ x__ y__ -> x__ {_AppendReq'content = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendReq'ProposedMessage' x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendReq'ProposedMessage' y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message AppendReq where + messageName _ + = Data.Text.pack "event_store.client.streams.AppendReq" + packedMessageDescriptor _ + = "\n\ + \\tAppendReq\DC2I\n\ + \\aoptions\CAN\SOH \SOH(\v2-.event_store.client.streams.AppendReq.OptionsH\NULR\aoptions\DC2b\n\ + \\DLEproposed_message\CAN\STX \SOH(\v25.event_store.client.streams.AppendReq.ProposedMessageH\NULR\SIproposedMessage\SUB\221\STX\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\FS\n\ + \\brevision\CAN\STX \SOH(\EOTH\NULR\brevision\DC2?\n\ + \\tno_stream\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\bnoStream\DC24\n\ + \\ETXany\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXany\DC2G\n\ + \\rstream_exists\CAN\ENQ \SOH(\v2 .event_store.client.shared.EmptyH\NULR\fstreamExistsB\SUB\n\ + \\CANexpected_stream_revision\SUB\157\STX\n\ + \\SIProposedMessage\DC2/\n\ + \\STXid\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\STXid\DC2_\n\ + \\bmetadata\CAN\STX \ETX(\v2C.event_store.client.streams.AppendReq.ProposedMessage.MetadataEntryR\bmetadata\DC2'\n\ + \\SIcustom_metadata\CAN\ETX \SOH(\fR\SOcustomMetadata\DC2\DC2\n\ + \\EOTdata\CAN\EOT \SOH(\fR\EOTdata\SUB;\n\ + \\rMetadataEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOHB\t\n\ + \\acontent" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AppendReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor AppendReq + proposedMessage__field_descriptor + = Data.ProtoLens.FieldDescriptor + "proposed_message" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AppendReq'ProposedMessage) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'proposedMessage")) :: + Data.ProtoLens.FieldDescriptor AppendReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor), + (Data.ProtoLens.Tag 2, proposedMessage__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AppendReq'_unknownFields + (\ x__ y__ -> x__ {_AppendReq'_unknownFields = y__}) + defMessage + = AppendReq'_constructor + {_AppendReq'content = Prelude.Nothing, + _AppendReq'_unknownFields = []} + parseMessage + = let + loop :: AppendReq -> Data.ProtoLens.Encoding.Bytes.Parser AppendReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "proposed_message" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"proposedMessage") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "AppendReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'content") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (AppendReq'Options' v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (AppendReq'ProposedMessage' v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData AppendReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AppendReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_AppendReq'content x__) ()) +instance Control.DeepSeq.NFData AppendReq'Content where + rnf (AppendReq'Options' x__) = Control.DeepSeq.rnf x__ + rnf (AppendReq'ProposedMessage' x__) = Control.DeepSeq.rnf x__ +_AppendReq'Options' :: + Data.ProtoLens.Prism.Prism' AppendReq'Content AppendReq'Options +_AppendReq'Options' + = Data.ProtoLens.Prism.prism' + AppendReq'Options' + (\ p__ + -> case p__ of + (AppendReq'Options' p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_AppendReq'ProposedMessage' :: + Data.ProtoLens.Prism.Prism' AppendReq'Content AppendReq'ProposedMessage +_AppendReq'ProposedMessage' + = Data.ProtoLens.Prism.prism' + AppendReq'ProposedMessage' + (\ p__ + -> case p__ of + (AppendReq'ProposedMessage' p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Streams_Fields.streamIdentifier' @:: Lens' AppendReq'Options Proto.Shared.StreamIdentifier@ + * 'Proto.Streams_Fields.maybe'streamIdentifier' @:: Lens' AppendReq'Options (Prelude.Maybe Proto.Shared.StreamIdentifier)@ + * 'Proto.Streams_Fields.maybe'expectedStreamRevision' @:: Lens' AppendReq'Options (Prelude.Maybe AppendReq'Options'ExpectedStreamRevision)@ + * 'Proto.Streams_Fields.maybe'revision' @:: Lens' AppendReq'Options (Prelude.Maybe Data.Word.Word64)@ + * 'Proto.Streams_Fields.revision' @:: Lens' AppendReq'Options Data.Word.Word64@ + * 'Proto.Streams_Fields.maybe'noStream' @:: Lens' AppendReq'Options (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.noStream' @:: Lens' AppendReq'Options Proto.Shared.Empty@ + * 'Proto.Streams_Fields.maybe'any' @:: Lens' AppendReq'Options (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.any' @:: Lens' AppendReq'Options Proto.Shared.Empty@ + * 'Proto.Streams_Fields.maybe'streamExists' @:: Lens' AppendReq'Options (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.streamExists' @:: Lens' AppendReq'Options Proto.Shared.Empty@ -} +data AppendReq'Options + = AppendReq'Options'_constructor {_AppendReq'Options'streamIdentifier :: !(Prelude.Maybe Proto.Shared.StreamIdentifier), + _AppendReq'Options'expectedStreamRevision :: !(Prelude.Maybe AppendReq'Options'ExpectedStreamRevision), + _AppendReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AppendReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data AppendReq'Options'ExpectedStreamRevision + = AppendReq'Options'Revision !Data.Word.Word64 | + AppendReq'Options'NoStream !Proto.Shared.Empty | + AppendReq'Options'Any !Proto.Shared.Empty | + AppendReq'Options'StreamExists !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField AppendReq'Options "streamIdentifier" Proto.Shared.StreamIdentifier where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'Options'streamIdentifier + (\ x__ y__ -> x__ {_AppendReq'Options'streamIdentifier = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField AppendReq'Options "maybe'streamIdentifier" (Prelude.Maybe Proto.Shared.StreamIdentifier) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'Options'streamIdentifier + (\ x__ y__ -> x__ {_AppendReq'Options'streamIdentifier = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AppendReq'Options "maybe'expectedStreamRevision" (Prelude.Maybe AppendReq'Options'ExpectedStreamRevision) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_AppendReq'Options'expectedStreamRevision = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AppendReq'Options "maybe'revision" (Prelude.Maybe Data.Word.Word64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_AppendReq'Options'expectedStreamRevision = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendReq'Options'Revision x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendReq'Options'Revision y__)) +instance Data.ProtoLens.Field.HasField AppendReq'Options "revision" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_AppendReq'Options'expectedStreamRevision = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendReq'Options'Revision x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendReq'Options'Revision y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField AppendReq'Options "maybe'noStream" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_AppendReq'Options'expectedStreamRevision = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendReq'Options'NoStream x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendReq'Options'NoStream y__)) +instance Data.ProtoLens.Field.HasField AppendReq'Options "noStream" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_AppendReq'Options'expectedStreamRevision = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendReq'Options'NoStream x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendReq'Options'NoStream y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField AppendReq'Options "maybe'any" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_AppendReq'Options'expectedStreamRevision = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendReq'Options'Any x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendReq'Options'Any y__)) +instance Data.ProtoLens.Field.HasField AppendReq'Options "any" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_AppendReq'Options'expectedStreamRevision = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendReq'Options'Any x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendReq'Options'Any y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField AppendReq'Options "maybe'streamExists" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_AppendReq'Options'expectedStreamRevision = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendReq'Options'StreamExists x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendReq'Options'StreamExists y__)) +instance Data.ProtoLens.Field.HasField AppendReq'Options "streamExists" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_AppendReq'Options'expectedStreamRevision = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendReq'Options'StreamExists x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendReq'Options'StreamExists y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message AppendReq'Options where + messageName _ + = Data.Text.pack "event_store.client.streams.AppendReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\FS\n\ + \\brevision\CAN\STX \SOH(\EOTH\NULR\brevision\DC2?\n\ + \\tno_stream\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\bnoStream\DC24\n\ + \\ETXany\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXany\DC2G\n\ + \\rstream_exists\CAN\ENQ \SOH(\v2 .event_store.client.shared.EmptyH\NULR\fstreamExistsB\SUB\n\ + \\CANexpected_stream_revision" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + streamIdentifier__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_identifier" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.StreamIdentifier) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'streamIdentifier")) :: + Data.ProtoLens.FieldDescriptor AppendReq'Options + revision__field_descriptor + = Data.ProtoLens.FieldDescriptor + "revision" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'revision")) :: + Data.ProtoLens.FieldDescriptor AppendReq'Options + noStream__field_descriptor + = Data.ProtoLens.FieldDescriptor + "no_stream" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'noStream")) :: + Data.ProtoLens.FieldDescriptor AppendReq'Options + any__field_descriptor + = Data.ProtoLens.FieldDescriptor + "any" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'any")) :: + Data.ProtoLens.FieldDescriptor AppendReq'Options + streamExists__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_exists" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'streamExists")) :: + Data.ProtoLens.FieldDescriptor AppendReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, streamIdentifier__field_descriptor), + (Data.ProtoLens.Tag 2, revision__field_descriptor), + (Data.ProtoLens.Tag 3, noStream__field_descriptor), + (Data.ProtoLens.Tag 4, any__field_descriptor), + (Data.ProtoLens.Tag 5, streamExists__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AppendReq'Options'_unknownFields + (\ x__ y__ -> x__ {_AppendReq'Options'_unknownFields = y__}) + defMessage + = AppendReq'Options'_constructor + {_AppendReq'Options'streamIdentifier = Prelude.Nothing, + _AppendReq'Options'expectedStreamRevision = Prelude.Nothing, + _AppendReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + AppendReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser AppendReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stream_identifier" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamIdentifier") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "revision" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"revision") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "no_stream" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"noStream") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "any" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"any") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stream_exists" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamExists") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'streamIdentifier") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'expectedStreamRevision") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (AppendReq'Options'Revision v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt v) + (Prelude.Just (AppendReq'Options'NoStream v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (AppendReq'Options'Any v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (AppendReq'Options'StreamExists v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData AppendReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AppendReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AppendReq'Options'streamIdentifier x__) + (Control.DeepSeq.deepseq + (_AppendReq'Options'expectedStreamRevision x__) ())) +instance Control.DeepSeq.NFData AppendReq'Options'ExpectedStreamRevision where + rnf (AppendReq'Options'Revision x__) = Control.DeepSeq.rnf x__ + rnf (AppendReq'Options'NoStream x__) = Control.DeepSeq.rnf x__ + rnf (AppendReq'Options'Any x__) = Control.DeepSeq.rnf x__ + rnf (AppendReq'Options'StreamExists x__) = Control.DeepSeq.rnf x__ +_AppendReq'Options'Revision :: + Data.ProtoLens.Prism.Prism' AppendReq'Options'ExpectedStreamRevision Data.Word.Word64 +_AppendReq'Options'Revision + = Data.ProtoLens.Prism.prism' + AppendReq'Options'Revision + (\ p__ + -> case p__ of + (AppendReq'Options'Revision p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_AppendReq'Options'NoStream :: + Data.ProtoLens.Prism.Prism' AppendReq'Options'ExpectedStreamRevision Proto.Shared.Empty +_AppendReq'Options'NoStream + = Data.ProtoLens.Prism.prism' + AppendReq'Options'NoStream + (\ p__ + -> case p__ of + (AppendReq'Options'NoStream p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_AppendReq'Options'Any :: + Data.ProtoLens.Prism.Prism' AppendReq'Options'ExpectedStreamRevision Proto.Shared.Empty +_AppendReq'Options'Any + = Data.ProtoLens.Prism.prism' + AppendReq'Options'Any + (\ p__ + -> case p__ of + (AppendReq'Options'Any p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_AppendReq'Options'StreamExists :: + Data.ProtoLens.Prism.Prism' AppendReq'Options'ExpectedStreamRevision Proto.Shared.Empty +_AppendReq'Options'StreamExists + = Data.ProtoLens.Prism.prism' + AppendReq'Options'StreamExists + (\ p__ + -> case p__ of + (AppendReq'Options'StreamExists p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Streams_Fields.id' @:: Lens' AppendReq'ProposedMessage Proto.Shared.UUID@ + * 'Proto.Streams_Fields.maybe'id' @:: Lens' AppendReq'ProposedMessage (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Streams_Fields.metadata' @:: Lens' AppendReq'ProposedMessage (Data.Map.Map Data.Text.Text Data.Text.Text)@ + * 'Proto.Streams_Fields.customMetadata' @:: Lens' AppendReq'ProposedMessage Data.ByteString.ByteString@ + * 'Proto.Streams_Fields.data'' @:: Lens' AppendReq'ProposedMessage Data.ByteString.ByteString@ -} +data AppendReq'ProposedMessage + = AppendReq'ProposedMessage'_constructor {_AppendReq'ProposedMessage'id :: !(Prelude.Maybe Proto.Shared.UUID), + _AppendReq'ProposedMessage'metadata :: !(Data.Map.Map Data.Text.Text Data.Text.Text), + _AppendReq'ProposedMessage'customMetadata :: !Data.ByteString.ByteString, + _AppendReq'ProposedMessage'data' :: !Data.ByteString.ByteString, + _AppendReq'ProposedMessage'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AppendReq'ProposedMessage where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField AppendReq'ProposedMessage "id" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'ProposedMessage'id + (\ x__ y__ -> x__ {_AppendReq'ProposedMessage'id = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField AppendReq'ProposedMessage "maybe'id" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'ProposedMessage'id + (\ x__ y__ -> x__ {_AppendReq'ProposedMessage'id = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AppendReq'ProposedMessage "metadata" (Data.Map.Map Data.Text.Text Data.Text.Text) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'ProposedMessage'metadata + (\ x__ y__ -> x__ {_AppendReq'ProposedMessage'metadata = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AppendReq'ProposedMessage "customMetadata" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'ProposedMessage'customMetadata + (\ x__ y__ + -> x__ {_AppendReq'ProposedMessage'customMetadata = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AppendReq'ProposedMessage "data'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'ProposedMessage'data' + (\ x__ y__ -> x__ {_AppendReq'ProposedMessage'data' = y__})) + Prelude.id +instance Data.ProtoLens.Message AppendReq'ProposedMessage where + messageName _ + = Data.Text.pack + "event_store.client.streams.AppendReq.ProposedMessage" + packedMessageDescriptor _ + = "\n\ + \\SIProposedMessage\DC2/\n\ + \\STXid\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\STXid\DC2_\n\ + \\bmetadata\CAN\STX \ETX(\v2C.event_store.client.streams.AppendReq.ProposedMessage.MetadataEntryR\bmetadata\DC2'\n\ + \\SIcustom_metadata\CAN\ETX \SOH(\fR\SOcustomMetadata\DC2\DC2\n\ + \\EOTdata\CAN\EOT \SOH(\fR\EOTdata\SUB;\n\ + \\rMetadataEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + id__field_descriptor + = Data.ProtoLens.FieldDescriptor + "id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'id")) :: + Data.ProtoLens.FieldDescriptor AppendReq'ProposedMessage + metadata__field_descriptor + = Data.ProtoLens.FieldDescriptor + "metadata" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AppendReq'ProposedMessage'MetadataEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"metadata")) :: + Data.ProtoLens.FieldDescriptor AppendReq'ProposedMessage + customMetadata__field_descriptor + = Data.ProtoLens.FieldDescriptor + "custom_metadata" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"customMetadata")) :: + Data.ProtoLens.FieldDescriptor AppendReq'ProposedMessage + data'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "data" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"data'")) :: + Data.ProtoLens.FieldDescriptor AppendReq'ProposedMessage + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, id__field_descriptor), + (Data.ProtoLens.Tag 2, metadata__field_descriptor), + (Data.ProtoLens.Tag 3, customMetadata__field_descriptor), + (Data.ProtoLens.Tag 4, data'__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AppendReq'ProposedMessage'_unknownFields + (\ x__ y__ + -> x__ {_AppendReq'ProposedMessage'_unknownFields = y__}) + defMessage + = AppendReq'ProposedMessage'_constructor + {_AppendReq'ProposedMessage'id = Prelude.Nothing, + _AppendReq'ProposedMessage'metadata = Data.Map.empty, + _AppendReq'ProposedMessage'customMetadata = Data.ProtoLens.fieldDefault, + _AppendReq'ProposedMessage'data' = Data.ProtoLens.fieldDefault, + _AppendReq'ProposedMessage'_unknownFields = []} + parseMessage + = let + loop :: + AppendReq'ProposedMessage + -> Data.ProtoLens.Encoding.Bytes.Parser AppendReq'ProposedMessage + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "id" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") y x) + 18 + -> do !(entry :: AppendReq'ProposedMessage'MetadataEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "metadata" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"metadata") + (\ !t -> Data.Map.insert key value t) + x)) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "custom_metadata" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"customMetadata") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "data" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"data'") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ProposedMessage" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'id") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") + (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") + (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + AppendReq'ProposedMessage'MetadataEntry))))) + (Data.Map.toList + (Lens.Family2.view (Data.ProtoLens.Field.field @"metadata") _x)))) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"customMetadata") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"data'") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData AppendReq'ProposedMessage where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AppendReq'ProposedMessage'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AppendReq'ProposedMessage'id x__) + (Control.DeepSeq.deepseq + (_AppendReq'ProposedMessage'metadata x__) + (Control.DeepSeq.deepseq + (_AppendReq'ProposedMessage'customMetadata x__) + (Control.DeepSeq.deepseq + (_AppendReq'ProposedMessage'data' x__) ())))) +{- | Fields : + + * 'Proto.Streams_Fields.key' @:: Lens' AppendReq'ProposedMessage'MetadataEntry Data.Text.Text@ + * 'Proto.Streams_Fields.value' @:: Lens' AppendReq'ProposedMessage'MetadataEntry Data.Text.Text@ -} +data AppendReq'ProposedMessage'MetadataEntry + = AppendReq'ProposedMessage'MetadataEntry'_constructor {_AppendReq'ProposedMessage'MetadataEntry'key :: !Data.Text.Text, + _AppendReq'ProposedMessage'MetadataEntry'value :: !Data.Text.Text, + _AppendReq'ProposedMessage'MetadataEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AppendReq'ProposedMessage'MetadataEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField AppendReq'ProposedMessage'MetadataEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'ProposedMessage'MetadataEntry'key + (\ x__ y__ + -> x__ {_AppendReq'ProposedMessage'MetadataEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AppendReq'ProposedMessage'MetadataEntry "value" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendReq'ProposedMessage'MetadataEntry'value + (\ x__ y__ + -> x__ {_AppendReq'ProposedMessage'MetadataEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message AppendReq'ProposedMessage'MetadataEntry where + messageName _ + = Data.Text.pack + "event_store.client.streams.AppendReq.ProposedMessage.MetadataEntry" + packedMessageDescriptor _ + = "\n\ + \\rMetadataEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor AppendReq'ProposedMessage'MetadataEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor AppendReq'ProposedMessage'MetadataEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AppendReq'ProposedMessage'MetadataEntry'_unknownFields + (\ x__ y__ + -> x__ + {_AppendReq'ProposedMessage'MetadataEntry'_unknownFields = y__}) + defMessage + = AppendReq'ProposedMessage'MetadataEntry'_constructor + {_AppendReq'ProposedMessage'MetadataEntry'key = Data.ProtoLens.fieldDefault, + _AppendReq'ProposedMessage'MetadataEntry'value = Data.ProtoLens.fieldDefault, + _AppendReq'ProposedMessage'MetadataEntry'_unknownFields = []} + parseMessage + = let + loop :: + AppendReq'ProposedMessage'MetadataEntry + -> Data.ProtoLens.Encoding.Bytes.Parser AppendReq'ProposedMessage'MetadataEntry + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "MetadataEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData AppendReq'ProposedMessage'MetadataEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AppendReq'ProposedMessage'MetadataEntry'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AppendReq'ProposedMessage'MetadataEntry'key x__) + (Control.DeepSeq.deepseq + (_AppendReq'ProposedMessage'MetadataEntry'value x__) ())) +{- | Fields : + + * 'Proto.Streams_Fields.maybe'result' @:: Lens' AppendResp (Prelude.Maybe AppendResp'Result)@ + * 'Proto.Streams_Fields.maybe'success' @:: Lens' AppendResp (Prelude.Maybe AppendResp'Success)@ + * 'Proto.Streams_Fields.success' @:: Lens' AppendResp AppendResp'Success@ + * 'Proto.Streams_Fields.maybe'wrongExpectedVersion' @:: Lens' AppendResp (Prelude.Maybe AppendResp'WrongExpectedVersion)@ + * 'Proto.Streams_Fields.wrongExpectedVersion' @:: Lens' AppendResp AppendResp'WrongExpectedVersion@ -} +data AppendResp + = AppendResp'_constructor {_AppendResp'result :: !(Prelude.Maybe AppendResp'Result), + _AppendResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AppendResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data AppendResp'Result + = AppendResp'Success' !AppendResp'Success | + AppendResp'WrongExpectedVersion' !AppendResp'WrongExpectedVersion + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField AppendResp "maybe'result" (Prelude.Maybe AppendResp'Result) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'result (\ x__ y__ -> x__ {_AppendResp'result = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AppendResp "maybe'success" (Prelude.Maybe AppendResp'Success) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'result (\ x__ y__ -> x__ {_AppendResp'result = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'Success' x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendResp'Success' y__)) +instance Data.ProtoLens.Field.HasField AppendResp "success" AppendResp'Success where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'result (\ x__ y__ -> x__ {_AppendResp'result = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'Success' x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendResp'Success' y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField AppendResp "maybe'wrongExpectedVersion" (Prelude.Maybe AppendResp'WrongExpectedVersion) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'result (\ x__ y__ -> x__ {_AppendResp'result = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'WrongExpectedVersion' x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendResp'WrongExpectedVersion' y__)) +instance Data.ProtoLens.Field.HasField AppendResp "wrongExpectedVersion" AppendResp'WrongExpectedVersion where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'result (\ x__ y__ -> x__ {_AppendResp'result = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'WrongExpectedVersion' x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendResp'WrongExpectedVersion' y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message AppendResp where + messageName _ + = Data.Text.pack "event_store.client.streams.AppendResp" + packedMessageDescriptor _ + = "\n\ + \\n\ + \AppendResp\DC2J\n\ + \\asuccess\CAN\SOH \SOH(\v2..event_store.client.streams.AppendResp.SuccessH\NULR\asuccess\DC2s\n\ + \\SYNwrong_expected_version\CAN\STX \SOH(\v2;.event_store.client.streams.AppendResp.WrongExpectedVersionH\NULR\DC4wrongExpectedVersion\SUB^\n\ + \\bPosition\DC2'\n\ + \\SIcommit_position\CAN\SOH \SOH(\EOTR\SOcommitPosition\DC2)\n\ + \\DLEprepare_position\CAN\STX \SOH(\EOTR\SIpreparePosition\SUB\185\STX\n\ + \\aSuccess\DC2+\n\ + \\DLEcurrent_revision\CAN\SOH \SOH(\EOTH\NULR\SIcurrentRevision\DC2?\n\ + \\tno_stream\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\bnoStream\DC2M\n\ + \\bposition\CAN\ETX \SOH(\v2/.event_store.client.streams.AppendResp.PositionH\SOHR\bposition\DC2C\n\ + \\vno_position\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\SOHR\n\ + \noPositionB\EM\n\ + \\ETBcurrent_revision_optionB\DC1\n\ + \\SIposition_option\SUB\233\STX\n\ + \\DC4WrongExpectedVersion\DC2+\n\ + \\DLEcurrent_revision\CAN\SOH \SOH(\EOTH\NULR\SIcurrentRevision\DC2?\n\ + \\tno_stream\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\bnoStream\DC2-\n\ + \\DC1expected_revision\CAN\ETX \SOH(\EOTH\SOHR\DLEexpectedRevision\DC24\n\ + \\ETXany\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\SOHR\ETXany\DC2G\n\ + \\rstream_exists\CAN\ENQ \SOH(\v2 .event_store.client.shared.EmptyH\SOHR\fstreamExistsB\EM\n\ + \\ETBcurrent_revision_optionB\SUB\n\ + \\CANexpected_revision_optionB\b\n\ + \\ACKresult" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + success__field_descriptor + = Data.ProtoLens.FieldDescriptor + "success" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AppendResp'Success) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'success")) :: + Data.ProtoLens.FieldDescriptor AppendResp + wrongExpectedVersion__field_descriptor + = Data.ProtoLens.FieldDescriptor + "wrong_expected_version" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AppendResp'WrongExpectedVersion) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'wrongExpectedVersion")) :: + Data.ProtoLens.FieldDescriptor AppendResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, success__field_descriptor), + (Data.ProtoLens.Tag 2, wrongExpectedVersion__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AppendResp'_unknownFields + (\ x__ y__ -> x__ {_AppendResp'_unknownFields = y__}) + defMessage + = AppendResp'_constructor + {_AppendResp'result = Prelude.Nothing, + _AppendResp'_unknownFields = []} + parseMessage + = let + loop :: + AppendResp -> Data.ProtoLens.Encoding.Bytes.Parser AppendResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "success" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"success") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "wrong_expected_version" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"wrongExpectedVersion") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "AppendResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'result") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (AppendResp'Success' v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (AppendResp'WrongExpectedVersion' v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData AppendResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AppendResp'_unknownFields x__) + (Control.DeepSeq.deepseq (_AppendResp'result x__) ()) +instance Control.DeepSeq.NFData AppendResp'Result where + rnf (AppendResp'Success' x__) = Control.DeepSeq.rnf x__ + rnf (AppendResp'WrongExpectedVersion' x__) + = Control.DeepSeq.rnf x__ +_AppendResp'Success' :: + Data.ProtoLens.Prism.Prism' AppendResp'Result AppendResp'Success +_AppendResp'Success' + = Data.ProtoLens.Prism.prism' + AppendResp'Success' + (\ p__ + -> case p__ of + (AppendResp'Success' p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_AppendResp'WrongExpectedVersion' :: + Data.ProtoLens.Prism.Prism' AppendResp'Result AppendResp'WrongExpectedVersion +_AppendResp'WrongExpectedVersion' + = Data.ProtoLens.Prism.prism' + AppendResp'WrongExpectedVersion' + (\ p__ + -> case p__ of + (AppendResp'WrongExpectedVersion' p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Streams_Fields.commitPosition' @:: Lens' AppendResp'Position Data.Word.Word64@ + * 'Proto.Streams_Fields.preparePosition' @:: Lens' AppendResp'Position Data.Word.Word64@ -} +data AppendResp'Position + = AppendResp'Position'_constructor {_AppendResp'Position'commitPosition :: !Data.Word.Word64, + _AppendResp'Position'preparePosition :: !Data.Word.Word64, + _AppendResp'Position'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AppendResp'Position where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField AppendResp'Position "commitPosition" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'Position'commitPosition + (\ x__ y__ -> x__ {_AppendResp'Position'commitPosition = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AppendResp'Position "preparePosition" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'Position'preparePosition + (\ x__ y__ -> x__ {_AppendResp'Position'preparePosition = y__})) + Prelude.id +instance Data.ProtoLens.Message AppendResp'Position where + messageName _ + = Data.Text.pack "event_store.client.streams.AppendResp.Position" + packedMessageDescriptor _ + = "\n\ + \\bPosition\DC2'\n\ + \\SIcommit_position\CAN\SOH \SOH(\EOTR\SOcommitPosition\DC2)\n\ + \\DLEprepare_position\CAN\STX \SOH(\EOTR\SIpreparePosition" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + commitPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "commit_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"commitPosition")) :: + Data.ProtoLens.FieldDescriptor AppendResp'Position + preparePosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "prepare_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"preparePosition")) :: + Data.ProtoLens.FieldDescriptor AppendResp'Position + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, commitPosition__field_descriptor), + (Data.ProtoLens.Tag 2, preparePosition__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AppendResp'Position'_unknownFields + (\ x__ y__ -> x__ {_AppendResp'Position'_unknownFields = y__}) + defMessage + = AppendResp'Position'_constructor + {_AppendResp'Position'commitPosition = Data.ProtoLens.fieldDefault, + _AppendResp'Position'preparePosition = Data.ProtoLens.fieldDefault, + _AppendResp'Position'_unknownFields = []} + parseMessage + = let + loop :: + AppendResp'Position + -> Data.ProtoLens.Encoding.Bytes.Parser AppendResp'Position + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "commit_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"commitPosition") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "prepare_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"preparePosition") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Position" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"commitPosition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"preparePosition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData AppendResp'Position where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AppendResp'Position'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AppendResp'Position'commitPosition x__) + (Control.DeepSeq.deepseq + (_AppendResp'Position'preparePosition x__) ())) +{- | Fields : + + * 'Proto.Streams_Fields.maybe'currentRevisionOption' @:: Lens' AppendResp'Success (Prelude.Maybe AppendResp'Success'CurrentRevisionOption)@ + * 'Proto.Streams_Fields.maybe'currentRevision' @:: Lens' AppendResp'Success (Prelude.Maybe Data.Word.Word64)@ + * 'Proto.Streams_Fields.currentRevision' @:: Lens' AppendResp'Success Data.Word.Word64@ + * 'Proto.Streams_Fields.maybe'noStream' @:: Lens' AppendResp'Success (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.noStream' @:: Lens' AppendResp'Success Proto.Shared.Empty@ + * 'Proto.Streams_Fields.maybe'positionOption' @:: Lens' AppendResp'Success (Prelude.Maybe AppendResp'Success'PositionOption)@ + * 'Proto.Streams_Fields.maybe'position' @:: Lens' AppendResp'Success (Prelude.Maybe AppendResp'Position)@ + * 'Proto.Streams_Fields.position' @:: Lens' AppendResp'Success AppendResp'Position@ + * 'Proto.Streams_Fields.maybe'noPosition' @:: Lens' AppendResp'Success (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.noPosition' @:: Lens' AppendResp'Success Proto.Shared.Empty@ -} +data AppendResp'Success + = AppendResp'Success'_constructor {_AppendResp'Success'currentRevisionOption :: !(Prelude.Maybe AppendResp'Success'CurrentRevisionOption), + _AppendResp'Success'positionOption :: !(Prelude.Maybe AppendResp'Success'PositionOption), + _AppendResp'Success'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AppendResp'Success where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data AppendResp'Success'CurrentRevisionOption + = AppendResp'Success'CurrentRevision !Data.Word.Word64 | + AppendResp'Success'NoStream !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +data AppendResp'Success'PositionOption + = AppendResp'Success'Position !AppendResp'Position | + AppendResp'Success'NoPosition !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField AppendResp'Success "maybe'currentRevisionOption" (Prelude.Maybe AppendResp'Success'CurrentRevisionOption) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'Success'currentRevisionOption + (\ x__ y__ + -> x__ {_AppendResp'Success'currentRevisionOption = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AppendResp'Success "maybe'currentRevision" (Prelude.Maybe Data.Word.Word64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'Success'currentRevisionOption + (\ x__ y__ + -> x__ {_AppendResp'Success'currentRevisionOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'Success'CurrentRevision x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendResp'Success'CurrentRevision y__)) +instance Data.ProtoLens.Field.HasField AppendResp'Success "currentRevision" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'Success'currentRevisionOption + (\ x__ y__ + -> x__ {_AppendResp'Success'currentRevisionOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'Success'CurrentRevision x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendResp'Success'CurrentRevision y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField AppendResp'Success "maybe'noStream" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'Success'currentRevisionOption + (\ x__ y__ + -> x__ {_AppendResp'Success'currentRevisionOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'Success'NoStream x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendResp'Success'NoStream y__)) +instance Data.ProtoLens.Field.HasField AppendResp'Success "noStream" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'Success'currentRevisionOption + (\ x__ y__ + -> x__ {_AppendResp'Success'currentRevisionOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'Success'NoStream x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendResp'Success'NoStream y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField AppendResp'Success "maybe'positionOption" (Prelude.Maybe AppendResp'Success'PositionOption) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'Success'positionOption + (\ x__ y__ -> x__ {_AppendResp'Success'positionOption = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AppendResp'Success "maybe'position" (Prelude.Maybe AppendResp'Position) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'Success'positionOption + (\ x__ y__ -> x__ {_AppendResp'Success'positionOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'Success'Position x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendResp'Success'Position y__)) +instance Data.ProtoLens.Field.HasField AppendResp'Success "position" AppendResp'Position where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'Success'positionOption + (\ x__ y__ -> x__ {_AppendResp'Success'positionOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'Success'Position x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendResp'Success'Position y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField AppendResp'Success "maybe'noPosition" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'Success'positionOption + (\ x__ y__ -> x__ {_AppendResp'Success'positionOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'Success'NoPosition x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendResp'Success'NoPosition y__)) +instance Data.ProtoLens.Field.HasField AppendResp'Success "noPosition" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'Success'positionOption + (\ x__ y__ -> x__ {_AppendResp'Success'positionOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'Success'NoPosition x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendResp'Success'NoPosition y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message AppendResp'Success where + messageName _ + = Data.Text.pack "event_store.client.streams.AppendResp.Success" + packedMessageDescriptor _ + = "\n\ + \\aSuccess\DC2+\n\ + \\DLEcurrent_revision\CAN\SOH \SOH(\EOTH\NULR\SIcurrentRevision\DC2?\n\ + \\tno_stream\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\bnoStream\DC2M\n\ + \\bposition\CAN\ETX \SOH(\v2/.event_store.client.streams.AppendResp.PositionH\SOHR\bposition\DC2C\n\ + \\vno_position\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\SOHR\n\ + \noPositionB\EM\n\ + \\ETBcurrent_revision_optionB\DC1\n\ + \\SIposition_option" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + currentRevision__field_descriptor + = Data.ProtoLens.FieldDescriptor + "current_revision" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'currentRevision")) :: + Data.ProtoLens.FieldDescriptor AppendResp'Success + noStream__field_descriptor + = Data.ProtoLens.FieldDescriptor + "no_stream" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'noStream")) :: + Data.ProtoLens.FieldDescriptor AppendResp'Success + position__field_descriptor + = Data.ProtoLens.FieldDescriptor + "position" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AppendResp'Position) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'position")) :: + Data.ProtoLens.FieldDescriptor AppendResp'Success + noPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "no_position" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'noPosition")) :: + Data.ProtoLens.FieldDescriptor AppendResp'Success + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, currentRevision__field_descriptor), + (Data.ProtoLens.Tag 2, noStream__field_descriptor), + (Data.ProtoLens.Tag 3, position__field_descriptor), + (Data.ProtoLens.Tag 4, noPosition__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AppendResp'Success'_unknownFields + (\ x__ y__ -> x__ {_AppendResp'Success'_unknownFields = y__}) + defMessage + = AppendResp'Success'_constructor + {_AppendResp'Success'currentRevisionOption = Prelude.Nothing, + _AppendResp'Success'positionOption = Prelude.Nothing, + _AppendResp'Success'_unknownFields = []} + parseMessage + = let + loop :: + AppendResp'Success + -> Data.ProtoLens.Encoding.Bytes.Parser AppendResp'Success + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "current_revision" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"currentRevision") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "no_stream" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"noStream") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "position" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"position") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "no_position" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"noPosition") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Success" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'currentRevisionOption") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (AppendResp'Success'CurrentRevision v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + (Data.ProtoLens.Encoding.Bytes.putVarInt v) + (Prelude.Just (AppendResp'Success'NoStream v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'positionOption") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (AppendResp'Success'Position v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (AppendResp'Success'NoPosition v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData AppendResp'Success where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AppendResp'Success'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AppendResp'Success'currentRevisionOption x__) + (Control.DeepSeq.deepseq + (_AppendResp'Success'positionOption x__) ())) +instance Control.DeepSeq.NFData AppendResp'Success'CurrentRevisionOption where + rnf (AppendResp'Success'CurrentRevision x__) + = Control.DeepSeq.rnf x__ + rnf (AppendResp'Success'NoStream x__) = Control.DeepSeq.rnf x__ +instance Control.DeepSeq.NFData AppendResp'Success'PositionOption where + rnf (AppendResp'Success'Position x__) = Control.DeepSeq.rnf x__ + rnf (AppendResp'Success'NoPosition x__) = Control.DeepSeq.rnf x__ +_AppendResp'Success'CurrentRevision :: + Data.ProtoLens.Prism.Prism' AppendResp'Success'CurrentRevisionOption Data.Word.Word64 +_AppendResp'Success'CurrentRevision + = Data.ProtoLens.Prism.prism' + AppendResp'Success'CurrentRevision + (\ p__ + -> case p__ of + (AppendResp'Success'CurrentRevision p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_AppendResp'Success'NoStream :: + Data.ProtoLens.Prism.Prism' AppendResp'Success'CurrentRevisionOption Proto.Shared.Empty +_AppendResp'Success'NoStream + = Data.ProtoLens.Prism.prism' + AppendResp'Success'NoStream + (\ p__ + -> case p__ of + (AppendResp'Success'NoStream p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_AppendResp'Success'Position :: + Data.ProtoLens.Prism.Prism' AppendResp'Success'PositionOption AppendResp'Position +_AppendResp'Success'Position + = Data.ProtoLens.Prism.prism' + AppendResp'Success'Position + (\ p__ + -> case p__ of + (AppendResp'Success'Position p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_AppendResp'Success'NoPosition :: + Data.ProtoLens.Prism.Prism' AppendResp'Success'PositionOption Proto.Shared.Empty +_AppendResp'Success'NoPosition + = Data.ProtoLens.Prism.prism' + AppendResp'Success'NoPosition + (\ p__ + -> case p__ of + (AppendResp'Success'NoPosition p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Streams_Fields.maybe'currentRevisionOption' @:: Lens' AppendResp'WrongExpectedVersion (Prelude.Maybe AppendResp'WrongExpectedVersion'CurrentRevisionOption)@ + * 'Proto.Streams_Fields.maybe'currentRevision' @:: Lens' AppendResp'WrongExpectedVersion (Prelude.Maybe Data.Word.Word64)@ + * 'Proto.Streams_Fields.currentRevision' @:: Lens' AppendResp'WrongExpectedVersion Data.Word.Word64@ + * 'Proto.Streams_Fields.maybe'noStream' @:: Lens' AppendResp'WrongExpectedVersion (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.noStream' @:: Lens' AppendResp'WrongExpectedVersion Proto.Shared.Empty@ + * 'Proto.Streams_Fields.maybe'expectedRevisionOption' @:: Lens' AppendResp'WrongExpectedVersion (Prelude.Maybe AppendResp'WrongExpectedVersion'ExpectedRevisionOption)@ + * 'Proto.Streams_Fields.maybe'expectedRevision' @:: Lens' AppendResp'WrongExpectedVersion (Prelude.Maybe Data.Word.Word64)@ + * 'Proto.Streams_Fields.expectedRevision' @:: Lens' AppendResp'WrongExpectedVersion Data.Word.Word64@ + * 'Proto.Streams_Fields.maybe'any' @:: Lens' AppendResp'WrongExpectedVersion (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.any' @:: Lens' AppendResp'WrongExpectedVersion Proto.Shared.Empty@ + * 'Proto.Streams_Fields.maybe'streamExists' @:: Lens' AppendResp'WrongExpectedVersion (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.streamExists' @:: Lens' AppendResp'WrongExpectedVersion Proto.Shared.Empty@ -} +data AppendResp'WrongExpectedVersion + = AppendResp'WrongExpectedVersion'_constructor {_AppendResp'WrongExpectedVersion'currentRevisionOption :: !(Prelude.Maybe AppendResp'WrongExpectedVersion'CurrentRevisionOption), + _AppendResp'WrongExpectedVersion'expectedRevisionOption :: !(Prelude.Maybe AppendResp'WrongExpectedVersion'ExpectedRevisionOption), + _AppendResp'WrongExpectedVersion'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AppendResp'WrongExpectedVersion where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data AppendResp'WrongExpectedVersion'CurrentRevisionOption + = AppendResp'WrongExpectedVersion'CurrentRevision !Data.Word.Word64 | + AppendResp'WrongExpectedVersion'NoStream !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +data AppendResp'WrongExpectedVersion'ExpectedRevisionOption + = AppendResp'WrongExpectedVersion'ExpectedRevision !Data.Word.Word64 | + AppendResp'WrongExpectedVersion'Any !Proto.Shared.Empty | + AppendResp'WrongExpectedVersion'StreamExists !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField AppendResp'WrongExpectedVersion "maybe'currentRevisionOption" (Prelude.Maybe AppendResp'WrongExpectedVersion'CurrentRevisionOption) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'WrongExpectedVersion'currentRevisionOption + (\ x__ y__ + -> x__ + {_AppendResp'WrongExpectedVersion'currentRevisionOption = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AppendResp'WrongExpectedVersion "maybe'currentRevision" (Prelude.Maybe Data.Word.Word64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'WrongExpectedVersion'currentRevisionOption + (\ x__ y__ + -> x__ + {_AppendResp'WrongExpectedVersion'currentRevisionOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'WrongExpectedVersion'CurrentRevision x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap + AppendResp'WrongExpectedVersion'CurrentRevision y__)) +instance Data.ProtoLens.Field.HasField AppendResp'WrongExpectedVersion "currentRevision" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'WrongExpectedVersion'currentRevisionOption + (\ x__ y__ + -> x__ + {_AppendResp'WrongExpectedVersion'currentRevisionOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'WrongExpectedVersion'CurrentRevision x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap + AppendResp'WrongExpectedVersion'CurrentRevision y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField AppendResp'WrongExpectedVersion "maybe'noStream" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'WrongExpectedVersion'currentRevisionOption + (\ x__ y__ + -> x__ + {_AppendResp'WrongExpectedVersion'currentRevisionOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'WrongExpectedVersion'NoStream x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap AppendResp'WrongExpectedVersion'NoStream y__)) +instance Data.ProtoLens.Field.HasField AppendResp'WrongExpectedVersion "noStream" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'WrongExpectedVersion'currentRevisionOption + (\ x__ y__ + -> x__ + {_AppendResp'WrongExpectedVersion'currentRevisionOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'WrongExpectedVersion'NoStream x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap AppendResp'WrongExpectedVersion'NoStream y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField AppendResp'WrongExpectedVersion "maybe'expectedRevisionOption" (Prelude.Maybe AppendResp'WrongExpectedVersion'ExpectedRevisionOption) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'WrongExpectedVersion'expectedRevisionOption + (\ x__ y__ + -> x__ + {_AppendResp'WrongExpectedVersion'expectedRevisionOption = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AppendResp'WrongExpectedVersion "maybe'expectedRevision" (Prelude.Maybe Data.Word.Word64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'WrongExpectedVersion'expectedRevisionOption + (\ x__ y__ + -> x__ + {_AppendResp'WrongExpectedVersion'expectedRevisionOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'WrongExpectedVersion'ExpectedRevision x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap + AppendResp'WrongExpectedVersion'ExpectedRevision y__)) +instance Data.ProtoLens.Field.HasField AppendResp'WrongExpectedVersion "expectedRevision" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'WrongExpectedVersion'expectedRevisionOption + (\ x__ y__ + -> x__ + {_AppendResp'WrongExpectedVersion'expectedRevisionOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'WrongExpectedVersion'ExpectedRevision x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap + AppendResp'WrongExpectedVersion'ExpectedRevision y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField AppendResp'WrongExpectedVersion "maybe'any" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'WrongExpectedVersion'expectedRevisionOption + (\ x__ y__ + -> x__ + {_AppendResp'WrongExpectedVersion'expectedRevisionOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'WrongExpectedVersion'Any x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendResp'WrongExpectedVersion'Any y__)) +instance Data.ProtoLens.Field.HasField AppendResp'WrongExpectedVersion "any" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'WrongExpectedVersion'expectedRevisionOption + (\ x__ y__ + -> x__ + {_AppendResp'WrongExpectedVersion'expectedRevisionOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'WrongExpectedVersion'Any x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AppendResp'WrongExpectedVersion'Any y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField AppendResp'WrongExpectedVersion "maybe'streamExists" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'WrongExpectedVersion'expectedRevisionOption + (\ x__ y__ + -> x__ + {_AppendResp'WrongExpectedVersion'expectedRevisionOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'WrongExpectedVersion'StreamExists x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap AppendResp'WrongExpectedVersion'StreamExists y__)) +instance Data.ProtoLens.Field.HasField AppendResp'WrongExpectedVersion "streamExists" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AppendResp'WrongExpectedVersion'expectedRevisionOption + (\ x__ y__ + -> x__ + {_AppendResp'WrongExpectedVersion'expectedRevisionOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AppendResp'WrongExpectedVersion'StreamExists x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap AppendResp'WrongExpectedVersion'StreamExists y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message AppendResp'WrongExpectedVersion where + messageName _ + = Data.Text.pack + "event_store.client.streams.AppendResp.WrongExpectedVersion" + packedMessageDescriptor _ + = "\n\ + \\DC4WrongExpectedVersion\DC2+\n\ + \\DLEcurrent_revision\CAN\SOH \SOH(\EOTH\NULR\SIcurrentRevision\DC2?\n\ + \\tno_stream\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\bnoStream\DC2-\n\ + \\DC1expected_revision\CAN\ETX \SOH(\EOTH\SOHR\DLEexpectedRevision\DC24\n\ + \\ETXany\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\SOHR\ETXany\DC2G\n\ + \\rstream_exists\CAN\ENQ \SOH(\v2 .event_store.client.shared.EmptyH\SOHR\fstreamExistsB\EM\n\ + \\ETBcurrent_revision_optionB\SUB\n\ + \\CANexpected_revision_option" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + currentRevision__field_descriptor + = Data.ProtoLens.FieldDescriptor + "current_revision" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'currentRevision")) :: + Data.ProtoLens.FieldDescriptor AppendResp'WrongExpectedVersion + noStream__field_descriptor + = Data.ProtoLens.FieldDescriptor + "no_stream" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'noStream")) :: + Data.ProtoLens.FieldDescriptor AppendResp'WrongExpectedVersion + expectedRevision__field_descriptor + = Data.ProtoLens.FieldDescriptor + "expected_revision" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'expectedRevision")) :: + Data.ProtoLens.FieldDescriptor AppendResp'WrongExpectedVersion + any__field_descriptor + = Data.ProtoLens.FieldDescriptor + "any" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'any")) :: + Data.ProtoLens.FieldDescriptor AppendResp'WrongExpectedVersion + streamExists__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_exists" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'streamExists")) :: + Data.ProtoLens.FieldDescriptor AppendResp'WrongExpectedVersion + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, currentRevision__field_descriptor), + (Data.ProtoLens.Tag 2, noStream__field_descriptor), + (Data.ProtoLens.Tag 3, expectedRevision__field_descriptor), + (Data.ProtoLens.Tag 4, any__field_descriptor), + (Data.ProtoLens.Tag 5, streamExists__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AppendResp'WrongExpectedVersion'_unknownFields + (\ x__ y__ + -> x__ {_AppendResp'WrongExpectedVersion'_unknownFields = y__}) + defMessage + = AppendResp'WrongExpectedVersion'_constructor + {_AppendResp'WrongExpectedVersion'currentRevisionOption = Prelude.Nothing, + _AppendResp'WrongExpectedVersion'expectedRevisionOption = Prelude.Nothing, + _AppendResp'WrongExpectedVersion'_unknownFields = []} + parseMessage + = let + loop :: + AppendResp'WrongExpectedVersion + -> Data.ProtoLens.Encoding.Bytes.Parser AppendResp'WrongExpectedVersion + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "current_revision" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"currentRevision") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "no_stream" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"noStream") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "expected_revision" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"expectedRevision") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "any" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"any") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stream_exists" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamExists") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "WrongExpectedVersion" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'currentRevisionOption") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (AppendResp'WrongExpectedVersion'CurrentRevision v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + (Data.ProtoLens.Encoding.Bytes.putVarInt v) + (Prelude.Just (AppendResp'WrongExpectedVersion'NoStream v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'expectedRevisionOption") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (AppendResp'WrongExpectedVersion'ExpectedRevision v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + (Data.ProtoLens.Encoding.Bytes.putVarInt v) + (Prelude.Just (AppendResp'WrongExpectedVersion'Any v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (AppendResp'WrongExpectedVersion'StreamExists v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData AppendResp'WrongExpectedVersion where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AppendResp'WrongExpectedVersion'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AppendResp'WrongExpectedVersion'currentRevisionOption x__) + (Control.DeepSeq.deepseq + (_AppendResp'WrongExpectedVersion'expectedRevisionOption x__) ())) +instance Control.DeepSeq.NFData AppendResp'WrongExpectedVersion'CurrentRevisionOption where + rnf (AppendResp'WrongExpectedVersion'CurrentRevision x__) + = Control.DeepSeq.rnf x__ + rnf (AppendResp'WrongExpectedVersion'NoStream x__) + = Control.DeepSeq.rnf x__ +instance Control.DeepSeq.NFData AppendResp'WrongExpectedVersion'ExpectedRevisionOption where + rnf (AppendResp'WrongExpectedVersion'ExpectedRevision x__) + = Control.DeepSeq.rnf x__ + rnf (AppendResp'WrongExpectedVersion'Any x__) + = Control.DeepSeq.rnf x__ + rnf (AppendResp'WrongExpectedVersion'StreamExists x__) + = Control.DeepSeq.rnf x__ +_AppendResp'WrongExpectedVersion'CurrentRevision :: + Data.ProtoLens.Prism.Prism' AppendResp'WrongExpectedVersion'CurrentRevisionOption Data.Word.Word64 +_AppendResp'WrongExpectedVersion'CurrentRevision + = Data.ProtoLens.Prism.prism' + AppendResp'WrongExpectedVersion'CurrentRevision + (\ p__ + -> case p__ of + (AppendResp'WrongExpectedVersion'CurrentRevision p__val) + -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_AppendResp'WrongExpectedVersion'NoStream :: + Data.ProtoLens.Prism.Prism' AppendResp'WrongExpectedVersion'CurrentRevisionOption Proto.Shared.Empty +_AppendResp'WrongExpectedVersion'NoStream + = Data.ProtoLens.Prism.prism' + AppendResp'WrongExpectedVersion'NoStream + (\ p__ + -> case p__ of + (AppendResp'WrongExpectedVersion'NoStream p__val) + -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_AppendResp'WrongExpectedVersion'ExpectedRevision :: + Data.ProtoLens.Prism.Prism' AppendResp'WrongExpectedVersion'ExpectedRevisionOption Data.Word.Word64 +_AppendResp'WrongExpectedVersion'ExpectedRevision + = Data.ProtoLens.Prism.prism' + AppendResp'WrongExpectedVersion'ExpectedRevision + (\ p__ + -> case p__ of + (AppendResp'WrongExpectedVersion'ExpectedRevision p__val) + -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_AppendResp'WrongExpectedVersion'Any :: + Data.ProtoLens.Prism.Prism' AppendResp'WrongExpectedVersion'ExpectedRevisionOption Proto.Shared.Empty +_AppendResp'WrongExpectedVersion'Any + = Data.ProtoLens.Prism.prism' + AppendResp'WrongExpectedVersion'Any + (\ p__ + -> case p__ of + (AppendResp'WrongExpectedVersion'Any p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_AppendResp'WrongExpectedVersion'StreamExists :: + Data.ProtoLens.Prism.Prism' AppendResp'WrongExpectedVersion'ExpectedRevisionOption Proto.Shared.Empty +_AppendResp'WrongExpectedVersion'StreamExists + = Data.ProtoLens.Prism.prism' + AppendResp'WrongExpectedVersion'StreamExists + (\ p__ + -> case p__ of + (AppendResp'WrongExpectedVersion'StreamExists p__val) + -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Streams_Fields.options' @:: Lens' DeleteReq DeleteReq'Options@ + * 'Proto.Streams_Fields.maybe'options' @:: Lens' DeleteReq (Prelude.Maybe DeleteReq'Options)@ -} +data DeleteReq + = DeleteReq'_constructor {_DeleteReq'options :: !(Prelude.Maybe DeleteReq'Options), + _DeleteReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DeleteReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DeleteReq "options" DeleteReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'options (\ x__ y__ -> x__ {_DeleteReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DeleteReq "maybe'options" (Prelude.Maybe DeleteReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'options (\ x__ y__ -> x__ {_DeleteReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message DeleteReq where + messageName _ + = Data.Text.pack "event_store.client.streams.DeleteReq" + packedMessageDescriptor _ + = "\n\ + \\tDeleteReq\DC2G\n\ + \\aoptions\CAN\SOH \SOH(\v2-.event_store.client.streams.DeleteReq.OptionsR\aoptions\SUB\221\STX\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\FS\n\ + \\brevision\CAN\STX \SOH(\EOTH\NULR\brevision\DC2?\n\ + \\tno_stream\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\bnoStream\DC24\n\ + \\ETXany\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXany\DC2G\n\ + \\rstream_exists\CAN\ENQ \SOH(\v2 .event_store.client.shared.EmptyH\NULR\fstreamExistsB\SUB\n\ + \\CANexpected_stream_revision" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor DeleteReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor DeleteReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DeleteReq'_unknownFields + (\ x__ y__ -> x__ {_DeleteReq'_unknownFields = y__}) + defMessage + = DeleteReq'_constructor + {_DeleteReq'options = Prelude.Nothing, + _DeleteReq'_unknownFields = []} + parseMessage + = let + loop :: DeleteReq -> Data.ProtoLens.Encoding.Bytes.Parser DeleteReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "DeleteReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData DeleteReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DeleteReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_DeleteReq'options x__) ()) +{- | Fields : + + * 'Proto.Streams_Fields.streamIdentifier' @:: Lens' DeleteReq'Options Proto.Shared.StreamIdentifier@ + * 'Proto.Streams_Fields.maybe'streamIdentifier' @:: Lens' DeleteReq'Options (Prelude.Maybe Proto.Shared.StreamIdentifier)@ + * 'Proto.Streams_Fields.maybe'expectedStreamRevision' @:: Lens' DeleteReq'Options (Prelude.Maybe DeleteReq'Options'ExpectedStreamRevision)@ + * 'Proto.Streams_Fields.maybe'revision' @:: Lens' DeleteReq'Options (Prelude.Maybe Data.Word.Word64)@ + * 'Proto.Streams_Fields.revision' @:: Lens' DeleteReq'Options Data.Word.Word64@ + * 'Proto.Streams_Fields.maybe'noStream' @:: Lens' DeleteReq'Options (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.noStream' @:: Lens' DeleteReq'Options Proto.Shared.Empty@ + * 'Proto.Streams_Fields.maybe'any' @:: Lens' DeleteReq'Options (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.any' @:: Lens' DeleteReq'Options Proto.Shared.Empty@ + * 'Proto.Streams_Fields.maybe'streamExists' @:: Lens' DeleteReq'Options (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.streamExists' @:: Lens' DeleteReq'Options Proto.Shared.Empty@ -} +data DeleteReq'Options + = DeleteReq'Options'_constructor {_DeleteReq'Options'streamIdentifier :: !(Prelude.Maybe Proto.Shared.StreamIdentifier), + _DeleteReq'Options'expectedStreamRevision :: !(Prelude.Maybe DeleteReq'Options'ExpectedStreamRevision), + _DeleteReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DeleteReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data DeleteReq'Options'ExpectedStreamRevision + = DeleteReq'Options'Revision !Data.Word.Word64 | + DeleteReq'Options'NoStream !Proto.Shared.Empty | + DeleteReq'Options'Any !Proto.Shared.Empty | + DeleteReq'Options'StreamExists !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField DeleteReq'Options "streamIdentifier" Proto.Shared.StreamIdentifier where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'streamIdentifier + (\ x__ y__ -> x__ {_DeleteReq'Options'streamIdentifier = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DeleteReq'Options "maybe'streamIdentifier" (Prelude.Maybe Proto.Shared.StreamIdentifier) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'streamIdentifier + (\ x__ y__ -> x__ {_DeleteReq'Options'streamIdentifier = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DeleteReq'Options "maybe'expectedStreamRevision" (Prelude.Maybe DeleteReq'Options'ExpectedStreamRevision) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_DeleteReq'Options'expectedStreamRevision = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DeleteReq'Options "maybe'revision" (Prelude.Maybe Data.Word.Word64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_DeleteReq'Options'expectedStreamRevision = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DeleteReq'Options'Revision x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DeleteReq'Options'Revision y__)) +instance Data.ProtoLens.Field.HasField DeleteReq'Options "revision" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_DeleteReq'Options'expectedStreamRevision = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DeleteReq'Options'Revision x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DeleteReq'Options'Revision y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField DeleteReq'Options "maybe'noStream" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_DeleteReq'Options'expectedStreamRevision = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DeleteReq'Options'NoStream x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DeleteReq'Options'NoStream y__)) +instance Data.ProtoLens.Field.HasField DeleteReq'Options "noStream" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_DeleteReq'Options'expectedStreamRevision = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DeleteReq'Options'NoStream x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DeleteReq'Options'NoStream y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField DeleteReq'Options "maybe'any" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_DeleteReq'Options'expectedStreamRevision = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DeleteReq'Options'Any x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DeleteReq'Options'Any y__)) +instance Data.ProtoLens.Field.HasField DeleteReq'Options "any" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_DeleteReq'Options'expectedStreamRevision = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DeleteReq'Options'Any x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DeleteReq'Options'Any y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField DeleteReq'Options "maybe'streamExists" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_DeleteReq'Options'expectedStreamRevision = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DeleteReq'Options'StreamExists x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DeleteReq'Options'StreamExists y__)) +instance Data.ProtoLens.Field.HasField DeleteReq'Options "streamExists" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_DeleteReq'Options'expectedStreamRevision = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DeleteReq'Options'StreamExists x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DeleteReq'Options'StreamExists y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message DeleteReq'Options where + messageName _ + = Data.Text.pack "event_store.client.streams.DeleteReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\FS\n\ + \\brevision\CAN\STX \SOH(\EOTH\NULR\brevision\DC2?\n\ + \\tno_stream\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\bnoStream\DC24\n\ + \\ETXany\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXany\DC2G\n\ + \\rstream_exists\CAN\ENQ \SOH(\v2 .event_store.client.shared.EmptyH\NULR\fstreamExistsB\SUB\n\ + \\CANexpected_stream_revision" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + streamIdentifier__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_identifier" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.StreamIdentifier) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'streamIdentifier")) :: + Data.ProtoLens.FieldDescriptor DeleteReq'Options + revision__field_descriptor + = Data.ProtoLens.FieldDescriptor + "revision" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'revision")) :: + Data.ProtoLens.FieldDescriptor DeleteReq'Options + noStream__field_descriptor + = Data.ProtoLens.FieldDescriptor + "no_stream" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'noStream")) :: + Data.ProtoLens.FieldDescriptor DeleteReq'Options + any__field_descriptor + = Data.ProtoLens.FieldDescriptor + "any" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'any")) :: + Data.ProtoLens.FieldDescriptor DeleteReq'Options + streamExists__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_exists" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'streamExists")) :: + Data.ProtoLens.FieldDescriptor DeleteReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, streamIdentifier__field_descriptor), + (Data.ProtoLens.Tag 2, revision__field_descriptor), + (Data.ProtoLens.Tag 3, noStream__field_descriptor), + (Data.ProtoLens.Tag 4, any__field_descriptor), + (Data.ProtoLens.Tag 5, streamExists__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DeleteReq'Options'_unknownFields + (\ x__ y__ -> x__ {_DeleteReq'Options'_unknownFields = y__}) + defMessage + = DeleteReq'Options'_constructor + {_DeleteReq'Options'streamIdentifier = Prelude.Nothing, + _DeleteReq'Options'expectedStreamRevision = Prelude.Nothing, + _DeleteReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + DeleteReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser DeleteReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stream_identifier" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamIdentifier") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "revision" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"revision") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "no_stream" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"noStream") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "any" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"any") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stream_exists" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamExists") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'streamIdentifier") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'expectedStreamRevision") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (DeleteReq'Options'Revision v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt v) + (Prelude.Just (DeleteReq'Options'NoStream v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (DeleteReq'Options'Any v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (DeleteReq'Options'StreamExists v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData DeleteReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DeleteReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_DeleteReq'Options'streamIdentifier x__) + (Control.DeepSeq.deepseq + (_DeleteReq'Options'expectedStreamRevision x__) ())) +instance Control.DeepSeq.NFData DeleteReq'Options'ExpectedStreamRevision where + rnf (DeleteReq'Options'Revision x__) = Control.DeepSeq.rnf x__ + rnf (DeleteReq'Options'NoStream x__) = Control.DeepSeq.rnf x__ + rnf (DeleteReq'Options'Any x__) = Control.DeepSeq.rnf x__ + rnf (DeleteReq'Options'StreamExists x__) = Control.DeepSeq.rnf x__ +_DeleteReq'Options'Revision :: + Data.ProtoLens.Prism.Prism' DeleteReq'Options'ExpectedStreamRevision Data.Word.Word64 +_DeleteReq'Options'Revision + = Data.ProtoLens.Prism.prism' + DeleteReq'Options'Revision + (\ p__ + -> case p__ of + (DeleteReq'Options'Revision p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_DeleteReq'Options'NoStream :: + Data.ProtoLens.Prism.Prism' DeleteReq'Options'ExpectedStreamRevision Proto.Shared.Empty +_DeleteReq'Options'NoStream + = Data.ProtoLens.Prism.prism' + DeleteReq'Options'NoStream + (\ p__ + -> case p__ of + (DeleteReq'Options'NoStream p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_DeleteReq'Options'Any :: + Data.ProtoLens.Prism.Prism' DeleteReq'Options'ExpectedStreamRevision Proto.Shared.Empty +_DeleteReq'Options'Any + = Data.ProtoLens.Prism.prism' + DeleteReq'Options'Any + (\ p__ + -> case p__ of + (DeleteReq'Options'Any p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_DeleteReq'Options'StreamExists :: + Data.ProtoLens.Prism.Prism' DeleteReq'Options'ExpectedStreamRevision Proto.Shared.Empty +_DeleteReq'Options'StreamExists + = Data.ProtoLens.Prism.prism' + DeleteReq'Options'StreamExists + (\ p__ + -> case p__ of + (DeleteReq'Options'StreamExists p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Streams_Fields.maybe'positionOption' @:: Lens' DeleteResp (Prelude.Maybe DeleteResp'PositionOption)@ + * 'Proto.Streams_Fields.maybe'position' @:: Lens' DeleteResp (Prelude.Maybe DeleteResp'Position)@ + * 'Proto.Streams_Fields.position' @:: Lens' DeleteResp DeleteResp'Position@ + * 'Proto.Streams_Fields.maybe'noPosition' @:: Lens' DeleteResp (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.noPosition' @:: Lens' DeleteResp Proto.Shared.Empty@ -} +data DeleteResp + = DeleteResp'_constructor {_DeleteResp'positionOption :: !(Prelude.Maybe DeleteResp'PositionOption), + _DeleteResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DeleteResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data DeleteResp'PositionOption + = DeleteResp'Position' !DeleteResp'Position | + DeleteResp'NoPosition !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField DeleteResp "maybe'positionOption" (Prelude.Maybe DeleteResp'PositionOption) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteResp'positionOption + (\ x__ y__ -> x__ {_DeleteResp'positionOption = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DeleteResp "maybe'position" (Prelude.Maybe DeleteResp'Position) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteResp'positionOption + (\ x__ y__ -> x__ {_DeleteResp'positionOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DeleteResp'Position' x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DeleteResp'Position' y__)) +instance Data.ProtoLens.Field.HasField DeleteResp "position" DeleteResp'Position where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteResp'positionOption + (\ x__ y__ -> x__ {_DeleteResp'positionOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DeleteResp'Position' x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DeleteResp'Position' y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField DeleteResp "maybe'noPosition" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteResp'positionOption + (\ x__ y__ -> x__ {_DeleteResp'positionOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DeleteResp'NoPosition x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DeleteResp'NoPosition y__)) +instance Data.ProtoLens.Field.HasField DeleteResp "noPosition" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteResp'positionOption + (\ x__ y__ -> x__ {_DeleteResp'positionOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DeleteResp'NoPosition x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DeleteResp'NoPosition y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message DeleteResp where + messageName _ + = Data.Text.pack "event_store.client.streams.DeleteResp" + packedMessageDescriptor _ + = "\n\ + \\n\ + \DeleteResp\DC2M\n\ + \\bposition\CAN\SOH \SOH(\v2/.event_store.client.streams.DeleteResp.PositionH\NULR\bposition\DC2C\n\ + \\vno_position\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \noPosition\SUB^\n\ + \\bPosition\DC2'\n\ + \\SIcommit_position\CAN\SOH \SOH(\EOTR\SOcommitPosition\DC2)\n\ + \\DLEprepare_position\CAN\STX \SOH(\EOTR\SIpreparePositionB\DC1\n\ + \\SIposition_option" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + position__field_descriptor + = Data.ProtoLens.FieldDescriptor + "position" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor DeleteResp'Position) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'position")) :: + Data.ProtoLens.FieldDescriptor DeleteResp + noPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "no_position" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'noPosition")) :: + Data.ProtoLens.FieldDescriptor DeleteResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, position__field_descriptor), + (Data.ProtoLens.Tag 2, noPosition__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DeleteResp'_unknownFields + (\ x__ y__ -> x__ {_DeleteResp'_unknownFields = y__}) + defMessage + = DeleteResp'_constructor + {_DeleteResp'positionOption = Prelude.Nothing, + _DeleteResp'_unknownFields = []} + parseMessage + = let + loop :: + DeleteResp -> Data.ProtoLens.Encoding.Bytes.Parser DeleteResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "position" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"position") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "no_position" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"noPosition") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "DeleteResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'positionOption") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (DeleteResp'Position' v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (DeleteResp'NoPosition v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData DeleteResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DeleteResp'_unknownFields x__) + (Control.DeepSeq.deepseq (_DeleteResp'positionOption x__) ()) +instance Control.DeepSeq.NFData DeleteResp'PositionOption where + rnf (DeleteResp'Position' x__) = Control.DeepSeq.rnf x__ + rnf (DeleteResp'NoPosition x__) = Control.DeepSeq.rnf x__ +_DeleteResp'Position' :: + Data.ProtoLens.Prism.Prism' DeleteResp'PositionOption DeleteResp'Position +_DeleteResp'Position' + = Data.ProtoLens.Prism.prism' + DeleteResp'Position' + (\ p__ + -> case p__ of + (DeleteResp'Position' p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_DeleteResp'NoPosition :: + Data.ProtoLens.Prism.Prism' DeleteResp'PositionOption Proto.Shared.Empty +_DeleteResp'NoPosition + = Data.ProtoLens.Prism.prism' + DeleteResp'NoPosition + (\ p__ + -> case p__ of + (DeleteResp'NoPosition p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Streams_Fields.commitPosition' @:: Lens' DeleteResp'Position Data.Word.Word64@ + * 'Proto.Streams_Fields.preparePosition' @:: Lens' DeleteResp'Position Data.Word.Word64@ -} +data DeleteResp'Position + = DeleteResp'Position'_constructor {_DeleteResp'Position'commitPosition :: !Data.Word.Word64, + _DeleteResp'Position'preparePosition :: !Data.Word.Word64, + _DeleteResp'Position'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DeleteResp'Position where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DeleteResp'Position "commitPosition" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteResp'Position'commitPosition + (\ x__ y__ -> x__ {_DeleteResp'Position'commitPosition = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DeleteResp'Position "preparePosition" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteResp'Position'preparePosition + (\ x__ y__ -> x__ {_DeleteResp'Position'preparePosition = y__})) + Prelude.id +instance Data.ProtoLens.Message DeleteResp'Position where + messageName _ + = Data.Text.pack "event_store.client.streams.DeleteResp.Position" + packedMessageDescriptor _ + = "\n\ + \\bPosition\DC2'\n\ + \\SIcommit_position\CAN\SOH \SOH(\EOTR\SOcommitPosition\DC2)\n\ + \\DLEprepare_position\CAN\STX \SOH(\EOTR\SIpreparePosition" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + commitPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "commit_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"commitPosition")) :: + Data.ProtoLens.FieldDescriptor DeleteResp'Position + preparePosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "prepare_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"preparePosition")) :: + Data.ProtoLens.FieldDescriptor DeleteResp'Position + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, commitPosition__field_descriptor), + (Data.ProtoLens.Tag 2, preparePosition__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DeleteResp'Position'_unknownFields + (\ x__ y__ -> x__ {_DeleteResp'Position'_unknownFields = y__}) + defMessage + = DeleteResp'Position'_constructor + {_DeleteResp'Position'commitPosition = Data.ProtoLens.fieldDefault, + _DeleteResp'Position'preparePosition = Data.ProtoLens.fieldDefault, + _DeleteResp'Position'_unknownFields = []} + parseMessage + = let + loop :: + DeleteResp'Position + -> Data.ProtoLens.Encoding.Bytes.Parser DeleteResp'Position + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "commit_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"commitPosition") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "prepare_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"preparePosition") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Position" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"commitPosition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"preparePosition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData DeleteResp'Position where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DeleteResp'Position'_unknownFields x__) + (Control.DeepSeq.deepseq + (_DeleteResp'Position'commitPosition x__) + (Control.DeepSeq.deepseq + (_DeleteResp'Position'preparePosition x__) ())) +{- | Fields : + + * 'Proto.Streams_Fields.options' @:: Lens' ReadReq ReadReq'Options@ + * 'Proto.Streams_Fields.maybe'options' @:: Lens' ReadReq (Prelude.Maybe ReadReq'Options)@ -} +data ReadReq + = ReadReq'_constructor {_ReadReq'options :: !(Prelude.Maybe ReadReq'Options), + _ReadReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadReq "options" ReadReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'options (\ x__ y__ -> x__ {_ReadReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadReq "maybe'options" (Prelude.Maybe ReadReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'options (\ x__ y__ -> x__ {_ReadReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadReq where + messageName _ = Data.Text.pack "event_store.client.streams.ReadReq" + packedMessageDescriptor _ + = "\n\ + \\aReadReq\DC2E\n\ + \\aoptions\CAN\SOH \SOH(\v2+.event_store.client.streams.ReadReq.OptionsR\aoptions\SUB\206\SI\n\ + \\aOptions\DC2S\n\ + \\ACKstream\CAN\SOH \SOH(\v29.event_store.client.streams.ReadReq.Options.StreamOptionsH\NULR\ACKstream\DC2J\n\ + \\ETXall\CAN\STX \SOH(\v26.event_store.client.streams.ReadReq.Options.AllOptionsH\NULR\ETXall\DC2`\n\ + \\SOread_direction\CAN\ETX \SOH(\SO29.event_store.client.streams.ReadReq.Options.ReadDirectionR\rreadDirection\DC2#\n\ + \\rresolve_links\CAN\EOT \SOH(\bR\fresolveLinks\DC2\SYN\n\ + \\ENQcount\CAN\ENQ \SOH(\EOTH\SOHR\ENQcount\DC2e\n\ + \\fsubscription\CAN\ACK \SOH(\v2?.event_store.client.streams.ReadReq.Options.SubscriptionOptionsH\SOHR\fsubscription\DC2S\n\ + \\ACKfilter\CAN\a \SOH(\v29.event_store.client.streams.ReadReq.Options.FilterOptionsH\STXR\ACKfilter\DC2?\n\ + \\tno_filter\CAN\b \SOH(\v2 .event_store.client.shared.EmptyH\STXR\bnoFilter\DC2W\n\ + \\vuuid_option\CAN\t \SOH(\v26.event_store.client.streams.ReadReq.Options.UUIDOptionR\n\ + \uuidOption\SUB\138\STX\n\ + \\rStreamOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\FS\n\ + \\brevision\CAN\STX \SOH(\EOTH\NULR\brevision\DC28\n\ + \\ENQstart\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ENQstart\DC24\n\ + \\ETXend\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXendB\DC1\n\ + \\SIrevision_option\SUB\222\SOH\n\ + \\n\ + \AllOptions\DC2R\n\ + \\bposition\CAN\SOH \SOH(\v24.event_store.client.streams.ReadReq.Options.PositionH\NULR\bposition\DC28\n\ + \\ENQstart\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ENQstart\DC24\n\ + \\ETXend\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXendB\f\n\ + \\n\ + \all_option\SUB\NAK\n\ + \\DC3SubscriptionOptions\SUB^\n\ + \\bPosition\DC2'\n\ + \\SIcommit_position\CAN\SOH \SOH(\EOTR\SOcommitPosition\DC2)\n\ + \\DLEprepare_position\CAN\STX \SOH(\EOTR\SIpreparePosition\SUB\205\ETX\n\ + \\rFilterOptions\DC2s\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2D.event_store.client.streams.ReadReq.Options.FilterOptions.ExpressionH\NULR\DLEstreamIdentifier\DC2e\n\ + \\n\ + \event_type\CAN\STX \SOH(\v2D.event_store.client.streams.ReadReq.Options.FilterOptions.ExpressionH\NULR\teventType\DC2\DC2\n\ + \\ETXmax\CAN\ETX \SOH(\rH\SOHR\ETXmax\DC28\n\ + \\ENQcount\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\SOHR\ENQcount\DC2B\n\ + \\FScheckpointIntervalMultiplier\CAN\ENQ \SOH(\rR\FScheckpointIntervalMultiplier\SUB:\n\ + \\n\ + \Expression\DC2\DC4\n\ + \\ENQregex\CAN\SOH \SOH(\tR\ENQregex\DC2\SYN\n\ + \\ACKprefix\CAN\STX \ETX(\tR\ACKprefixB\b\n\ + \\ACKfilterB\b\n\ + \\ACKwindow\SUB\151\SOH\n\ + \\n\ + \UUIDOption\DC2B\n\ + \\n\ + \structured\CAN\SOH \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \structured\DC2:\n\ + \\ACKstring\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ACKstringB\t\n\ + \\acontent\",\n\ + \\rReadDirection\DC2\f\n\ + \\bForwards\DLE\NUL\DC2\r\n\ + \\tBackwards\DLE\SOHB\SI\n\ + \\rstream_optionB\SO\n\ + \\fcount_optionB\SI\n\ + \\rfilter_option" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor ReadReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadReq'_unknownFields + (\ x__ y__ -> x__ {_ReadReq'_unknownFields = y__}) + defMessage + = ReadReq'_constructor + {_ReadReq'options = Prelude.Nothing, _ReadReq'_unknownFields = []} + parseMessage + = let + loop :: ReadReq -> Data.ProtoLens.Encoding.Bytes.Parser ReadReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ReadReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ReadReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_ReadReq'options x__) ()) +{- | Fields : + + * 'Proto.Streams_Fields.readDirection' @:: Lens' ReadReq'Options ReadReq'Options'ReadDirection@ + * 'Proto.Streams_Fields.resolveLinks' @:: Lens' ReadReq'Options Prelude.Bool@ + * 'Proto.Streams_Fields.uuidOption' @:: Lens' ReadReq'Options ReadReq'Options'UUIDOption@ + * 'Proto.Streams_Fields.maybe'uuidOption' @:: Lens' ReadReq'Options (Prelude.Maybe ReadReq'Options'UUIDOption)@ + * 'Proto.Streams_Fields.maybe'streamOption' @:: Lens' ReadReq'Options (Prelude.Maybe ReadReq'Options'StreamOption)@ + * 'Proto.Streams_Fields.maybe'stream' @:: Lens' ReadReq'Options (Prelude.Maybe ReadReq'Options'StreamOptions)@ + * 'Proto.Streams_Fields.stream' @:: Lens' ReadReq'Options ReadReq'Options'StreamOptions@ + * 'Proto.Streams_Fields.maybe'all' @:: Lens' ReadReq'Options (Prelude.Maybe ReadReq'Options'AllOptions)@ + * 'Proto.Streams_Fields.all' @:: Lens' ReadReq'Options ReadReq'Options'AllOptions@ + * 'Proto.Streams_Fields.maybe'countOption' @:: Lens' ReadReq'Options (Prelude.Maybe ReadReq'Options'CountOption)@ + * 'Proto.Streams_Fields.maybe'count' @:: Lens' ReadReq'Options (Prelude.Maybe Data.Word.Word64)@ + * 'Proto.Streams_Fields.count' @:: Lens' ReadReq'Options Data.Word.Word64@ + * 'Proto.Streams_Fields.maybe'subscription' @:: Lens' ReadReq'Options (Prelude.Maybe ReadReq'Options'SubscriptionOptions)@ + * 'Proto.Streams_Fields.subscription' @:: Lens' ReadReq'Options ReadReq'Options'SubscriptionOptions@ + * 'Proto.Streams_Fields.maybe'filterOption' @:: Lens' ReadReq'Options (Prelude.Maybe ReadReq'Options'FilterOption)@ + * 'Proto.Streams_Fields.maybe'filter' @:: Lens' ReadReq'Options (Prelude.Maybe ReadReq'Options'FilterOptions)@ + * 'Proto.Streams_Fields.filter' @:: Lens' ReadReq'Options ReadReq'Options'FilterOptions@ + * 'Proto.Streams_Fields.maybe'noFilter' @:: Lens' ReadReq'Options (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.noFilter' @:: Lens' ReadReq'Options Proto.Shared.Empty@ -} +data ReadReq'Options + = ReadReq'Options'_constructor {_ReadReq'Options'readDirection :: !ReadReq'Options'ReadDirection, + _ReadReq'Options'resolveLinks :: !Prelude.Bool, + _ReadReq'Options'uuidOption :: !(Prelude.Maybe ReadReq'Options'UUIDOption), + _ReadReq'Options'streamOption :: !(Prelude.Maybe ReadReq'Options'StreamOption), + _ReadReq'Options'countOption :: !(Prelude.Maybe ReadReq'Options'CountOption), + _ReadReq'Options'filterOption :: !(Prelude.Maybe ReadReq'Options'FilterOption), + _ReadReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data ReadReq'Options'StreamOption + = ReadReq'Options'Stream !ReadReq'Options'StreamOptions | + ReadReq'Options'All !ReadReq'Options'AllOptions + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +data ReadReq'Options'CountOption + = ReadReq'Options'Count !Data.Word.Word64 | + ReadReq'Options'Subscription !ReadReq'Options'SubscriptionOptions + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +data ReadReq'Options'FilterOption + = ReadReq'Options'Filter !ReadReq'Options'FilterOptions | + ReadReq'Options'NoFilter !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField ReadReq'Options "readDirection" ReadReq'Options'ReadDirection where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'readDirection + (\ x__ y__ -> x__ {_ReadReq'Options'readDirection = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options "resolveLinks" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'resolveLinks + (\ x__ y__ -> x__ {_ReadReq'Options'resolveLinks = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options "uuidOption" ReadReq'Options'UUIDOption where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'uuidOption + (\ x__ y__ -> x__ {_ReadReq'Options'uuidOption = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadReq'Options "maybe'uuidOption" (Prelude.Maybe ReadReq'Options'UUIDOption) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'uuidOption + (\ x__ y__ -> x__ {_ReadReq'Options'uuidOption = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options "maybe'streamOption" (Prelude.Maybe ReadReq'Options'StreamOption) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'streamOption + (\ x__ y__ -> x__ {_ReadReq'Options'streamOption = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options "maybe'stream" (Prelude.Maybe ReadReq'Options'StreamOptions) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'streamOption + (\ x__ y__ -> x__ {_ReadReq'Options'streamOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'Stream x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'Stream y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options "stream" ReadReq'Options'StreamOptions where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'streamOption + (\ x__ y__ -> x__ {_ReadReq'Options'streamOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'Stream x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'Stream y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField ReadReq'Options "maybe'all" (Prelude.Maybe ReadReq'Options'AllOptions) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'streamOption + (\ x__ y__ -> x__ {_ReadReq'Options'streamOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'All x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'All y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options "all" ReadReq'Options'AllOptions where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'streamOption + (\ x__ y__ -> x__ {_ReadReq'Options'streamOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'All x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'All y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField ReadReq'Options "maybe'countOption" (Prelude.Maybe ReadReq'Options'CountOption) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'countOption + (\ x__ y__ -> x__ {_ReadReq'Options'countOption = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options "maybe'count" (Prelude.Maybe Data.Word.Word64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'countOption + (\ x__ y__ -> x__ {_ReadReq'Options'countOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'Count x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'Count y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options "count" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'countOption + (\ x__ y__ -> x__ {_ReadReq'Options'countOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'Count x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'Count y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField ReadReq'Options "maybe'subscription" (Prelude.Maybe ReadReq'Options'SubscriptionOptions) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'countOption + (\ x__ y__ -> x__ {_ReadReq'Options'countOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'Subscription x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'Subscription y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options "subscription" ReadReq'Options'SubscriptionOptions where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'countOption + (\ x__ y__ -> x__ {_ReadReq'Options'countOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'Subscription x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'Subscription y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField ReadReq'Options "maybe'filterOption" (Prelude.Maybe ReadReq'Options'FilterOption) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'filterOption + (\ x__ y__ -> x__ {_ReadReq'Options'filterOption = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options "maybe'filter" (Prelude.Maybe ReadReq'Options'FilterOptions) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'filterOption + (\ x__ y__ -> x__ {_ReadReq'Options'filterOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'Filter x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'Filter y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options "filter" ReadReq'Options'FilterOptions where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'filterOption + (\ x__ y__ -> x__ {_ReadReq'Options'filterOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'Filter x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'Filter y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField ReadReq'Options "maybe'noFilter" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'filterOption + (\ x__ y__ -> x__ {_ReadReq'Options'filterOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'NoFilter x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'NoFilter y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options "noFilter" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'filterOption + (\ x__ y__ -> x__ {_ReadReq'Options'filterOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'NoFilter x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'NoFilter y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message ReadReq'Options where + messageName _ + = Data.Text.pack "event_store.client.streams.ReadReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2S\n\ + \\ACKstream\CAN\SOH \SOH(\v29.event_store.client.streams.ReadReq.Options.StreamOptionsH\NULR\ACKstream\DC2J\n\ + \\ETXall\CAN\STX \SOH(\v26.event_store.client.streams.ReadReq.Options.AllOptionsH\NULR\ETXall\DC2`\n\ + \\SOread_direction\CAN\ETX \SOH(\SO29.event_store.client.streams.ReadReq.Options.ReadDirectionR\rreadDirection\DC2#\n\ + \\rresolve_links\CAN\EOT \SOH(\bR\fresolveLinks\DC2\SYN\n\ + \\ENQcount\CAN\ENQ \SOH(\EOTH\SOHR\ENQcount\DC2e\n\ + \\fsubscription\CAN\ACK \SOH(\v2?.event_store.client.streams.ReadReq.Options.SubscriptionOptionsH\SOHR\fsubscription\DC2S\n\ + \\ACKfilter\CAN\a \SOH(\v29.event_store.client.streams.ReadReq.Options.FilterOptionsH\STXR\ACKfilter\DC2?\n\ + \\tno_filter\CAN\b \SOH(\v2 .event_store.client.shared.EmptyH\STXR\bnoFilter\DC2W\n\ + \\vuuid_option\CAN\t \SOH(\v26.event_store.client.streams.ReadReq.Options.UUIDOptionR\n\ + \uuidOption\SUB\138\STX\n\ + \\rStreamOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\FS\n\ + \\brevision\CAN\STX \SOH(\EOTH\NULR\brevision\DC28\n\ + \\ENQstart\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ENQstart\DC24\n\ + \\ETXend\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXendB\DC1\n\ + \\SIrevision_option\SUB\222\SOH\n\ + \\n\ + \AllOptions\DC2R\n\ + \\bposition\CAN\SOH \SOH(\v24.event_store.client.streams.ReadReq.Options.PositionH\NULR\bposition\DC28\n\ + \\ENQstart\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ENQstart\DC24\n\ + \\ETXend\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXendB\f\n\ + \\n\ + \all_option\SUB\NAK\n\ + \\DC3SubscriptionOptions\SUB^\n\ + \\bPosition\DC2'\n\ + \\SIcommit_position\CAN\SOH \SOH(\EOTR\SOcommitPosition\DC2)\n\ + \\DLEprepare_position\CAN\STX \SOH(\EOTR\SIpreparePosition\SUB\205\ETX\n\ + \\rFilterOptions\DC2s\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2D.event_store.client.streams.ReadReq.Options.FilterOptions.ExpressionH\NULR\DLEstreamIdentifier\DC2e\n\ + \\n\ + \event_type\CAN\STX \SOH(\v2D.event_store.client.streams.ReadReq.Options.FilterOptions.ExpressionH\NULR\teventType\DC2\DC2\n\ + \\ETXmax\CAN\ETX \SOH(\rH\SOHR\ETXmax\DC28\n\ + \\ENQcount\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\SOHR\ENQcount\DC2B\n\ + \\FScheckpointIntervalMultiplier\CAN\ENQ \SOH(\rR\FScheckpointIntervalMultiplier\SUB:\n\ + \\n\ + \Expression\DC2\DC4\n\ + \\ENQregex\CAN\SOH \SOH(\tR\ENQregex\DC2\SYN\n\ + \\ACKprefix\CAN\STX \ETX(\tR\ACKprefixB\b\n\ + \\ACKfilterB\b\n\ + \\ACKwindow\SUB\151\SOH\n\ + \\n\ + \UUIDOption\DC2B\n\ + \\n\ + \structured\CAN\SOH \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \structured\DC2:\n\ + \\ACKstring\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ACKstringB\t\n\ + \\acontent\",\n\ + \\rReadDirection\DC2\f\n\ + \\bForwards\DLE\NUL\DC2\r\n\ + \\tBackwards\DLE\SOHB\SI\n\ + \\rstream_optionB\SO\n\ + \\fcount_optionB\SI\n\ + \\rfilter_option" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + readDirection__field_descriptor + = Data.ProtoLens.FieldDescriptor + "read_direction" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor ReadReq'Options'ReadDirection) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"readDirection")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options + resolveLinks__field_descriptor + = Data.ProtoLens.FieldDescriptor + "resolve_links" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"resolveLinks")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options + uuidOption__field_descriptor + = Data.ProtoLens.FieldDescriptor + "uuid_option" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadReq'Options'UUIDOption) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'uuidOption")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options + stream__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadReq'Options'StreamOptions) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stream")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options + all__field_descriptor + = Data.ProtoLens.FieldDescriptor + "all" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadReq'Options'AllOptions) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'all")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options + count__field_descriptor + = Data.ProtoLens.FieldDescriptor + "count" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'count")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options + subscription__field_descriptor + = Data.ProtoLens.FieldDescriptor + "subscription" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadReq'Options'SubscriptionOptions) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'subscription")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options + filter__field_descriptor + = Data.ProtoLens.FieldDescriptor + "filter" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadReq'Options'FilterOptions) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'filter")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options + noFilter__field_descriptor + = Data.ProtoLens.FieldDescriptor + "no_filter" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'noFilter")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 3, readDirection__field_descriptor), + (Data.ProtoLens.Tag 4, resolveLinks__field_descriptor), + (Data.ProtoLens.Tag 9, uuidOption__field_descriptor), + (Data.ProtoLens.Tag 1, stream__field_descriptor), + (Data.ProtoLens.Tag 2, all__field_descriptor), + (Data.ProtoLens.Tag 5, count__field_descriptor), + (Data.ProtoLens.Tag 6, subscription__field_descriptor), + (Data.ProtoLens.Tag 7, filter__field_descriptor), + (Data.ProtoLens.Tag 8, noFilter__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadReq'Options'_unknownFields + (\ x__ y__ -> x__ {_ReadReq'Options'_unknownFields = y__}) + defMessage + = ReadReq'Options'_constructor + {_ReadReq'Options'readDirection = Data.ProtoLens.fieldDefault, + _ReadReq'Options'resolveLinks = Data.ProtoLens.fieldDefault, + _ReadReq'Options'uuidOption = Prelude.Nothing, + _ReadReq'Options'streamOption = Prelude.Nothing, + _ReadReq'Options'countOption = Prelude.Nothing, + _ReadReq'Options'filterOption = Prelude.Nothing, + _ReadReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + ReadReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser ReadReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "read_direction" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"readDirection") y x) + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "resolve_links" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"resolveLinks") y x) + 74 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "uuid_option" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"uuidOption") y x) + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stream" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"stream") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "all" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"all") y x) + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "count" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"count") y x) + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "subscription" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"subscription") y x) + 58 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "filter" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"filter") y x) + 66 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "no_filter" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"noFilter") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"readDirection") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"resolveLinks") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'uuidOption") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 74) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'streamOption") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (ReadReq'Options'Stream v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (ReadReq'Options'All v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'countOption") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (ReadReq'Options'Count v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + (Data.ProtoLens.Encoding.Bytes.putVarInt v) + (Prelude.Just (ReadReq'Options'Subscription v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'filterOption") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (ReadReq'Options'Filter v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (ReadReq'Options'NoFilter v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 66) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))) +instance Control.DeepSeq.NFData ReadReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'readDirection x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'resolveLinks x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'uuidOption x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'streamOption x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'countOption x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'filterOption x__) ())))))) +instance Control.DeepSeq.NFData ReadReq'Options'StreamOption where + rnf (ReadReq'Options'Stream x__) = Control.DeepSeq.rnf x__ + rnf (ReadReq'Options'All x__) = Control.DeepSeq.rnf x__ +instance Control.DeepSeq.NFData ReadReq'Options'CountOption where + rnf (ReadReq'Options'Count x__) = Control.DeepSeq.rnf x__ + rnf (ReadReq'Options'Subscription x__) = Control.DeepSeq.rnf x__ +instance Control.DeepSeq.NFData ReadReq'Options'FilterOption where + rnf (ReadReq'Options'Filter x__) = Control.DeepSeq.rnf x__ + rnf (ReadReq'Options'NoFilter x__) = Control.DeepSeq.rnf x__ +_ReadReq'Options'Stream :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'StreamOption ReadReq'Options'StreamOptions +_ReadReq'Options'Stream + = Data.ProtoLens.Prism.prism' + ReadReq'Options'Stream + (\ p__ + -> case p__ of + (ReadReq'Options'Stream p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadReq'Options'All :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'StreamOption ReadReq'Options'AllOptions +_ReadReq'Options'All + = Data.ProtoLens.Prism.prism' + ReadReq'Options'All + (\ p__ + -> case p__ of + (ReadReq'Options'All p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadReq'Options'Count :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'CountOption Data.Word.Word64 +_ReadReq'Options'Count + = Data.ProtoLens.Prism.prism' + ReadReq'Options'Count + (\ p__ + -> case p__ of + (ReadReq'Options'Count p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadReq'Options'Subscription :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'CountOption ReadReq'Options'SubscriptionOptions +_ReadReq'Options'Subscription + = Data.ProtoLens.Prism.prism' + ReadReq'Options'Subscription + (\ p__ + -> case p__ of + (ReadReq'Options'Subscription p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadReq'Options'Filter :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'FilterOption ReadReq'Options'FilterOptions +_ReadReq'Options'Filter + = Data.ProtoLens.Prism.prism' + ReadReq'Options'Filter + (\ p__ + -> case p__ of + (ReadReq'Options'Filter p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadReq'Options'NoFilter :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'FilterOption Proto.Shared.Empty +_ReadReq'Options'NoFilter + = Data.ProtoLens.Prism.prism' + ReadReq'Options'NoFilter + (\ p__ + -> case p__ of + (ReadReq'Options'NoFilter p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Streams_Fields.maybe'allOption' @:: Lens' ReadReq'Options'AllOptions (Prelude.Maybe ReadReq'Options'AllOptions'AllOption)@ + * 'Proto.Streams_Fields.maybe'position' @:: Lens' ReadReq'Options'AllOptions (Prelude.Maybe ReadReq'Options'Position)@ + * 'Proto.Streams_Fields.position' @:: Lens' ReadReq'Options'AllOptions ReadReq'Options'Position@ + * 'Proto.Streams_Fields.maybe'start' @:: Lens' ReadReq'Options'AllOptions (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.start' @:: Lens' ReadReq'Options'AllOptions Proto.Shared.Empty@ + * 'Proto.Streams_Fields.maybe'end' @:: Lens' ReadReq'Options'AllOptions (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.end' @:: Lens' ReadReq'Options'AllOptions Proto.Shared.Empty@ -} +data ReadReq'Options'AllOptions + = ReadReq'Options'AllOptions'_constructor {_ReadReq'Options'AllOptions'allOption :: !(Prelude.Maybe ReadReq'Options'AllOptions'AllOption), + _ReadReq'Options'AllOptions'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadReq'Options'AllOptions where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data ReadReq'Options'AllOptions'AllOption + = ReadReq'Options'AllOptions'Position !ReadReq'Options'Position | + ReadReq'Options'AllOptions'Start !Proto.Shared.Empty | + ReadReq'Options'AllOptions'End !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField ReadReq'Options'AllOptions "maybe'allOption" (Prelude.Maybe ReadReq'Options'AllOptions'AllOption) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'AllOptions'allOption + (\ x__ y__ -> x__ {_ReadReq'Options'AllOptions'allOption = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options'AllOptions "maybe'position" (Prelude.Maybe ReadReq'Options'Position) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'AllOptions'allOption + (\ x__ y__ -> x__ {_ReadReq'Options'AllOptions'allOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'AllOptions'Position x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'AllOptions'Position y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'AllOptions "position" ReadReq'Options'Position where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'AllOptions'allOption + (\ x__ y__ -> x__ {_ReadReq'Options'AllOptions'allOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'AllOptions'Position x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'AllOptions'Position y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'AllOptions "maybe'start" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'AllOptions'allOption + (\ x__ y__ -> x__ {_ReadReq'Options'AllOptions'allOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'AllOptions'Start x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'AllOptions'Start y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'AllOptions "start" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'AllOptions'allOption + (\ x__ y__ -> x__ {_ReadReq'Options'AllOptions'allOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'AllOptions'Start x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'AllOptions'Start y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'AllOptions "maybe'end" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'AllOptions'allOption + (\ x__ y__ -> x__ {_ReadReq'Options'AllOptions'allOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'AllOptions'End x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'AllOptions'End y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'AllOptions "end" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'AllOptions'allOption + (\ x__ y__ -> x__ {_ReadReq'Options'AllOptions'allOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'AllOptions'End x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'AllOptions'End y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message ReadReq'Options'AllOptions where + messageName _ + = Data.Text.pack + "event_store.client.streams.ReadReq.Options.AllOptions" + packedMessageDescriptor _ + = "\n\ + \\n\ + \AllOptions\DC2R\n\ + \\bposition\CAN\SOH \SOH(\v24.event_store.client.streams.ReadReq.Options.PositionH\NULR\bposition\DC28\n\ + \\ENQstart\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ENQstart\DC24\n\ + \\ETXend\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXendB\f\n\ + \\n\ + \all_option" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + position__field_descriptor + = Data.ProtoLens.FieldDescriptor + "position" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadReq'Options'Position) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'position")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'AllOptions + start__field_descriptor + = Data.ProtoLens.FieldDescriptor + "start" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'start")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'AllOptions + end__field_descriptor + = Data.ProtoLens.FieldDescriptor + "end" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'end")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'AllOptions + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, position__field_descriptor), + (Data.ProtoLens.Tag 2, start__field_descriptor), + (Data.ProtoLens.Tag 3, end__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadReq'Options'AllOptions'_unknownFields + (\ x__ y__ + -> x__ {_ReadReq'Options'AllOptions'_unknownFields = y__}) + defMessage + = ReadReq'Options'AllOptions'_constructor + {_ReadReq'Options'AllOptions'allOption = Prelude.Nothing, + _ReadReq'Options'AllOptions'_unknownFields = []} + parseMessage + = let + loop :: + ReadReq'Options'AllOptions + -> Data.ProtoLens.Encoding.Bytes.Parser ReadReq'Options'AllOptions + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "position" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"position") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "start" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"start") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "end" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"end") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "AllOptions" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'allOption") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (ReadReq'Options'AllOptions'Position v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (ReadReq'Options'AllOptions'Start v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (ReadReq'Options'AllOptions'End v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ReadReq'Options'AllOptions where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadReq'Options'AllOptions'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'AllOptions'allOption x__) ()) +instance Control.DeepSeq.NFData ReadReq'Options'AllOptions'AllOption where + rnf (ReadReq'Options'AllOptions'Position x__) + = Control.DeepSeq.rnf x__ + rnf (ReadReq'Options'AllOptions'Start x__) + = Control.DeepSeq.rnf x__ + rnf (ReadReq'Options'AllOptions'End x__) = Control.DeepSeq.rnf x__ +_ReadReq'Options'AllOptions'Position :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'AllOptions'AllOption ReadReq'Options'Position +_ReadReq'Options'AllOptions'Position + = Data.ProtoLens.Prism.prism' + ReadReq'Options'AllOptions'Position + (\ p__ + -> case p__ of + (ReadReq'Options'AllOptions'Position p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadReq'Options'AllOptions'Start :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'AllOptions'AllOption Proto.Shared.Empty +_ReadReq'Options'AllOptions'Start + = Data.ProtoLens.Prism.prism' + ReadReq'Options'AllOptions'Start + (\ p__ + -> case p__ of + (ReadReq'Options'AllOptions'Start p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadReq'Options'AllOptions'End :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'AllOptions'AllOption Proto.Shared.Empty +_ReadReq'Options'AllOptions'End + = Data.ProtoLens.Prism.prism' + ReadReq'Options'AllOptions'End + (\ p__ + -> case p__ of + (ReadReq'Options'AllOptions'End p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Streams_Fields.checkpointIntervalMultiplier' @:: Lens' ReadReq'Options'FilterOptions Data.Word.Word32@ + * 'Proto.Streams_Fields.maybe'filter' @:: Lens' ReadReq'Options'FilterOptions (Prelude.Maybe ReadReq'Options'FilterOptions'Filter)@ + * 'Proto.Streams_Fields.maybe'streamIdentifier' @:: Lens' ReadReq'Options'FilterOptions (Prelude.Maybe ReadReq'Options'FilterOptions'Expression)@ + * 'Proto.Streams_Fields.streamIdentifier' @:: Lens' ReadReq'Options'FilterOptions ReadReq'Options'FilterOptions'Expression@ + * 'Proto.Streams_Fields.maybe'eventType' @:: Lens' ReadReq'Options'FilterOptions (Prelude.Maybe ReadReq'Options'FilterOptions'Expression)@ + * 'Proto.Streams_Fields.eventType' @:: Lens' ReadReq'Options'FilterOptions ReadReq'Options'FilterOptions'Expression@ + * 'Proto.Streams_Fields.maybe'window' @:: Lens' ReadReq'Options'FilterOptions (Prelude.Maybe ReadReq'Options'FilterOptions'Window)@ + * 'Proto.Streams_Fields.maybe'max' @:: Lens' ReadReq'Options'FilterOptions (Prelude.Maybe Data.Word.Word32)@ + * 'Proto.Streams_Fields.max' @:: Lens' ReadReq'Options'FilterOptions Data.Word.Word32@ + * 'Proto.Streams_Fields.maybe'count' @:: Lens' ReadReq'Options'FilterOptions (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.count' @:: Lens' ReadReq'Options'FilterOptions Proto.Shared.Empty@ -} +data ReadReq'Options'FilterOptions + = ReadReq'Options'FilterOptions'_constructor {_ReadReq'Options'FilterOptions'checkpointIntervalMultiplier :: !Data.Word.Word32, + _ReadReq'Options'FilterOptions'filter :: !(Prelude.Maybe ReadReq'Options'FilterOptions'Filter), + _ReadReq'Options'FilterOptions'window :: !(Prelude.Maybe ReadReq'Options'FilterOptions'Window), + _ReadReq'Options'FilterOptions'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadReq'Options'FilterOptions where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data ReadReq'Options'FilterOptions'Filter + = ReadReq'Options'FilterOptions'StreamIdentifier !ReadReq'Options'FilterOptions'Expression | + ReadReq'Options'FilterOptions'EventType !ReadReq'Options'FilterOptions'Expression + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +data ReadReq'Options'FilterOptions'Window + = ReadReq'Options'FilterOptions'Max !Data.Word.Word32 | + ReadReq'Options'FilterOptions'Count !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField ReadReq'Options'FilterOptions "checkpointIntervalMultiplier" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'FilterOptions'checkpointIntervalMultiplier + (\ x__ y__ + -> x__ + {_ReadReq'Options'FilterOptions'checkpointIntervalMultiplier = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options'FilterOptions "maybe'filter" (Prelude.Maybe ReadReq'Options'FilterOptions'Filter) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'FilterOptions'filter + (\ x__ y__ -> x__ {_ReadReq'Options'FilterOptions'filter = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options'FilterOptions "maybe'streamIdentifier" (Prelude.Maybe ReadReq'Options'FilterOptions'Expression) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'FilterOptions'filter + (\ x__ y__ -> x__ {_ReadReq'Options'FilterOptions'filter = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'FilterOptions'StreamIdentifier x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap + ReadReq'Options'FilterOptions'StreamIdentifier y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'FilterOptions "streamIdentifier" ReadReq'Options'FilterOptions'Expression where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'FilterOptions'filter + (\ x__ y__ -> x__ {_ReadReq'Options'FilterOptions'filter = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'FilterOptions'StreamIdentifier x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap + ReadReq'Options'FilterOptions'StreamIdentifier y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'FilterOptions "maybe'eventType" (Prelude.Maybe ReadReq'Options'FilterOptions'Expression) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'FilterOptions'filter + (\ x__ y__ -> x__ {_ReadReq'Options'FilterOptions'filter = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'FilterOptions'EventType x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap ReadReq'Options'FilterOptions'EventType y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'FilterOptions "eventType" ReadReq'Options'FilterOptions'Expression where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'FilterOptions'filter + (\ x__ y__ -> x__ {_ReadReq'Options'FilterOptions'filter = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'FilterOptions'EventType x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap ReadReq'Options'FilterOptions'EventType y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'FilterOptions "maybe'window" (Prelude.Maybe ReadReq'Options'FilterOptions'Window) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'FilterOptions'window + (\ x__ y__ -> x__ {_ReadReq'Options'FilterOptions'window = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options'FilterOptions "maybe'max" (Prelude.Maybe Data.Word.Word32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'FilterOptions'window + (\ x__ y__ -> x__ {_ReadReq'Options'FilterOptions'window = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'FilterOptions'Max x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'FilterOptions'Max y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'FilterOptions "max" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'FilterOptions'window + (\ x__ y__ -> x__ {_ReadReq'Options'FilterOptions'window = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'FilterOptions'Max x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'FilterOptions'Max y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'FilterOptions "maybe'count" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'FilterOptions'window + (\ x__ y__ -> x__ {_ReadReq'Options'FilterOptions'window = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'FilterOptions'Count x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'FilterOptions'Count y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'FilterOptions "count" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'FilterOptions'window + (\ x__ y__ -> x__ {_ReadReq'Options'FilterOptions'window = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'FilterOptions'Count x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'FilterOptions'Count y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message ReadReq'Options'FilterOptions where + messageName _ + = Data.Text.pack + "event_store.client.streams.ReadReq.Options.FilterOptions" + packedMessageDescriptor _ + = "\n\ + \\rFilterOptions\DC2s\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2D.event_store.client.streams.ReadReq.Options.FilterOptions.ExpressionH\NULR\DLEstreamIdentifier\DC2e\n\ + \\n\ + \event_type\CAN\STX \SOH(\v2D.event_store.client.streams.ReadReq.Options.FilterOptions.ExpressionH\NULR\teventType\DC2\DC2\n\ + \\ETXmax\CAN\ETX \SOH(\rH\SOHR\ETXmax\DC28\n\ + \\ENQcount\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\SOHR\ENQcount\DC2B\n\ + \\FScheckpointIntervalMultiplier\CAN\ENQ \SOH(\rR\FScheckpointIntervalMultiplier\SUB:\n\ + \\n\ + \Expression\DC2\DC4\n\ + \\ENQregex\CAN\SOH \SOH(\tR\ENQregex\DC2\SYN\n\ + \\ACKprefix\CAN\STX \ETX(\tR\ACKprefixB\b\n\ + \\ACKfilterB\b\n\ + \\ACKwindow" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + checkpointIntervalMultiplier__field_descriptor + = Data.ProtoLens.FieldDescriptor + "checkpointIntervalMultiplier" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"checkpointIntervalMultiplier")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'FilterOptions + streamIdentifier__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_identifier" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadReq'Options'FilterOptions'Expression) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'streamIdentifier")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'FilterOptions + eventType__field_descriptor + = Data.ProtoLens.FieldDescriptor + "event_type" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadReq'Options'FilterOptions'Expression) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'eventType")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'FilterOptions + max__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'max")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'FilterOptions + count__field_descriptor + = Data.ProtoLens.FieldDescriptor + "count" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'count")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'FilterOptions + in + Data.Map.fromList + [(Data.ProtoLens.Tag 5, + checkpointIntervalMultiplier__field_descriptor), + (Data.ProtoLens.Tag 1, streamIdentifier__field_descriptor), + (Data.ProtoLens.Tag 2, eventType__field_descriptor), + (Data.ProtoLens.Tag 3, max__field_descriptor), + (Data.ProtoLens.Tag 4, count__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadReq'Options'FilterOptions'_unknownFields + (\ x__ y__ + -> x__ {_ReadReq'Options'FilterOptions'_unknownFields = y__}) + defMessage + = ReadReq'Options'FilterOptions'_constructor + {_ReadReq'Options'FilterOptions'checkpointIntervalMultiplier = Data.ProtoLens.fieldDefault, + _ReadReq'Options'FilterOptions'filter = Prelude.Nothing, + _ReadReq'Options'FilterOptions'window = Prelude.Nothing, + _ReadReq'Options'FilterOptions'_unknownFields = []} + parseMessage + = let + loop :: + ReadReq'Options'FilterOptions + -> Data.ProtoLens.Encoding.Bytes.Parser ReadReq'Options'FilterOptions + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "checkpointIntervalMultiplier" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"checkpointIntervalMultiplier") + y + x) + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stream_identifier" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamIdentifier") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "event_type" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"eventType") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "max" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"max") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "count" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"count") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "FilterOptions" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"checkpointIntervalMultiplier") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'filter") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (ReadReq'Options'FilterOptions'StreamIdentifier v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (ReadReq'Options'FilterOptions'EventType v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'window") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (ReadReq'Options'FilterOptions'Max v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral v) + (Prelude.Just (ReadReq'Options'FilterOptions'Count v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData ReadReq'Options'FilterOptions where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadReq'Options'FilterOptions'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'FilterOptions'checkpointIntervalMultiplier x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'FilterOptions'filter x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'FilterOptions'window x__) ()))) +instance Control.DeepSeq.NFData ReadReq'Options'FilterOptions'Filter where + rnf (ReadReq'Options'FilterOptions'StreamIdentifier x__) + = Control.DeepSeq.rnf x__ + rnf (ReadReq'Options'FilterOptions'EventType x__) + = Control.DeepSeq.rnf x__ +instance Control.DeepSeq.NFData ReadReq'Options'FilterOptions'Window where + rnf (ReadReq'Options'FilterOptions'Max x__) + = Control.DeepSeq.rnf x__ + rnf (ReadReq'Options'FilterOptions'Count x__) + = Control.DeepSeq.rnf x__ +_ReadReq'Options'FilterOptions'StreamIdentifier :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'FilterOptions'Filter ReadReq'Options'FilterOptions'Expression +_ReadReq'Options'FilterOptions'StreamIdentifier + = Data.ProtoLens.Prism.prism' + ReadReq'Options'FilterOptions'StreamIdentifier + (\ p__ + -> case p__ of + (ReadReq'Options'FilterOptions'StreamIdentifier p__val) + -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadReq'Options'FilterOptions'EventType :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'FilterOptions'Filter ReadReq'Options'FilterOptions'Expression +_ReadReq'Options'FilterOptions'EventType + = Data.ProtoLens.Prism.prism' + ReadReq'Options'FilterOptions'EventType + (\ p__ + -> case p__ of + (ReadReq'Options'FilterOptions'EventType p__val) + -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadReq'Options'FilterOptions'Max :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'FilterOptions'Window Data.Word.Word32 +_ReadReq'Options'FilterOptions'Max + = Data.ProtoLens.Prism.prism' + ReadReq'Options'FilterOptions'Max + (\ p__ + -> case p__ of + (ReadReq'Options'FilterOptions'Max p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadReq'Options'FilterOptions'Count :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'FilterOptions'Window Proto.Shared.Empty +_ReadReq'Options'FilterOptions'Count + = Data.ProtoLens.Prism.prism' + ReadReq'Options'FilterOptions'Count + (\ p__ + -> case p__ of + (ReadReq'Options'FilterOptions'Count p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Streams_Fields.regex' @:: Lens' ReadReq'Options'FilterOptions'Expression Data.Text.Text@ + * 'Proto.Streams_Fields.prefix' @:: Lens' ReadReq'Options'FilterOptions'Expression [Data.Text.Text]@ + * 'Proto.Streams_Fields.vec'prefix' @:: Lens' ReadReq'Options'FilterOptions'Expression (Data.Vector.Vector Data.Text.Text)@ -} +data ReadReq'Options'FilterOptions'Expression + = ReadReq'Options'FilterOptions'Expression'_constructor {_ReadReq'Options'FilterOptions'Expression'regex :: !Data.Text.Text, + _ReadReq'Options'FilterOptions'Expression'prefix :: !(Data.Vector.Vector Data.Text.Text), + _ReadReq'Options'FilterOptions'Expression'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadReq'Options'FilterOptions'Expression where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'FilterOptions'Expression "regex" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'FilterOptions'Expression'regex + (\ x__ y__ + -> x__ {_ReadReq'Options'FilterOptions'Expression'regex = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options'FilterOptions'Expression "prefix" [Data.Text.Text] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'FilterOptions'Expression'prefix + (\ x__ y__ + -> x__ {_ReadReq'Options'FilterOptions'Expression'prefix = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'FilterOptions'Expression "vec'prefix" (Data.Vector.Vector Data.Text.Text) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'FilterOptions'Expression'prefix + (\ x__ y__ + -> x__ {_ReadReq'Options'FilterOptions'Expression'prefix = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadReq'Options'FilterOptions'Expression where + messageName _ + = Data.Text.pack + "event_store.client.streams.ReadReq.Options.FilterOptions.Expression" + packedMessageDescriptor _ + = "\n\ + \\n\ + \Expression\DC2\DC4\n\ + \\ENQregex\CAN\SOH \SOH(\tR\ENQregex\DC2\SYN\n\ + \\ACKprefix\CAN\STX \ETX(\tR\ACKprefix" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + regex__field_descriptor + = Data.ProtoLens.FieldDescriptor + "regex" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"regex")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'FilterOptions'Expression + prefix__field_descriptor + = Data.ProtoLens.FieldDescriptor + "prefix" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"prefix")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'FilterOptions'Expression + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, regex__field_descriptor), + (Data.ProtoLens.Tag 2, prefix__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadReq'Options'FilterOptions'Expression'_unknownFields + (\ x__ y__ + -> x__ + {_ReadReq'Options'FilterOptions'Expression'_unknownFields = y__}) + defMessage + = ReadReq'Options'FilterOptions'Expression'_constructor + {_ReadReq'Options'FilterOptions'Expression'regex = Data.ProtoLens.fieldDefault, + _ReadReq'Options'FilterOptions'Expression'prefix = Data.Vector.Generic.empty, + _ReadReq'Options'FilterOptions'Expression'_unknownFields = []} + parseMessage + = let + loop :: + ReadReq'Options'FilterOptions'Expression + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text + -> Data.ProtoLens.Encoding.Bytes.Parser ReadReq'Options'FilterOptions'Expression + loop x mutable'prefix + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'prefix <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'prefix) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields + (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'prefix") frozen'prefix x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "regex" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"regex") y x) + mutable'prefix + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "prefix" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'prefix y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'prefix + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'prefix <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'prefix) + "Expression" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"regex") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'prefix") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ReadReq'Options'FilterOptions'Expression where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadReq'Options'FilterOptions'Expression'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'FilterOptions'Expression'regex x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'FilterOptions'Expression'prefix x__) ())) +{- | Fields : + + * 'Proto.Streams_Fields.commitPosition' @:: Lens' ReadReq'Options'Position Data.Word.Word64@ + * 'Proto.Streams_Fields.preparePosition' @:: Lens' ReadReq'Options'Position Data.Word.Word64@ -} +data ReadReq'Options'Position + = ReadReq'Options'Position'_constructor {_ReadReq'Options'Position'commitPosition :: !Data.Word.Word64, + _ReadReq'Options'Position'preparePosition :: !Data.Word.Word64, + _ReadReq'Options'Position'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadReq'Options'Position where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'Position "commitPosition" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'Position'commitPosition + (\ x__ y__ + -> x__ {_ReadReq'Options'Position'commitPosition = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options'Position "preparePosition" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'Position'preparePosition + (\ x__ y__ + -> x__ {_ReadReq'Options'Position'preparePosition = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadReq'Options'Position where + messageName _ + = Data.Text.pack + "event_store.client.streams.ReadReq.Options.Position" + packedMessageDescriptor _ + = "\n\ + \\bPosition\DC2'\n\ + \\SIcommit_position\CAN\SOH \SOH(\EOTR\SOcommitPosition\DC2)\n\ + \\DLEprepare_position\CAN\STX \SOH(\EOTR\SIpreparePosition" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + commitPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "commit_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"commitPosition")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'Position + preparePosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "prepare_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"preparePosition")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'Position + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, commitPosition__field_descriptor), + (Data.ProtoLens.Tag 2, preparePosition__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadReq'Options'Position'_unknownFields + (\ x__ y__ -> x__ {_ReadReq'Options'Position'_unknownFields = y__}) + defMessage + = ReadReq'Options'Position'_constructor + {_ReadReq'Options'Position'commitPosition = Data.ProtoLens.fieldDefault, + _ReadReq'Options'Position'preparePosition = Data.ProtoLens.fieldDefault, + _ReadReq'Options'Position'_unknownFields = []} + parseMessage + = let + loop :: + ReadReq'Options'Position + -> Data.ProtoLens.Encoding.Bytes.Parser ReadReq'Options'Position + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "commit_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"commitPosition") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "prepare_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"preparePosition") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Position" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"commitPosition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"preparePosition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ReadReq'Options'Position where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadReq'Options'Position'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'Position'commitPosition x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'Position'preparePosition x__) ())) +newtype ReadReq'Options'ReadDirection'UnrecognizedValue + = ReadReq'Options'ReadDirection'UnrecognizedValue Data.Int.Int32 + deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) +data ReadReq'Options'ReadDirection + = ReadReq'Options'Forwards | + ReadReq'Options'Backwards | + ReadReq'Options'ReadDirection'Unrecognized !ReadReq'Options'ReadDirection'UnrecognizedValue + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum ReadReq'Options'ReadDirection where + maybeToEnum 0 = Prelude.Just ReadReq'Options'Forwards + maybeToEnum 1 = Prelude.Just ReadReq'Options'Backwards + maybeToEnum k + = Prelude.Just + (ReadReq'Options'ReadDirection'Unrecognized + (ReadReq'Options'ReadDirection'UnrecognizedValue + (Prelude.fromIntegral k))) + showEnum ReadReq'Options'Forwards = "Forwards" + showEnum ReadReq'Options'Backwards = "Backwards" + showEnum + (ReadReq'Options'ReadDirection'Unrecognized (ReadReq'Options'ReadDirection'UnrecognizedValue k)) + = Prelude.show k + readEnum k + | (Prelude.==) k "Forwards" = Prelude.Just ReadReq'Options'Forwards + | (Prelude.==) k "Backwards" + = Prelude.Just ReadReq'Options'Backwards + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded ReadReq'Options'ReadDirection where + minBound = ReadReq'Options'Forwards + maxBound = ReadReq'Options'Backwards +instance Prelude.Enum ReadReq'Options'ReadDirection where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum ReadDirection: " + (Prelude.show k__))) + Prelude.id + (Data.ProtoLens.maybeToEnum k__) + fromEnum ReadReq'Options'Forwards = 0 + fromEnum ReadReq'Options'Backwards = 1 + fromEnum + (ReadReq'Options'ReadDirection'Unrecognized (ReadReq'Options'ReadDirection'UnrecognizedValue k)) + = Prelude.fromIntegral k + succ ReadReq'Options'Backwards + = Prelude.error + "ReadReq'Options'ReadDirection.succ: bad argument ReadReq'Options'Backwards. This value would be out of bounds." + succ ReadReq'Options'Forwards = ReadReq'Options'Backwards + succ (ReadReq'Options'ReadDirection'Unrecognized _) + = Prelude.error + "ReadReq'Options'ReadDirection.succ: bad argument: unrecognized value" + pred ReadReq'Options'Forwards + = Prelude.error + "ReadReq'Options'ReadDirection.pred: bad argument ReadReq'Options'Forwards. This value would be out of bounds." + pred ReadReq'Options'Backwards = ReadReq'Options'Forwards + pred (ReadReq'Options'ReadDirection'Unrecognized _) + = Prelude.error + "ReadReq'Options'ReadDirection.pred: bad argument: unrecognized value" + enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom + enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo + enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen + enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo +instance Data.ProtoLens.FieldDefault ReadReq'Options'ReadDirection where + fieldDefault = ReadReq'Options'Forwards +instance Control.DeepSeq.NFData ReadReq'Options'ReadDirection where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Streams_Fields.streamIdentifier' @:: Lens' ReadReq'Options'StreamOptions Proto.Shared.StreamIdentifier@ + * 'Proto.Streams_Fields.maybe'streamIdentifier' @:: Lens' ReadReq'Options'StreamOptions (Prelude.Maybe Proto.Shared.StreamIdentifier)@ + * 'Proto.Streams_Fields.maybe'revisionOption' @:: Lens' ReadReq'Options'StreamOptions (Prelude.Maybe ReadReq'Options'StreamOptions'RevisionOption)@ + * 'Proto.Streams_Fields.maybe'revision' @:: Lens' ReadReq'Options'StreamOptions (Prelude.Maybe Data.Word.Word64)@ + * 'Proto.Streams_Fields.revision' @:: Lens' ReadReq'Options'StreamOptions Data.Word.Word64@ + * 'Proto.Streams_Fields.maybe'start' @:: Lens' ReadReq'Options'StreamOptions (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.start' @:: Lens' ReadReq'Options'StreamOptions Proto.Shared.Empty@ + * 'Proto.Streams_Fields.maybe'end' @:: Lens' ReadReq'Options'StreamOptions (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.end' @:: Lens' ReadReq'Options'StreamOptions Proto.Shared.Empty@ -} +data ReadReq'Options'StreamOptions + = ReadReq'Options'StreamOptions'_constructor {_ReadReq'Options'StreamOptions'streamIdentifier :: !(Prelude.Maybe Proto.Shared.StreamIdentifier), + _ReadReq'Options'StreamOptions'revisionOption :: !(Prelude.Maybe ReadReq'Options'StreamOptions'RevisionOption), + _ReadReq'Options'StreamOptions'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadReq'Options'StreamOptions where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data ReadReq'Options'StreamOptions'RevisionOption + = ReadReq'Options'StreamOptions'Revision !Data.Word.Word64 | + ReadReq'Options'StreamOptions'Start !Proto.Shared.Empty | + ReadReq'Options'StreamOptions'End !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField ReadReq'Options'StreamOptions "streamIdentifier" Proto.Shared.StreamIdentifier where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'StreamOptions'streamIdentifier + (\ x__ y__ + -> x__ {_ReadReq'Options'StreamOptions'streamIdentifier = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadReq'Options'StreamOptions "maybe'streamIdentifier" (Prelude.Maybe Proto.Shared.StreamIdentifier) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'StreamOptions'streamIdentifier + (\ x__ y__ + -> x__ {_ReadReq'Options'StreamOptions'streamIdentifier = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options'StreamOptions "maybe'revisionOption" (Prelude.Maybe ReadReq'Options'StreamOptions'RevisionOption) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'StreamOptions'revisionOption + (\ x__ y__ + -> x__ {_ReadReq'Options'StreamOptions'revisionOption = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options'StreamOptions "maybe'revision" (Prelude.Maybe Data.Word.Word64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'StreamOptions'revisionOption + (\ x__ y__ + -> x__ {_ReadReq'Options'StreamOptions'revisionOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'StreamOptions'Revision x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap ReadReq'Options'StreamOptions'Revision y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'StreamOptions "revision" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'StreamOptions'revisionOption + (\ x__ y__ + -> x__ {_ReadReq'Options'StreamOptions'revisionOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'StreamOptions'Revision x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap ReadReq'Options'StreamOptions'Revision y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'StreamOptions "maybe'start" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'StreamOptions'revisionOption + (\ x__ y__ + -> x__ {_ReadReq'Options'StreamOptions'revisionOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'StreamOptions'Start x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'StreamOptions'Start y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'StreamOptions "start" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'StreamOptions'revisionOption + (\ x__ y__ + -> x__ {_ReadReq'Options'StreamOptions'revisionOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'StreamOptions'Start x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'StreamOptions'Start y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'StreamOptions "maybe'end" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'StreamOptions'revisionOption + (\ x__ y__ + -> x__ {_ReadReq'Options'StreamOptions'revisionOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'StreamOptions'End x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'StreamOptions'End y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'StreamOptions "end" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'StreamOptions'revisionOption + (\ x__ y__ + -> x__ {_ReadReq'Options'StreamOptions'revisionOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'StreamOptions'End x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'StreamOptions'End y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message ReadReq'Options'StreamOptions where + messageName _ + = Data.Text.pack + "event_store.client.streams.ReadReq.Options.StreamOptions" + packedMessageDescriptor _ + = "\n\ + \\rStreamOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\FS\n\ + \\brevision\CAN\STX \SOH(\EOTH\NULR\brevision\DC28\n\ + \\ENQstart\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ENQstart\DC24\n\ + \\ETXend\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXendB\DC1\n\ + \\SIrevision_option" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + streamIdentifier__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_identifier" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.StreamIdentifier) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'streamIdentifier")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'StreamOptions + revision__field_descriptor + = Data.ProtoLens.FieldDescriptor + "revision" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'revision")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'StreamOptions + start__field_descriptor + = Data.ProtoLens.FieldDescriptor + "start" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'start")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'StreamOptions + end__field_descriptor + = Data.ProtoLens.FieldDescriptor + "end" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'end")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'StreamOptions + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, streamIdentifier__field_descriptor), + (Data.ProtoLens.Tag 2, revision__field_descriptor), + (Data.ProtoLens.Tag 3, start__field_descriptor), + (Data.ProtoLens.Tag 4, end__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadReq'Options'StreamOptions'_unknownFields + (\ x__ y__ + -> x__ {_ReadReq'Options'StreamOptions'_unknownFields = y__}) + defMessage + = ReadReq'Options'StreamOptions'_constructor + {_ReadReq'Options'StreamOptions'streamIdentifier = Prelude.Nothing, + _ReadReq'Options'StreamOptions'revisionOption = Prelude.Nothing, + _ReadReq'Options'StreamOptions'_unknownFields = []} + parseMessage + = let + loop :: + ReadReq'Options'StreamOptions + -> Data.ProtoLens.Encoding.Bytes.Parser ReadReq'Options'StreamOptions + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stream_identifier" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamIdentifier") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "revision" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"revision") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "start" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"start") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "end" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"end") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StreamOptions" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'streamIdentifier") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'revisionOption") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (ReadReq'Options'StreamOptions'Revision v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt v) + (Prelude.Just (ReadReq'Options'StreamOptions'Start v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (ReadReq'Options'StreamOptions'End v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ReadReq'Options'StreamOptions where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadReq'Options'StreamOptions'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'StreamOptions'streamIdentifier x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'StreamOptions'revisionOption x__) ())) +instance Control.DeepSeq.NFData ReadReq'Options'StreamOptions'RevisionOption where + rnf (ReadReq'Options'StreamOptions'Revision x__) + = Control.DeepSeq.rnf x__ + rnf (ReadReq'Options'StreamOptions'Start x__) + = Control.DeepSeq.rnf x__ + rnf (ReadReq'Options'StreamOptions'End x__) + = Control.DeepSeq.rnf x__ +_ReadReq'Options'StreamOptions'Revision :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'StreamOptions'RevisionOption Data.Word.Word64 +_ReadReq'Options'StreamOptions'Revision + = Data.ProtoLens.Prism.prism' + ReadReq'Options'StreamOptions'Revision + (\ p__ + -> case p__ of + (ReadReq'Options'StreamOptions'Revision p__val) + -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadReq'Options'StreamOptions'Start :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'StreamOptions'RevisionOption Proto.Shared.Empty +_ReadReq'Options'StreamOptions'Start + = Data.ProtoLens.Prism.prism' + ReadReq'Options'StreamOptions'Start + (\ p__ + -> case p__ of + (ReadReq'Options'StreamOptions'Start p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadReq'Options'StreamOptions'End :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'StreamOptions'RevisionOption Proto.Shared.Empty +_ReadReq'Options'StreamOptions'End + = Data.ProtoLens.Prism.prism' + ReadReq'Options'StreamOptions'End + (\ p__ + -> case p__ of + (ReadReq'Options'StreamOptions'End p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + -} +data ReadReq'Options'SubscriptionOptions + = ReadReq'Options'SubscriptionOptions'_constructor {_ReadReq'Options'SubscriptionOptions'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadReq'Options'SubscriptionOptions where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message ReadReq'Options'SubscriptionOptions where + messageName _ + = Data.Text.pack + "event_store.client.streams.ReadReq.Options.SubscriptionOptions" + packedMessageDescriptor _ + = "\n\ + \\DC3SubscriptionOptions" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadReq'Options'SubscriptionOptions'_unknownFields + (\ x__ y__ + -> x__ {_ReadReq'Options'SubscriptionOptions'_unknownFields = y__}) + defMessage + = ReadReq'Options'SubscriptionOptions'_constructor + {_ReadReq'Options'SubscriptionOptions'_unknownFields = []} + parseMessage + = let + loop :: + ReadReq'Options'SubscriptionOptions + -> Data.ProtoLens.Encoding.Bytes.Parser ReadReq'Options'SubscriptionOptions + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "SubscriptionOptions" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData ReadReq'Options'SubscriptionOptions where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadReq'Options'SubscriptionOptions'_unknownFields x__) () +{- | Fields : + + * 'Proto.Streams_Fields.maybe'content' @:: Lens' ReadReq'Options'UUIDOption (Prelude.Maybe ReadReq'Options'UUIDOption'Content)@ + * 'Proto.Streams_Fields.maybe'structured' @:: Lens' ReadReq'Options'UUIDOption (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.structured' @:: Lens' ReadReq'Options'UUIDOption Proto.Shared.Empty@ + * 'Proto.Streams_Fields.maybe'string' @:: Lens' ReadReq'Options'UUIDOption (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.string' @:: Lens' ReadReq'Options'UUIDOption Proto.Shared.Empty@ -} +data ReadReq'Options'UUIDOption + = ReadReq'Options'UUIDOption'_constructor {_ReadReq'Options'UUIDOption'content :: !(Prelude.Maybe ReadReq'Options'UUIDOption'Content), + _ReadReq'Options'UUIDOption'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadReq'Options'UUIDOption where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data ReadReq'Options'UUIDOption'Content + = ReadReq'Options'UUIDOption'Structured !Proto.Shared.Empty | + ReadReq'Options'UUIDOption'String !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField ReadReq'Options'UUIDOption "maybe'content" (Prelude.Maybe ReadReq'Options'UUIDOption'Content) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'UUIDOption'content + (\ x__ y__ -> x__ {_ReadReq'Options'UUIDOption'content = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadReq'Options'UUIDOption "maybe'structured" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'UUIDOption'content + (\ x__ y__ -> x__ {_ReadReq'Options'UUIDOption'content = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'UUIDOption'Structured x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap ReadReq'Options'UUIDOption'Structured y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'UUIDOption "structured" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'UUIDOption'content + (\ x__ y__ -> x__ {_ReadReq'Options'UUIDOption'content = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'UUIDOption'Structured x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap ReadReq'Options'UUIDOption'Structured y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'UUIDOption "maybe'string" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'UUIDOption'content + (\ x__ y__ -> x__ {_ReadReq'Options'UUIDOption'content = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'UUIDOption'String x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'UUIDOption'String y__)) +instance Data.ProtoLens.Field.HasField ReadReq'Options'UUIDOption "string" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadReq'Options'UUIDOption'content + (\ x__ y__ -> x__ {_ReadReq'Options'UUIDOption'content = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadReq'Options'UUIDOption'String x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadReq'Options'UUIDOption'String y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message ReadReq'Options'UUIDOption where + messageName _ + = Data.Text.pack + "event_store.client.streams.ReadReq.Options.UUIDOption" + packedMessageDescriptor _ + = "\n\ + \\n\ + \UUIDOption\DC2B\n\ + \\n\ + \structured\CAN\SOH \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \structured\DC2:\n\ + \\ACKstring\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ACKstringB\t\n\ + \\acontent" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + structured__field_descriptor + = Data.ProtoLens.FieldDescriptor + "structured" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'structured")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'UUIDOption + string__field_descriptor + = Data.ProtoLens.FieldDescriptor + "string" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'string")) :: + Data.ProtoLens.FieldDescriptor ReadReq'Options'UUIDOption + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, structured__field_descriptor), + (Data.ProtoLens.Tag 2, string__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadReq'Options'UUIDOption'_unknownFields + (\ x__ y__ + -> x__ {_ReadReq'Options'UUIDOption'_unknownFields = y__}) + defMessage + = ReadReq'Options'UUIDOption'_constructor + {_ReadReq'Options'UUIDOption'content = Prelude.Nothing, + _ReadReq'Options'UUIDOption'_unknownFields = []} + parseMessage + = let + loop :: + ReadReq'Options'UUIDOption + -> Data.ProtoLens.Encoding.Bytes.Parser ReadReq'Options'UUIDOption + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "structured" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"structured") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "string" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"string") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "UUIDOption" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'content") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (ReadReq'Options'UUIDOption'Structured v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (ReadReq'Options'UUIDOption'String v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ReadReq'Options'UUIDOption where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadReq'Options'UUIDOption'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadReq'Options'UUIDOption'content x__) ()) +instance Control.DeepSeq.NFData ReadReq'Options'UUIDOption'Content where + rnf (ReadReq'Options'UUIDOption'Structured x__) + = Control.DeepSeq.rnf x__ + rnf (ReadReq'Options'UUIDOption'String x__) + = Control.DeepSeq.rnf x__ +_ReadReq'Options'UUIDOption'Structured :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'UUIDOption'Content Proto.Shared.Empty +_ReadReq'Options'UUIDOption'Structured + = Data.ProtoLens.Prism.prism' + ReadReq'Options'UUIDOption'Structured + (\ p__ + -> case p__ of + (ReadReq'Options'UUIDOption'Structured p__val) + -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadReq'Options'UUIDOption'String :: + Data.ProtoLens.Prism.Prism' ReadReq'Options'UUIDOption'Content Proto.Shared.Empty +_ReadReq'Options'UUIDOption'String + = Data.ProtoLens.Prism.prism' + ReadReq'Options'UUIDOption'String + (\ p__ + -> case p__ of + (ReadReq'Options'UUIDOption'String p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Streams_Fields.maybe'content' @:: Lens' ReadResp (Prelude.Maybe ReadResp'Content)@ + * 'Proto.Streams_Fields.maybe'event' @:: Lens' ReadResp (Prelude.Maybe ReadResp'ReadEvent)@ + * 'Proto.Streams_Fields.event' @:: Lens' ReadResp ReadResp'ReadEvent@ + * 'Proto.Streams_Fields.maybe'confirmation' @:: Lens' ReadResp (Prelude.Maybe ReadResp'SubscriptionConfirmation)@ + * 'Proto.Streams_Fields.confirmation' @:: Lens' ReadResp ReadResp'SubscriptionConfirmation@ + * 'Proto.Streams_Fields.maybe'checkpoint' @:: Lens' ReadResp (Prelude.Maybe ReadResp'Checkpoint)@ + * 'Proto.Streams_Fields.checkpoint' @:: Lens' ReadResp ReadResp'Checkpoint@ + * 'Proto.Streams_Fields.maybe'streamNotFound' @:: Lens' ReadResp (Prelude.Maybe ReadResp'StreamNotFound)@ + * 'Proto.Streams_Fields.streamNotFound' @:: Lens' ReadResp ReadResp'StreamNotFound@ -} +data ReadResp + = ReadResp'_constructor {_ReadResp'content :: !(Prelude.Maybe ReadResp'Content), + _ReadResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data ReadResp'Content + = ReadResp'Event !ReadResp'ReadEvent | + ReadResp'Confirmation !ReadResp'SubscriptionConfirmation | + ReadResp'Checkpoint' !ReadResp'Checkpoint | + ReadResp'StreamNotFound' !ReadResp'StreamNotFound + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField ReadResp "maybe'content" (Prelude.Maybe ReadResp'Content) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'content (\ x__ y__ -> x__ {_ReadResp'content = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp "maybe'event" (Prelude.Maybe ReadResp'ReadEvent) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'content (\ x__ y__ -> x__ {_ReadResp'content = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'Event x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'Event y__)) +instance Data.ProtoLens.Field.HasField ReadResp "event" ReadResp'ReadEvent where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'content (\ x__ y__ -> x__ {_ReadResp'content = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'Event x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'Event y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField ReadResp "maybe'confirmation" (Prelude.Maybe ReadResp'SubscriptionConfirmation) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'content (\ x__ y__ -> x__ {_ReadResp'content = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'Confirmation x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'Confirmation y__)) +instance Data.ProtoLens.Field.HasField ReadResp "confirmation" ReadResp'SubscriptionConfirmation where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'content (\ x__ y__ -> x__ {_ReadResp'content = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'Confirmation x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'Confirmation y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField ReadResp "maybe'checkpoint" (Prelude.Maybe ReadResp'Checkpoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'content (\ x__ y__ -> x__ {_ReadResp'content = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'Checkpoint' x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'Checkpoint' y__)) +instance Data.ProtoLens.Field.HasField ReadResp "checkpoint" ReadResp'Checkpoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'content (\ x__ y__ -> x__ {_ReadResp'content = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'Checkpoint' x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'Checkpoint' y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField ReadResp "maybe'streamNotFound" (Prelude.Maybe ReadResp'StreamNotFound) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'content (\ x__ y__ -> x__ {_ReadResp'content = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'StreamNotFound' x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'StreamNotFound' y__)) +instance Data.ProtoLens.Field.HasField ReadResp "streamNotFound" ReadResp'StreamNotFound where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'content (\ x__ y__ -> x__ {_ReadResp'content = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'StreamNotFound' x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'StreamNotFound' y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message ReadResp where + messageName _ + = Data.Text.pack "event_store.client.streams.ReadResp" + packedMessageDescriptor _ + = "\n\ + \\bReadResp\DC2F\n\ + \\ENQevent\CAN\SOH \SOH(\v2..event_store.client.streams.ReadResp.ReadEventH\NULR\ENQevent\DC2c\n\ + \\fconfirmation\CAN\STX \SOH(\v2=.event_store.client.streams.ReadResp.SubscriptionConfirmationH\NULR\fconfirmation\DC2Q\n\ + \\n\ + \checkpoint\CAN\ETX \SOH(\v2/.event_store.client.streams.ReadResp.CheckpointH\NULR\n\ + \checkpoint\DC2_\n\ + \\DLEstream_not_found\CAN\EOT \SOH(\v23.event_store.client.streams.ReadResp.StreamNotFoundH\NULR\SOstreamNotFound\SUB\169\ACK\n\ + \\tReadEvent\DC2R\n\ + \\ENQevent\CAN\SOH \SOH(\v2<.event_store.client.streams.ReadResp.ReadEvent.RecordedEventR\ENQevent\DC2P\n\ + \\EOTlink\CAN\STX \SOH(\v2<.event_store.client.streams.ReadResp.ReadEvent.RecordedEventR\EOTlink\DC2)\n\ + \\SIcommit_position\CAN\ETX \SOH(\EOTH\NULR\SOcommitPosition\DC2C\n\ + \\vno_position\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \noPosition\SUB\249\ETX\n\ + \\rRecordedEvent\DC2/\n\ + \\STXid\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\STXid\DC2X\n\ + \\DC1stream_identifier\CAN\STX \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2'\n\ + \\SIstream_revision\CAN\ETX \SOH(\EOTR\SOstreamRevision\DC2)\n\ + \\DLEprepare_position\CAN\EOT \SOH(\EOTR\SIpreparePosition\DC2'\n\ + \\SIcommit_position\CAN\ENQ \SOH(\EOTR\SOcommitPosition\DC2f\n\ + \\bmetadata\CAN\ACK \ETX(\v2J.event_store.client.streams.ReadResp.ReadEvent.RecordedEvent.MetadataEntryR\bmetadata\DC2'\n\ + \\SIcustom_metadata\CAN\a \SOH(\fR\SOcustomMetadata\DC2\DC2\n\ + \\EOTdata\CAN\b \SOH(\fR\EOTdata\SUB;\n\ + \\rMetadataEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOHB\n\ + \\n\ + \\bposition\SUBC\n\ + \\CANSubscriptionConfirmation\DC2'\n\ + \\SIsubscription_id\CAN\SOH \SOH(\tR\SOsubscriptionId\SUB`\n\ + \\n\ + \Checkpoint\DC2'\n\ + \\SIcommit_position\CAN\SOH \SOH(\EOTR\SOcommitPosition\DC2)\n\ + \\DLEprepare_position\CAN\STX \SOH(\EOTR\SIpreparePosition\SUBj\n\ + \\SOStreamNotFound\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifierB\t\n\ + \\acontent" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + event__field_descriptor + = Data.ProtoLens.FieldDescriptor + "event" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadResp'ReadEvent) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'event")) :: + Data.ProtoLens.FieldDescriptor ReadResp + confirmation__field_descriptor + = Data.ProtoLens.FieldDescriptor + "confirmation" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadResp'SubscriptionConfirmation) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'confirmation")) :: + Data.ProtoLens.FieldDescriptor ReadResp + checkpoint__field_descriptor + = Data.ProtoLens.FieldDescriptor + "checkpoint" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadResp'Checkpoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'checkpoint")) :: + Data.ProtoLens.FieldDescriptor ReadResp + streamNotFound__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_not_found" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadResp'StreamNotFound) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'streamNotFound")) :: + Data.ProtoLens.FieldDescriptor ReadResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, event__field_descriptor), + (Data.ProtoLens.Tag 2, confirmation__field_descriptor), + (Data.ProtoLens.Tag 3, checkpoint__field_descriptor), + (Data.ProtoLens.Tag 4, streamNotFound__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadResp'_unknownFields + (\ x__ y__ -> x__ {_ReadResp'_unknownFields = y__}) + defMessage + = ReadResp'_constructor + {_ReadResp'content = Prelude.Nothing, + _ReadResp'_unknownFields = []} + parseMessage + = let + loop :: ReadResp -> Data.ProtoLens.Encoding.Bytes.Parser ReadResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "event" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"event") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "confirmation" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"confirmation") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "checkpoint" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"checkpoint") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stream_not_found" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamNotFound") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ReadResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'content") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (ReadResp'Event v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (ReadResp'Confirmation v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (ReadResp'Checkpoint' v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (ReadResp'StreamNotFound' v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ReadResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadResp'_unknownFields x__) + (Control.DeepSeq.deepseq (_ReadResp'content x__) ()) +instance Control.DeepSeq.NFData ReadResp'Content where + rnf (ReadResp'Event x__) = Control.DeepSeq.rnf x__ + rnf (ReadResp'Confirmation x__) = Control.DeepSeq.rnf x__ + rnf (ReadResp'Checkpoint' x__) = Control.DeepSeq.rnf x__ + rnf (ReadResp'StreamNotFound' x__) = Control.DeepSeq.rnf x__ +_ReadResp'Event :: + Data.ProtoLens.Prism.Prism' ReadResp'Content ReadResp'ReadEvent +_ReadResp'Event + = Data.ProtoLens.Prism.prism' + ReadResp'Event + (\ p__ + -> case p__ of + (ReadResp'Event p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadResp'Confirmation :: + Data.ProtoLens.Prism.Prism' ReadResp'Content ReadResp'SubscriptionConfirmation +_ReadResp'Confirmation + = Data.ProtoLens.Prism.prism' + ReadResp'Confirmation + (\ p__ + -> case p__ of + (ReadResp'Confirmation p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadResp'Checkpoint' :: + Data.ProtoLens.Prism.Prism' ReadResp'Content ReadResp'Checkpoint +_ReadResp'Checkpoint' + = Data.ProtoLens.Prism.prism' + ReadResp'Checkpoint' + (\ p__ + -> case p__ of + (ReadResp'Checkpoint' p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadResp'StreamNotFound' :: + Data.ProtoLens.Prism.Prism' ReadResp'Content ReadResp'StreamNotFound +_ReadResp'StreamNotFound' + = Data.ProtoLens.Prism.prism' + ReadResp'StreamNotFound' + (\ p__ + -> case p__ of + (ReadResp'StreamNotFound' p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Streams_Fields.commitPosition' @:: Lens' ReadResp'Checkpoint Data.Word.Word64@ + * 'Proto.Streams_Fields.preparePosition' @:: Lens' ReadResp'Checkpoint Data.Word.Word64@ -} +data ReadResp'Checkpoint + = ReadResp'Checkpoint'_constructor {_ReadResp'Checkpoint'commitPosition :: !Data.Word.Word64, + _ReadResp'Checkpoint'preparePosition :: !Data.Word.Word64, + _ReadResp'Checkpoint'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadResp'Checkpoint where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadResp'Checkpoint "commitPosition" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'Checkpoint'commitPosition + (\ x__ y__ -> x__ {_ReadResp'Checkpoint'commitPosition = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'Checkpoint "preparePosition" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'Checkpoint'preparePosition + (\ x__ y__ -> x__ {_ReadResp'Checkpoint'preparePosition = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadResp'Checkpoint where + messageName _ + = Data.Text.pack "event_store.client.streams.ReadResp.Checkpoint" + packedMessageDescriptor _ + = "\n\ + \\n\ + \Checkpoint\DC2'\n\ + \\SIcommit_position\CAN\SOH \SOH(\EOTR\SOcommitPosition\DC2)\n\ + \\DLEprepare_position\CAN\STX \SOH(\EOTR\SIpreparePosition" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + commitPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "commit_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"commitPosition")) :: + Data.ProtoLens.FieldDescriptor ReadResp'Checkpoint + preparePosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "prepare_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"preparePosition")) :: + Data.ProtoLens.FieldDescriptor ReadResp'Checkpoint + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, commitPosition__field_descriptor), + (Data.ProtoLens.Tag 2, preparePosition__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadResp'Checkpoint'_unknownFields + (\ x__ y__ -> x__ {_ReadResp'Checkpoint'_unknownFields = y__}) + defMessage + = ReadResp'Checkpoint'_constructor + {_ReadResp'Checkpoint'commitPosition = Data.ProtoLens.fieldDefault, + _ReadResp'Checkpoint'preparePosition = Data.ProtoLens.fieldDefault, + _ReadResp'Checkpoint'_unknownFields = []} + parseMessage + = let + loop :: + ReadResp'Checkpoint + -> Data.ProtoLens.Encoding.Bytes.Parser ReadResp'Checkpoint + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "commit_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"commitPosition") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "prepare_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"preparePosition") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Checkpoint" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"commitPosition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"preparePosition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ReadResp'Checkpoint where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadResp'Checkpoint'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadResp'Checkpoint'commitPosition x__) + (Control.DeepSeq.deepseq + (_ReadResp'Checkpoint'preparePosition x__) ())) +{- | Fields : + + * 'Proto.Streams_Fields.event' @:: Lens' ReadResp'ReadEvent ReadResp'ReadEvent'RecordedEvent@ + * 'Proto.Streams_Fields.maybe'event' @:: Lens' ReadResp'ReadEvent (Prelude.Maybe ReadResp'ReadEvent'RecordedEvent)@ + * 'Proto.Streams_Fields.link' @:: Lens' ReadResp'ReadEvent ReadResp'ReadEvent'RecordedEvent@ + * 'Proto.Streams_Fields.maybe'link' @:: Lens' ReadResp'ReadEvent (Prelude.Maybe ReadResp'ReadEvent'RecordedEvent)@ + * 'Proto.Streams_Fields.maybe'position' @:: Lens' ReadResp'ReadEvent (Prelude.Maybe ReadResp'ReadEvent'Position)@ + * 'Proto.Streams_Fields.maybe'commitPosition' @:: Lens' ReadResp'ReadEvent (Prelude.Maybe Data.Word.Word64)@ + * 'Proto.Streams_Fields.commitPosition' @:: Lens' ReadResp'ReadEvent Data.Word.Word64@ + * 'Proto.Streams_Fields.maybe'noPosition' @:: Lens' ReadResp'ReadEvent (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.noPosition' @:: Lens' ReadResp'ReadEvent Proto.Shared.Empty@ -} +data ReadResp'ReadEvent + = ReadResp'ReadEvent'_constructor {_ReadResp'ReadEvent'event :: !(Prelude.Maybe ReadResp'ReadEvent'RecordedEvent), + _ReadResp'ReadEvent'link :: !(Prelude.Maybe ReadResp'ReadEvent'RecordedEvent), + _ReadResp'ReadEvent'position :: !(Prelude.Maybe ReadResp'ReadEvent'Position), + _ReadResp'ReadEvent'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadResp'ReadEvent where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data ReadResp'ReadEvent'Position + = ReadResp'ReadEvent'CommitPosition !Data.Word.Word64 | + ReadResp'ReadEvent'NoPosition !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "event" ReadResp'ReadEvent'RecordedEvent where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'event + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'event = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "maybe'event" (Prelude.Maybe ReadResp'ReadEvent'RecordedEvent) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'event + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'event = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "link" ReadResp'ReadEvent'RecordedEvent where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'link + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'link = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "maybe'link" (Prelude.Maybe ReadResp'ReadEvent'RecordedEvent) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'link + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'link = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "maybe'position" (Prelude.Maybe ReadResp'ReadEvent'Position) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'position + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'position = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "maybe'commitPosition" (Prelude.Maybe Data.Word.Word64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'position + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'position = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'ReadEvent'CommitPosition x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'ReadEvent'CommitPosition y__)) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "commitPosition" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'position + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'position = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'ReadEvent'CommitPosition x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'ReadEvent'CommitPosition y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "maybe'noPosition" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'position + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'position = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'ReadEvent'NoPosition x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'ReadEvent'NoPosition y__)) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent "noPosition" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'position + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'position = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadResp'ReadEvent'NoPosition x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadResp'ReadEvent'NoPosition y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message ReadResp'ReadEvent where + messageName _ + = Data.Text.pack "event_store.client.streams.ReadResp.ReadEvent" + packedMessageDescriptor _ + = "\n\ + \\tReadEvent\DC2R\n\ + \\ENQevent\CAN\SOH \SOH(\v2<.event_store.client.streams.ReadResp.ReadEvent.RecordedEventR\ENQevent\DC2P\n\ + \\EOTlink\CAN\STX \SOH(\v2<.event_store.client.streams.ReadResp.ReadEvent.RecordedEventR\EOTlink\DC2)\n\ + \\SIcommit_position\CAN\ETX \SOH(\EOTH\NULR\SOcommitPosition\DC2C\n\ + \\vno_position\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \noPosition\SUB\249\ETX\n\ + \\rRecordedEvent\DC2/\n\ + \\STXid\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\STXid\DC2X\n\ + \\DC1stream_identifier\CAN\STX \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2'\n\ + \\SIstream_revision\CAN\ETX \SOH(\EOTR\SOstreamRevision\DC2)\n\ + \\DLEprepare_position\CAN\EOT \SOH(\EOTR\SIpreparePosition\DC2'\n\ + \\SIcommit_position\CAN\ENQ \SOH(\EOTR\SOcommitPosition\DC2f\n\ + \\bmetadata\CAN\ACK \ETX(\v2J.event_store.client.streams.ReadResp.ReadEvent.RecordedEvent.MetadataEntryR\bmetadata\DC2'\n\ + \\SIcustom_metadata\CAN\a \SOH(\fR\SOcustomMetadata\DC2\DC2\n\ + \\EOTdata\CAN\b \SOH(\fR\EOTdata\SUB;\n\ + \\rMetadataEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOHB\n\ + \\n\ + \\bposition" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + event__field_descriptor + = Data.ProtoLens.FieldDescriptor + "event" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadResp'ReadEvent'RecordedEvent) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'event")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent + link__field_descriptor + = Data.ProtoLens.FieldDescriptor + "link" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadResp'ReadEvent'RecordedEvent) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'link")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent + commitPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "commit_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'commitPosition")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent + noPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "no_position" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'noPosition")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, event__field_descriptor), + (Data.ProtoLens.Tag 2, link__field_descriptor), + (Data.ProtoLens.Tag 3, commitPosition__field_descriptor), + (Data.ProtoLens.Tag 4, noPosition__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'_unknownFields + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'_unknownFields = y__}) + defMessage + = ReadResp'ReadEvent'_constructor + {_ReadResp'ReadEvent'event = Prelude.Nothing, + _ReadResp'ReadEvent'link = Prelude.Nothing, + _ReadResp'ReadEvent'position = Prelude.Nothing, + _ReadResp'ReadEvent'_unknownFields = []} + parseMessage + = let + loop :: + ReadResp'ReadEvent + -> Data.ProtoLens.Encoding.Bytes.Parser ReadResp'ReadEvent + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "event" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"event") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "link" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"link") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "commit_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"commitPosition") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "no_position" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"noPosition") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ReadEvent" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'event") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'link") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'position") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (ReadResp'ReadEvent'CommitPosition v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + (Data.ProtoLens.Encoding.Bytes.putVarInt v) + (Prelude.Just (ReadResp'ReadEvent'NoPosition v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData ReadResp'ReadEvent where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'event x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'link x__) + (Control.DeepSeq.deepseq (_ReadResp'ReadEvent'position x__) ()))) +instance Control.DeepSeq.NFData ReadResp'ReadEvent'Position where + rnf (ReadResp'ReadEvent'CommitPosition x__) + = Control.DeepSeq.rnf x__ + rnf (ReadResp'ReadEvent'NoPosition x__) = Control.DeepSeq.rnf x__ +_ReadResp'ReadEvent'CommitPosition :: + Data.ProtoLens.Prism.Prism' ReadResp'ReadEvent'Position Data.Word.Word64 +_ReadResp'ReadEvent'CommitPosition + = Data.ProtoLens.Prism.prism' + ReadResp'ReadEvent'CommitPosition + (\ p__ + -> case p__ of + (ReadResp'ReadEvent'CommitPosition p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_ReadResp'ReadEvent'NoPosition :: + Data.ProtoLens.Prism.Prism' ReadResp'ReadEvent'Position Proto.Shared.Empty +_ReadResp'ReadEvent'NoPosition + = Data.ProtoLens.Prism.prism' + ReadResp'ReadEvent'NoPosition + (\ p__ + -> case p__ of + (ReadResp'ReadEvent'NoPosition p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Streams_Fields.id' @:: Lens' ReadResp'ReadEvent'RecordedEvent Proto.Shared.UUID@ + * 'Proto.Streams_Fields.maybe'id' @:: Lens' ReadResp'ReadEvent'RecordedEvent (Prelude.Maybe Proto.Shared.UUID)@ + * 'Proto.Streams_Fields.streamIdentifier' @:: Lens' ReadResp'ReadEvent'RecordedEvent Proto.Shared.StreamIdentifier@ + * 'Proto.Streams_Fields.maybe'streamIdentifier' @:: Lens' ReadResp'ReadEvent'RecordedEvent (Prelude.Maybe Proto.Shared.StreamIdentifier)@ + * 'Proto.Streams_Fields.streamRevision' @:: Lens' ReadResp'ReadEvent'RecordedEvent Data.Word.Word64@ + * 'Proto.Streams_Fields.preparePosition' @:: Lens' ReadResp'ReadEvent'RecordedEvent Data.Word.Word64@ + * 'Proto.Streams_Fields.commitPosition' @:: Lens' ReadResp'ReadEvent'RecordedEvent Data.Word.Word64@ + * 'Proto.Streams_Fields.metadata' @:: Lens' ReadResp'ReadEvent'RecordedEvent (Data.Map.Map Data.Text.Text Data.Text.Text)@ + * 'Proto.Streams_Fields.customMetadata' @:: Lens' ReadResp'ReadEvent'RecordedEvent Data.ByteString.ByteString@ + * 'Proto.Streams_Fields.data'' @:: Lens' ReadResp'ReadEvent'RecordedEvent Data.ByteString.ByteString@ -} +data ReadResp'ReadEvent'RecordedEvent + = ReadResp'ReadEvent'RecordedEvent'_constructor {_ReadResp'ReadEvent'RecordedEvent'id :: !(Prelude.Maybe Proto.Shared.UUID), + _ReadResp'ReadEvent'RecordedEvent'streamIdentifier :: !(Prelude.Maybe Proto.Shared.StreamIdentifier), + _ReadResp'ReadEvent'RecordedEvent'streamRevision :: !Data.Word.Word64, + _ReadResp'ReadEvent'RecordedEvent'preparePosition :: !Data.Word.Word64, + _ReadResp'ReadEvent'RecordedEvent'commitPosition :: !Data.Word.Word64, + _ReadResp'ReadEvent'RecordedEvent'metadata :: !(Data.Map.Map Data.Text.Text Data.Text.Text), + _ReadResp'ReadEvent'RecordedEvent'customMetadata :: !Data.ByteString.ByteString, + _ReadResp'ReadEvent'RecordedEvent'data' :: !Data.ByteString.ByteString, + _ReadResp'ReadEvent'RecordedEvent'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadResp'ReadEvent'RecordedEvent where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "id" Proto.Shared.UUID where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'id + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'RecordedEvent'id = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "maybe'id" (Prelude.Maybe Proto.Shared.UUID) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'id + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'RecordedEvent'id = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "streamIdentifier" Proto.Shared.StreamIdentifier where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'streamIdentifier + (\ x__ y__ + -> x__ {_ReadResp'ReadEvent'RecordedEvent'streamIdentifier = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "maybe'streamIdentifier" (Prelude.Maybe Proto.Shared.StreamIdentifier) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'streamIdentifier + (\ x__ y__ + -> x__ {_ReadResp'ReadEvent'RecordedEvent'streamIdentifier = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "streamRevision" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'streamRevision + (\ x__ y__ + -> x__ {_ReadResp'ReadEvent'RecordedEvent'streamRevision = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "preparePosition" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'preparePosition + (\ x__ y__ + -> x__ {_ReadResp'ReadEvent'RecordedEvent'preparePosition = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "commitPosition" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'commitPosition + (\ x__ y__ + -> x__ {_ReadResp'ReadEvent'RecordedEvent'commitPosition = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "metadata" (Data.Map.Map Data.Text.Text Data.Text.Text) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'metadata + (\ x__ y__ + -> x__ {_ReadResp'ReadEvent'RecordedEvent'metadata = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "customMetadata" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'customMetadata + (\ x__ y__ + -> x__ {_ReadResp'ReadEvent'RecordedEvent'customMetadata = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent "data'" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'data' + (\ x__ y__ -> x__ {_ReadResp'ReadEvent'RecordedEvent'data' = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadResp'ReadEvent'RecordedEvent where + messageName _ + = Data.Text.pack + "event_store.client.streams.ReadResp.ReadEvent.RecordedEvent" + packedMessageDescriptor _ + = "\n\ + \\rRecordedEvent\DC2/\n\ + \\STXid\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\STXid\DC2X\n\ + \\DC1stream_identifier\CAN\STX \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2'\n\ + \\SIstream_revision\CAN\ETX \SOH(\EOTR\SOstreamRevision\DC2)\n\ + \\DLEprepare_position\CAN\EOT \SOH(\EOTR\SIpreparePosition\DC2'\n\ + \\SIcommit_position\CAN\ENQ \SOH(\EOTR\SOcommitPosition\DC2f\n\ + \\bmetadata\CAN\ACK \ETX(\v2J.event_store.client.streams.ReadResp.ReadEvent.RecordedEvent.MetadataEntryR\bmetadata\DC2'\n\ + \\SIcustom_metadata\CAN\a \SOH(\fR\SOcustomMetadata\DC2\DC2\n\ + \\EOTdata\CAN\b \SOH(\fR\EOTdata\SUB;\n\ + \\rMetadataEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + id__field_descriptor + = Data.ProtoLens.FieldDescriptor + "id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.UUID) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'id")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent + streamIdentifier__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_identifier" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.StreamIdentifier) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'streamIdentifier")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent + streamRevision__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_revision" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"streamRevision")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent + preparePosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "prepare_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"preparePosition")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent + commitPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "commit_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"commitPosition")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent + metadata__field_descriptor + = Data.ProtoLens.FieldDescriptor + "metadata" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ReadResp'ReadEvent'RecordedEvent'MetadataEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"metadata")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent + customMetadata__field_descriptor + = Data.ProtoLens.FieldDescriptor + "custom_metadata" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"customMetadata")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent + data'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "data" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"data'")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, id__field_descriptor), + (Data.ProtoLens.Tag 2, streamIdentifier__field_descriptor), + (Data.ProtoLens.Tag 3, streamRevision__field_descriptor), + (Data.ProtoLens.Tag 4, preparePosition__field_descriptor), + (Data.ProtoLens.Tag 5, commitPosition__field_descriptor), + (Data.ProtoLens.Tag 6, metadata__field_descriptor), + (Data.ProtoLens.Tag 7, customMetadata__field_descriptor), + (Data.ProtoLens.Tag 8, data'__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'_unknownFields + (\ x__ y__ + -> x__ {_ReadResp'ReadEvent'RecordedEvent'_unknownFields = y__}) + defMessage + = ReadResp'ReadEvent'RecordedEvent'_constructor + {_ReadResp'ReadEvent'RecordedEvent'id = Prelude.Nothing, + _ReadResp'ReadEvent'RecordedEvent'streamIdentifier = Prelude.Nothing, + _ReadResp'ReadEvent'RecordedEvent'streamRevision = Data.ProtoLens.fieldDefault, + _ReadResp'ReadEvent'RecordedEvent'preparePosition = Data.ProtoLens.fieldDefault, + _ReadResp'ReadEvent'RecordedEvent'commitPosition = Data.ProtoLens.fieldDefault, + _ReadResp'ReadEvent'RecordedEvent'metadata = Data.Map.empty, + _ReadResp'ReadEvent'RecordedEvent'customMetadata = Data.ProtoLens.fieldDefault, + _ReadResp'ReadEvent'RecordedEvent'data' = Data.ProtoLens.fieldDefault, + _ReadResp'ReadEvent'RecordedEvent'_unknownFields = []} + parseMessage + = let + loop :: + ReadResp'ReadEvent'RecordedEvent + -> Data.ProtoLens.Encoding.Bytes.Parser ReadResp'ReadEvent'RecordedEvent + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "id" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stream_identifier" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamIdentifier") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "stream_revision" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamRevision") y x) + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "prepare_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"preparePosition") y x) + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "commit_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"commitPosition") y x) + 50 + -> do !(entry :: ReadResp'ReadEvent'RecordedEvent'MetadataEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "metadata" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"metadata") + (\ !t -> Data.Map.insert key value t) + x)) + 58 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "custom_metadata" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"customMetadata") y x) + 66 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "data" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"data'") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RecordedEvent" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'id") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'streamIdentifier") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"streamRevision") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"preparePosition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"commitPosition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") + (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") + (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + ReadResp'ReadEvent'RecordedEvent'MetadataEntry))))) + (Data.Map.toList + (Lens.Family2.view + (Data.ProtoLens.Field.field @"metadata") _x)))) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"customMetadata") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"data'") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 66) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))))) +instance Control.DeepSeq.NFData ReadResp'ReadEvent'RecordedEvent where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'id x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'streamIdentifier x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'streamRevision x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'preparePosition x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'commitPosition x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'metadata x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'customMetadata x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'data' x__) ())))))))) +{- | Fields : + + * 'Proto.Streams_Fields.key' @:: Lens' ReadResp'ReadEvent'RecordedEvent'MetadataEntry Data.Text.Text@ + * 'Proto.Streams_Fields.value' @:: Lens' ReadResp'ReadEvent'RecordedEvent'MetadataEntry Data.Text.Text@ -} +data ReadResp'ReadEvent'RecordedEvent'MetadataEntry + = ReadResp'ReadEvent'RecordedEvent'MetadataEntry'_constructor {_ReadResp'ReadEvent'RecordedEvent'MetadataEntry'key :: !Data.Text.Text, + _ReadResp'ReadEvent'RecordedEvent'MetadataEntry'value :: !Data.Text.Text, + _ReadResp'ReadEvent'RecordedEvent'MetadataEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadResp'ReadEvent'RecordedEvent'MetadataEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent'MetadataEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'MetadataEntry'key + (\ x__ y__ + -> x__ + {_ReadResp'ReadEvent'RecordedEvent'MetadataEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadResp'ReadEvent'RecordedEvent'MetadataEntry "value" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'MetadataEntry'value + (\ x__ y__ + -> x__ + {_ReadResp'ReadEvent'RecordedEvent'MetadataEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadResp'ReadEvent'RecordedEvent'MetadataEntry where + messageName _ + = Data.Text.pack + "event_store.client.streams.ReadResp.ReadEvent.RecordedEvent.MetadataEntry" + packedMessageDescriptor _ + = "\n\ + \\rMetadataEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent'MetadataEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor ReadResp'ReadEvent'RecordedEvent'MetadataEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadResp'ReadEvent'RecordedEvent'MetadataEntry'_unknownFields + (\ x__ y__ + -> x__ + {_ReadResp'ReadEvent'RecordedEvent'MetadataEntry'_unknownFields = y__}) + defMessage + = ReadResp'ReadEvent'RecordedEvent'MetadataEntry'_constructor + {_ReadResp'ReadEvent'RecordedEvent'MetadataEntry'key = Data.ProtoLens.fieldDefault, + _ReadResp'ReadEvent'RecordedEvent'MetadataEntry'value = Data.ProtoLens.fieldDefault, + _ReadResp'ReadEvent'RecordedEvent'MetadataEntry'_unknownFields = []} + parseMessage + = let + loop :: + ReadResp'ReadEvent'RecordedEvent'MetadataEntry + -> Data.ProtoLens.Encoding.Bytes.Parser ReadResp'ReadEvent'RecordedEvent'MetadataEntry + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "MetadataEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ReadResp'ReadEvent'RecordedEvent'MetadataEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'MetadataEntry'_unknownFields + x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'MetadataEntry'key x__) + (Control.DeepSeq.deepseq + (_ReadResp'ReadEvent'RecordedEvent'MetadataEntry'value x__) ())) +{- | Fields : + + * 'Proto.Streams_Fields.streamIdentifier' @:: Lens' ReadResp'StreamNotFound Proto.Shared.StreamIdentifier@ + * 'Proto.Streams_Fields.maybe'streamIdentifier' @:: Lens' ReadResp'StreamNotFound (Prelude.Maybe Proto.Shared.StreamIdentifier)@ -} +data ReadResp'StreamNotFound + = ReadResp'StreamNotFound'_constructor {_ReadResp'StreamNotFound'streamIdentifier :: !(Prelude.Maybe Proto.Shared.StreamIdentifier), + _ReadResp'StreamNotFound'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadResp'StreamNotFound where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadResp'StreamNotFound "streamIdentifier" Proto.Shared.StreamIdentifier where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'StreamNotFound'streamIdentifier + (\ x__ y__ + -> x__ {_ReadResp'StreamNotFound'streamIdentifier = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadResp'StreamNotFound "maybe'streamIdentifier" (Prelude.Maybe Proto.Shared.StreamIdentifier) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'StreamNotFound'streamIdentifier + (\ x__ y__ + -> x__ {_ReadResp'StreamNotFound'streamIdentifier = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadResp'StreamNotFound where + messageName _ + = Data.Text.pack + "event_store.client.streams.ReadResp.StreamNotFound" + packedMessageDescriptor _ + = "\n\ + \\SOStreamNotFound\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + streamIdentifier__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_identifier" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.StreamIdentifier) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'streamIdentifier")) :: + Data.ProtoLens.FieldDescriptor ReadResp'StreamNotFound + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, streamIdentifier__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadResp'StreamNotFound'_unknownFields + (\ x__ y__ -> x__ {_ReadResp'StreamNotFound'_unknownFields = y__}) + defMessage + = ReadResp'StreamNotFound'_constructor + {_ReadResp'StreamNotFound'streamIdentifier = Prelude.Nothing, + _ReadResp'StreamNotFound'_unknownFields = []} + parseMessage + = let + loop :: + ReadResp'StreamNotFound + -> Data.ProtoLens.Encoding.Bytes.Parser ReadResp'StreamNotFound + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stream_identifier" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamIdentifier") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StreamNotFound" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'streamIdentifier") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ReadResp'StreamNotFound where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadResp'StreamNotFound'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadResp'StreamNotFound'streamIdentifier x__) ()) +{- | Fields : + + * 'Proto.Streams_Fields.subscriptionId' @:: Lens' ReadResp'SubscriptionConfirmation Data.Text.Text@ -} +data ReadResp'SubscriptionConfirmation + = ReadResp'SubscriptionConfirmation'_constructor {_ReadResp'SubscriptionConfirmation'subscriptionId :: !Data.Text.Text, + _ReadResp'SubscriptionConfirmation'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadResp'SubscriptionConfirmation where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadResp'SubscriptionConfirmation "subscriptionId" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadResp'SubscriptionConfirmation'subscriptionId + (\ x__ y__ + -> x__ {_ReadResp'SubscriptionConfirmation'subscriptionId = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadResp'SubscriptionConfirmation where + messageName _ + = Data.Text.pack + "event_store.client.streams.ReadResp.SubscriptionConfirmation" + packedMessageDescriptor _ + = "\n\ + \\CANSubscriptionConfirmation\DC2'\n\ + \\SIsubscription_id\CAN\SOH \SOH(\tR\SOsubscriptionId" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + subscriptionId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "subscription_id" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"subscriptionId")) :: + Data.ProtoLens.FieldDescriptor ReadResp'SubscriptionConfirmation + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, subscriptionId__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadResp'SubscriptionConfirmation'_unknownFields + (\ x__ y__ + -> x__ {_ReadResp'SubscriptionConfirmation'_unknownFields = y__}) + defMessage + = ReadResp'SubscriptionConfirmation'_constructor + {_ReadResp'SubscriptionConfirmation'subscriptionId = Data.ProtoLens.fieldDefault, + _ReadResp'SubscriptionConfirmation'_unknownFields = []} + parseMessage + = let + loop :: + ReadResp'SubscriptionConfirmation + -> Data.ProtoLens.Encoding.Bytes.Parser ReadResp'SubscriptionConfirmation + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "subscription_id" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"subscriptionId") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "SubscriptionConfirmation" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"subscriptionId") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ReadResp'SubscriptionConfirmation where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadResp'SubscriptionConfirmation'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadResp'SubscriptionConfirmation'subscriptionId x__) ()) +{- | Fields : + + * 'Proto.Streams_Fields.options' @:: Lens' TombstoneReq TombstoneReq'Options@ + * 'Proto.Streams_Fields.maybe'options' @:: Lens' TombstoneReq (Prelude.Maybe TombstoneReq'Options)@ -} +data TombstoneReq + = TombstoneReq'_constructor {_TombstoneReq'options :: !(Prelude.Maybe TombstoneReq'Options), + _TombstoneReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TombstoneReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TombstoneReq "options" TombstoneReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneReq'options + (\ x__ y__ -> x__ {_TombstoneReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TombstoneReq "maybe'options" (Prelude.Maybe TombstoneReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneReq'options + (\ x__ y__ -> x__ {_TombstoneReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message TombstoneReq where + messageName _ + = Data.Text.pack "event_store.client.streams.TombstoneReq" + packedMessageDescriptor _ + = "\n\ + \\fTombstoneReq\DC2J\n\ + \\aoptions\CAN\SOH \SOH(\v20.event_store.client.streams.TombstoneReq.OptionsR\aoptions\SUB\221\STX\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\FS\n\ + \\brevision\CAN\STX \SOH(\EOTH\NULR\brevision\DC2?\n\ + \\tno_stream\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\bnoStream\DC24\n\ + \\ETXany\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXany\DC2G\n\ + \\rstream_exists\CAN\ENQ \SOH(\v2 .event_store.client.shared.EmptyH\NULR\fstreamExistsB\SUB\n\ + \\CANexpected_stream_revision" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TombstoneReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor TombstoneReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TombstoneReq'_unknownFields + (\ x__ y__ -> x__ {_TombstoneReq'_unknownFields = y__}) + defMessage + = TombstoneReq'_constructor + {_TombstoneReq'options = Prelude.Nothing, + _TombstoneReq'_unknownFields = []} + parseMessage + = let + loop :: + TombstoneReq -> Data.ProtoLens.Encoding.Bytes.Parser TombstoneReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "TombstoneReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData TombstoneReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TombstoneReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_TombstoneReq'options x__) ()) +{- | Fields : + + * 'Proto.Streams_Fields.streamIdentifier' @:: Lens' TombstoneReq'Options Proto.Shared.StreamIdentifier@ + * 'Proto.Streams_Fields.maybe'streamIdentifier' @:: Lens' TombstoneReq'Options (Prelude.Maybe Proto.Shared.StreamIdentifier)@ + * 'Proto.Streams_Fields.maybe'expectedStreamRevision' @:: Lens' TombstoneReq'Options (Prelude.Maybe TombstoneReq'Options'ExpectedStreamRevision)@ + * 'Proto.Streams_Fields.maybe'revision' @:: Lens' TombstoneReq'Options (Prelude.Maybe Data.Word.Word64)@ + * 'Proto.Streams_Fields.revision' @:: Lens' TombstoneReq'Options Data.Word.Word64@ + * 'Proto.Streams_Fields.maybe'noStream' @:: Lens' TombstoneReq'Options (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.noStream' @:: Lens' TombstoneReq'Options Proto.Shared.Empty@ + * 'Proto.Streams_Fields.maybe'any' @:: Lens' TombstoneReq'Options (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.any' @:: Lens' TombstoneReq'Options Proto.Shared.Empty@ + * 'Proto.Streams_Fields.maybe'streamExists' @:: Lens' TombstoneReq'Options (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.streamExists' @:: Lens' TombstoneReq'Options Proto.Shared.Empty@ -} +data TombstoneReq'Options + = TombstoneReq'Options'_constructor {_TombstoneReq'Options'streamIdentifier :: !(Prelude.Maybe Proto.Shared.StreamIdentifier), + _TombstoneReq'Options'expectedStreamRevision :: !(Prelude.Maybe TombstoneReq'Options'ExpectedStreamRevision), + _TombstoneReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TombstoneReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data TombstoneReq'Options'ExpectedStreamRevision + = TombstoneReq'Options'Revision !Data.Word.Word64 | + TombstoneReq'Options'NoStream !Proto.Shared.Empty | + TombstoneReq'Options'Any !Proto.Shared.Empty | + TombstoneReq'Options'StreamExists !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField TombstoneReq'Options "streamIdentifier" Proto.Shared.StreamIdentifier where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneReq'Options'streamIdentifier + (\ x__ y__ -> x__ {_TombstoneReq'Options'streamIdentifier = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TombstoneReq'Options "maybe'streamIdentifier" (Prelude.Maybe Proto.Shared.StreamIdentifier) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneReq'Options'streamIdentifier + (\ x__ y__ -> x__ {_TombstoneReq'Options'streamIdentifier = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TombstoneReq'Options "maybe'expectedStreamRevision" (Prelude.Maybe TombstoneReq'Options'ExpectedStreamRevision) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_TombstoneReq'Options'expectedStreamRevision = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TombstoneReq'Options "maybe'revision" (Prelude.Maybe Data.Word.Word64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_TombstoneReq'Options'expectedStreamRevision = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (TombstoneReq'Options'Revision x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap TombstoneReq'Options'Revision y__)) +instance Data.ProtoLens.Field.HasField TombstoneReq'Options "revision" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_TombstoneReq'Options'expectedStreamRevision = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (TombstoneReq'Options'Revision x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap TombstoneReq'Options'Revision y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField TombstoneReq'Options "maybe'noStream" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_TombstoneReq'Options'expectedStreamRevision = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (TombstoneReq'Options'NoStream x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap TombstoneReq'Options'NoStream y__)) +instance Data.ProtoLens.Field.HasField TombstoneReq'Options "noStream" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_TombstoneReq'Options'expectedStreamRevision = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (TombstoneReq'Options'NoStream x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap TombstoneReq'Options'NoStream y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField TombstoneReq'Options "maybe'any" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_TombstoneReq'Options'expectedStreamRevision = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (TombstoneReq'Options'Any x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap TombstoneReq'Options'Any y__)) +instance Data.ProtoLens.Field.HasField TombstoneReq'Options "any" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_TombstoneReq'Options'expectedStreamRevision = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (TombstoneReq'Options'Any x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap TombstoneReq'Options'Any y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField TombstoneReq'Options "maybe'streamExists" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_TombstoneReq'Options'expectedStreamRevision = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (TombstoneReq'Options'StreamExists x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap TombstoneReq'Options'StreamExists y__)) +instance Data.ProtoLens.Field.HasField TombstoneReq'Options "streamExists" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneReq'Options'expectedStreamRevision + (\ x__ y__ + -> x__ {_TombstoneReq'Options'expectedStreamRevision = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (TombstoneReq'Options'StreamExists x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap TombstoneReq'Options'StreamExists y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message TombstoneReq'Options where + messageName _ + = Data.Text.pack "event_store.client.streams.TombstoneReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\FS\n\ + \\brevision\CAN\STX \SOH(\EOTH\NULR\brevision\DC2?\n\ + \\tno_stream\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\bnoStream\DC24\n\ + \\ETXany\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXany\DC2G\n\ + \\rstream_exists\CAN\ENQ \SOH(\v2 .event_store.client.shared.EmptyH\NULR\fstreamExistsB\SUB\n\ + \\CANexpected_stream_revision" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + streamIdentifier__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_identifier" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.StreamIdentifier) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'streamIdentifier")) :: + Data.ProtoLens.FieldDescriptor TombstoneReq'Options + revision__field_descriptor + = Data.ProtoLens.FieldDescriptor + "revision" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'revision")) :: + Data.ProtoLens.FieldDescriptor TombstoneReq'Options + noStream__field_descriptor + = Data.ProtoLens.FieldDescriptor + "no_stream" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'noStream")) :: + Data.ProtoLens.FieldDescriptor TombstoneReq'Options + any__field_descriptor + = Data.ProtoLens.FieldDescriptor + "any" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'any")) :: + Data.ProtoLens.FieldDescriptor TombstoneReq'Options + streamExists__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stream_exists" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'streamExists")) :: + Data.ProtoLens.FieldDescriptor TombstoneReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, streamIdentifier__field_descriptor), + (Data.ProtoLens.Tag 2, revision__field_descriptor), + (Data.ProtoLens.Tag 3, noStream__field_descriptor), + (Data.ProtoLens.Tag 4, any__field_descriptor), + (Data.ProtoLens.Tag 5, streamExists__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TombstoneReq'Options'_unknownFields + (\ x__ y__ -> x__ {_TombstoneReq'Options'_unknownFields = y__}) + defMessage + = TombstoneReq'Options'_constructor + {_TombstoneReq'Options'streamIdentifier = Prelude.Nothing, + _TombstoneReq'Options'expectedStreamRevision = Prelude.Nothing, + _TombstoneReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + TombstoneReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser TombstoneReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stream_identifier" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamIdentifier") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "revision" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"revision") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "no_stream" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"noStream") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "any" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"any") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stream_exists" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"streamExists") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'streamIdentifier") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'expectedStreamRevision") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (TombstoneReq'Options'Revision v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt v) + (Prelude.Just (TombstoneReq'Options'NoStream v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (TombstoneReq'Options'Any v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (TombstoneReq'Options'StreamExists v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData TombstoneReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TombstoneReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TombstoneReq'Options'streamIdentifier x__) + (Control.DeepSeq.deepseq + (_TombstoneReq'Options'expectedStreamRevision x__) ())) +instance Control.DeepSeq.NFData TombstoneReq'Options'ExpectedStreamRevision where + rnf (TombstoneReq'Options'Revision x__) = Control.DeepSeq.rnf x__ + rnf (TombstoneReq'Options'NoStream x__) = Control.DeepSeq.rnf x__ + rnf (TombstoneReq'Options'Any x__) = Control.DeepSeq.rnf x__ + rnf (TombstoneReq'Options'StreamExists x__) + = Control.DeepSeq.rnf x__ +_TombstoneReq'Options'Revision :: + Data.ProtoLens.Prism.Prism' TombstoneReq'Options'ExpectedStreamRevision Data.Word.Word64 +_TombstoneReq'Options'Revision + = Data.ProtoLens.Prism.prism' + TombstoneReq'Options'Revision + (\ p__ + -> case p__ of + (TombstoneReq'Options'Revision p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_TombstoneReq'Options'NoStream :: + Data.ProtoLens.Prism.Prism' TombstoneReq'Options'ExpectedStreamRevision Proto.Shared.Empty +_TombstoneReq'Options'NoStream + = Data.ProtoLens.Prism.prism' + TombstoneReq'Options'NoStream + (\ p__ + -> case p__ of + (TombstoneReq'Options'NoStream p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_TombstoneReq'Options'Any :: + Data.ProtoLens.Prism.Prism' TombstoneReq'Options'ExpectedStreamRevision Proto.Shared.Empty +_TombstoneReq'Options'Any + = Data.ProtoLens.Prism.prism' + TombstoneReq'Options'Any + (\ p__ + -> case p__ of + (TombstoneReq'Options'Any p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_TombstoneReq'Options'StreamExists :: + Data.ProtoLens.Prism.Prism' TombstoneReq'Options'ExpectedStreamRevision Proto.Shared.Empty +_TombstoneReq'Options'StreamExists + = Data.ProtoLens.Prism.prism' + TombstoneReq'Options'StreamExists + (\ p__ + -> case p__ of + (TombstoneReq'Options'StreamExists p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Streams_Fields.maybe'positionOption' @:: Lens' TombstoneResp (Prelude.Maybe TombstoneResp'PositionOption)@ + * 'Proto.Streams_Fields.maybe'position' @:: Lens' TombstoneResp (Prelude.Maybe TombstoneResp'Position)@ + * 'Proto.Streams_Fields.position' @:: Lens' TombstoneResp TombstoneResp'Position@ + * 'Proto.Streams_Fields.maybe'noPosition' @:: Lens' TombstoneResp (Prelude.Maybe Proto.Shared.Empty)@ + * 'Proto.Streams_Fields.noPosition' @:: Lens' TombstoneResp Proto.Shared.Empty@ -} +data TombstoneResp + = TombstoneResp'_constructor {_TombstoneResp'positionOption :: !(Prelude.Maybe TombstoneResp'PositionOption), + _TombstoneResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TombstoneResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data TombstoneResp'PositionOption + = TombstoneResp'Position' !TombstoneResp'Position | + TombstoneResp'NoPosition !Proto.Shared.Empty + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField TombstoneResp "maybe'positionOption" (Prelude.Maybe TombstoneResp'PositionOption) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneResp'positionOption + (\ x__ y__ -> x__ {_TombstoneResp'positionOption = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TombstoneResp "maybe'position" (Prelude.Maybe TombstoneResp'Position) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneResp'positionOption + (\ x__ y__ -> x__ {_TombstoneResp'positionOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (TombstoneResp'Position' x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap TombstoneResp'Position' y__)) +instance Data.ProtoLens.Field.HasField TombstoneResp "position" TombstoneResp'Position where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneResp'positionOption + (\ x__ y__ -> x__ {_TombstoneResp'positionOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (TombstoneResp'Position' x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap TombstoneResp'Position' y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField TombstoneResp "maybe'noPosition" (Prelude.Maybe Proto.Shared.Empty) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneResp'positionOption + (\ x__ y__ -> x__ {_TombstoneResp'positionOption = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (TombstoneResp'NoPosition x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap TombstoneResp'NoPosition y__)) +instance Data.ProtoLens.Field.HasField TombstoneResp "noPosition" Proto.Shared.Empty where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneResp'positionOption + (\ x__ y__ -> x__ {_TombstoneResp'positionOption = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (TombstoneResp'NoPosition x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap TombstoneResp'NoPosition y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message TombstoneResp where + messageName _ + = Data.Text.pack "event_store.client.streams.TombstoneResp" + packedMessageDescriptor _ + = "\n\ + \\rTombstoneResp\DC2P\n\ + \\bposition\CAN\SOH \SOH(\v22.event_store.client.streams.TombstoneResp.PositionH\NULR\bposition\DC2C\n\ + \\vno_position\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \noPosition\SUB^\n\ + \\bPosition\DC2'\n\ + \\SIcommit_position\CAN\SOH \SOH(\EOTR\SOcommitPosition\DC2)\n\ + \\DLEprepare_position\CAN\STX \SOH(\EOTR\SIpreparePositionB\DC1\n\ + \\SIposition_option" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + position__field_descriptor + = Data.ProtoLens.FieldDescriptor + "position" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TombstoneResp'Position) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'position")) :: + Data.ProtoLens.FieldDescriptor TombstoneResp + noPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "no_position" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Shared.Empty) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'noPosition")) :: + Data.ProtoLens.FieldDescriptor TombstoneResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, position__field_descriptor), + (Data.ProtoLens.Tag 2, noPosition__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TombstoneResp'_unknownFields + (\ x__ y__ -> x__ {_TombstoneResp'_unknownFields = y__}) + defMessage + = TombstoneResp'_constructor + {_TombstoneResp'positionOption = Prelude.Nothing, + _TombstoneResp'_unknownFields = []} + parseMessage + = let + loop :: + TombstoneResp -> Data.ProtoLens.Encoding.Bytes.Parser TombstoneResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "position" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"position") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "no_position" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"noPosition") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "TombstoneResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'positionOption") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (TombstoneResp'Position' v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v) + (Prelude.Just (TombstoneResp'NoPosition v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData TombstoneResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TombstoneResp'_unknownFields x__) + (Control.DeepSeq.deepseq (_TombstoneResp'positionOption x__) ()) +instance Control.DeepSeq.NFData TombstoneResp'PositionOption where + rnf (TombstoneResp'Position' x__) = Control.DeepSeq.rnf x__ + rnf (TombstoneResp'NoPosition x__) = Control.DeepSeq.rnf x__ +_TombstoneResp'Position' :: + Data.ProtoLens.Prism.Prism' TombstoneResp'PositionOption TombstoneResp'Position +_TombstoneResp'Position' + = Data.ProtoLens.Prism.prism' + TombstoneResp'Position' + (\ p__ + -> case p__ of + (TombstoneResp'Position' p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_TombstoneResp'NoPosition :: + Data.ProtoLens.Prism.Prism' TombstoneResp'PositionOption Proto.Shared.Empty +_TombstoneResp'NoPosition + = Data.ProtoLens.Prism.prism' + TombstoneResp'NoPosition + (\ p__ + -> case p__ of + (TombstoneResp'NoPosition p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Streams_Fields.commitPosition' @:: Lens' TombstoneResp'Position Data.Word.Word64@ + * 'Proto.Streams_Fields.preparePosition' @:: Lens' TombstoneResp'Position Data.Word.Word64@ -} +data TombstoneResp'Position + = TombstoneResp'Position'_constructor {_TombstoneResp'Position'commitPosition :: !Data.Word.Word64, + _TombstoneResp'Position'preparePosition :: !Data.Word.Word64, + _TombstoneResp'Position'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TombstoneResp'Position where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TombstoneResp'Position "commitPosition" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneResp'Position'commitPosition + (\ x__ y__ -> x__ {_TombstoneResp'Position'commitPosition = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TombstoneResp'Position "preparePosition" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TombstoneResp'Position'preparePosition + (\ x__ y__ -> x__ {_TombstoneResp'Position'preparePosition = y__})) + Prelude.id +instance Data.ProtoLens.Message TombstoneResp'Position where + messageName _ + = Data.Text.pack + "event_store.client.streams.TombstoneResp.Position" + packedMessageDescriptor _ + = "\n\ + \\bPosition\DC2'\n\ + \\SIcommit_position\CAN\SOH \SOH(\EOTR\SOcommitPosition\DC2)\n\ + \\DLEprepare_position\CAN\STX \SOH(\EOTR\SIpreparePosition" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + commitPosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "commit_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"commitPosition")) :: + Data.ProtoLens.FieldDescriptor TombstoneResp'Position + preparePosition__field_descriptor + = Data.ProtoLens.FieldDescriptor + "prepare_position" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"preparePosition")) :: + Data.ProtoLens.FieldDescriptor TombstoneResp'Position + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, commitPosition__field_descriptor), + (Data.ProtoLens.Tag 2, preparePosition__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TombstoneResp'Position'_unknownFields + (\ x__ y__ -> x__ {_TombstoneResp'Position'_unknownFields = y__}) + defMessage + = TombstoneResp'Position'_constructor + {_TombstoneResp'Position'commitPosition = Data.ProtoLens.fieldDefault, + _TombstoneResp'Position'preparePosition = Data.ProtoLens.fieldDefault, + _TombstoneResp'Position'_unknownFields = []} + parseMessage + = let + loop :: + TombstoneResp'Position + -> Data.ProtoLens.Encoding.Bytes.Parser TombstoneResp'Position + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "commit_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"commitPosition") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "prepare_position" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"preparePosition") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Position" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"commitPosition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"preparePosition") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData TombstoneResp'Position where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TombstoneResp'Position'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TombstoneResp'Position'commitPosition x__) + (Control.DeepSeq.deepseq + (_TombstoneResp'Position'preparePosition x__) ())) +data Streams = Streams {} +instance Data.ProtoLens.Service.Types.Service Streams where + type ServiceName Streams = "Streams" + type ServicePackage Streams = "event_store.client.streams" + type ServiceMethods Streams = '["append", + "delete", + "read", + "tombstone"] +instance Data.ProtoLens.Service.Types.HasMethodImpl Streams "read" where + type MethodName Streams "read" = "Read" + type MethodInput Streams "read" = ReadReq + type MethodOutput Streams "read" = ReadResp + type MethodStreamingType Streams "read" = 'Data.ProtoLens.Service.Types.ServerStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Streams "append" where + type MethodName Streams "append" = "Append" + type MethodInput Streams "append" = AppendReq + type MethodOutput Streams "append" = AppendResp + type MethodStreamingType Streams "append" = 'Data.ProtoLens.Service.Types.ClientStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Streams "delete" where + type MethodName Streams "delete" = "Delete" + type MethodInput Streams "delete" = DeleteReq + type MethodOutput Streams "delete" = DeleteResp + type MethodStreamingType Streams "delete" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Streams "tombstone" where + type MethodName Streams "tombstone" = "Tombstone" + type MethodInput Streams "tombstone" = TombstoneReq + type MethodOutput Streams "tombstone" = TombstoneResp + type MethodStreamingType Streams "tombstone" = 'Data.ProtoLens.Service.Types.NonStreaming +packedFileDescriptor :: Data.ByteString.ByteString +packedFileDescriptor + = "\n\ + \\rstreams.proto\DC2\SUBevent_store.client.streams\SUB\fshared.proto\"\161\DLE\n\ + \\aReadReq\DC2E\n\ + \\aoptions\CAN\SOH \SOH(\v2+.event_store.client.streams.ReadReq.OptionsR\aoptions\SUB\206\SI\n\ + \\aOptions\DC2S\n\ + \\ACKstream\CAN\SOH \SOH(\v29.event_store.client.streams.ReadReq.Options.StreamOptionsH\NULR\ACKstream\DC2J\n\ + \\ETXall\CAN\STX \SOH(\v26.event_store.client.streams.ReadReq.Options.AllOptionsH\NULR\ETXall\DC2`\n\ + \\SOread_direction\CAN\ETX \SOH(\SO29.event_store.client.streams.ReadReq.Options.ReadDirectionR\rreadDirection\DC2#\n\ + \\rresolve_links\CAN\EOT \SOH(\bR\fresolveLinks\DC2\SYN\n\ + \\ENQcount\CAN\ENQ \SOH(\EOTH\SOHR\ENQcount\DC2e\n\ + \\fsubscription\CAN\ACK \SOH(\v2?.event_store.client.streams.ReadReq.Options.SubscriptionOptionsH\SOHR\fsubscription\DC2S\n\ + \\ACKfilter\CAN\a \SOH(\v29.event_store.client.streams.ReadReq.Options.FilterOptionsH\STXR\ACKfilter\DC2?\n\ + \\tno_filter\CAN\b \SOH(\v2 .event_store.client.shared.EmptyH\STXR\bnoFilter\DC2W\n\ + \\vuuid_option\CAN\t \SOH(\v26.event_store.client.streams.ReadReq.Options.UUIDOptionR\n\ + \uuidOption\SUB\138\STX\n\ + \\rStreamOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\FS\n\ + \\brevision\CAN\STX \SOH(\EOTH\NULR\brevision\DC28\n\ + \\ENQstart\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ENQstart\DC24\n\ + \\ETXend\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXendB\DC1\n\ + \\SIrevision_option\SUB\222\SOH\n\ + \\n\ + \AllOptions\DC2R\n\ + \\bposition\CAN\SOH \SOH(\v24.event_store.client.streams.ReadReq.Options.PositionH\NULR\bposition\DC28\n\ + \\ENQstart\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ENQstart\DC24\n\ + \\ETXend\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXendB\f\n\ + \\n\ + \all_option\SUB\NAK\n\ + \\DC3SubscriptionOptions\SUB^\n\ + \\bPosition\DC2'\n\ + \\SIcommit_position\CAN\SOH \SOH(\EOTR\SOcommitPosition\DC2)\n\ + \\DLEprepare_position\CAN\STX \SOH(\EOTR\SIpreparePosition\SUB\205\ETX\n\ + \\rFilterOptions\DC2s\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2D.event_store.client.streams.ReadReq.Options.FilterOptions.ExpressionH\NULR\DLEstreamIdentifier\DC2e\n\ + \\n\ + \event_type\CAN\STX \SOH(\v2D.event_store.client.streams.ReadReq.Options.FilterOptions.ExpressionH\NULR\teventType\DC2\DC2\n\ + \\ETXmax\CAN\ETX \SOH(\rH\SOHR\ETXmax\DC28\n\ + \\ENQcount\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\SOHR\ENQcount\DC2B\n\ + \\FScheckpointIntervalMultiplier\CAN\ENQ \SOH(\rR\FScheckpointIntervalMultiplier\SUB:\n\ + \\n\ + \Expression\DC2\DC4\n\ + \\ENQregex\CAN\SOH \SOH(\tR\ENQregex\DC2\SYN\n\ + \\ACKprefix\CAN\STX \ETX(\tR\ACKprefixB\b\n\ + \\ACKfilterB\b\n\ + \\ACKwindow\SUB\151\SOH\n\ + \\n\ + \UUIDOption\DC2B\n\ + \\n\ + \structured\CAN\SOH \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \structured\DC2:\n\ + \\ACKstring\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ACKstringB\t\n\ + \\acontent\",\n\ + \\rReadDirection\DC2\f\n\ + \\bForwards\DLE\NUL\DC2\r\n\ + \\tBackwards\DLE\SOHB\SI\n\ + \\rstream_optionB\SO\n\ + \\fcount_optionB\SI\n\ + \\rfilter_option\"\181\v\n\ + \\bReadResp\DC2F\n\ + \\ENQevent\CAN\SOH \SOH(\v2..event_store.client.streams.ReadResp.ReadEventH\NULR\ENQevent\DC2c\n\ + \\fconfirmation\CAN\STX \SOH(\v2=.event_store.client.streams.ReadResp.SubscriptionConfirmationH\NULR\fconfirmation\DC2Q\n\ + \\n\ + \checkpoint\CAN\ETX \SOH(\v2/.event_store.client.streams.ReadResp.CheckpointH\NULR\n\ + \checkpoint\DC2_\n\ + \\DLEstream_not_found\CAN\EOT \SOH(\v23.event_store.client.streams.ReadResp.StreamNotFoundH\NULR\SOstreamNotFound\SUB\169\ACK\n\ + \\tReadEvent\DC2R\n\ + \\ENQevent\CAN\SOH \SOH(\v2<.event_store.client.streams.ReadResp.ReadEvent.RecordedEventR\ENQevent\DC2P\n\ + \\EOTlink\CAN\STX \SOH(\v2<.event_store.client.streams.ReadResp.ReadEvent.RecordedEventR\EOTlink\DC2)\n\ + \\SIcommit_position\CAN\ETX \SOH(\EOTH\NULR\SOcommitPosition\DC2C\n\ + \\vno_position\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \noPosition\SUB\249\ETX\n\ + \\rRecordedEvent\DC2/\n\ + \\STXid\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\STXid\DC2X\n\ + \\DC1stream_identifier\CAN\STX \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2'\n\ + \\SIstream_revision\CAN\ETX \SOH(\EOTR\SOstreamRevision\DC2)\n\ + \\DLEprepare_position\CAN\EOT \SOH(\EOTR\SIpreparePosition\DC2'\n\ + \\SIcommit_position\CAN\ENQ \SOH(\EOTR\SOcommitPosition\DC2f\n\ + \\bmetadata\CAN\ACK \ETX(\v2J.event_store.client.streams.ReadResp.ReadEvent.RecordedEvent.MetadataEntryR\bmetadata\DC2'\n\ + \\SIcustom_metadata\CAN\a \SOH(\fR\SOcustomMetadata\DC2\DC2\n\ + \\EOTdata\CAN\b \SOH(\fR\EOTdata\SUB;\n\ + \\rMetadataEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOHB\n\ + \\n\ + \\bposition\SUBC\n\ + \\CANSubscriptionConfirmation\DC2'\n\ + \\SIsubscription_id\CAN\SOH \SOH(\tR\SOsubscriptionId\SUB`\n\ + \\n\ + \Checkpoint\DC2'\n\ + \\SIcommit_position\CAN\SOH \SOH(\EOTR\SOcommitPosition\DC2)\n\ + \\DLEprepare_position\CAN\STX \SOH(\EOTR\SIpreparePosition\SUBj\n\ + \\SOStreamNotFound\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifierB\t\n\ + \\acontent\"\197\ACK\n\ + \\tAppendReq\DC2I\n\ + \\aoptions\CAN\SOH \SOH(\v2-.event_store.client.streams.AppendReq.OptionsH\NULR\aoptions\DC2b\n\ + \\DLEproposed_message\CAN\STX \SOH(\v25.event_store.client.streams.AppendReq.ProposedMessageH\NULR\SIproposedMessage\SUB\221\STX\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\FS\n\ + \\brevision\CAN\STX \SOH(\EOTH\NULR\brevision\DC2?\n\ + \\tno_stream\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\bnoStream\DC24\n\ + \\ETXany\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXany\DC2G\n\ + \\rstream_exists\CAN\ENQ \SOH(\v2 .event_store.client.shared.EmptyH\NULR\fstreamExistsB\SUB\n\ + \\CANexpected_stream_revision\SUB\157\STX\n\ + \\SIProposedMessage\DC2/\n\ + \\STXid\CAN\SOH \SOH(\v2\US.event_store.client.shared.UUIDR\STXid\DC2_\n\ + \\bmetadata\CAN\STX \ETX(\v2C.event_store.client.streams.AppendReq.ProposedMessage.MetadataEntryR\bmetadata\DC2'\n\ + \\SIcustom_metadata\CAN\ETX \SOH(\fR\SOcustomMetadata\DC2\DC2\n\ + \\EOTdata\CAN\EOT \SOH(\fR\EOTdata\SUB;\n\ + \\rMetadataEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOHB\t\n\ + \\acontent\"\223\a\n\ + \\n\ + \AppendResp\DC2J\n\ + \\asuccess\CAN\SOH \SOH(\v2..event_store.client.streams.AppendResp.SuccessH\NULR\asuccess\DC2s\n\ + \\SYNwrong_expected_version\CAN\STX \SOH(\v2;.event_store.client.streams.AppendResp.WrongExpectedVersionH\NULR\DC4wrongExpectedVersion\SUB^\n\ + \\bPosition\DC2'\n\ + \\SIcommit_position\CAN\SOH \SOH(\EOTR\SOcommitPosition\DC2)\n\ + \\DLEprepare_position\CAN\STX \SOH(\EOTR\SIpreparePosition\SUB\185\STX\n\ + \\aSuccess\DC2+\n\ + \\DLEcurrent_revision\CAN\SOH \SOH(\EOTH\NULR\SIcurrentRevision\DC2?\n\ + \\tno_stream\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\bnoStream\DC2M\n\ + \\bposition\CAN\ETX \SOH(\v2/.event_store.client.streams.AppendResp.PositionH\SOHR\bposition\DC2C\n\ + \\vno_position\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\SOHR\n\ + \noPositionB\EM\n\ + \\ETBcurrent_revision_optionB\DC1\n\ + \\SIposition_option\SUB\233\STX\n\ + \\DC4WrongExpectedVersion\DC2+\n\ + \\DLEcurrent_revision\CAN\SOH \SOH(\EOTH\NULR\SIcurrentRevision\DC2?\n\ + \\tno_stream\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\bnoStream\DC2-\n\ + \\DC1expected_revision\CAN\ETX \SOH(\EOTH\SOHR\DLEexpectedRevision\DC24\n\ + \\ETXany\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\SOHR\ETXany\DC2G\n\ + \\rstream_exists\CAN\ENQ \SOH(\v2 .event_store.client.shared.EmptyH\SOHR\fstreamExistsB\EM\n\ + \\ETBcurrent_revision_optionB\SUB\n\ + \\CANexpected_revision_optionB\b\n\ + \\ACKresult\"\180\ETX\n\ + \\tDeleteReq\DC2G\n\ + \\aoptions\CAN\SOH \SOH(\v2-.event_store.client.streams.DeleteReq.OptionsR\aoptions\SUB\221\STX\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\FS\n\ + \\brevision\CAN\STX \SOH(\EOTH\NULR\brevision\DC2?\n\ + \\tno_stream\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\bnoStream\DC24\n\ + \\ETXany\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXany\DC2G\n\ + \\rstream_exists\CAN\ENQ \SOH(\v2 .event_store.client.shared.EmptyH\NULR\fstreamExistsB\SUB\n\ + \\CANexpected_stream_revision\"\147\STX\n\ + \\n\ + \DeleteResp\DC2M\n\ + \\bposition\CAN\SOH \SOH(\v2/.event_store.client.streams.DeleteResp.PositionH\NULR\bposition\DC2C\n\ + \\vno_position\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \noPosition\SUB^\n\ + \\bPosition\DC2'\n\ + \\SIcommit_position\CAN\SOH \SOH(\EOTR\SOcommitPosition\DC2)\n\ + \\DLEprepare_position\CAN\STX \SOH(\EOTR\SIpreparePositionB\DC1\n\ + \\SIposition_option\"\186\ETX\n\ + \\fTombstoneReq\DC2J\n\ + \\aoptions\CAN\SOH \SOH(\v20.event_store.client.streams.TombstoneReq.OptionsR\aoptions\SUB\221\STX\n\ + \\aOptions\DC2X\n\ + \\DC1stream_identifier\CAN\SOH \SOH(\v2+.event_store.client.shared.StreamIdentifierR\DLEstreamIdentifier\DC2\FS\n\ + \\brevision\CAN\STX \SOH(\EOTH\NULR\brevision\DC2?\n\ + \\tno_stream\CAN\ETX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\bnoStream\DC24\n\ + \\ETXany\CAN\EOT \SOH(\v2 .event_store.client.shared.EmptyH\NULR\ETXany\DC2G\n\ + \\rstream_exists\CAN\ENQ \SOH(\v2 .event_store.client.shared.EmptyH\NULR\fstreamExistsB\SUB\n\ + \\CANexpected_stream_revision\"\153\STX\n\ + \\rTombstoneResp\DC2P\n\ + \\bposition\CAN\SOH \SOH(\v22.event_store.client.streams.TombstoneResp.PositionH\NULR\bposition\DC2C\n\ + \\vno_position\CAN\STX \SOH(\v2 .event_store.client.shared.EmptyH\NULR\n\ + \noPosition\SUB^\n\ + \\bPosition\DC2'\n\ + \\SIcommit_position\CAN\SOH \SOH(\EOTR\SOcommitPosition\DC2)\n\ + \\DLEprepare_position\CAN\STX \SOH(\EOTR\SIpreparePositionB\DC1\n\ + \\SIposition_option2\244\STX\n\ + \\aStreams\DC2S\n\ + \\EOTRead\DC2#.event_store.client.streams.ReadReq\SUB$.event_store.client.streams.ReadResp0\SOH\DC2Y\n\ + \\ACKAppend\DC2%.event_store.client.streams.AppendReq\SUB&.event_store.client.streams.AppendResp(\SOH\DC2W\n\ + \\ACKDelete\DC2%.event_store.client.streams.DeleteReq\SUB&.event_store.client.streams.DeleteResp\DC2`\n\ + \\tTombstone\DC2(.event_store.client.streams.TombstoneReq\SUB).event_store.client.streams.TombstoneRespB'\n\ + \%com.eventstore.dbclient.proto.streamsJ\212?\n\ + \\a\DC2\ENQ\NUL\NUL\230\SOH\SOH\n\ + \\b\n\ + \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\ + \\b\n\ + \\SOH\STX\DC2\ETX\SOH\NUL#\n\ + \\b\n\ + \\SOH\b\DC2\ETX\STX\NUL>\n\ + \\t\n\ + \\STX\b\SOH\DC2\ETX\STX\NUL>\n\ + \\t\n\ + \\STX\ETX\NUL\DC2\ETX\EOT\NUL\SYN\n\ + \\n\ + \\n\ + \\STX\ACK\NUL\DC2\EOT\ACK\NUL\v\SOH\n\ + \\n\ + \\n\ + \\ETX\ACK\NUL\SOH\DC2\ETX\ACK\b\SI\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\NUL\DC2\ETX\a\b5\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX\a\f\DLE\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX\a\DC2\EM\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\ACK\DC2\ETX\a$*\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX\a+3\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\SOH\DC2\ETX\b\b;\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\SOH\DC2\ETX\b\f\DC2\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\ENQ\DC2\ETX\b\DC4\SUB\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\STX\DC2\ETX\b\ESC$\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETX\b/9\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\STX\DC2\ETX\t\b4\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\SOH\DC2\ETX\t\f\DC2\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\STX\DC2\ETX\t\DC4\GS\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\ETX\DC2\ETX\t(2\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\ETX\DC2\ETX\n\ + \\b=\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\SOH\DC2\ETX\n\ + \\f\NAK\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\STX\DC2\ETX\n\ + \\ETB#\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\ETX\DC2\ETX\n\ + \.;\n\ + \\n\ + \\n\ + \\STX\EOT\NUL\DC2\EOT\r\NULQ\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\NUL\SOH\DC2\ETX\r\b\SI\n\ + \\v\n\ + \\EOT\EOT\NUL\STX\NUL\DC2\ETX\SO\b\FS\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\SO\b\SI\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\SO\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\SO\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\NUL\ETX\NUL\DC2\EOT\DLE\bP\t\n\ + \\f\n\ + \\ENQ\EOT\NUL\ETX\NUL\SOH\DC2\ETX\DLE\DLE\ETB\n\ + \\SO\n\ + \\ACK\EOT\NUL\ETX\NUL\b\NUL\DC2\EOT\DC1\DLE\DC4\DC1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\b\NUL\SOH\DC2\ETX\DC1\SYN#\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\NUL\DC2\ETX\DC2\CAN1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\NUL\ACK\DC2\ETX\DC2\CAN%\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETX\DC2&,\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETX\DC2/0\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\SOH\DC2\ETX\DC3\CAN+\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\SOH\ACK\DC2\ETX\DC3\CAN\"\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\SOH\SOH\DC2\ETX\DC3#&\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\SOH\ETX\DC2\ETX\DC3)*\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\STX\DC2\ETX\NAK\DLE1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\STX\ACK\DC2\ETX\NAK\DLE\GS\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\STX\SOH\DC2\ETX\NAK\RS,\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\STX\ETX\DC2\ETX\NAK/0\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\ETX\DC2\ETX\SYN\DLE'\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ETX\ENQ\DC2\ETX\SYN\DLE\DC4\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ETX\SOH\DC2\ETX\SYN\NAK\"\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ETX\ETX\DC2\ETX\SYN%&\n\ + \\SO\n\ + \\ACK\EOT\NUL\ETX\NUL\b\SOH\DC2\EOT\ETB\DLE\SUB\DC1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\b\SOH\SOH\DC2\ETX\ETB\SYN\"\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\EOT\DC2\ETX\CAN\CAN)\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\EOT\ENQ\DC2\ETX\CAN\CAN\RS\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\EOT\SOH\DC2\ETX\CAN\US$\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\EOT\ETX\DC2\ETX\CAN'(\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\ENQ\DC2\ETX\EM\CAN=\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ENQ\ACK\DC2\ETX\EM\CAN+\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ENQ\SOH\DC2\ETX\EM,8\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ENQ\ETX\DC2\ETX\EM;<\n\ + \\SO\n\ + \\ACK\EOT\NUL\ETX\NUL\b\STX\DC2\EOT\ESC\DLE\RS\DC1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\b\STX\SOH\DC2\ETX\ESC\SYN#\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\ACK\DC2\ETX\FS\CAN1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ACK\ACK\DC2\ETX\FS\CAN%\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ACK\SOH\DC2\ETX\FS&,\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ACK\ETX\DC2\ETX\FS/0\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\a\DC2\ETX\GS\CANF\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\a\ACK\DC2\ETX\GS\CAN7\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\a\SOH\DC2\ETX\GS8A\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\a\ETX\DC2\ETX\GSDE\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\b\DC2\ETX\US\DLE+\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\b\ACK\DC2\ETX\US\DLE\SUB\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\b\SOH\DC2\ETX\US\ESC&\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\b\ETX\DC2\ETX\US)*\n\ + \\SO\n\ + \\ACK\EOT\NUL\ETX\NUL\EOT\NUL\DC2\EOT!\DLE$\DC1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\EOT\NUL\SOH\DC2\ETX!\NAK\"\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\EOT\NUL\STX\NUL\DC2\ETX\"\CAN%\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\EOT\NUL\STX\NUL\SOH\DC2\ETX\"\CAN \n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\EOT\NUL\STX\NUL\STX\DC2\ETX\"#$\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\EOT\NUL\STX\SOH\DC2\ETX#\CAN&\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\EOT\NUL\STX\SOH\SOH\DC2\ETX#\CAN!\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\EOT\NUL\STX\SOH\STX\DC2\ETX#$%\n\ + \\SO\n\ + \\ACK\EOT\NUL\ETX\NUL\ETX\NUL\DC2\EOT%\DLE,\DC1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\ETX\NUL\SOH\DC2\ETX%\CAN%\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\DC2\ETX&\CANY\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\ACK\DC2\ETX&\CANB\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETX&CT\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETX&WX\n\ + \\DLE\n\ + \\b\EOT\NUL\ETX\NUL\ETX\NUL\b\NUL\DC2\EOT'\CAN+\EM\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\b\NUL\SOH\DC2\ETX'\RS-\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\ETX\NUL\STX\SOH\DC2\ETX( 4\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\SOH\ENQ\DC2\ETX( &\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\SOH\SOH\DC2\ETX('/\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\SOH\ETX\DC2\ETX(23\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\ETX\NUL\STX\STX\DC2\ETX) J\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\STX\ACK\DC2\ETX) ?\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\STX\SOH\DC2\ETX)@E\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\STX\ETX\DC2\ETX)HI\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\ETX\NUL\STX\ETX\DC2\ETX* H\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\ETX\ACK\DC2\ETX* ?\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\ETX\SOH\DC2\ETX*@C\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\ETX\ETX\DC2\ETX*FG\n\ + \\SO\n\ + \\ACK\EOT\NUL\ETX\NUL\ETX\SOH\DC2\EOT-\DLE3\DC1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\ETX\SOH\SOH\DC2\ETX-\CAN\"\n\ + \\DLE\n\ + \\b\EOT\NUL\ETX\NUL\ETX\SOH\b\NUL\DC2\EOT.\CAN2\EM\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\SOH\b\NUL\SOH\DC2\ETX.\RS(\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\ETX\SOH\STX\NUL\DC2\ETX/ 6\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\NUL\ACK\DC2\ETX/ (\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\NUL\SOH\DC2\ETX/)1\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\NUL\ETX\DC2\ETX/45\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\ETX\SOH\STX\SOH\DC2\ETX0 J\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\SOH\ACK\DC2\ETX0 ?\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\SOH\SOH\DC2\ETX0@E\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\SOH\ETX\DC2\ETX0HI\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\ETX\SOH\STX\STX\DC2\ETX1 H\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\STX\ACK\DC2\ETX1 ?\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\STX\SOH\DC2\ETX1@C\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\STX\ETX\DC2\ETX1FG\n\ + \\SO\n\ + \\ACK\EOT\NUL\ETX\NUL\ETX\STX\DC2\EOT4\DLE5\DC1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\ETX\STX\SOH\DC2\ETX4\CAN+\n\ + \\SO\n\ + \\ACK\EOT\NUL\ETX\NUL\ETX\ETX\DC2\EOT6\DLE9\DC1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\ETX\ETX\SOH\DC2\ETX6\CAN \n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\ETX\ETX\STX\NUL\DC2\ETX7\CAN3\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\ETX\STX\NUL\ENQ\DC2\ETX7\CAN\RS\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\ETX\STX\NUL\SOH\DC2\ETX7\US.\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\ETX\STX\NUL\ETX\DC2\ETX712\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\ETX\ETX\STX\SOH\DC2\ETX8\CAN4\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\ETX\STX\SOH\ENQ\DC2\ETX8\CAN\RS\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\ETX\STX\SOH\SOH\DC2\ETX8\US/\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\ETX\STX\SOH\ETX\DC2\ETX823\n\ + \\SO\n\ + \\ACK\EOT\NUL\ETX\NUL\ETX\EOT\DC2\EOT:\DLEI\DC1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\ETX\EOT\SOH\DC2\ETX:\CAN%\n\ + \\DLE\n\ + \\b\EOT\NUL\ETX\NUL\ETX\EOT\b\NUL\DC2\EOT;\CAN>\EM\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\EOT\b\NUL\SOH\DC2\ETX;\RS$\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\ETX\EOT\STX\NUL\DC2\ETX< A\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\EOT\STX\NUL\ACK\DC2\ETX< *\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\EOT\STX\NUL\SOH\DC2\ETX<+<\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\EOT\STX\NUL\ETX\DC2\ETX?\n\ + \\DLE\n\ + \\b\EOT\NUL\ETX\NUL\ETX\EOT\ETX\NUL\DC2\EOTE\CANH\EM\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\EOT\ETX\NUL\SOH\DC2\ETXE *\n\ + \\DC1\n\ + \\n\ + \\EOT\NUL\ETX\NUL\ETX\EOT\ETX\NUL\STX\NUL\DC2\ETXF 1\n\ + \\DC2\n\ + \\v\EOT\NUL\ETX\NUL\ETX\EOT\ETX\NUL\STX\NUL\ENQ\DC2\ETXF &\n\ + \\DC2\n\ + \\v\EOT\NUL\ETX\NUL\ETX\EOT\ETX\NUL\STX\NUL\SOH\DC2\ETXF',\n\ + \\DC2\n\ + \\v\EOT\NUL\ETX\NUL\ETX\EOT\ETX\NUL\STX\NUL\ETX\DC2\ETXF/0\n\ + \\DC1\n\ + \\n\ + \\EOT\NUL\ETX\NUL\ETX\EOT\ETX\NUL\STX\SOH\DC2\ETXG ;\n\ + \\DC2\n\ + \\v\EOT\NUL\ETX\NUL\ETX\EOT\ETX\NUL\STX\SOH\EOT\DC2\ETXG (\n\ + \\DC2\n\ + \\v\EOT\NUL\ETX\NUL\ETX\EOT\ETX\NUL\STX\SOH\ENQ\DC2\ETXG)/\n\ + \\DC2\n\ + \\v\EOT\NUL\ETX\NUL\ETX\EOT\ETX\NUL\STX\SOH\SOH\DC2\ETXG06\n\ + \\DC2\n\ + \\v\EOT\NUL\ETX\NUL\ETX\EOT\ETX\NUL\STX\SOH\ETX\DC2\ETXG9:\n\ + \\SO\n\ + \\ACK\EOT\NUL\ETX\NUL\ETX\ENQ\DC2\EOTJ\DLEO\DC1\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\ETX\ENQ\SOH\DC2\ETXJ\CAN\"\n\ + \\DLE\n\ + \\b\EOT\NUL\ETX\NUL\ETX\ENQ\b\NUL\DC2\EOTK\CANN\EM\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\ENQ\b\NUL\SOH\DC2\ETXK\RS%\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\ETX\ENQ\STX\NUL\DC2\ETXL O\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\ENQ\STX\NUL\ACK\DC2\ETXL ?\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\ENQ\STX\NUL\SOH\DC2\ETXL@J\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\ENQ\STX\NUL\ETX\DC2\ETXLMN\n\ + \\SI\n\ + \\b\EOT\NUL\ETX\NUL\ETX\ENQ\STX\SOH\DC2\ETXM K\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\ENQ\STX\SOH\ACK\DC2\ETXM ?\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\ENQ\STX\SOH\SOH\DC2\ETXM@F\n\ + \\DLE\n\ + \\t\EOT\NUL\ETX\NUL\ETX\ENQ\STX\SOH\ETX\DC2\ETXMIJ\n\ + \\n\ + \\n\ + \\STX\EOT\SOH\DC2\EOTS\NULx\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\SOH\SOH\DC2\ETXS\b\DLE\n\ + \\f\n\ + \\EOT\EOT\SOH\b\NUL\DC2\EOTT\bY\t\n\ + \\f\n\ + \\ENQ\EOT\SOH\b\NUL\SOH\DC2\ETXT\SO\NAK\n\ + \\v\n\ + \\EOT\EOT\SOH\STX\NUL\DC2\ETXU\DLE$\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETXU\DLE\EM\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETXU\SUB\US\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETXU\"#\n\ + \\v\n\ + \\EOT\EOT\SOH\STX\SOH\DC2\ETXV\DLE:\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETXV\DLE(\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETXV)5\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETXV89\n\ + \\v\n\ + \\EOT\EOT\SOH\STX\STX\DC2\ETXW\DLE*\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\STX\ACK\DC2\ETXW\DLE\SUB\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETXW\ESC%\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETXW()\n\ + \\v\n\ + \\EOT\EOT\SOH\STX\ETX\DC2\ETXX\DLE4\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\ETX\ACK\DC2\ETXX\DLE\RS\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\ETX\SOH\DC2\ETXX\US/\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\ETX\ETX\DC2\ETXX23\n\ + \\f\n\ + \\EOT\EOT\SOH\ETX\NUL\DC2\EOT[\bm\t\n\ + \\f\n\ + \\ENQ\EOT\SOH\ETX\NUL\SOH\DC2\ETX[\DLE\EM\n\ + \\r\n\ + \\ACK\EOT\SOH\ETX\NUL\STX\NUL\DC2\ETX\\\DLE(\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\NUL\ACK\DC2\ETX\\\DLE\GS\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\NUL\SOH\DC2\ETX\\\RS#\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\NUL\ETX\DC2\ETX\\&'\n\ + \\r\n\ + \\ACK\EOT\SOH\ETX\NUL\STX\SOH\DC2\ETX]\DLE'\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\SOH\ACK\DC2\ETX]\DLE\GS\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\SOH\SOH\DC2\ETX]\RS\"\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\SOH\ETX\DC2\ETX]%&\n\ + \\SO\n\ + \\ACK\EOT\SOH\ETX\NUL\b\NUL\DC2\EOT^\DLEa\DC1\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\b\NUL\SOH\DC2\ETX^\SYN\RS\n\ + \\r\n\ + \\ACK\EOT\SOH\ETX\NUL\STX\STX\DC2\ETX_\CAN3\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\STX\ENQ\DC2\ETX_\CAN\RS\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\STX\SOH\DC2\ETX_\US.\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\STX\ETX\DC2\ETX_12\n\ + \\r\n\ + \\ACK\EOT\SOH\ETX\NUL\STX\ETX\DC2\ETX`\CANH\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\ETX\ACK\DC2\ETX`\CAN7\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\ETX\SOH\DC2\ETX`8C\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\STX\ETX\ETX\DC2\ETX`FG\n\ + \\SO\n\ + \\ACK\EOT\SOH\ETX\NUL\ETX\NUL\DC2\EOTc\DLEl\DC1\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\NUL\ETX\NUL\SOH\DC2\ETXc\CAN%\n\ + \\SI\n\ + \\b\EOT\SOH\ETX\NUL\ETX\NUL\STX\NUL\DC2\ETXd\CAN>\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\NUL\ACK\DC2\ETXd\CAN6\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETXd79\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETXd<=\n\ + \\SI\n\ + \\b\EOT\SOH\ETX\NUL\ETX\NUL\STX\SOH\DC2\ETXe\CANY\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\SOH\ACK\DC2\ETXe\CANB\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\SOH\SOH\DC2\ETXeCT\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\SOH\ETX\DC2\ETXeWX\n\ + \\SI\n\ + \\b\EOT\SOH\ETX\NUL\ETX\NUL\STX\STX\DC2\ETXf\CAN3\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\STX\ENQ\DC2\ETXf\CAN\RS\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\STX\SOH\DC2\ETXf\US.\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\STX\ETX\DC2\ETXf12\n\ + \\SI\n\ + \\b\EOT\SOH\ETX\NUL\ETX\NUL\STX\ETX\DC2\ETXg\CAN4\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\ETX\ENQ\DC2\ETXg\CAN\RS\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\ETX\SOH\DC2\ETXg\US/\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\ETX\ETX\DC2\ETXg23\n\ + \\SI\n\ + \\b\EOT\SOH\ETX\NUL\ETX\NUL\STX\EOT\DC2\ETXh\CAN3\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\EOT\ENQ\DC2\ETXh\CAN\RS\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\EOT\SOH\DC2\ETXh\US.\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\EOT\ETX\DC2\ETXh12\n\ + \\SI\n\ + \\b\EOT\SOH\ETX\NUL\ETX\NUL\STX\ENQ\DC2\ETXi\CAN9\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\ENQ\ACK\DC2\ETXi\CAN+\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\ENQ\SOH\DC2\ETXi,4\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\ENQ\ETX\DC2\ETXi78\n\ + \\SI\n\ + \\b\EOT\SOH\ETX\NUL\ETX\NUL\STX\ACK\DC2\ETXj\CAN2\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\ACK\ENQ\DC2\ETXj\CAN\GS\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\ACK\SOH\DC2\ETXj\RS-\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\ACK\ETX\DC2\ETXj01\n\ + \\SI\n\ + \\b\EOT\SOH\ETX\NUL\ETX\NUL\STX\a\DC2\ETXk\CAN'\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\a\ENQ\DC2\ETXk\CAN\GS\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\a\SOH\DC2\ETXk\RS\"\n\ + \\DLE\n\ + \\t\EOT\SOH\ETX\NUL\ETX\NUL\STX\a\ETX\DC2\ETXk%&\n\ + \\f\n\ + \\EOT\EOT\SOH\ETX\SOH\DC2\EOTn\bp\t\n\ + \\f\n\ + \\ENQ\EOT\SOH\ETX\SOH\SOH\DC2\ETXn\DLE(\n\ + \\r\n\ + \\ACK\EOT\SOH\ETX\SOH\STX\NUL\DC2\ETXo\DLE+\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\SOH\STX\NUL\ENQ\DC2\ETXo\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\SOH\STX\NUL\SOH\DC2\ETXo\ETB&\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\SOH\STX\NUL\ETX\DC2\ETXo)*\n\ + \\f\n\ + \\EOT\EOT\SOH\ETX\STX\DC2\EOTq\bt\t\n\ + \\f\n\ + \\ENQ\EOT\SOH\ETX\STX\SOH\DC2\ETXq\DLE\SUB\n\ + \\r\n\ + \\ACK\EOT\SOH\ETX\STX\STX\NUL\DC2\ETXr\DLE+\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\STX\STX\NUL\ENQ\DC2\ETXr\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\STX\STX\NUL\SOH\DC2\ETXr\ETB&\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\STX\STX\NUL\ETX\DC2\ETXr)*\n\ + \\r\n\ + \\ACK\EOT\SOH\ETX\STX\STX\SOH\DC2\ETXs\DLE,\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\STX\STX\SOH\ENQ\DC2\ETXs\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\STX\STX\SOH\SOH\DC2\ETXs\ETB'\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\STX\STX\SOH\ETX\DC2\ETXs*+\n\ + \\f\n\ + \\EOT\EOT\SOH\ETX\ETX\DC2\EOTu\bw\t\n\ + \\f\n\ + \\ENQ\EOT\SOH\ETX\ETX\SOH\DC2\ETXu\DLE\RS\n\ + \\r\n\ + \\ACK\EOT\SOH\ETX\ETX\STX\NUL\DC2\ETXv\DLEQ\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\ETX\STX\NUL\ACK\DC2\ETXv\DLE:\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\ETX\STX\NUL\SOH\DC2\ETXv;L\n\ + \\SO\n\ + \\a\EOT\SOH\ETX\ETX\STX\NUL\ETX\DC2\ETXvOP\n\ + \\v\n\ + \\STX\EOT\STX\DC2\ENQz\NUL\143\SOH\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\STX\SOH\DC2\ETXz\b\DC1\n\ + \\f\n\ + \\EOT\EOT\STX\b\NUL\DC2\EOT{\b~\t\n\ + \\f\n\ + \\ENQ\EOT\STX\b\NUL\SOH\DC2\ETX{\SO\NAK\n\ + \\v\n\ + \\EOT\EOT\STX\STX\NUL\DC2\ETX|\DLE$\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX|\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX|\CAN\US\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX|\"#\n\ + \\v\n\ + \\EOT\EOT\STX\STX\SOH\DC2\ETX}\DLE5\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETX}\DLE\US\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX} 0\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX}34\n\ + \\SO\n\ + \\EOT\EOT\STX\ETX\NUL\DC2\ACK\128\SOH\b\136\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\STX\ETX\NUL\SOH\DC2\EOT\128\SOH\DLE\ETB\n\ + \\SO\n\ + \\ACK\EOT\STX\ETX\NUL\STX\NUL\DC2\EOT\129\SOH\DLEQ\n\ + \\SI\n\ + \\a\EOT\STX\ETX\NUL\STX\NUL\ACK\DC2\EOT\129\SOH\DLE:\n\ + \\SI\n\ + \\a\EOT\STX\ETX\NUL\STX\NUL\SOH\DC2\EOT\129\SOH;L\n\ + \\SI\n\ + \\a\EOT\STX\ETX\NUL\STX\NUL\ETX\DC2\EOT\129\SOHOP\n\ + \\DLE\n\ + \\ACK\EOT\STX\ETX\NUL\b\NUL\DC2\ACK\130\SOH\DLE\135\SOH\DC1\n\ + \\SI\n\ + \\a\EOT\STX\ETX\NUL\b\NUL\SOH\DC2\EOT\130\SOH\SYN.\n\ + \\SO\n\ + \\ACK\EOT\STX\ETX\NUL\STX\SOH\DC2\EOT\131\SOH\CAN,\n\ + \\SI\n\ + \\a\EOT\STX\ETX\NUL\STX\SOH\ENQ\DC2\EOT\131\SOH\CAN\RS\n\ + \\SI\n\ + \\a\EOT\STX\ETX\NUL\STX\SOH\SOH\DC2\EOT\131\SOH\US'\n\ + \\SI\n\ + \\a\EOT\STX\ETX\NUL\STX\SOH\ETX\DC2\EOT\131\SOH*+\n\ + \\SO\n\ + \\ACK\EOT\STX\ETX\NUL\STX\STX\DC2\EOT\132\SOH\CANF\n\ + \\SI\n\ + \\a\EOT\STX\ETX\NUL\STX\STX\ACK\DC2\EOT\132\SOH\CAN7\n\ + \\SI\n\ + \\a\EOT\STX\ETX\NUL\STX\STX\SOH\DC2\EOT\132\SOH8A\n\ + \\SI\n\ + \\a\EOT\STX\ETX\NUL\STX\STX\ETX\DC2\EOT\132\SOHDE\n\ + \\SO\n\ + \\ACK\EOT\STX\ETX\NUL\STX\ETX\DC2\EOT\133\SOH\CAN@\n\ + \\SI\n\ + \\a\EOT\STX\ETX\NUL\STX\ETX\ACK\DC2\EOT\133\SOH\CAN7\n\ + \\SI\n\ + \\a\EOT\STX\ETX\NUL\STX\ETX\SOH\DC2\EOT\133\SOH8;\n\ + \\SI\n\ + \\a\EOT\STX\ETX\NUL\STX\ETX\ETX\DC2\EOT\133\SOH>?\n\ + \\SO\n\ + \\ACK\EOT\STX\ETX\NUL\STX\EOT\DC2\EOT\134\SOH\CANJ\n\ + \\SI\n\ + \\a\EOT\STX\ETX\NUL\STX\EOT\ACK\DC2\EOT\134\SOH\CAN7\n\ + \\SI\n\ + \\a\EOT\STX\ETX\NUL\STX\EOT\SOH\DC2\EOT\134\SOH8E\n\ + \\SI\n\ + \\a\EOT\STX\ETX\NUL\STX\EOT\ETX\DC2\EOT\134\SOHHI\n\ + \\SO\n\ + \\EOT\EOT\STX\ETX\SOH\DC2\ACK\137\SOH\b\142\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\STX\ETX\SOH\SOH\DC2\EOT\137\SOH\DLE\US\n\ + \\SO\n\ + \\ACK\EOT\STX\ETX\SOH\STX\NUL\DC2\EOT\138\SOH\DLE6\n\ + \\SI\n\ + \\a\EOT\STX\ETX\SOH\STX\NUL\ACK\DC2\EOT\138\SOH\DLE.\n\ + \\SI\n\ + \\a\EOT\STX\ETX\SOH\STX\NUL\SOH\DC2\EOT\138\SOH/1\n\ + \\SI\n\ + \\a\EOT\STX\ETX\SOH\STX\NUL\ETX\DC2\EOT\138\SOH45\n\ + \\SO\n\ + \\ACK\EOT\STX\ETX\SOH\STX\SOH\DC2\EOT\139\SOH\DLE1\n\ + \\SI\n\ + \\a\EOT\STX\ETX\SOH\STX\SOH\ACK\DC2\EOT\139\SOH\DLE#\n\ + \\SI\n\ + \\a\EOT\STX\ETX\SOH\STX\SOH\SOH\DC2\EOT\139\SOH$,\n\ + \\SI\n\ + \\a\EOT\STX\ETX\SOH\STX\SOH\ETX\DC2\EOT\139\SOH/0\n\ + \\SO\n\ + \\ACK\EOT\STX\ETX\SOH\STX\STX\DC2\EOT\140\SOH\DLE*\n\ + \\SI\n\ + \\a\EOT\STX\ETX\SOH\STX\STX\ENQ\DC2\EOT\140\SOH\DLE\NAK\n\ + \\SI\n\ + \\a\EOT\STX\ETX\SOH\STX\STX\SOH\DC2\EOT\140\SOH\SYN%\n\ + \\SI\n\ + \\a\EOT\STX\ETX\SOH\STX\STX\ETX\DC2\EOT\140\SOH()\n\ + \\SO\n\ + \\ACK\EOT\STX\ETX\SOH\STX\ETX\DC2\EOT\141\SOH\DLE\US\n\ + \\SI\n\ + \\a\EOT\STX\ETX\SOH\STX\ETX\ENQ\DC2\EOT\141\SOH\DLE\NAK\n\ + \\SI\n\ + \\a\EOT\STX\ETX\SOH\STX\ETX\SOH\DC2\EOT\141\SOH\SYN\SUB\n\ + \\SI\n\ + \\a\EOT\STX\ETX\SOH\STX\ETX\ETX\DC2\EOT\141\SOH\GS\RS\n\ + \\f\n\ + \\STX\EOT\ETX\DC2\ACK\145\SOH\NUL\178\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\ETX\SOH\DC2\EOT\145\SOH\b\DC2\n\ + \\SO\n\ + \\EOT\EOT\ETX\b\NUL\DC2\ACK\146\SOH\b\149\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\ETX\b\NUL\SOH\DC2\EOT\146\SOH\SO\DC4\n\ + \\f\n\ + \\EOT\EOT\ETX\STX\NUL\DC2\EOT\147\SOH\DLE$\n\ + \\r\n\ + \\ENQ\EOT\ETX\STX\NUL\ACK\DC2\EOT\147\SOH\DLE\ETB\n\ + \\r\n\ + \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\EOT\147\SOH\CAN\US\n\ + \\r\n\ + \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\EOT\147\SOH\"#\n\ + \\f\n\ + \\EOT\EOT\ETX\STX\SOH\DC2\EOT\148\SOH\DLE@\n\ + \\r\n\ + \\ENQ\EOT\ETX\STX\SOH\ACK\DC2\EOT\148\SOH\DLE$\n\ + \\r\n\ + \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\EOT\148\SOH%;\n\ + \\r\n\ + \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\EOT\148\SOH>?\n\ + \\SO\n\ + \\EOT\EOT\ETX\ETX\NUL\DC2\ACK\151\SOH\b\154\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\ETX\ETX\NUL\SOH\DC2\EOT\151\SOH\DLE\CAN\n\ + \\SO\n\ + \\ACK\EOT\ETX\ETX\NUL\STX\NUL\DC2\EOT\152\SOH\DLE+\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\NUL\STX\NUL\ENQ\DC2\EOT\152\SOH\DLE\SYN\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\NUL\STX\NUL\SOH\DC2\EOT\152\SOH\ETB&\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\NUL\STX\NUL\ETX\DC2\EOT\152\SOH)*\n\ + \\SO\n\ + \\ACK\EOT\ETX\ETX\NUL\STX\SOH\DC2\EOT\153\SOH\DLE,\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\NUL\STX\SOH\ENQ\DC2\EOT\153\SOH\DLE\SYN\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\NUL\STX\SOH\SOH\DC2\EOT\153\SOH\ETB'\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\NUL\STX\SOH\ETX\DC2\EOT\153\SOH*+\n\ + \\SO\n\ + \\EOT\EOT\ETX\ETX\SOH\DC2\ACK\156\SOH\b\165\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\ETX\ETX\SOH\SOH\DC2\EOT\156\SOH\DLE\ETB\n\ + \\DLE\n\ + \\ACK\EOT\ETX\ETX\SOH\b\NUL\DC2\ACK\157\SOH\DLE\160\SOH\DC1\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\SOH\b\NUL\SOH\DC2\EOT\157\SOH\SYN-\n\ + \\SO\n\ + \\ACK\EOT\ETX\ETX\SOH\STX\NUL\DC2\EOT\158\SOH\CAN4\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\SOH\STX\NUL\ENQ\DC2\EOT\158\SOH\CAN\RS\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\SOH\STX\NUL\SOH\DC2\EOT\158\SOH\US/\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\SOH\STX\NUL\ETX\DC2\EOT\158\SOH23\n\ + \\SO\n\ + \\ACK\EOT\ETX\ETX\SOH\STX\SOH\DC2\EOT\159\SOH\CANF\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\SOH\STX\SOH\ACK\DC2\EOT\159\SOH\CAN7\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\SOH\STX\SOH\SOH\DC2\EOT\159\SOH8A\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\SOH\STX\SOH\ETX\DC2\EOT\159\SOHDE\n\ + \\DLE\n\ + \\ACK\EOT\ETX\ETX\SOH\b\SOH\DC2\ACK\161\SOH\DLE\164\SOH\DC1\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\SOH\b\SOH\SOH\DC2\EOT\161\SOH\SYN%\n\ + \\SO\n\ + \\ACK\EOT\ETX\ETX\SOH\STX\STX\DC2\EOT\162\SOH\CAN.\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\SOH\STX\STX\ACK\DC2\EOT\162\SOH\CAN \n\ + \\SI\n\ + \\a\EOT\ETX\ETX\SOH\STX\STX\SOH\DC2\EOT\162\SOH!)\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\SOH\STX\STX\ETX\DC2\EOT\162\SOH,-\n\ + \\SO\n\ + \\ACK\EOT\ETX\ETX\SOH\STX\ETX\DC2\EOT\163\SOH\CANH\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\SOH\STX\ETX\ACK\DC2\EOT\163\SOH\CAN7\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\SOH\STX\ETX\SOH\DC2\EOT\163\SOH8C\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\SOH\STX\ETX\ETX\DC2\EOT\163\SOHFG\n\ + \\SO\n\ + \\EOT\EOT\ETX\ETX\STX\DC2\ACK\167\SOH\b\177\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\ETX\ETX\STX\SOH\DC2\EOT\167\SOH\DLE$\n\ + \\DLE\n\ + \\ACK\EOT\ETX\ETX\STX\b\NUL\DC2\ACK\168\SOH\n\ + \\171\SOH\v\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\STX\b\NUL\SOH\DC2\EOT\168\SOH\DLE'\n\ + \\SO\n\ + \\ACK\EOT\ETX\ETX\STX\STX\NUL\DC2\EOT\169\SOH\DC2.\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\STX\STX\NUL\ENQ\DC2\EOT\169\SOH\DC2\CAN\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\STX\STX\NUL\SOH\DC2\EOT\169\SOH\EM)\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\STX\STX\NUL\ETX\DC2\EOT\169\SOH,-\n\ + \\SO\n\ + \\ACK\EOT\ETX\ETX\STX\STX\SOH\DC2\EOT\170\SOH\DC2@\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\STX\STX\SOH\ACK\DC2\EOT\170\SOH\DC21\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\STX\STX\SOH\SOH\DC2\EOT\170\SOH2;\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\STX\STX\SOH\ETX\DC2\EOT\170\SOH>?\n\ + \\DLE\n\ + \\ACK\EOT\ETX\ETX\STX\b\SOH\DC2\ACK\172\SOH\n\ + \\176\SOH\DC1\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\STX\b\SOH\SOH\DC2\EOT\172\SOH\DLE(\n\ + \\SO\n\ + \\ACK\EOT\ETX\ETX\STX\STX\STX\DC2\EOT\173\SOH\DC2/\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\STX\STX\STX\ENQ\DC2\EOT\173\SOH\DC2\CAN\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\STX\STX\STX\SOH\DC2\EOT\173\SOH\EM*\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\STX\STX\STX\ETX\DC2\EOT\173\SOH-.\n\ + \\SO\n\ + \\ACK\EOT\ETX\ETX\STX\STX\ETX\DC2\EOT\174\SOH\DC2:\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\STX\STX\ETX\ACK\DC2\EOT\174\SOH\DC21\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\STX\STX\ETX\SOH\DC2\EOT\174\SOH25\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\STX\STX\ETX\ETX\DC2\EOT\174\SOH89\n\ + \\SO\n\ + \\ACK\EOT\ETX\ETX\STX\STX\EOT\DC2\EOT\175\SOH\DC2D\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\STX\STX\EOT\ACK\DC2\EOT\175\SOH\DC21\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\STX\STX\EOT\SOH\DC2\EOT\175\SOH2?\n\ + \\SI\n\ + \\a\EOT\ETX\ETX\STX\STX\EOT\ETX\DC2\EOT\175\SOHBC\n\ + \\f\n\ + \\STX\EOT\EOT\DC2\ACK\180\SOH\NUL\192\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\EOT\SOH\DC2\EOT\180\SOH\b\DC1\n\ + \\f\n\ + \\EOT\EOT\EOT\STX\NUL\DC2\EOT\181\SOH\b\FS\n\ + \\r\n\ + \\ENQ\EOT\EOT\STX\NUL\ACK\DC2\EOT\181\SOH\b\SI\n\ + \\r\n\ + \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\EOT\181\SOH\DLE\ETB\n\ + \\r\n\ + \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\EOT\181\SOH\SUB\ESC\n\ + \\SO\n\ + \\EOT\EOT\EOT\ETX\NUL\DC2\ACK\183\SOH\b\191\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\EOT\ETX\NUL\SOH\DC2\EOT\183\SOH\DLE\ETB\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\NUL\STX\NUL\DC2\EOT\184\SOH\DLEQ\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\STX\NUL\ACK\DC2\EOT\184\SOH\DLE:\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\STX\NUL\SOH\DC2\EOT\184\SOH;L\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\STX\NUL\ETX\DC2\EOT\184\SOHOP\n\ + \\DLE\n\ + \\ACK\EOT\EOT\ETX\NUL\b\NUL\DC2\ACK\185\SOH\DLE\190\SOH\DC1\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\b\NUL\SOH\DC2\EOT\185\SOH\SYN.\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\NUL\STX\SOH\DC2\EOT\186\SOH\CAN,\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\STX\SOH\ENQ\DC2\EOT\186\SOH\CAN\RS\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\STX\SOH\SOH\DC2\EOT\186\SOH\US'\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\STX\SOH\ETX\DC2\EOT\186\SOH*+\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\NUL\STX\STX\DC2\EOT\187\SOH\CANF\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\STX\STX\ACK\DC2\EOT\187\SOH\CAN7\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\STX\STX\SOH\DC2\EOT\187\SOH8A\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\STX\STX\ETX\DC2\EOT\187\SOHDE\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\NUL\STX\ETX\DC2\EOT\188\SOH\CAN@\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\STX\ETX\ACK\DC2\EOT\188\SOH\CAN7\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\STX\ETX\SOH\DC2\EOT\188\SOH8;\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\STX\ETX\ETX\DC2\EOT\188\SOH>?\n\ + \\SO\n\ + \\ACK\EOT\EOT\ETX\NUL\STX\EOT\DC2\EOT\189\SOH\CANJ\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\STX\EOT\ACK\DC2\EOT\189\SOH\CAN7\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\STX\EOT\SOH\DC2\EOT\189\SOH8E\n\ + \\SI\n\ + \\a\EOT\EOT\ETX\NUL\STX\EOT\ETX\DC2\EOT\189\SOHHI\n\ + \\f\n\ + \\STX\EOT\ENQ\DC2\ACK\194\SOH\NUL\204\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\ENQ\SOH\DC2\EOT\194\SOH\b\DC2\n\ + \\SO\n\ + \\EOT\EOT\ENQ\b\NUL\DC2\ACK\195\SOH\b\198\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\ENQ\b\NUL\SOH\DC2\EOT\195\SOH\SO\GS\n\ + \\f\n\ + \\EOT\EOT\ENQ\STX\NUL\DC2\EOT\196\SOH\DLE&\n\ + \\r\n\ + \\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\EOT\196\SOH\DLE\CAN\n\ + \\r\n\ + \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\EOT\196\SOH\EM!\n\ + \\r\n\ + \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\EOT\196\SOH$%\n\ + \\f\n\ + \\EOT\EOT\ENQ\STX\SOH\DC2\EOT\197\SOH\DLE@\n\ + \\r\n\ + \\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\EOT\197\SOH\DLE/\n\ + \\r\n\ + \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\EOT\197\SOH0;\n\ + \\r\n\ + \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\EOT\197\SOH>?\n\ + \\SO\n\ + \\EOT\EOT\ENQ\ETX\NUL\DC2\ACK\200\SOH\b\203\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\ENQ\ETX\NUL\SOH\DC2\EOT\200\SOH\DLE\CAN\n\ + \\SO\n\ + \\ACK\EOT\ENQ\ETX\NUL\STX\NUL\DC2\EOT\201\SOH\DLE+\n\ + \\SI\n\ + \\a\EOT\ENQ\ETX\NUL\STX\NUL\ENQ\DC2\EOT\201\SOH\DLE\SYN\n\ + \\SI\n\ + \\a\EOT\ENQ\ETX\NUL\STX\NUL\SOH\DC2\EOT\201\SOH\ETB&\n\ + \\SI\n\ + \\a\EOT\ENQ\ETX\NUL\STX\NUL\ETX\DC2\EOT\201\SOH)*\n\ + \\SO\n\ + \\ACK\EOT\ENQ\ETX\NUL\STX\SOH\DC2\EOT\202\SOH\DLE,\n\ + \\SI\n\ + \\a\EOT\ENQ\ETX\NUL\STX\SOH\ENQ\DC2\EOT\202\SOH\DLE\SYN\n\ + \\SI\n\ + \\a\EOT\ENQ\ETX\NUL\STX\SOH\SOH\DC2\EOT\202\SOH\ETB'\n\ + \\SI\n\ + \\a\EOT\ENQ\ETX\NUL\STX\SOH\ETX\DC2\EOT\202\SOH*+\n\ + \\f\n\ + \\STX\EOT\ACK\DC2\ACK\206\SOH\NUL\218\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\ACK\SOH\DC2\EOT\206\SOH\b\DC4\n\ + \\f\n\ + \\EOT\EOT\ACK\STX\NUL\DC2\EOT\207\SOH\b\FS\n\ + \\r\n\ + \\ENQ\EOT\ACK\STX\NUL\ACK\DC2\EOT\207\SOH\b\SI\n\ + \\r\n\ + \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\EOT\207\SOH\DLE\ETB\n\ + \\r\n\ + \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\EOT\207\SOH\SUB\ESC\n\ + \\SO\n\ + \\EOT\EOT\ACK\ETX\NUL\DC2\ACK\209\SOH\b\217\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\ACK\ETX\NUL\SOH\DC2\EOT\209\SOH\DLE\ETB\n\ + \\SO\n\ + \\ACK\EOT\ACK\ETX\NUL\STX\NUL\DC2\EOT\210\SOH\DLEQ\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\NUL\ACK\DC2\EOT\210\SOH\DLE:\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\NUL\SOH\DC2\EOT\210\SOH;L\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\NUL\ETX\DC2\EOT\210\SOHOP\n\ + \\DLE\n\ + \\ACK\EOT\ACK\ETX\NUL\b\NUL\DC2\ACK\211\SOH\DLE\216\SOH\DC1\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\b\NUL\SOH\DC2\EOT\211\SOH\SYN.\n\ + \\SO\n\ + \\ACK\EOT\ACK\ETX\NUL\STX\SOH\DC2\EOT\212\SOH\CAN,\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\SOH\ENQ\DC2\EOT\212\SOH\CAN\RS\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\SOH\SOH\DC2\EOT\212\SOH\US'\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\SOH\ETX\DC2\EOT\212\SOH*+\n\ + \\SO\n\ + \\ACK\EOT\ACK\ETX\NUL\STX\STX\DC2\EOT\213\SOH\CANF\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\STX\ACK\DC2\EOT\213\SOH\CAN7\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\STX\SOH\DC2\EOT\213\SOH8A\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\STX\ETX\DC2\EOT\213\SOHDE\n\ + \\SO\n\ + \\ACK\EOT\ACK\ETX\NUL\STX\ETX\DC2\EOT\214\SOH\CAN@\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\ETX\ACK\DC2\EOT\214\SOH\CAN7\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\ETX\SOH\DC2\EOT\214\SOH8;\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\ETX\ETX\DC2\EOT\214\SOH>?\n\ + \\SO\n\ + \\ACK\EOT\ACK\ETX\NUL\STX\EOT\DC2\EOT\215\SOH\CANJ\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\EOT\ACK\DC2\EOT\215\SOH\CAN7\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\EOT\SOH\DC2\EOT\215\SOH8E\n\ + \\SI\n\ + \\a\EOT\ACK\ETX\NUL\STX\EOT\ETX\DC2\EOT\215\SOHHI\n\ + \\f\n\ + \\STX\EOT\a\DC2\ACK\220\SOH\NUL\230\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\a\SOH\DC2\EOT\220\SOH\b\NAK\n\ + \\SO\n\ + \\EOT\EOT\a\b\NUL\DC2\ACK\221\SOH\b\224\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\a\b\NUL\SOH\DC2\EOT\221\SOH\SO\GS\n\ + \\f\n\ + \\EOT\EOT\a\STX\NUL\DC2\EOT\222\SOH\DLE&\n\ + \\r\n\ + \\ENQ\EOT\a\STX\NUL\ACK\DC2\EOT\222\SOH\DLE\CAN\n\ + \\r\n\ + \\ENQ\EOT\a\STX\NUL\SOH\DC2\EOT\222\SOH\EM!\n\ + \\r\n\ + \\ENQ\EOT\a\STX\NUL\ETX\DC2\EOT\222\SOH$%\n\ + \\f\n\ + \\EOT\EOT\a\STX\SOH\DC2\EOT\223\SOH\DLE@\n\ + \\r\n\ + \\ENQ\EOT\a\STX\SOH\ACK\DC2\EOT\223\SOH\DLE/\n\ + \\r\n\ + \\ENQ\EOT\a\STX\SOH\SOH\DC2\EOT\223\SOH0;\n\ + \\r\n\ + \\ENQ\EOT\a\STX\SOH\ETX\DC2\EOT\223\SOH>?\n\ + \\SO\n\ + \\EOT\EOT\a\ETX\NUL\DC2\ACK\226\SOH\b\229\SOH\t\n\ + \\r\n\ + \\ENQ\EOT\a\ETX\NUL\SOH\DC2\EOT\226\SOH\DLE\CAN\n\ + \\SO\n\ + \\ACK\EOT\a\ETX\NUL\STX\NUL\DC2\EOT\227\SOH\DLE+\n\ + \\SI\n\ + \\a\EOT\a\ETX\NUL\STX\NUL\ENQ\DC2\EOT\227\SOH\DLE\SYN\n\ + \\SI\n\ + \\a\EOT\a\ETX\NUL\STX\NUL\SOH\DC2\EOT\227\SOH\ETB&\n\ + \\SI\n\ + \\a\EOT\a\ETX\NUL\STX\NUL\ETX\DC2\EOT\227\SOH)*\n\ + \\SO\n\ + \\ACK\EOT\a\ETX\NUL\STX\SOH\DC2\EOT\228\SOH\DLE,\n\ + \\SI\n\ + \\a\EOT\a\ETX\NUL\STX\SOH\ENQ\DC2\EOT\228\SOH\DLE\SYN\n\ + \\SI\n\ + \\a\EOT\a\ETX\NUL\STX\SOH\SOH\DC2\EOT\228\SOH\ETB'\n\ + \\SI\n\ + \\a\EOT\a\ETX\NUL\STX\SOH\ETX\DC2\EOT\228\SOH*+b\ACKproto3" \ No newline at end of file diff --git a/Proto/Streams_Fields.hs b/Proto/Streams_Fields.hs new file mode 100644 index 0000000..f7e0c64 --- /dev/null +++ b/Proto/Streams_Fields.hs @@ -0,0 +1,582 @@ +{- This file was auto-generated from streams.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.Streams_Fields where +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.Shared +all :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "all" a) => + Lens.Family2.LensLike' f s a +all = Data.ProtoLens.Field.field @"all" +any :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "any" a) => + Lens.Family2.LensLike' f s a +any = Data.ProtoLens.Field.field @"any" +checkpoint :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "checkpoint" a) => + Lens.Family2.LensLike' f s a +checkpoint = Data.ProtoLens.Field.field @"checkpoint" +checkpointIntervalMultiplier :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "checkpointIntervalMultiplier" a) => + Lens.Family2.LensLike' f s a +checkpointIntervalMultiplier + = Data.ProtoLens.Field.field @"checkpointIntervalMultiplier" +commitPosition :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "commitPosition" a) => + Lens.Family2.LensLike' f s a +commitPosition = Data.ProtoLens.Field.field @"commitPosition" +confirmation :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "confirmation" a) => + Lens.Family2.LensLike' f s a +confirmation = Data.ProtoLens.Field.field @"confirmation" +count :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "count" a) => + Lens.Family2.LensLike' f s a +count = Data.ProtoLens.Field.field @"count" +currentRevision :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "currentRevision" a) => + Lens.Family2.LensLike' f s a +currentRevision = Data.ProtoLens.Field.field @"currentRevision" +customMetadata :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "customMetadata" a) => + Lens.Family2.LensLike' f s a +customMetadata = Data.ProtoLens.Field.field @"customMetadata" +data' :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "data'" a) => + Lens.Family2.LensLike' f s a +data' = Data.ProtoLens.Field.field @"data'" +end :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "end" a) => + Lens.Family2.LensLike' f s a +end = Data.ProtoLens.Field.field @"end" +event :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "event" a) => + Lens.Family2.LensLike' f s a +event = Data.ProtoLens.Field.field @"event" +eventType :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "eventType" a) => + Lens.Family2.LensLike' f s a +eventType = Data.ProtoLens.Field.field @"eventType" +expectedRevision :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "expectedRevision" a) => + Lens.Family2.LensLike' f s a +expectedRevision = Data.ProtoLens.Field.field @"expectedRevision" +filter :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "filter" a) => + Lens.Family2.LensLike' f s a +filter = Data.ProtoLens.Field.field @"filter" +id :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "id" a) => + Lens.Family2.LensLike' f s a +id = Data.ProtoLens.Field.field @"id" +key :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "key" a) => + Lens.Family2.LensLike' f s a +key = Data.ProtoLens.Field.field @"key" +link :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "link" a) => + Lens.Family2.LensLike' f s a +link = Data.ProtoLens.Field.field @"link" +max :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "max" a) => + Lens.Family2.LensLike' f s a +max = Data.ProtoLens.Field.field @"max" +maybe'all :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'all" a) => + Lens.Family2.LensLike' f s a +maybe'all = Data.ProtoLens.Field.field @"maybe'all" +maybe'allOption :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'allOption" a) => + Lens.Family2.LensLike' f s a +maybe'allOption = Data.ProtoLens.Field.field @"maybe'allOption" +maybe'any :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'any" a) => + Lens.Family2.LensLike' f s a +maybe'any = Data.ProtoLens.Field.field @"maybe'any" +maybe'checkpoint :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'checkpoint" a) => + Lens.Family2.LensLike' f s a +maybe'checkpoint = Data.ProtoLens.Field.field @"maybe'checkpoint" +maybe'commitPosition :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'commitPosition" a) => + Lens.Family2.LensLike' f s a +maybe'commitPosition + = Data.ProtoLens.Field.field @"maybe'commitPosition" +maybe'confirmation :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'confirmation" a) => + Lens.Family2.LensLike' f s a +maybe'confirmation + = Data.ProtoLens.Field.field @"maybe'confirmation" +maybe'content :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'content" a) => + Lens.Family2.LensLike' f s a +maybe'content = Data.ProtoLens.Field.field @"maybe'content" +maybe'count :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'count" a) => + Lens.Family2.LensLike' f s a +maybe'count = Data.ProtoLens.Field.field @"maybe'count" +maybe'countOption :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'countOption" a) => + Lens.Family2.LensLike' f s a +maybe'countOption = Data.ProtoLens.Field.field @"maybe'countOption" +maybe'currentRevision :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'currentRevision" a) => + Lens.Family2.LensLike' f s a +maybe'currentRevision + = Data.ProtoLens.Field.field @"maybe'currentRevision" +maybe'currentRevisionOption :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'currentRevisionOption" a) => + Lens.Family2.LensLike' f s a +maybe'currentRevisionOption + = Data.ProtoLens.Field.field @"maybe'currentRevisionOption" +maybe'end :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'end" a) => + Lens.Family2.LensLike' f s a +maybe'end = Data.ProtoLens.Field.field @"maybe'end" +maybe'event :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'event" a) => + Lens.Family2.LensLike' f s a +maybe'event = Data.ProtoLens.Field.field @"maybe'event" +maybe'eventType :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'eventType" a) => + Lens.Family2.LensLike' f s a +maybe'eventType = Data.ProtoLens.Field.field @"maybe'eventType" +maybe'expectedRevision :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'expectedRevision" a) => + Lens.Family2.LensLike' f s a +maybe'expectedRevision + = Data.ProtoLens.Field.field @"maybe'expectedRevision" +maybe'expectedRevisionOption :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'expectedRevisionOption" a) => + Lens.Family2.LensLike' f s a +maybe'expectedRevisionOption + = Data.ProtoLens.Field.field @"maybe'expectedRevisionOption" +maybe'expectedStreamRevision :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'expectedStreamRevision" a) => + Lens.Family2.LensLike' f s a +maybe'expectedStreamRevision + = Data.ProtoLens.Field.field @"maybe'expectedStreamRevision" +maybe'filter :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'filter" a) => + Lens.Family2.LensLike' f s a +maybe'filter = Data.ProtoLens.Field.field @"maybe'filter" +maybe'filterOption :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'filterOption" a) => + Lens.Family2.LensLike' f s a +maybe'filterOption + = Data.ProtoLens.Field.field @"maybe'filterOption" +maybe'id :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'id" a) => + Lens.Family2.LensLike' f s a +maybe'id = Data.ProtoLens.Field.field @"maybe'id" +maybe'link :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'link" a) => + Lens.Family2.LensLike' f s a +maybe'link = Data.ProtoLens.Field.field @"maybe'link" +maybe'max :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'max" a) => + Lens.Family2.LensLike' f s a +maybe'max = Data.ProtoLens.Field.field @"maybe'max" +maybe'noFilter :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'noFilter" a) => + Lens.Family2.LensLike' f s a +maybe'noFilter = Data.ProtoLens.Field.field @"maybe'noFilter" +maybe'noPosition :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'noPosition" a) => + Lens.Family2.LensLike' f s a +maybe'noPosition = Data.ProtoLens.Field.field @"maybe'noPosition" +maybe'noStream :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'noStream" a) => + Lens.Family2.LensLike' f s a +maybe'noStream = Data.ProtoLens.Field.field @"maybe'noStream" +maybe'options :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'options" a) => + Lens.Family2.LensLike' f s a +maybe'options = Data.ProtoLens.Field.field @"maybe'options" +maybe'position :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'position" a) => + Lens.Family2.LensLike' f s a +maybe'position = Data.ProtoLens.Field.field @"maybe'position" +maybe'positionOption :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'positionOption" a) => + Lens.Family2.LensLike' f s a +maybe'positionOption + = Data.ProtoLens.Field.field @"maybe'positionOption" +maybe'proposedMessage :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'proposedMessage" a) => + Lens.Family2.LensLike' f s a +maybe'proposedMessage + = Data.ProtoLens.Field.field @"maybe'proposedMessage" +maybe'result :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'result" a) => + Lens.Family2.LensLike' f s a +maybe'result = Data.ProtoLens.Field.field @"maybe'result" +maybe'revision :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'revision" a) => + Lens.Family2.LensLike' f s a +maybe'revision = Data.ProtoLens.Field.field @"maybe'revision" +maybe'revisionOption :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'revisionOption" a) => + Lens.Family2.LensLike' f s a +maybe'revisionOption + = Data.ProtoLens.Field.field @"maybe'revisionOption" +maybe'start :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'start" a) => + Lens.Family2.LensLike' f s a +maybe'start = Data.ProtoLens.Field.field @"maybe'start" +maybe'stream :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'stream" a) => + Lens.Family2.LensLike' f s a +maybe'stream = Data.ProtoLens.Field.field @"maybe'stream" +maybe'streamExists :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'streamExists" a) => + Lens.Family2.LensLike' f s a +maybe'streamExists + = Data.ProtoLens.Field.field @"maybe'streamExists" +maybe'streamIdentifier :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'streamIdentifier" a) => + Lens.Family2.LensLike' f s a +maybe'streamIdentifier + = Data.ProtoLens.Field.field @"maybe'streamIdentifier" +maybe'streamNotFound :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'streamNotFound" a) => + Lens.Family2.LensLike' f s a +maybe'streamNotFound + = Data.ProtoLens.Field.field @"maybe'streamNotFound" +maybe'streamOption :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'streamOption" a) => + Lens.Family2.LensLike' f s a +maybe'streamOption + = Data.ProtoLens.Field.field @"maybe'streamOption" +maybe'string :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'string" a) => + Lens.Family2.LensLike' f s a +maybe'string = Data.ProtoLens.Field.field @"maybe'string" +maybe'structured :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'structured" a) => + Lens.Family2.LensLike' f s a +maybe'structured = Data.ProtoLens.Field.field @"maybe'structured" +maybe'subscription :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'subscription" a) => + Lens.Family2.LensLike' f s a +maybe'subscription + = Data.ProtoLens.Field.field @"maybe'subscription" +maybe'success :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'success" a) => + Lens.Family2.LensLike' f s a +maybe'success = Data.ProtoLens.Field.field @"maybe'success" +maybe'uuidOption :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'uuidOption" a) => + Lens.Family2.LensLike' f s a +maybe'uuidOption = Data.ProtoLens.Field.field @"maybe'uuidOption" +maybe'window :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'window" a) => + Lens.Family2.LensLike' f s a +maybe'window = Data.ProtoLens.Field.field @"maybe'window" +maybe'wrongExpectedVersion :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'wrongExpectedVersion" a) => + Lens.Family2.LensLike' f s a +maybe'wrongExpectedVersion + = Data.ProtoLens.Field.field @"maybe'wrongExpectedVersion" +metadata :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "metadata" a) => + Lens.Family2.LensLike' f s a +metadata = Data.ProtoLens.Field.field @"metadata" +noFilter :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "noFilter" a) => + Lens.Family2.LensLike' f s a +noFilter = Data.ProtoLens.Field.field @"noFilter" +noPosition :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "noPosition" a) => + Lens.Family2.LensLike' f s a +noPosition = Data.ProtoLens.Field.field @"noPosition" +noStream :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "noStream" a) => + Lens.Family2.LensLike' f s a +noStream = Data.ProtoLens.Field.field @"noStream" +options :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "options" a) => + Lens.Family2.LensLike' f s a +options = Data.ProtoLens.Field.field @"options" +position :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "position" a) => + Lens.Family2.LensLike' f s a +position = Data.ProtoLens.Field.field @"position" +prefix :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "prefix" a) => + Lens.Family2.LensLike' f s a +prefix = Data.ProtoLens.Field.field @"prefix" +preparePosition :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "preparePosition" a) => + Lens.Family2.LensLike' f s a +preparePosition = Data.ProtoLens.Field.field @"preparePosition" +proposedMessage :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "proposedMessage" a) => + Lens.Family2.LensLike' f s a +proposedMessage = Data.ProtoLens.Field.field @"proposedMessage" +readDirection :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "readDirection" a) => + Lens.Family2.LensLike' f s a +readDirection = Data.ProtoLens.Field.field @"readDirection" +regex :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "regex" a) => + Lens.Family2.LensLike' f s a +regex = Data.ProtoLens.Field.field @"regex" +resolveLinks :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "resolveLinks" a) => + Lens.Family2.LensLike' f s a +resolveLinks = Data.ProtoLens.Field.field @"resolveLinks" +revision :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "revision" a) => + Lens.Family2.LensLike' f s a +revision = Data.ProtoLens.Field.field @"revision" +start :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "start" a) => + Lens.Family2.LensLike' f s a +start = Data.ProtoLens.Field.field @"start" +stream :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "stream" a) => + Lens.Family2.LensLike' f s a +stream = Data.ProtoLens.Field.field @"stream" +streamExists :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "streamExists" a) => + Lens.Family2.LensLike' f s a +streamExists = Data.ProtoLens.Field.field @"streamExists" +streamIdentifier :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "streamIdentifier" a) => + Lens.Family2.LensLike' f s a +streamIdentifier = Data.ProtoLens.Field.field @"streamIdentifier" +streamNotFound :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "streamNotFound" a) => + Lens.Family2.LensLike' f s a +streamNotFound = Data.ProtoLens.Field.field @"streamNotFound" +streamRevision :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "streamRevision" a) => + Lens.Family2.LensLike' f s a +streamRevision = Data.ProtoLens.Field.field @"streamRevision" +string :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "string" a) => + Lens.Family2.LensLike' f s a +string = Data.ProtoLens.Field.field @"string" +structured :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "structured" a) => + Lens.Family2.LensLike' f s a +structured = Data.ProtoLens.Field.field @"structured" +subscription :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "subscription" a) => + Lens.Family2.LensLike' f s a +subscription = Data.ProtoLens.Field.field @"subscription" +subscriptionId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "subscriptionId" a) => + Lens.Family2.LensLike' f s a +subscriptionId = Data.ProtoLens.Field.field @"subscriptionId" +success :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "success" a) => + Lens.Family2.LensLike' f s a +success = Data.ProtoLens.Field.field @"success" +uuidOption :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "uuidOption" a) => + Lens.Family2.LensLike' f s a +uuidOption = Data.ProtoLens.Field.field @"uuidOption" +value :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "value" a) => + Lens.Family2.LensLike' f s a +value = Data.ProtoLens.Field.field @"value" +vec'prefix :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'prefix" a) => + Lens.Family2.LensLike' f s a +vec'prefix = Data.ProtoLens.Field.field @"vec'prefix" +wrongExpectedVersion :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "wrongExpectedVersion" a) => + Lens.Family2.LensLike' f s a +wrongExpectedVersion + = Data.ProtoLens.Field.field @"wrongExpectedVersion" \ No newline at end of file diff --git a/Proto/Users.hs b/Proto/Users.hs new file mode 100644 index 0000000..f7514c7 --- /dev/null +++ b/Proto/Users.hs @@ -0,0 +1,4234 @@ +{- This file was auto-generated from users.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.Users ( + Users(..), ChangePasswordReq(), ChangePasswordReq'Options(), + ChangePasswordResp(), CreateReq(), CreateReq'Options(), + CreateResp(), DeleteReq(), DeleteReq'Options(), DeleteResp(), + DetailsReq(), DetailsReq'Options(), DetailsResp(), + DetailsResp'UserDetails(), DetailsResp'UserDetails'DateTime(), + DisableReq(), DisableReq'Options(), DisableResp(), EnableReq(), + EnableReq'Options(), EnableResp(), ResetPasswordReq(), + ResetPasswordReq'Options(), ResetPasswordResp(), UpdateReq(), + UpdateReq'Options(), UpdateResp() + ) where +import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString +import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding +import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector +import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic +import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed +import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read +{- | Fields : + + * 'Proto.Users_Fields.options' @:: Lens' ChangePasswordReq ChangePasswordReq'Options@ + * 'Proto.Users_Fields.maybe'options' @:: Lens' ChangePasswordReq (Prelude.Maybe ChangePasswordReq'Options)@ -} +data ChangePasswordReq + = ChangePasswordReq'_constructor {_ChangePasswordReq'options :: !(Prelude.Maybe ChangePasswordReq'Options), + _ChangePasswordReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ChangePasswordReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ChangePasswordReq "options" ChangePasswordReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ChangePasswordReq'options + (\ x__ y__ -> x__ {_ChangePasswordReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ChangePasswordReq "maybe'options" (Prelude.Maybe ChangePasswordReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ChangePasswordReq'options + (\ x__ y__ -> x__ {_ChangePasswordReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message ChangePasswordReq where + messageName _ + = Data.Text.pack "event_store.client.users.ChangePasswordReq" + packedMessageDescriptor _ + = "\n\ + \\DC1ChangePasswordReq\DC2M\n\ + \\aoptions\CAN\SOH \SOH(\v23.event_store.client.users.ChangePasswordReq.OptionsR\aoptions\SUBv\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\DC2)\n\ + \\DLEcurrent_password\CAN\STX \SOH(\tR\SIcurrentPassword\DC2!\n\ + \\fnew_password\CAN\ETX \SOH(\tR\vnewPassword" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ChangePasswordReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor ChangePasswordReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ChangePasswordReq'_unknownFields + (\ x__ y__ -> x__ {_ChangePasswordReq'_unknownFields = y__}) + defMessage + = ChangePasswordReq'_constructor + {_ChangePasswordReq'options = Prelude.Nothing, + _ChangePasswordReq'_unknownFields = []} + parseMessage + = let + loop :: + ChangePasswordReq + -> Data.ProtoLens.Encoding.Bytes.Parser ChangePasswordReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ChangePasswordReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ChangePasswordReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ChangePasswordReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_ChangePasswordReq'options x__) ()) +{- | Fields : + + * 'Proto.Users_Fields.loginName' @:: Lens' ChangePasswordReq'Options Data.Text.Text@ + * 'Proto.Users_Fields.currentPassword' @:: Lens' ChangePasswordReq'Options Data.Text.Text@ + * 'Proto.Users_Fields.newPassword' @:: Lens' ChangePasswordReq'Options Data.Text.Text@ -} +data ChangePasswordReq'Options + = ChangePasswordReq'Options'_constructor {_ChangePasswordReq'Options'loginName :: !Data.Text.Text, + _ChangePasswordReq'Options'currentPassword :: !Data.Text.Text, + _ChangePasswordReq'Options'newPassword :: !Data.Text.Text, + _ChangePasswordReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ChangePasswordReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ChangePasswordReq'Options "loginName" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ChangePasswordReq'Options'loginName + (\ x__ y__ -> x__ {_ChangePasswordReq'Options'loginName = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ChangePasswordReq'Options "currentPassword" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ChangePasswordReq'Options'currentPassword + (\ x__ y__ + -> x__ {_ChangePasswordReq'Options'currentPassword = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ChangePasswordReq'Options "newPassword" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ChangePasswordReq'Options'newPassword + (\ x__ y__ -> x__ {_ChangePasswordReq'Options'newPassword = y__})) + Prelude.id +instance Data.ProtoLens.Message ChangePasswordReq'Options where + messageName _ + = Data.Text.pack + "event_store.client.users.ChangePasswordReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\DC2)\n\ + \\DLEcurrent_password\CAN\STX \SOH(\tR\SIcurrentPassword\DC2!\n\ + \\fnew_password\CAN\ETX \SOH(\tR\vnewPassword" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + loginName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "login_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"loginName")) :: + Data.ProtoLens.FieldDescriptor ChangePasswordReq'Options + currentPassword__field_descriptor + = Data.ProtoLens.FieldDescriptor + "current_password" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"currentPassword")) :: + Data.ProtoLens.FieldDescriptor ChangePasswordReq'Options + newPassword__field_descriptor + = Data.ProtoLens.FieldDescriptor + "new_password" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"newPassword")) :: + Data.ProtoLens.FieldDescriptor ChangePasswordReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, loginName__field_descriptor), + (Data.ProtoLens.Tag 2, currentPassword__field_descriptor), + (Data.ProtoLens.Tag 3, newPassword__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ChangePasswordReq'Options'_unknownFields + (\ x__ y__ + -> x__ {_ChangePasswordReq'Options'_unknownFields = y__}) + defMessage + = ChangePasswordReq'Options'_constructor + {_ChangePasswordReq'Options'loginName = Data.ProtoLens.fieldDefault, + _ChangePasswordReq'Options'currentPassword = Data.ProtoLens.fieldDefault, + _ChangePasswordReq'Options'newPassword = Data.ProtoLens.fieldDefault, + _ChangePasswordReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + ChangePasswordReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser ChangePasswordReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "login_name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"loginName") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "current_password" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"currentPassword") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "new_password" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"newPassword") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"loginName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"currentPassword") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"newPassword") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData ChangePasswordReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ChangePasswordReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ChangePasswordReq'Options'loginName x__) + (Control.DeepSeq.deepseq + (_ChangePasswordReq'Options'currentPassword x__) + (Control.DeepSeq.deepseq + (_ChangePasswordReq'Options'newPassword x__) ()))) +{- | Fields : + -} +data ChangePasswordResp + = ChangePasswordResp'_constructor {_ChangePasswordResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ChangePasswordResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message ChangePasswordResp where + messageName _ + = Data.Text.pack "event_store.client.users.ChangePasswordResp" + packedMessageDescriptor _ + = "\n\ + \\DC2ChangePasswordResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _ChangePasswordResp'_unknownFields + (\ x__ y__ -> x__ {_ChangePasswordResp'_unknownFields = y__}) + defMessage + = ChangePasswordResp'_constructor + {_ChangePasswordResp'_unknownFields = []} + parseMessage + = let + loop :: + ChangePasswordResp + -> Data.ProtoLens.Encoding.Bytes.Parser ChangePasswordResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ChangePasswordResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData ChangePasswordResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ChangePasswordResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Users_Fields.options' @:: Lens' CreateReq CreateReq'Options@ + * 'Proto.Users_Fields.maybe'options' @:: Lens' CreateReq (Prelude.Maybe CreateReq'Options)@ -} +data CreateReq + = CreateReq'_constructor {_CreateReq'options :: !(Prelude.Maybe CreateReq'Options), + _CreateReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CreateReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField CreateReq "options" CreateReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'options (\ x__ y__ -> x__ {_CreateReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField CreateReq "maybe'options" (Prelude.Maybe CreateReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'options (\ x__ y__ -> x__ {_CreateReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message CreateReq where + messageName _ = Data.Text.pack "event_store.client.users.CreateReq" + packedMessageDescriptor _ + = "\n\ + \\tCreateReq\DC2E\n\ + \\aoptions\CAN\SOH \SOH(\v2+.event_store.client.users.CreateReq.OptionsR\aoptions\SUBy\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\DC2\SUB\n\ + \\bpassword\CAN\STX \SOH(\tR\bpassword\DC2\ESC\n\ + \\tfull_name\CAN\ETX \SOH(\tR\bfullName\DC2\SYN\n\ + \\ACKgroups\CAN\EOT \ETX(\tR\ACKgroups" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CreateReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor CreateReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _CreateReq'_unknownFields + (\ x__ y__ -> x__ {_CreateReq'_unknownFields = y__}) + defMessage + = CreateReq'_constructor + {_CreateReq'options = Prelude.Nothing, + _CreateReq'_unknownFields = []} + parseMessage + = let + loop :: CreateReq -> Data.ProtoLens.Encoding.Bytes.Parser CreateReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "CreateReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData CreateReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_CreateReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_CreateReq'options x__) ()) +{- | Fields : + + * 'Proto.Users_Fields.loginName' @:: Lens' CreateReq'Options Data.Text.Text@ + * 'Proto.Users_Fields.password' @:: Lens' CreateReq'Options Data.Text.Text@ + * 'Proto.Users_Fields.fullName' @:: Lens' CreateReq'Options Data.Text.Text@ + * 'Proto.Users_Fields.groups' @:: Lens' CreateReq'Options [Data.Text.Text]@ + * 'Proto.Users_Fields.vec'groups' @:: Lens' CreateReq'Options (Data.Vector.Vector Data.Text.Text)@ -} +data CreateReq'Options + = CreateReq'Options'_constructor {_CreateReq'Options'loginName :: !Data.Text.Text, + _CreateReq'Options'password :: !Data.Text.Text, + _CreateReq'Options'fullName :: !Data.Text.Text, + _CreateReq'Options'groups :: !(Data.Vector.Vector Data.Text.Text), + _CreateReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CreateReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField CreateReq'Options "loginName" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'loginName + (\ x__ y__ -> x__ {_CreateReq'Options'loginName = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Options "password" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'password + (\ x__ y__ -> x__ {_CreateReq'Options'password = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Options "fullName" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'fullName + (\ x__ y__ -> x__ {_CreateReq'Options'fullName = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CreateReq'Options "groups" [Data.Text.Text] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'groups + (\ x__ y__ -> x__ {_CreateReq'Options'groups = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField CreateReq'Options "vec'groups" (Data.Vector.Vector Data.Text.Text) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CreateReq'Options'groups + (\ x__ y__ -> x__ {_CreateReq'Options'groups = y__})) + Prelude.id +instance Data.ProtoLens.Message CreateReq'Options where + messageName _ + = Data.Text.pack "event_store.client.users.CreateReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\DC2\SUB\n\ + \\bpassword\CAN\STX \SOH(\tR\bpassword\DC2\ESC\n\ + \\tfull_name\CAN\ETX \SOH(\tR\bfullName\DC2\SYN\n\ + \\ACKgroups\CAN\EOT \ETX(\tR\ACKgroups" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + loginName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "login_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"loginName")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Options + password__field_descriptor + = Data.ProtoLens.FieldDescriptor + "password" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"password")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Options + fullName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "full_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"fullName")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Options + groups__field_descriptor + = Data.ProtoLens.FieldDescriptor + "groups" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"groups")) :: + Data.ProtoLens.FieldDescriptor CreateReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, loginName__field_descriptor), + (Data.ProtoLens.Tag 2, password__field_descriptor), + (Data.ProtoLens.Tag 3, fullName__field_descriptor), + (Data.ProtoLens.Tag 4, groups__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _CreateReq'Options'_unknownFields + (\ x__ y__ -> x__ {_CreateReq'Options'_unknownFields = y__}) + defMessage + = CreateReq'Options'_constructor + {_CreateReq'Options'loginName = Data.ProtoLens.fieldDefault, + _CreateReq'Options'password = Data.ProtoLens.fieldDefault, + _CreateReq'Options'fullName = Data.ProtoLens.fieldDefault, + _CreateReq'Options'groups = Data.Vector.Generic.empty, + _CreateReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + CreateReq'Options + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text + -> Data.ProtoLens.Encoding.Bytes.Parser CreateReq'Options + loop x mutable'groups + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'groups <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'groups) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields + (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'groups") frozen'groups x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "login_name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"loginName") y x) + mutable'groups + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "password" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"password") y x) + mutable'groups + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "full_name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"fullName") y x) + mutable'groups + 34 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "groups" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'groups y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'groups + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'groups <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'groups) + "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"loginName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"password") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"fullName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'groups") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData CreateReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_CreateReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_CreateReq'Options'loginName x__) + (Control.DeepSeq.deepseq + (_CreateReq'Options'password x__) + (Control.DeepSeq.deepseq + (_CreateReq'Options'fullName x__) + (Control.DeepSeq.deepseq (_CreateReq'Options'groups x__) ())))) +{- | Fields : + -} +data CreateResp + = CreateResp'_constructor {_CreateResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CreateResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message CreateResp where + messageName _ + = Data.Text.pack "event_store.client.users.CreateResp" + packedMessageDescriptor _ + = "\n\ + \\n\ + \CreateResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _CreateResp'_unknownFields + (\ x__ y__ -> x__ {_CreateResp'_unknownFields = y__}) + defMessage + = CreateResp'_constructor {_CreateResp'_unknownFields = []} + parseMessage + = let + loop :: + CreateResp -> Data.ProtoLens.Encoding.Bytes.Parser CreateResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "CreateResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData CreateResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_CreateResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Users_Fields.options' @:: Lens' DeleteReq DeleteReq'Options@ + * 'Proto.Users_Fields.maybe'options' @:: Lens' DeleteReq (Prelude.Maybe DeleteReq'Options)@ -} +data DeleteReq + = DeleteReq'_constructor {_DeleteReq'options :: !(Prelude.Maybe DeleteReq'Options), + _DeleteReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DeleteReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DeleteReq "options" DeleteReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'options (\ x__ y__ -> x__ {_DeleteReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DeleteReq "maybe'options" (Prelude.Maybe DeleteReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'options (\ x__ y__ -> x__ {_DeleteReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message DeleteReq where + messageName _ = Data.Text.pack "event_store.client.users.DeleteReq" + packedMessageDescriptor _ + = "\n\ + \\tDeleteReq\DC2E\n\ + \\aoptions\CAN\SOH \SOH(\v2+.event_store.client.users.DeleteReq.OptionsR\aoptions\SUB(\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor DeleteReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor DeleteReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DeleteReq'_unknownFields + (\ x__ y__ -> x__ {_DeleteReq'_unknownFields = y__}) + defMessage + = DeleteReq'_constructor + {_DeleteReq'options = Prelude.Nothing, + _DeleteReq'_unknownFields = []} + parseMessage + = let + loop :: DeleteReq -> Data.ProtoLens.Encoding.Bytes.Parser DeleteReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "DeleteReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData DeleteReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DeleteReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_DeleteReq'options x__) ()) +{- | Fields : + + * 'Proto.Users_Fields.loginName' @:: Lens' DeleteReq'Options Data.Text.Text@ -} +data DeleteReq'Options + = DeleteReq'Options'_constructor {_DeleteReq'Options'loginName :: !Data.Text.Text, + _DeleteReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DeleteReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DeleteReq'Options "loginName" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DeleteReq'Options'loginName + (\ x__ y__ -> x__ {_DeleteReq'Options'loginName = y__})) + Prelude.id +instance Data.ProtoLens.Message DeleteReq'Options where + messageName _ + = Data.Text.pack "event_store.client.users.DeleteReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + loginName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "login_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"loginName")) :: + Data.ProtoLens.FieldDescriptor DeleteReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, loginName__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DeleteReq'Options'_unknownFields + (\ x__ y__ -> x__ {_DeleteReq'Options'_unknownFields = y__}) + defMessage + = DeleteReq'Options'_constructor + {_DeleteReq'Options'loginName = Data.ProtoLens.fieldDefault, + _DeleteReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + DeleteReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser DeleteReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "login_name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"loginName") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"loginName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData DeleteReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DeleteReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq (_DeleteReq'Options'loginName x__) ()) +{- | Fields : + -} +data DeleteResp + = DeleteResp'_constructor {_DeleteResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DeleteResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message DeleteResp where + messageName _ + = Data.Text.pack "event_store.client.users.DeleteResp" + packedMessageDescriptor _ + = "\n\ + \\n\ + \DeleteResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _DeleteResp'_unknownFields + (\ x__ y__ -> x__ {_DeleteResp'_unknownFields = y__}) + defMessage + = DeleteResp'_constructor {_DeleteResp'_unknownFields = []} + parseMessage + = let + loop :: + DeleteResp -> Data.ProtoLens.Encoding.Bytes.Parser DeleteResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "DeleteResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData DeleteResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_DeleteResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Users_Fields.options' @:: Lens' DetailsReq DetailsReq'Options@ + * 'Proto.Users_Fields.maybe'options' @:: Lens' DetailsReq (Prelude.Maybe DetailsReq'Options)@ -} +data DetailsReq + = DetailsReq'_constructor {_DetailsReq'options :: !(Prelude.Maybe DetailsReq'Options), + _DetailsReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DetailsReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DetailsReq "options" DetailsReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DetailsReq'options (\ x__ y__ -> x__ {_DetailsReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DetailsReq "maybe'options" (Prelude.Maybe DetailsReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DetailsReq'options (\ x__ y__ -> x__ {_DetailsReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message DetailsReq where + messageName _ + = Data.Text.pack "event_store.client.users.DetailsReq" + packedMessageDescriptor _ + = "\n\ + \\n\ + \DetailsReq\DC2F\n\ + \\aoptions\CAN\SOH \SOH(\v2,.event_store.client.users.DetailsReq.OptionsR\aoptions\SUB(\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor DetailsReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor DetailsReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DetailsReq'_unknownFields + (\ x__ y__ -> x__ {_DetailsReq'_unknownFields = y__}) + defMessage + = DetailsReq'_constructor + {_DetailsReq'options = Prelude.Nothing, + _DetailsReq'_unknownFields = []} + parseMessage + = let + loop :: + DetailsReq -> Data.ProtoLens.Encoding.Bytes.Parser DetailsReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "DetailsReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData DetailsReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DetailsReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_DetailsReq'options x__) ()) +{- | Fields : + + * 'Proto.Users_Fields.loginName' @:: Lens' DetailsReq'Options Data.Text.Text@ -} +data DetailsReq'Options + = DetailsReq'Options'_constructor {_DetailsReq'Options'loginName :: !Data.Text.Text, + _DetailsReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DetailsReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DetailsReq'Options "loginName" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DetailsReq'Options'loginName + (\ x__ y__ -> x__ {_DetailsReq'Options'loginName = y__})) + Prelude.id +instance Data.ProtoLens.Message DetailsReq'Options where + messageName _ + = Data.Text.pack "event_store.client.users.DetailsReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + loginName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "login_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"loginName")) :: + Data.ProtoLens.FieldDescriptor DetailsReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, loginName__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DetailsReq'Options'_unknownFields + (\ x__ y__ -> x__ {_DetailsReq'Options'_unknownFields = y__}) + defMessage + = DetailsReq'Options'_constructor + {_DetailsReq'Options'loginName = Data.ProtoLens.fieldDefault, + _DetailsReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + DetailsReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser DetailsReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "login_name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"loginName") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"loginName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData DetailsReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DetailsReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq (_DetailsReq'Options'loginName x__) ()) +{- | Fields : + + * 'Proto.Users_Fields.userDetails' @:: Lens' DetailsResp DetailsResp'UserDetails@ + * 'Proto.Users_Fields.maybe'userDetails' @:: Lens' DetailsResp (Prelude.Maybe DetailsResp'UserDetails)@ -} +data DetailsResp + = DetailsResp'_constructor {_DetailsResp'userDetails :: !(Prelude.Maybe DetailsResp'UserDetails), + _DetailsResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DetailsResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DetailsResp "userDetails" DetailsResp'UserDetails where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DetailsResp'userDetails + (\ x__ y__ -> x__ {_DetailsResp'userDetails = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DetailsResp "maybe'userDetails" (Prelude.Maybe DetailsResp'UserDetails) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DetailsResp'userDetails + (\ x__ y__ -> x__ {_DetailsResp'userDetails = y__})) + Prelude.id +instance Data.ProtoLens.Message DetailsResp where + messageName _ + = Data.Text.pack "event_store.client.users.DetailsResp" + packedMessageDescriptor _ + = "\n\ + \\vDetailsResp\DC2T\n\ + \\fuser_details\CAN\SOH \SOH(\v21.event_store.client.users.DetailsResp.UserDetailsR\vuserDetails\SUB\148\STX\n\ + \\vUserDetails\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\DC2\ESC\n\ + \\tfull_name\CAN\STX \SOH(\tR\bfullName\DC2\SYN\n\ + \\ACKgroups\CAN\ETX \ETX(\tR\ACKgroups\DC2]\n\ + \\flast_updated\CAN\EOT \SOH(\v2:.event_store.client.users.DetailsResp.UserDetails.DateTimeR\vlastUpdated\DC2\SUB\n\ + \\bdisabled\CAN\ENQ \SOH(\bR\bdisabled\SUB6\n\ + \\bDateTime\DC2*\n\ + \\DC1ticks_since_epoch\CAN\SOH \SOH(\ETXR\SIticksSinceEpoch" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + userDetails__field_descriptor + = Data.ProtoLens.FieldDescriptor + "user_details" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor DetailsResp'UserDetails) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'userDetails")) :: + Data.ProtoLens.FieldDescriptor DetailsResp + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, userDetails__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DetailsResp'_unknownFields + (\ x__ y__ -> x__ {_DetailsResp'_unknownFields = y__}) + defMessage + = DetailsResp'_constructor + {_DetailsResp'userDetails = Prelude.Nothing, + _DetailsResp'_unknownFields = []} + parseMessage + = let + loop :: + DetailsResp -> Data.ProtoLens.Encoding.Bytes.Parser DetailsResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "user_details" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"userDetails") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "DetailsResp" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'userDetails") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData DetailsResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DetailsResp'_unknownFields x__) + (Control.DeepSeq.deepseq (_DetailsResp'userDetails x__) ()) +{- | Fields : + + * 'Proto.Users_Fields.loginName' @:: Lens' DetailsResp'UserDetails Data.Text.Text@ + * 'Proto.Users_Fields.fullName' @:: Lens' DetailsResp'UserDetails Data.Text.Text@ + * 'Proto.Users_Fields.groups' @:: Lens' DetailsResp'UserDetails [Data.Text.Text]@ + * 'Proto.Users_Fields.vec'groups' @:: Lens' DetailsResp'UserDetails (Data.Vector.Vector Data.Text.Text)@ + * 'Proto.Users_Fields.lastUpdated' @:: Lens' DetailsResp'UserDetails DetailsResp'UserDetails'DateTime@ + * 'Proto.Users_Fields.maybe'lastUpdated' @:: Lens' DetailsResp'UserDetails (Prelude.Maybe DetailsResp'UserDetails'DateTime)@ + * 'Proto.Users_Fields.disabled' @:: Lens' DetailsResp'UserDetails Prelude.Bool@ -} +data DetailsResp'UserDetails + = DetailsResp'UserDetails'_constructor {_DetailsResp'UserDetails'loginName :: !Data.Text.Text, + _DetailsResp'UserDetails'fullName :: !Data.Text.Text, + _DetailsResp'UserDetails'groups :: !(Data.Vector.Vector Data.Text.Text), + _DetailsResp'UserDetails'lastUpdated :: !(Prelude.Maybe DetailsResp'UserDetails'DateTime), + _DetailsResp'UserDetails'disabled :: !Prelude.Bool, + _DetailsResp'UserDetails'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DetailsResp'UserDetails where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DetailsResp'UserDetails "loginName" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DetailsResp'UserDetails'loginName + (\ x__ y__ -> x__ {_DetailsResp'UserDetails'loginName = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DetailsResp'UserDetails "fullName" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DetailsResp'UserDetails'fullName + (\ x__ y__ -> x__ {_DetailsResp'UserDetails'fullName = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DetailsResp'UserDetails "groups" [Data.Text.Text] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DetailsResp'UserDetails'groups + (\ x__ y__ -> x__ {_DetailsResp'UserDetails'groups = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField DetailsResp'UserDetails "vec'groups" (Data.Vector.Vector Data.Text.Text) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DetailsResp'UserDetails'groups + (\ x__ y__ -> x__ {_DetailsResp'UserDetails'groups = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DetailsResp'UserDetails "lastUpdated" DetailsResp'UserDetails'DateTime where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DetailsResp'UserDetails'lastUpdated + (\ x__ y__ -> x__ {_DetailsResp'UserDetails'lastUpdated = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DetailsResp'UserDetails "maybe'lastUpdated" (Prelude.Maybe DetailsResp'UserDetails'DateTime) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DetailsResp'UserDetails'lastUpdated + (\ x__ y__ -> x__ {_DetailsResp'UserDetails'lastUpdated = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DetailsResp'UserDetails "disabled" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DetailsResp'UserDetails'disabled + (\ x__ y__ -> x__ {_DetailsResp'UserDetails'disabled = y__})) + Prelude.id +instance Data.ProtoLens.Message DetailsResp'UserDetails where + messageName _ + = Data.Text.pack "event_store.client.users.DetailsResp.UserDetails" + packedMessageDescriptor _ + = "\n\ + \\vUserDetails\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\DC2\ESC\n\ + \\tfull_name\CAN\STX \SOH(\tR\bfullName\DC2\SYN\n\ + \\ACKgroups\CAN\ETX \ETX(\tR\ACKgroups\DC2]\n\ + \\flast_updated\CAN\EOT \SOH(\v2:.event_store.client.users.DetailsResp.UserDetails.DateTimeR\vlastUpdated\DC2\SUB\n\ + \\bdisabled\CAN\ENQ \SOH(\bR\bdisabled\SUB6\n\ + \\bDateTime\DC2*\n\ + \\DC1ticks_since_epoch\CAN\SOH \SOH(\ETXR\SIticksSinceEpoch" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + loginName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "login_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"loginName")) :: + Data.ProtoLens.FieldDescriptor DetailsResp'UserDetails + fullName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "full_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"fullName")) :: + Data.ProtoLens.FieldDescriptor DetailsResp'UserDetails + groups__field_descriptor + = Data.ProtoLens.FieldDescriptor + "groups" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"groups")) :: + Data.ProtoLens.FieldDescriptor DetailsResp'UserDetails + lastUpdated__field_descriptor + = Data.ProtoLens.FieldDescriptor + "last_updated" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor DetailsResp'UserDetails'DateTime) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'lastUpdated")) :: + Data.ProtoLens.FieldDescriptor DetailsResp'UserDetails + disabled__field_descriptor + = Data.ProtoLens.FieldDescriptor + "disabled" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"disabled")) :: + Data.ProtoLens.FieldDescriptor DetailsResp'UserDetails + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, loginName__field_descriptor), + (Data.ProtoLens.Tag 2, fullName__field_descriptor), + (Data.ProtoLens.Tag 3, groups__field_descriptor), + (Data.ProtoLens.Tag 4, lastUpdated__field_descriptor), + (Data.ProtoLens.Tag 5, disabled__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DetailsResp'UserDetails'_unknownFields + (\ x__ y__ -> x__ {_DetailsResp'UserDetails'_unknownFields = y__}) + defMessage + = DetailsResp'UserDetails'_constructor + {_DetailsResp'UserDetails'loginName = Data.ProtoLens.fieldDefault, + _DetailsResp'UserDetails'fullName = Data.ProtoLens.fieldDefault, + _DetailsResp'UserDetails'groups = Data.Vector.Generic.empty, + _DetailsResp'UserDetails'lastUpdated = Prelude.Nothing, + _DetailsResp'UserDetails'disabled = Data.ProtoLens.fieldDefault, + _DetailsResp'UserDetails'_unknownFields = []} + parseMessage + = let + loop :: + DetailsResp'UserDetails + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text + -> Data.ProtoLens.Encoding.Bytes.Parser DetailsResp'UserDetails + loop x mutable'groups + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'groups <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'groups) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields + (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'groups") frozen'groups x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "login_name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"loginName") y x) + mutable'groups + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "full_name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"fullName") y x) + mutable'groups + 26 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "groups" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'groups y) + loop x v + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "last_updated" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"lastUpdated") y x) + mutable'groups + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "disabled" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"disabled") y x) + mutable'groups + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'groups + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'groups <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'groups) + "UserDetails" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"loginName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"fullName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'groups") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'lastUpdated") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"disabled") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))) +instance Control.DeepSeq.NFData DetailsResp'UserDetails where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DetailsResp'UserDetails'_unknownFields x__) + (Control.DeepSeq.deepseq + (_DetailsResp'UserDetails'loginName x__) + (Control.DeepSeq.deepseq + (_DetailsResp'UserDetails'fullName x__) + (Control.DeepSeq.deepseq + (_DetailsResp'UserDetails'groups x__) + (Control.DeepSeq.deepseq + (_DetailsResp'UserDetails'lastUpdated x__) + (Control.DeepSeq.deepseq + (_DetailsResp'UserDetails'disabled x__) ()))))) +{- | Fields : + + * 'Proto.Users_Fields.ticksSinceEpoch' @:: Lens' DetailsResp'UserDetails'DateTime Data.Int.Int64@ -} +data DetailsResp'UserDetails'DateTime + = DetailsResp'UserDetails'DateTime'_constructor {_DetailsResp'UserDetails'DateTime'ticksSinceEpoch :: !Data.Int.Int64, + _DetailsResp'UserDetails'DateTime'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DetailsResp'UserDetails'DateTime where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DetailsResp'UserDetails'DateTime "ticksSinceEpoch" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DetailsResp'UserDetails'DateTime'ticksSinceEpoch + (\ x__ y__ + -> x__ {_DetailsResp'UserDetails'DateTime'ticksSinceEpoch = y__})) + Prelude.id +instance Data.ProtoLens.Message DetailsResp'UserDetails'DateTime where + messageName _ + = Data.Text.pack + "event_store.client.users.DetailsResp.UserDetails.DateTime" + packedMessageDescriptor _ + = "\n\ + \\bDateTime\DC2*\n\ + \\DC1ticks_since_epoch\CAN\SOH \SOH(\ETXR\SIticksSinceEpoch" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + ticksSinceEpoch__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ticks_since_epoch" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"ticksSinceEpoch")) :: + Data.ProtoLens.FieldDescriptor DetailsResp'UserDetails'DateTime + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, ticksSinceEpoch__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DetailsResp'UserDetails'DateTime'_unknownFields + (\ x__ y__ + -> x__ {_DetailsResp'UserDetails'DateTime'_unknownFields = y__}) + defMessage + = DetailsResp'UserDetails'DateTime'_constructor + {_DetailsResp'UserDetails'DateTime'ticksSinceEpoch = Data.ProtoLens.fieldDefault, + _DetailsResp'UserDetails'DateTime'_unknownFields = []} + parseMessage + = let + loop :: + DetailsResp'UserDetails'DateTime + -> Data.ProtoLens.Encoding.Bytes.Parser DetailsResp'UserDetails'DateTime + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "ticks_since_epoch" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"ticksSinceEpoch") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "DateTime" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"ticksSinceEpoch") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData DetailsResp'UserDetails'DateTime where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DetailsResp'UserDetails'DateTime'_unknownFields x__) + (Control.DeepSeq.deepseq + (_DetailsResp'UserDetails'DateTime'ticksSinceEpoch x__) ()) +{- | Fields : + + * 'Proto.Users_Fields.options' @:: Lens' DisableReq DisableReq'Options@ + * 'Proto.Users_Fields.maybe'options' @:: Lens' DisableReq (Prelude.Maybe DisableReq'Options)@ -} +data DisableReq + = DisableReq'_constructor {_DisableReq'options :: !(Prelude.Maybe DisableReq'Options), + _DisableReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DisableReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DisableReq "options" DisableReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DisableReq'options (\ x__ y__ -> x__ {_DisableReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DisableReq "maybe'options" (Prelude.Maybe DisableReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DisableReq'options (\ x__ y__ -> x__ {_DisableReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message DisableReq where + messageName _ + = Data.Text.pack "event_store.client.users.DisableReq" + packedMessageDescriptor _ + = "\n\ + \\n\ + \DisableReq\DC2F\n\ + \\aoptions\CAN\SOH \SOH(\v2,.event_store.client.users.DisableReq.OptionsR\aoptions\SUB(\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor DisableReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor DisableReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DisableReq'_unknownFields + (\ x__ y__ -> x__ {_DisableReq'_unknownFields = y__}) + defMessage + = DisableReq'_constructor + {_DisableReq'options = Prelude.Nothing, + _DisableReq'_unknownFields = []} + parseMessage + = let + loop :: + DisableReq -> Data.ProtoLens.Encoding.Bytes.Parser DisableReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "DisableReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData DisableReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DisableReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_DisableReq'options x__) ()) +{- | Fields : + + * 'Proto.Users_Fields.loginName' @:: Lens' DisableReq'Options Data.Text.Text@ -} +data DisableReq'Options + = DisableReq'Options'_constructor {_DisableReq'Options'loginName :: !Data.Text.Text, + _DisableReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DisableReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DisableReq'Options "loginName" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DisableReq'Options'loginName + (\ x__ y__ -> x__ {_DisableReq'Options'loginName = y__})) + Prelude.id +instance Data.ProtoLens.Message DisableReq'Options where + messageName _ + = Data.Text.pack "event_store.client.users.DisableReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + loginName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "login_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"loginName")) :: + Data.ProtoLens.FieldDescriptor DisableReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, loginName__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DisableReq'Options'_unknownFields + (\ x__ y__ -> x__ {_DisableReq'Options'_unknownFields = y__}) + defMessage + = DisableReq'Options'_constructor + {_DisableReq'Options'loginName = Data.ProtoLens.fieldDefault, + _DisableReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + DisableReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser DisableReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "login_name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"loginName") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"loginName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData DisableReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DisableReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq (_DisableReq'Options'loginName x__) ()) +{- | Fields : + -} +data DisableResp + = DisableResp'_constructor {_DisableResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DisableResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message DisableResp where + messageName _ + = Data.Text.pack "event_store.client.users.DisableResp" + packedMessageDescriptor _ + = "\n\ + \\vDisableResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _DisableResp'_unknownFields + (\ x__ y__ -> x__ {_DisableResp'_unknownFields = y__}) + defMessage + = DisableResp'_constructor {_DisableResp'_unknownFields = []} + parseMessage + = let + loop :: + DisableResp -> Data.ProtoLens.Encoding.Bytes.Parser DisableResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "DisableResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData DisableResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_DisableResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Users_Fields.options' @:: Lens' EnableReq EnableReq'Options@ + * 'Proto.Users_Fields.maybe'options' @:: Lens' EnableReq (Prelude.Maybe EnableReq'Options)@ -} +data EnableReq + = EnableReq'_constructor {_EnableReq'options :: !(Prelude.Maybe EnableReq'Options), + _EnableReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show EnableReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField EnableReq "options" EnableReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EnableReq'options (\ x__ y__ -> x__ {_EnableReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField EnableReq "maybe'options" (Prelude.Maybe EnableReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EnableReq'options (\ x__ y__ -> x__ {_EnableReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message EnableReq where + messageName _ = Data.Text.pack "event_store.client.users.EnableReq" + packedMessageDescriptor _ + = "\n\ + \\tEnableReq\DC2E\n\ + \\aoptions\CAN\SOH \SOH(\v2+.event_store.client.users.EnableReq.OptionsR\aoptions\SUB(\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EnableReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor EnableReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _EnableReq'_unknownFields + (\ x__ y__ -> x__ {_EnableReq'_unknownFields = y__}) + defMessage + = EnableReq'_constructor + {_EnableReq'options = Prelude.Nothing, + _EnableReq'_unknownFields = []} + parseMessage + = let + loop :: EnableReq -> Data.ProtoLens.Encoding.Bytes.Parser EnableReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "EnableReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData EnableReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_EnableReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_EnableReq'options x__) ()) +{- | Fields : + + * 'Proto.Users_Fields.loginName' @:: Lens' EnableReq'Options Data.Text.Text@ -} +data EnableReq'Options + = EnableReq'Options'_constructor {_EnableReq'Options'loginName :: !Data.Text.Text, + _EnableReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show EnableReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField EnableReq'Options "loginName" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EnableReq'Options'loginName + (\ x__ y__ -> x__ {_EnableReq'Options'loginName = y__})) + Prelude.id +instance Data.ProtoLens.Message EnableReq'Options where + messageName _ + = Data.Text.pack "event_store.client.users.EnableReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + loginName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "login_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"loginName")) :: + Data.ProtoLens.FieldDescriptor EnableReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, loginName__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _EnableReq'Options'_unknownFields + (\ x__ y__ -> x__ {_EnableReq'Options'_unknownFields = y__}) + defMessage + = EnableReq'Options'_constructor + {_EnableReq'Options'loginName = Data.ProtoLens.fieldDefault, + _EnableReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + EnableReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser EnableReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "login_name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"loginName") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"loginName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData EnableReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_EnableReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq (_EnableReq'Options'loginName x__) ()) +{- | Fields : + -} +data EnableResp + = EnableResp'_constructor {_EnableResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show EnableResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message EnableResp where + messageName _ + = Data.Text.pack "event_store.client.users.EnableResp" + packedMessageDescriptor _ + = "\n\ + \\n\ + \EnableResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _EnableResp'_unknownFields + (\ x__ y__ -> x__ {_EnableResp'_unknownFields = y__}) + defMessage + = EnableResp'_constructor {_EnableResp'_unknownFields = []} + parseMessage + = let + loop :: + EnableResp -> Data.ProtoLens.Encoding.Bytes.Parser EnableResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "EnableResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData EnableResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_EnableResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Users_Fields.options' @:: Lens' ResetPasswordReq ResetPasswordReq'Options@ + * 'Proto.Users_Fields.maybe'options' @:: Lens' ResetPasswordReq (Prelude.Maybe ResetPasswordReq'Options)@ -} +data ResetPasswordReq + = ResetPasswordReq'_constructor {_ResetPasswordReq'options :: !(Prelude.Maybe ResetPasswordReq'Options), + _ResetPasswordReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ResetPasswordReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ResetPasswordReq "options" ResetPasswordReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResetPasswordReq'options + (\ x__ y__ -> x__ {_ResetPasswordReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ResetPasswordReq "maybe'options" (Prelude.Maybe ResetPasswordReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResetPasswordReq'options + (\ x__ y__ -> x__ {_ResetPasswordReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message ResetPasswordReq where + messageName _ + = Data.Text.pack "event_store.client.users.ResetPasswordReq" + packedMessageDescriptor _ + = "\n\ + \\DLEResetPasswordReq\DC2L\n\ + \\aoptions\CAN\SOH \SOH(\v22.event_store.client.users.ResetPasswordReq.OptionsR\aoptions\SUBK\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\DC2!\n\ + \\fnew_password\CAN\STX \SOH(\tR\vnewPassword" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ResetPasswordReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor ResetPasswordReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ResetPasswordReq'_unknownFields + (\ x__ y__ -> x__ {_ResetPasswordReq'_unknownFields = y__}) + defMessage + = ResetPasswordReq'_constructor + {_ResetPasswordReq'options = Prelude.Nothing, + _ResetPasswordReq'_unknownFields = []} + parseMessage + = let + loop :: + ResetPasswordReq + -> Data.ProtoLens.Encoding.Bytes.Parser ResetPasswordReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ResetPasswordReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ResetPasswordReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ResetPasswordReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_ResetPasswordReq'options x__) ()) +{- | Fields : + + * 'Proto.Users_Fields.loginName' @:: Lens' ResetPasswordReq'Options Data.Text.Text@ + * 'Proto.Users_Fields.newPassword' @:: Lens' ResetPasswordReq'Options Data.Text.Text@ -} +data ResetPasswordReq'Options + = ResetPasswordReq'Options'_constructor {_ResetPasswordReq'Options'loginName :: !Data.Text.Text, + _ResetPasswordReq'Options'newPassword :: !Data.Text.Text, + _ResetPasswordReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ResetPasswordReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ResetPasswordReq'Options "loginName" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResetPasswordReq'Options'loginName + (\ x__ y__ -> x__ {_ResetPasswordReq'Options'loginName = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ResetPasswordReq'Options "newPassword" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResetPasswordReq'Options'newPassword + (\ x__ y__ -> x__ {_ResetPasswordReq'Options'newPassword = y__})) + Prelude.id +instance Data.ProtoLens.Message ResetPasswordReq'Options where + messageName _ + = Data.Text.pack + "event_store.client.users.ResetPasswordReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\DC2!\n\ + \\fnew_password\CAN\STX \SOH(\tR\vnewPassword" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + loginName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "login_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"loginName")) :: + Data.ProtoLens.FieldDescriptor ResetPasswordReq'Options + newPassword__field_descriptor + = Data.ProtoLens.FieldDescriptor + "new_password" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"newPassword")) :: + Data.ProtoLens.FieldDescriptor ResetPasswordReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, loginName__field_descriptor), + (Data.ProtoLens.Tag 2, newPassword__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ResetPasswordReq'Options'_unknownFields + (\ x__ y__ -> x__ {_ResetPasswordReq'Options'_unknownFields = y__}) + defMessage + = ResetPasswordReq'Options'_constructor + {_ResetPasswordReq'Options'loginName = Data.ProtoLens.fieldDefault, + _ResetPasswordReq'Options'newPassword = Data.ProtoLens.fieldDefault, + _ResetPasswordReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + ResetPasswordReq'Options + -> Data.ProtoLens.Encoding.Bytes.Parser ResetPasswordReq'Options + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "login_name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"loginName") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "new_password" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"newPassword") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"loginName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"newPassword") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ResetPasswordReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ResetPasswordReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ResetPasswordReq'Options'loginName x__) + (Control.DeepSeq.deepseq + (_ResetPasswordReq'Options'newPassword x__) ())) +{- | Fields : + -} +data ResetPasswordResp + = ResetPasswordResp'_constructor {_ResetPasswordResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ResetPasswordResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message ResetPasswordResp where + messageName _ + = Data.Text.pack "event_store.client.users.ResetPasswordResp" + packedMessageDescriptor _ + = "\n\ + \\DC1ResetPasswordResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _ResetPasswordResp'_unknownFields + (\ x__ y__ -> x__ {_ResetPasswordResp'_unknownFields = y__}) + defMessage + = ResetPasswordResp'_constructor + {_ResetPasswordResp'_unknownFields = []} + parseMessage + = let + loop :: + ResetPasswordResp + -> Data.ProtoLens.Encoding.Bytes.Parser ResetPasswordResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ResetPasswordResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData ResetPasswordResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ResetPasswordResp'_unknownFields x__) () +{- | Fields : + + * 'Proto.Users_Fields.options' @:: Lens' UpdateReq UpdateReq'Options@ + * 'Proto.Users_Fields.maybe'options' @:: Lens' UpdateReq (Prelude.Maybe UpdateReq'Options)@ -} +data UpdateReq + = UpdateReq'_constructor {_UpdateReq'options :: !(Prelude.Maybe UpdateReq'Options), + _UpdateReq'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UpdateReq where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField UpdateReq "options" UpdateReq'Options where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'options (\ x__ y__ -> x__ {_UpdateReq'options = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField UpdateReq "maybe'options" (Prelude.Maybe UpdateReq'Options) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'options (\ x__ y__ -> x__ {_UpdateReq'options = y__})) + Prelude.id +instance Data.ProtoLens.Message UpdateReq where + messageName _ = Data.Text.pack "event_store.client.users.UpdateReq" + packedMessageDescriptor _ + = "\n\ + \\tUpdateReq\DC2E\n\ + \\aoptions\CAN\SOH \SOH(\v2+.event_store.client.users.UpdateReq.OptionsR\aoptions\SUBy\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\DC2\SUB\n\ + \\bpassword\CAN\STX \SOH(\tR\bpassword\DC2\ESC\n\ + \\tfull_name\CAN\ETX \SOH(\tR\bfullName\DC2\SYN\n\ + \\ACKgroups\CAN\EOT \ETX(\tR\ACKgroups" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + options__field_descriptor + = Data.ProtoLens.FieldDescriptor + "options" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor UpdateReq'Options) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'options")) :: + Data.ProtoLens.FieldDescriptor UpdateReq + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, options__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _UpdateReq'_unknownFields + (\ x__ y__ -> x__ {_UpdateReq'_unknownFields = y__}) + defMessage + = UpdateReq'_constructor + {_UpdateReq'options = Prelude.Nothing, + _UpdateReq'_unknownFields = []} + parseMessage + = let + loop :: UpdateReq -> Data.ProtoLens.Encoding.Bytes.Parser UpdateReq + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "options" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "UpdateReq" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData UpdateReq where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_UpdateReq'_unknownFields x__) + (Control.DeepSeq.deepseq (_UpdateReq'options x__) ()) +{- | Fields : + + * 'Proto.Users_Fields.loginName' @:: Lens' UpdateReq'Options Data.Text.Text@ + * 'Proto.Users_Fields.password' @:: Lens' UpdateReq'Options Data.Text.Text@ + * 'Proto.Users_Fields.fullName' @:: Lens' UpdateReq'Options Data.Text.Text@ + * 'Proto.Users_Fields.groups' @:: Lens' UpdateReq'Options [Data.Text.Text]@ + * 'Proto.Users_Fields.vec'groups' @:: Lens' UpdateReq'Options (Data.Vector.Vector Data.Text.Text)@ -} +data UpdateReq'Options + = UpdateReq'Options'_constructor {_UpdateReq'Options'loginName :: !Data.Text.Text, + _UpdateReq'Options'password :: !Data.Text.Text, + _UpdateReq'Options'fullName :: !Data.Text.Text, + _UpdateReq'Options'groups :: !(Data.Vector.Vector Data.Text.Text), + _UpdateReq'Options'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UpdateReq'Options where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField UpdateReq'Options "loginName" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Options'loginName + (\ x__ y__ -> x__ {_UpdateReq'Options'loginName = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Options "password" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Options'password + (\ x__ y__ -> x__ {_UpdateReq'Options'password = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Options "fullName" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Options'fullName + (\ x__ y__ -> x__ {_UpdateReq'Options'fullName = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateReq'Options "groups" [Data.Text.Text] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Options'groups + (\ x__ y__ -> x__ {_UpdateReq'Options'groups = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField UpdateReq'Options "vec'groups" (Data.Vector.Vector Data.Text.Text) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateReq'Options'groups + (\ x__ y__ -> x__ {_UpdateReq'Options'groups = y__})) + Prelude.id +instance Data.ProtoLens.Message UpdateReq'Options where + messageName _ + = Data.Text.pack "event_store.client.users.UpdateReq.Options" + packedMessageDescriptor _ + = "\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\DC2\SUB\n\ + \\bpassword\CAN\STX \SOH(\tR\bpassword\DC2\ESC\n\ + \\tfull_name\CAN\ETX \SOH(\tR\bfullName\DC2\SYN\n\ + \\ACKgroups\CAN\EOT \ETX(\tR\ACKgroups" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + loginName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "login_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"loginName")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Options + password__field_descriptor + = Data.ProtoLens.FieldDescriptor + "password" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"password")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Options + fullName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "full_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"fullName")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Options + groups__field_descriptor + = Data.ProtoLens.FieldDescriptor + "groups" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"groups")) :: + Data.ProtoLens.FieldDescriptor UpdateReq'Options + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, loginName__field_descriptor), + (Data.ProtoLens.Tag 2, password__field_descriptor), + (Data.ProtoLens.Tag 3, fullName__field_descriptor), + (Data.ProtoLens.Tag 4, groups__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _UpdateReq'Options'_unknownFields + (\ x__ y__ -> x__ {_UpdateReq'Options'_unknownFields = y__}) + defMessage + = UpdateReq'Options'_constructor + {_UpdateReq'Options'loginName = Data.ProtoLens.fieldDefault, + _UpdateReq'Options'password = Data.ProtoLens.fieldDefault, + _UpdateReq'Options'fullName = Data.ProtoLens.fieldDefault, + _UpdateReq'Options'groups = Data.Vector.Generic.empty, + _UpdateReq'Options'_unknownFields = []} + parseMessage + = let + loop :: + UpdateReq'Options + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text + -> Data.ProtoLens.Encoding.Bytes.Parser UpdateReq'Options + loop x mutable'groups + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'groups <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'groups) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields + (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'groups") frozen'groups x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "login_name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"loginName") y x) + mutable'groups + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "password" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"password") y x) + mutable'groups + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "full_name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"fullName") y x) + mutable'groups + 34 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len) + Data.ProtoLens.Encoding.Bytes.runEither + (case Data.Text.Encoding.decodeUtf8' value of + (Prelude.Left err) + -> Prelude.Left (Prelude.show err) + (Prelude.Right r) -> Prelude.Right r)) + "groups" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'groups y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'groups + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'groups <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'groups) + "Options" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"loginName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"password") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"fullName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'groups") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData UpdateReq'Options where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_UpdateReq'Options'_unknownFields x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Options'loginName x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Options'password x__) + (Control.DeepSeq.deepseq + (_UpdateReq'Options'fullName x__) + (Control.DeepSeq.deepseq (_UpdateReq'Options'groups x__) ())))) +{- | Fields : + -} +data UpdateResp + = UpdateResp'_constructor {_UpdateResp'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UpdateResp where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message UpdateResp where + messageName _ + = Data.Text.pack "event_store.client.users.UpdateResp" + packedMessageDescriptor _ + = "\n\ + \\n\ + \UpdateResp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _UpdateResp'_unknownFields + (\ x__ y__ -> x__ {_UpdateResp'_unknownFields = y__}) + defMessage + = UpdateResp'_constructor {_UpdateResp'_unknownFields = []} + parseMessage + = let + loop :: + UpdateResp -> Data.ProtoLens.Encoding.Bytes.Parser UpdateResp + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of { + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) } + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "UpdateResp" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData UpdateResp where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_UpdateResp'_unknownFields x__) () +data Users = Users {} +instance Data.ProtoLens.Service.Types.Service Users where + type ServiceName Users = "Users" + type ServicePackage Users = "event_store.client.users" + type ServiceMethods Users = '["changePassword", + "create", + "delete", + "details", + "disable", + "enable", + "resetPassword", + "update"] +instance Data.ProtoLens.Service.Types.HasMethodImpl Users "create" where + type MethodName Users "create" = "Create" + type MethodInput Users "create" = CreateReq + type MethodOutput Users "create" = CreateResp + type MethodStreamingType Users "create" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Users "update" where + type MethodName Users "update" = "Update" + type MethodInput Users "update" = UpdateReq + type MethodOutput Users "update" = UpdateResp + type MethodStreamingType Users "update" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Users "delete" where + type MethodName Users "delete" = "Delete" + type MethodInput Users "delete" = DeleteReq + type MethodOutput Users "delete" = DeleteResp + type MethodStreamingType Users "delete" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Users "disable" where + type MethodName Users "disable" = "Disable" + type MethodInput Users "disable" = DisableReq + type MethodOutput Users "disable" = DisableResp + type MethodStreamingType Users "disable" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Users "enable" where + type MethodName Users "enable" = "Enable" + type MethodInput Users "enable" = EnableReq + type MethodOutput Users "enable" = EnableResp + type MethodStreamingType Users "enable" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Users "details" where + type MethodName Users "details" = "Details" + type MethodInput Users "details" = DetailsReq + type MethodOutput Users "details" = DetailsResp + type MethodStreamingType Users "details" = 'Data.ProtoLens.Service.Types.ServerStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Users "changePassword" where + type MethodName Users "changePassword" = "ChangePassword" + type MethodInput Users "changePassword" = ChangePasswordReq + type MethodOutput Users "changePassword" = ChangePasswordResp + type MethodStreamingType Users "changePassword" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Users "resetPassword" where + type MethodName Users "resetPassword" = "ResetPassword" + type MethodInput Users "resetPassword" = ResetPasswordReq + type MethodOutput Users "resetPassword" = ResetPasswordResp + type MethodStreamingType Users "resetPassword" = 'Data.ProtoLens.Service.Types.NonStreaming +packedFileDescriptor :: Data.ByteString.ByteString +packedFileDescriptor + = "\n\ + \\vusers.proto\DC2\CANevent_store.client.users\"\205\SOH\n\ + \\tCreateReq\DC2E\n\ + \\aoptions\CAN\SOH \SOH(\v2+.event_store.client.users.CreateReq.OptionsR\aoptions\SUBy\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\DC2\SUB\n\ + \\bpassword\CAN\STX \SOH(\tR\bpassword\DC2\ESC\n\ + \\tfull_name\CAN\ETX \SOH(\tR\bfullName\DC2\SYN\n\ + \\ACKgroups\CAN\EOT \ETX(\tR\ACKgroups\"\f\n\ + \\n\ + \CreateResp\"\205\SOH\n\ + \\tUpdateReq\DC2E\n\ + \\aoptions\CAN\SOH \SOH(\v2+.event_store.client.users.UpdateReq.OptionsR\aoptions\SUBy\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\DC2\SUB\n\ + \\bpassword\CAN\STX \SOH(\tR\bpassword\DC2\ESC\n\ + \\tfull_name\CAN\ETX \SOH(\tR\bfullName\DC2\SYN\n\ + \\ACKgroups\CAN\EOT \ETX(\tR\ACKgroups\"\f\n\ + \\n\ + \UpdateResp\"|\n\ + \\tDeleteReq\DC2E\n\ + \\aoptions\CAN\SOH \SOH(\v2+.event_store.client.users.DeleteReq.OptionsR\aoptions\SUB(\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\"\f\n\ + \\n\ + \DeleteResp\"|\n\ + \\tEnableReq\DC2E\n\ + \\aoptions\CAN\SOH \SOH(\v2+.event_store.client.users.EnableReq.OptionsR\aoptions\SUB(\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\"\f\n\ + \\n\ + \EnableResp\"~\n\ + \\n\ + \DisableReq\DC2F\n\ + \\aoptions\CAN\SOH \SOH(\v2,.event_store.client.users.DisableReq.OptionsR\aoptions\SUB(\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\"\r\n\ + \\vDisableResp\"~\n\ + \\n\ + \DetailsReq\DC2F\n\ + \\aoptions\CAN\SOH \SOH(\v2,.event_store.client.users.DetailsReq.OptionsR\aoptions\SUB(\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\"\250\STX\n\ + \\vDetailsResp\DC2T\n\ + \\fuser_details\CAN\SOH \SOH(\v21.event_store.client.users.DetailsResp.UserDetailsR\vuserDetails\SUB\148\STX\n\ + \\vUserDetails\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\DC2\ESC\n\ + \\tfull_name\CAN\STX \SOH(\tR\bfullName\DC2\SYN\n\ + \\ACKgroups\CAN\ETX \ETX(\tR\ACKgroups\DC2]\n\ + \\flast_updated\CAN\EOT \SOH(\v2:.event_store.client.users.DetailsResp.UserDetails.DateTimeR\vlastUpdated\DC2\SUB\n\ + \\bdisabled\CAN\ENQ \SOH(\bR\bdisabled\SUB6\n\ + \\bDateTime\DC2*\n\ + \\DC1ticks_since_epoch\CAN\SOH \SOH(\ETXR\SIticksSinceEpoch\"\218\SOH\n\ + \\DC1ChangePasswordReq\DC2M\n\ + \\aoptions\CAN\SOH \SOH(\v23.event_store.client.users.ChangePasswordReq.OptionsR\aoptions\SUBv\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\DC2)\n\ + \\DLEcurrent_password\CAN\STX \SOH(\tR\SIcurrentPassword\DC2!\n\ + \\fnew_password\CAN\ETX \SOH(\tR\vnewPassword\"\DC4\n\ + \\DC2ChangePasswordResp\"\173\SOH\n\ + \\DLEResetPasswordReq\DC2L\n\ + \\aoptions\CAN\SOH \SOH(\v22.event_store.client.users.ResetPasswordReq.OptionsR\aoptions\SUBK\n\ + \\aOptions\DC2\GS\n\ + \\n\ + \login_name\CAN\SOH \SOH(\tR\tloginName\DC2!\n\ + \\fnew_password\CAN\STX \SOH(\tR\vnewPassword\"\DC3\n\ + \\DC1ResetPasswordResp2\228\ENQ\n\ + \\ENQUsers\DC2S\n\ + \\ACKCreate\DC2#.event_store.client.users.CreateReq\SUB$.event_store.client.users.CreateResp\DC2S\n\ + \\ACKUpdate\DC2#.event_store.client.users.UpdateReq\SUB$.event_store.client.users.UpdateResp\DC2S\n\ + \\ACKDelete\DC2#.event_store.client.users.DeleteReq\SUB$.event_store.client.users.DeleteResp\DC2V\n\ + \\aDisable\DC2$.event_store.client.users.DisableReq\SUB%.event_store.client.users.DisableResp\DC2S\n\ + \\ACKEnable\DC2#.event_store.client.users.EnableReq\SUB$.event_store.client.users.EnableResp\DC2X\n\ + \\aDetails\DC2$.event_store.client.users.DetailsReq\SUB%.event_store.client.users.DetailsResp0\SOH\DC2k\n\ + \\SOChangePassword\DC2+.event_store.client.users.ChangePasswordReq\SUB,.event_store.client.users.ChangePasswordResp\DC2h\n\ + \\rResetPassword\DC2*.event_store.client.users.ResetPasswordReq\SUB+.event_store.client.users.ResetPasswordRespB%\n\ + \#com.eventstore.dbclient.proto.usersJ\251\CAN\n\ + \\ACK\DC2\EOT\NUL\NULv\SOH\n\ + \\b\n\ + \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\ + \\b\n\ + \\SOH\STX\DC2\ETX\SOH\NUL!\n\ + \\b\n\ + \\SOH\b\DC2\ETX\STX\NUL<\n\ + \\t\n\ + \\STX\b\SOH\DC2\ETX\STX\NUL<\n\ + \\n\ + \\n\ + \\STX\ACK\NUL\DC2\EOT\EOT\NUL\r\SOH\n\ + \\n\ + \\n\ + \\ETX\ACK\NUL\SOH\DC2\ETX\EOT\b\r\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\NUL\DC2\ETX\ENQ\b4\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX\ENQ\f\DC2\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX\ENQ\DC4\GS\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX\ENQ(2\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\SOH\DC2\ETX\ACK\b4\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\SOH\DC2\ETX\ACK\f\DC2\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\STX\DC2\ETX\ACK\DC4\GS\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETX\ACK(2\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\STX\DC2\ETX\a\b4\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\SOH\DC2\ETX\a\f\DC2\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\STX\DC2\ETX\a\DC4\GS\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\ETX\DC2\ETX\a(2\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\ETX\DC2\ETX\b\b7\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\SOH\DC2\ETX\b\f\DC3\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\STX\DC2\ETX\b\NAK\US\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\ETX\DC2\ETX\b*5\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\EOT\DC2\ETX\t\b4\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\EOT\SOH\DC2\ETX\t\f\DC2\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\EOT\STX\DC2\ETX\t\DC4\GS\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\EOT\ETX\DC2\ETX\t(2\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\ENQ\DC2\ETX\n\ + \\b>\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ENQ\SOH\DC2\ETX\n\ + \\f\DC3\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ENQ\STX\DC2\ETX\n\ + \\NAK\US\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ENQ\ACK\DC2\ETX\n\ + \*0\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ENQ\ETX\DC2\ETX\n\ + \1<\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\ACK\DC2\ETX\v\bL\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ACK\SOH\DC2\ETX\v\f\SUB\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ACK\STX\DC2\ETX\v\FS-\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ACK\ETX\DC2\ETX\v8J\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\a\DC2\ETX\f\bI\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\a\SOH\DC2\ETX\f\f\EM\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\a\STX\DC2\ETX\f\ESC+\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\a\ETX\DC2\ETX\f6G\n\ + \\n\ + \\n\ + \\STX\EOT\NUL\DC2\EOT\SI\NUL\ETB\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\NUL\SOH\DC2\ETX\SI\b\DC1\n\ + \\v\n\ + \\EOT\EOT\NUL\STX\NUL\DC2\ETX\DLE\b\FS\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\DLE\b\SI\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\DLE\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\DLE\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\NUL\ETX\NUL\DC2\EOT\DC1\b\SYN\t\n\ + \\f\n\ + \\ENQ\EOT\NUL\ETX\NUL\SOH\DC2\ETX\DC1\DLE\ETB\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\NUL\DC2\ETX\DC2\DLE&\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\NUL\ENQ\DC2\ETX\DC2\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETX\DC2\ETB!\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETX\DC2$%\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\SOH\DC2\ETX\DC3\DLE$\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\SOH\ENQ\DC2\ETX\DC3\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\SOH\SOH\DC2\ETX\DC3\ETB\US\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\SOH\ETX\DC2\ETX\DC3\"#\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\STX\DC2\ETX\DC4\DLE%\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\STX\ENQ\DC2\ETX\DC4\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\STX\SOH\DC2\ETX\DC4\ETB \n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\STX\ETX\DC2\ETX\DC4#$\n\ + \\r\n\ + \\ACK\EOT\NUL\ETX\NUL\STX\ETX\DC2\ETX\NAK\DLE+\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ETX\EOT\DC2\ETX\NAK\DLE\CAN\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ETX\ENQ\DC2\ETX\NAK\EM\US\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ETX\SOH\DC2\ETX\NAK &\n\ + \\SO\n\ + \\a\EOT\NUL\ETX\NUL\STX\ETX\ETX\DC2\ETX\NAK)*\n\ + \\n\ + \\n\ + \\STX\EOT\SOH\DC2\EOT\EM\NUL\ESC\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\SOH\SOH\DC2\ETX\EM\b\DC2\n\ + \\n\ + \\n\ + \\STX\EOT\STX\DC2\EOT\GS\NUL%\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\STX\SOH\DC2\ETX\GS\b\DC1\n\ + \\v\n\ + \\EOT\EOT\STX\STX\NUL\DC2\ETX\RS\b\FS\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX\RS\b\SI\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\RS\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\RS\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\STX\ETX\NUL\DC2\EOT\US\b$\t\n\ + \\f\n\ + \\ENQ\EOT\STX\ETX\NUL\SOH\DC2\ETX\US\DLE\ETB\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\NUL\STX\NUL\DC2\ETX \DLE&\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\NUL\ENQ\DC2\ETX \DLE\SYN\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\NUL\SOH\DC2\ETX \ETB!\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\NUL\ETX\DC2\ETX $%\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\NUL\STX\SOH\DC2\ETX!\DLE$\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\SOH\ENQ\DC2\ETX!\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\SOH\SOH\DC2\ETX!\ETB\US\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\SOH\ETX\DC2\ETX!\"#\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\NUL\STX\STX\DC2\ETX\"\DLE%\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\STX\ENQ\DC2\ETX\"\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\STX\SOH\DC2\ETX\"\ETB \n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\STX\ETX\DC2\ETX\"#$\n\ + \\r\n\ + \\ACK\EOT\STX\ETX\NUL\STX\ETX\DC2\ETX#\DLE+\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\ETX\EOT\DC2\ETX#\DLE\CAN\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\ETX\ENQ\DC2\ETX#\EM\US\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\ETX\SOH\DC2\ETX# &\n\ + \\SO\n\ + \\a\EOT\STX\ETX\NUL\STX\ETX\ETX\DC2\ETX#)*\n\ + \\n\ + \\n\ + \\STX\EOT\ETX\DC2\EOT'\NUL)\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\ETX\SOH\DC2\ETX'\b\DC2\n\ + \\n\ + \\n\ + \\STX\EOT\EOT\DC2\EOT+\NUL0\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\EOT\SOH\DC2\ETX+\b\DC1\n\ + \\v\n\ + \\EOT\EOT\EOT\STX\NUL\DC2\ETX,\b\FS\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETX,\b\SI\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX,\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX,\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\EOT\ETX\NUL\DC2\EOT-\b/\t\n\ + \\f\n\ + \\ENQ\EOT\EOT\ETX\NUL\SOH\DC2\ETX-\DLE\ETB\n\ + \\r\n\ + \\ACK\EOT\EOT\ETX\NUL\STX\NUL\DC2\ETX.\DLE&\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\NUL\ENQ\DC2\ETX.\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\NUL\SOH\DC2\ETX.\ETB!\n\ + \\SO\n\ + \\a\EOT\EOT\ETX\NUL\STX\NUL\ETX\DC2\ETX.$%\n\ + \\n\ + \\n\ + \\STX\EOT\ENQ\DC2\EOT2\NUL4\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\ENQ\SOH\DC2\ETX2\b\DC2\n\ + \\n\ + \\n\ + \\STX\EOT\ACK\DC2\EOT6\NUL;\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\ACK\SOH\DC2\ETX6\b\DC1\n\ + \\v\n\ + \\EOT\EOT\ACK\STX\NUL\DC2\ETX7\b\FS\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\ACK\DC2\ETX7\b\SI\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX7\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX7\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\ACK\ETX\NUL\DC2\EOT8\b:\t\n\ + \\f\n\ + \\ENQ\EOT\ACK\ETX\NUL\SOH\DC2\ETX8\DLE\ETB\n\ + \\r\n\ + \\ACK\EOT\ACK\ETX\NUL\STX\NUL\DC2\ETX9\DLE&\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\STX\NUL\ENQ\DC2\ETX9\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\STX\NUL\SOH\DC2\ETX9\ETB!\n\ + \\SO\n\ + \\a\EOT\ACK\ETX\NUL\STX\NUL\ETX\DC2\ETX9$%\n\ + \\n\ + \\n\ + \\STX\EOT\a\DC2\EOT=\NUL?\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\a\SOH\DC2\ETX=\b\DC2\n\ + \\n\ + \\n\ + \\STX\EOT\b\DC2\EOTA\NULF\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\b\SOH\DC2\ETXA\b\DC2\n\ + \\v\n\ + \\EOT\EOT\b\STX\NUL\DC2\ETXB\b\FS\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\ACK\DC2\ETXB\b\SI\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXB\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXB\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\b\ETX\NUL\DC2\EOTC\bE\t\n\ + \\f\n\ + \\ENQ\EOT\b\ETX\NUL\SOH\DC2\ETXC\DLE\ETB\n\ + \\r\n\ + \\ACK\EOT\b\ETX\NUL\STX\NUL\DC2\ETXD\DLE&\n\ + \\SO\n\ + \\a\EOT\b\ETX\NUL\STX\NUL\ENQ\DC2\ETXD\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\b\ETX\NUL\STX\NUL\SOH\DC2\ETXD\ETB!\n\ + \\SO\n\ + \\a\EOT\b\ETX\NUL\STX\NUL\ETX\DC2\ETXD$%\n\ + \\n\ + \\n\ + \\STX\EOT\t\DC2\EOTH\NULI\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\t\SOH\DC2\ETXH\b\DC3\n\ + \\n\ + \\n\ + \\STX\EOT\n\ + \\DC2\EOTK\NULP\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\n\ + \\SOH\DC2\ETXK\b\DC2\n\ + \\v\n\ + \\EOT\EOT\n\ + \\STX\NUL\DC2\ETXL\b\FS\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\ACK\DC2\ETXL\b\SI\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\SOH\DC2\ETXL\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\ETX\DC2\ETXL\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\n\ + \\ETX\NUL\DC2\EOTM\bO\t\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\ETX\NUL\SOH\DC2\ETXM\DLE\ETB\n\ + \\r\n\ + \\ACK\EOT\n\ + \\ETX\NUL\STX\NUL\DC2\ETXN\DLE&\n\ + \\SO\n\ + \\a\EOT\n\ + \\ETX\NUL\STX\NUL\ENQ\DC2\ETXN\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\n\ + \\ETX\NUL\STX\NUL\SOH\DC2\ETXN\ETB!\n\ + \\SO\n\ + \\a\EOT\n\ + \\ETX\NUL\STX\NUL\ETX\DC2\ETXN$%\n\ + \\n\ + \\n\ + \\STX\EOT\v\DC2\EOTR\NUL_\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\v\SOH\DC2\ETXR\b\DC3\n\ + \\v\n\ + \\EOT\EOT\v\STX\NUL\DC2\ETXS\b%\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\ACK\DC2\ETXS\b\DC3\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\SOH\DC2\ETXS\DC4 \n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\ETX\DC2\ETXS#$\n\ + \\f\n\ + \\EOT\EOT\v\ETX\NUL\DC2\EOTT\b^\t\n\ + \\f\n\ + \\ENQ\EOT\v\ETX\NUL\SOH\DC2\ETXT\DLE\ESC\n\ + \\r\n\ + \\ACK\EOT\v\ETX\NUL\STX\NUL\DC2\ETXU\DLE&\n\ + \\SO\n\ + \\a\EOT\v\ETX\NUL\STX\NUL\ENQ\DC2\ETXU\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\v\ETX\NUL\STX\NUL\SOH\DC2\ETXU\ETB!\n\ + \\SO\n\ + \\a\EOT\v\ETX\NUL\STX\NUL\ETX\DC2\ETXU$%\n\ + \\r\n\ + \\ACK\EOT\v\ETX\NUL\STX\SOH\DC2\ETXV\DLE%\n\ + \\SO\n\ + \\a\EOT\v\ETX\NUL\STX\SOH\ENQ\DC2\ETXV\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\v\ETX\NUL\STX\SOH\SOH\DC2\ETXV\ETB \n\ + \\SO\n\ + \\a\EOT\v\ETX\NUL\STX\SOH\ETX\DC2\ETXV#$\n\ + \\r\n\ + \\ACK\EOT\v\ETX\NUL\STX\STX\DC2\ETXW\DLE+\n\ + \\SO\n\ + \\a\EOT\v\ETX\NUL\STX\STX\EOT\DC2\ETXW\DLE\CAN\n\ + \\SO\n\ + \\a\EOT\v\ETX\NUL\STX\STX\ENQ\DC2\ETXW\EM\US\n\ + \\SO\n\ + \\a\EOT\v\ETX\NUL\STX\STX\SOH\DC2\ETXW &\n\ + \\SO\n\ + \\a\EOT\v\ETX\NUL\STX\STX\ETX\DC2\ETXW)*\n\ + \\r\n\ + \\ACK\EOT\v\ETX\NUL\STX\ETX\DC2\ETXX\DLE*\n\ + \\SO\n\ + \\a\EOT\v\ETX\NUL\STX\ETX\ACK\DC2\ETXX\DLE\CAN\n\ + \\SO\n\ + \\a\EOT\v\ETX\NUL\STX\ETX\SOH\DC2\ETXX\EM%\n\ + \\SO\n\ + \\a\EOT\v\ETX\NUL\STX\ETX\ETX\DC2\ETXX()\n\ + \\r\n\ + \\ACK\EOT\v\ETX\NUL\STX\EOT\DC2\ETXY\DLE\"\n\ + \\SO\n\ + \\a\EOT\v\ETX\NUL\STX\EOT\ENQ\DC2\ETXY\DLE\DC4\n\ + \\SO\n\ + \\a\EOT\v\ETX\NUL\STX\EOT\SOH\DC2\ETXY\NAK\GS\n\ + \\SO\n\ + \\a\EOT\v\ETX\NUL\STX\EOT\ETX\DC2\ETXY !\n\ + \\SO\n\ + \\ACK\EOT\v\ETX\NUL\ETX\NUL\DC2\EOT[\DLE]\DC1\n\ + \\SO\n\ + \\a\EOT\v\ETX\NUL\ETX\NUL\SOH\DC2\ETX[\CAN \n\ + \\SI\n\ + \\b\EOT\v\ETX\NUL\ETX\NUL\STX\NUL\DC2\ETX\\\CAN4\n\ + \\DLE\n\ + \\t\EOT\v\ETX\NUL\ETX\NUL\STX\NUL\ENQ\DC2\ETX\\\CAN\GS\n\ + \\DLE\n\ + \\t\EOT\v\ETX\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETX\\\RS/\n\ + \\DLE\n\ + \\t\EOT\v\ETX\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETX\\23\n\ + \\n\ + \\n\ + \\STX\EOT\f\DC2\EOTa\NULh\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\f\SOH\DC2\ETXa\b\EM\n\ + \\v\n\ + \\EOT\EOT\f\STX\NUL\DC2\ETXb\b\FS\n\ + \\f\n\ + \\ENQ\EOT\f\STX\NUL\ACK\DC2\ETXb\b\SI\n\ + \\f\n\ + \\ENQ\EOT\f\STX\NUL\SOH\DC2\ETXb\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\f\STX\NUL\ETX\DC2\ETXb\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\f\ETX\NUL\DC2\EOTc\bg\t\n\ + \\f\n\ + \\ENQ\EOT\f\ETX\NUL\SOH\DC2\ETXc\DLE\ETB\n\ + \\r\n\ + \\ACK\EOT\f\ETX\NUL\STX\NUL\DC2\ETXd\DLE&\n\ + \\SO\n\ + \\a\EOT\f\ETX\NUL\STX\NUL\ENQ\DC2\ETXd\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\f\ETX\NUL\STX\NUL\SOH\DC2\ETXd\ETB!\n\ + \\SO\n\ + \\a\EOT\f\ETX\NUL\STX\NUL\ETX\DC2\ETXd$%\n\ + \\r\n\ + \\ACK\EOT\f\ETX\NUL\STX\SOH\DC2\ETXe\DLE,\n\ + \\SO\n\ + \\a\EOT\f\ETX\NUL\STX\SOH\ENQ\DC2\ETXe\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\f\ETX\NUL\STX\SOH\SOH\DC2\ETXe\ETB'\n\ + \\SO\n\ + \\a\EOT\f\ETX\NUL\STX\SOH\ETX\DC2\ETXe*+\n\ + \\r\n\ + \\ACK\EOT\f\ETX\NUL\STX\STX\DC2\ETXf\DLE(\n\ + \\SO\n\ + \\a\EOT\f\ETX\NUL\STX\STX\ENQ\DC2\ETXf\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\f\ETX\NUL\STX\STX\SOH\DC2\ETXf\ETB#\n\ + \\SO\n\ + \\a\EOT\f\ETX\NUL\STX\STX\ETX\DC2\ETXf&'\n\ + \\n\ + \\n\ + \\STX\EOT\r\DC2\EOTj\NULk\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\r\SOH\DC2\ETXj\b\SUB\n\ + \\n\ + \\n\ + \\STX\EOT\SO\DC2\EOTm\NULs\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\SO\SOH\DC2\ETXm\b\CAN\n\ + \\v\n\ + \\EOT\EOT\SO\STX\NUL\DC2\ETXn\b\FS\n\ + \\f\n\ + \\ENQ\EOT\SO\STX\NUL\ACK\DC2\ETXn\b\SI\n\ + \\f\n\ + \\ENQ\EOT\SO\STX\NUL\SOH\DC2\ETXn\DLE\ETB\n\ + \\f\n\ + \\ENQ\EOT\SO\STX\NUL\ETX\DC2\ETXn\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\SO\ETX\NUL\DC2\EOTo\br\t\n\ + \\f\n\ + \\ENQ\EOT\SO\ETX\NUL\SOH\DC2\ETXo\DLE\ETB\n\ + \\r\n\ + \\ACK\EOT\SO\ETX\NUL\STX\NUL\DC2\ETXp\DLE&\n\ + \\SO\n\ + \\a\EOT\SO\ETX\NUL\STX\NUL\ENQ\DC2\ETXp\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\SO\ETX\NUL\STX\NUL\SOH\DC2\ETXp\ETB!\n\ + \\SO\n\ + \\a\EOT\SO\ETX\NUL\STX\NUL\ETX\DC2\ETXp$%\n\ + \\r\n\ + \\ACK\EOT\SO\ETX\NUL\STX\SOH\DC2\ETXq\DLE(\n\ + \\SO\n\ + \\a\EOT\SO\ETX\NUL\STX\SOH\ENQ\DC2\ETXq\DLE\SYN\n\ + \\SO\n\ + \\a\EOT\SO\ETX\NUL\STX\SOH\SOH\DC2\ETXq\ETB#\n\ + \\SO\n\ + \\a\EOT\SO\ETX\NUL\STX\SOH\ETX\DC2\ETXq&'\n\ + \\n\ + \\n\ + \\STX\EOT\SI\DC2\EOTu\NULv\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\SI\SOH\DC2\ETXu\b\EMb\ACKproto3" \ No newline at end of file diff --git a/Proto/Users_Fields.hs b/Proto/Users_Fields.hs new file mode 100644 index 0000000..d76a152 --- /dev/null +++ b/Proto/Users_Fields.hs @@ -0,0 +1,117 @@ +{- This file was auto-generated from users.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.Users_Fields where +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 +currentPassword :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "currentPassword" a) => + Lens.Family2.LensLike' f s a +currentPassword = Data.ProtoLens.Field.field @"currentPassword" +disabled :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "disabled" a) => + Lens.Family2.LensLike' f s a +disabled = Data.ProtoLens.Field.field @"disabled" +fullName :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "fullName" a) => + Lens.Family2.LensLike' f s a +fullName = Data.ProtoLens.Field.field @"fullName" +groups :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "groups" a) => + Lens.Family2.LensLike' f s a +groups = Data.ProtoLens.Field.field @"groups" +lastUpdated :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "lastUpdated" a) => + Lens.Family2.LensLike' f s a +lastUpdated = Data.ProtoLens.Field.field @"lastUpdated" +loginName :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "loginName" a) => + Lens.Family2.LensLike' f s a +loginName = Data.ProtoLens.Field.field @"loginName" +maybe'lastUpdated :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'lastUpdated" a) => + Lens.Family2.LensLike' f s a +maybe'lastUpdated = Data.ProtoLens.Field.field @"maybe'lastUpdated" +maybe'options :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'options" a) => + Lens.Family2.LensLike' f s a +maybe'options = Data.ProtoLens.Field.field @"maybe'options" +maybe'userDetails :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'userDetails" a) => + Lens.Family2.LensLike' f s a +maybe'userDetails = Data.ProtoLens.Field.field @"maybe'userDetails" +newPassword :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "newPassword" a) => + Lens.Family2.LensLike' f s a +newPassword = Data.ProtoLens.Field.field @"newPassword" +options :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "options" a) => + Lens.Family2.LensLike' f s a +options = Data.ProtoLens.Field.field @"options" +password :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "password" a) => + Lens.Family2.LensLike' f s a +password = Data.ProtoLens.Field.field @"password" +ticksSinceEpoch :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "ticksSinceEpoch" a) => + Lens.Family2.LensLike' f s a +ticksSinceEpoch = Data.ProtoLens.Field.field @"ticksSinceEpoch" +userDetails :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "userDetails" a) => + Lens.Family2.LensLike' f s a +userDetails = Data.ProtoLens.Field.field @"userDetails" +vec'groups :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'groups" a) => + Lens.Family2.LensLike' f s a +vec'groups = Data.ProtoLens.Field.field @"vec'groups" \ No newline at end of file diff --git a/etc/protos/cluster.proto b/etc/protos/cluster.proto new file mode 100644 index 0000000..618d698 --- /dev/null +++ b/etc/protos/cluster.proto @@ -0,0 +1,146 @@ +syntax = "proto3"; +package event_store.cluster; +option java_package = "com.eventstore.dbclient.proto.cluster"; + +import "shared.proto"; + +service Gossip { + rpc Update (GossipRequest) returns (ClusterInfo); + rpc Read (event_store.client.shared.Empty) returns (ClusterInfo); +} + +service Elections { + rpc ViewChange (ViewChangeRequest) returns (event_store.client.shared.Empty); + rpc ViewChangeProof (ViewChangeProofRequest) returns (event_store.client.shared.Empty); + rpc Prepare (PrepareRequest) returns (event_store.client.shared.Empty); + rpc PrepareOk (PrepareOkRequest) returns (event_store.client.shared.Empty); + rpc Proposal (ProposalRequest) returns (event_store.client.shared.Empty); + rpc Accept (AcceptRequest) returns (event_store.client.shared.Empty); + + rpc LeaderIsResigning (LeaderIsResigningRequest) returns (event_store.client.shared.Empty); + rpc LeaderIsResigningOk (LeaderIsResigningOkRequest) returns (event_store.client.shared.Empty); +} + +message GossipRequest { + ClusterInfo info = 1; + EndPoint server = 2; +} + +message ViewChangeRequest { + event_store.client.shared.UUID server_id = 1; + EndPoint server_http = 2; + int32 attempted_view = 3; +} + +message ViewChangeProofRequest { + event_store.client.shared.UUID server_id = 1; + EndPoint server_http = 2; + int32 installed_view = 3; +} + +message PrepareRequest { + event_store.client.shared.UUID server_id = 1; + EndPoint server_http = 2; + int32 view = 3; +} + +message PrepareOkRequest { + int32 view = 1; + event_store.client.shared.UUID server_id = 2; + EndPoint server_http = 3; + int32 epoch_number = 4; + int64 epoch_position = 5; + event_store.client.shared.UUID epoch_id = 6; + event_store.client.shared.UUID epoch_leader_instance_id = 7; + int64 last_commit_position = 8; + int64 writer_checkpoint = 9; + int64 chaser_checkpoint = 10; + int32 node_priority = 11; + ClusterInfo cluster_info = 12; +} + +message ProposalRequest { + event_store.client.shared.UUID server_id = 1; + EndPoint server_http = 2; + event_store.client.shared.UUID leader_id = 3; + EndPoint leader_http = 4; + int32 view = 5; + int32 epoch_number = 6; + int64 epoch_position = 7; + event_store.client.shared.UUID epoch_id = 8; + event_store.client.shared.UUID epoch_leader_instance_id = 9; + int64 last_commit_position = 10; + int64 writer_checkpoint = 11; + int64 chaser_checkpoint = 12; + int32 node_priority = 13; +} + +message AcceptRequest { + event_store.client.shared.UUID server_id = 1; + EndPoint server_http = 2; + event_store.client.shared.UUID leader_id = 3; + EndPoint leader_http = 4; + int32 view = 5; +} + +message LeaderIsResigningRequest { + event_store.client.shared.UUID leader_id = 1; + EndPoint leader_http = 2; +} + +message LeaderIsResigningOkRequest { + event_store.client.shared.UUID leader_id = 1; + EndPoint leader_http = 2; + event_store.client.shared.UUID server_id = 3; + EndPoint server_http = 4; +} + +message ClusterInfo { + repeated MemberInfo members = 1; +} + +message EndPoint { + string address = 1; + uint32 port = 2; +} + +message MemberInfo { + enum VNodeState { + Initializing = 0; + DiscoverLeader = 1; + Unknown = 2; + PreReplica = 3; + CatchingUp = 4; + Clone = 5; + Follower = 6; + PreLeader = 7; + Leader = 8; + Manager = 9; + ShuttingDown = 10; + Shutdown = 11; + ReadOnlyLeaderless = 12; + PreReadOnlyReplica = 13; + ReadOnlyReplica = 14; + ResigningLeader = 15; + } + event_store.client.shared.UUID instance_id = 1; + int64 time_stamp = 2; + VNodeState state = 3; + bool is_alive = 4; + EndPoint http_end_point = 5; + EndPoint internal_tcp = 6; + EndPoint external_tcp = 7; + bool internal_tcp_uses_tls = 8; + bool external_tcp_uses_tls = 9; + + int64 last_commit_position = 10; + int64 writer_checkpoint = 11; + int64 chaser_checkpoint = 12; + int64 epoch_position = 13; + int32 epoch_number = 14; + event_store.client.shared.UUID epoch_id = 15; + + int32 node_priority = 16; + bool is_read_only_replica = 17; +} + diff --git a/etc/protos/gossip.proto b/etc/protos/gossip.proto new file mode 100644 index 0000000..8399a1a --- /dev/null +++ b/etc/protos/gossip.proto @@ -0,0 +1,44 @@ +syntax = "proto3"; +package event_store.client.gossip; +option java_package = "com.eventstore.dbclient.proto.gossip"; + +import "shared.proto"; + +service Gossip { + rpc Read (event_store.client.shared.Empty) returns (ClusterInfo); +} + +message ClusterInfo { + repeated MemberInfo members = 1; +} + +message EndPoint { + string address = 1; + uint32 port = 2; +} + +message MemberInfo { + enum VNodeState { + Initializing = 0; + DiscoverLeader = 1; + Unknown = 2; + PreReplica = 3; + CatchingUp = 4; + Clone = 5; + Follower = 6; + PreLeader = 7; + Leader = 8; + Manager = 9; + ShuttingDown = 10; + Shutdown = 11; + ReadOnlyLeaderless = 12; + PreReadOnlyReplica = 13; + ReadOnlyReplica = 14; + ResigningLeader = 15; + } + event_store.client.shared.UUID instance_id = 1; + int64 time_stamp = 2; + VNodeState state = 3; + bool is_alive = 4; + EndPoint http_end_point = 5; +} diff --git a/etc/protos/operations.proto b/etc/protos/operations.proto new file mode 100644 index 0000000..4907fc2 --- /dev/null +++ b/etc/protos/operations.proto @@ -0,0 +1,44 @@ +syntax = "proto3"; +package event_store.client.operations; +option java_package = "com.eventstore.dbclient.proto.operations"; + +import "shared.proto"; + +service Operations { + rpc StartScavenge (StartScavengeReq) returns (ScavengeResp); + rpc StopScavenge (StopScavengeReq) returns (ScavengeResp); + rpc Shutdown (event_store.client.shared.Empty) returns (event_store.client.shared.Empty); + rpc MergeIndexes (event_store.client.shared.Empty) returns (event_store.client.shared.Empty); + rpc ResignNode (event_store.client.shared.Empty) returns (event_store.client.shared.Empty); + rpc SetNodePriority (SetNodePriorityReq) returns (event_store.client.shared.Empty); +} + +message StartScavengeReq { + Options options = 1; + message Options { + int32 thread_count = 1; + int32 start_from_chunk = 2; + } +} + +message StopScavengeReq { + Options options = 1; + message Options { + string scavenge_id = 1; + } +} + +message ScavengeResp { + string scavenge_id = 1; + ScavengeResult scavenge_result = 2; + + enum ScavengeResult { + Started = 0; + InProgress = 1; + Stopped = 2; + } +} + +message SetNodePriorityReq { + int32 priority = 1; +} diff --git a/etc/protos/persistent.proto b/etc/protos/persistent.proto new file mode 100644 index 0000000..1cc21b7 --- /dev/null +++ b/etc/protos/persistent.proto @@ -0,0 +1,168 @@ +syntax = "proto3"; +package event_store.client.persistent_subscriptions; +option java_package = "com.eventstore.dbclient.proto.persistentsubscriptions"; + +import "shared.proto"; + +service PersistentSubscriptions { + rpc Create (CreateReq) returns (CreateResp); + rpc Update (UpdateReq) returns (UpdateResp); + rpc Delete (DeleteReq) returns (DeleteResp); + rpc Read (stream ReadReq) returns (stream ReadResp); +} + +message ReadReq { + oneof content { + Options options = 1; + Ack ack = 2; + Nack nack = 3; + } + + message Options { + event_store.client.shared.StreamIdentifier stream_identifier = 1; + string group_name = 2; + int32 buffer_size = 3; + UUIDOption uuid_option = 4; + + message UUIDOption { + oneof content { + event_store.client.shared.Empty structured = 1; + event_store.client.shared.Empty string = 2; + } + } + } + + message Ack { + bytes id = 1; + repeated event_store.client.shared.UUID ids = 2; + } + + message Nack { + bytes id = 1; + repeated event_store.client.shared.UUID ids = 2; + Action action = 3; + string reason = 4; + + enum Action { + Unknown = 0; + Park = 1; + Retry = 2; + Skip = 3; + Stop = 4; + } + } +} + +message ReadResp { + oneof content { + ReadEvent event = 1; + SubscriptionConfirmation subscription_confirmation = 2; + } + message ReadEvent { + RecordedEvent event = 1; + RecordedEvent link = 2; + oneof position { + uint64 commit_position = 3; + event_store.client.shared.Empty no_position = 4; + } + oneof count { + int32 retry_count = 5; + event_store.client.shared.Empty no_retry_count = 6; + } + message RecordedEvent { + event_store.client.shared.UUID id = 1; + event_store.client.shared.StreamIdentifier stream_identifier = 2; + uint64 stream_revision = 3; + uint64 prepare_position = 4; + uint64 commit_position = 5; + map metadata = 6; + bytes custom_metadata = 7; + bytes data = 8; + } + } + message SubscriptionConfirmation { + string subscription_id = 1; + } +} + +message CreateReq { + Options options = 1; + + message Options { + event_store.client.shared.StreamIdentifier stream_identifier = 1; + string group_name = 2; + Settings settings = 3; + } + + message Settings { + bool resolve_links = 1; + uint64 revision = 2; + bool extra_statistics = 3; + int64 message_timeout = 4; + int32 max_retry_count = 5; + int64 checkpoint_after = 6; + int32 min_checkpoint_count = 7; + int32 max_checkpoint_count = 8; + int32 max_subscriber_count = 9; + int32 live_buffer_size = 10; + int32 read_batch_size = 11; + int32 history_buffer_size = 12; + ConsumerStrategy named_consumer_strategy = 13; + } + + enum ConsumerStrategy { + DispatchToSingle = 0; + RoundRobin = 1; + Pinned = 2; + } +} + +message CreateResp { +} + +message UpdateReq { + Options options = 1; + + message Options { + event_store.client.shared.StreamIdentifier stream_identifier = 1; + string group_name = 2; + Settings settings = 3; + } + + message Settings { + bool resolve_links = 1; + uint64 revision = 2; + bool extra_statistics = 3; + int64 message_timeout = 4; + int32 max_retry_count = 5; + int64 checkpoint_after = 6; + int32 min_checkpoint_count = 7; + int32 max_checkpoint_count = 8; + int32 max_subscriber_count = 9; + int32 live_buffer_size = 10; + int32 read_batch_size = 11; + int32 history_buffer_size = 12; + ConsumerStrategy named_consumer_strategy = 13; + } + + enum ConsumerStrategy { + DispatchToSingle = 0; + RoundRobin = 1; + Pinned = 2; + } +} + +message UpdateResp { +} + +message DeleteReq { + Options options = 1; + + message Options { + event_store.client.shared.StreamIdentifier stream_identifier = 1; + string group_name = 2; + } +} + +message DeleteResp { +} diff --git a/etc/protos/projections.proto b/etc/protos/projections.proto new file mode 100644 index 0000000..8203a17 --- /dev/null +++ b/etc/protos/projections.proto @@ -0,0 +1,174 @@ +syntax = "proto3"; +package event_store.client.projections; +option java_package = "com.eventstore.dbclient.proto.projections"; + +import "google/protobuf/struct.proto"; +import "shared.proto"; + +service Projections { + rpc Create (CreateReq) returns (CreateResp); + rpc Update (UpdateReq) returns (UpdateResp); + rpc Delete (DeleteReq) returns (DeleteResp); + rpc Statistics (StatisticsReq) returns (stream StatisticsResp); + rpc Disable (DisableReq) returns (DisableResp); + rpc Enable (EnableReq) returns (EnableResp); + rpc Reset (ResetReq) returns (ResetResp); + rpc State (StateReq) returns (StateResp); + rpc Result (ResultReq) returns (ResultResp); + rpc RestartSubsystem (event_store.client.shared.Empty) returns (event_store.client.shared.Empty); +} + +message CreateReq { + Options options = 1; + + message Options { + oneof mode { + event_store.client.shared.Empty one_time = 1; + Transient transient = 2; + Continuous continuous = 3; + } + string query = 4; + + message Transient { + string name = 1; + } + message Continuous { + string name = 1; + bool track_emitted_streams = 2; + } + } +} + +message CreateResp { +} + +message UpdateReq { + Options options = 1; + + message Options { + string name = 1; + string query = 2; + oneof emit_option { + bool emit_enabled = 3; + event_store.client.shared.Empty no_emit_options = 4; + } + } +} + +message UpdateResp { +} + +message DeleteReq { + Options options = 1; + + message Options { + string name = 1; + bool delete_emitted_streams = 2; + bool delete_state_stream = 3; + bool delete_checkpoint_stream = 4; + } +} + +message DeleteResp { +} + +message StatisticsReq { + Options options = 1; + message Options { + oneof mode { + string name = 1; + event_store.client.shared.Empty all = 2; + event_store.client.shared.Empty transient = 3; + event_store.client.shared.Empty continuous = 4; + event_store.client.shared.Empty one_time = 5; + } + } +} + +message StatisticsResp { + Details details = 1; + + message Details { + int64 coreProcessingTime = 1; + int64 version = 2; + int64 epoch = 3; + string effectiveName = 4; + int32 writesInProgress = 5; + int32 readsInProgress = 6; + int32 partitionsCached = 7; + string status = 8; + string stateReason = 9; + string name = 10; + string mode = 11; + string position = 12; + float progress = 13; + string lastCheckpoint = 14; + int64 eventsProcessedAfterRestart = 15; + string checkpointStatus = 16; + int64 bufferedEvents = 17; + int32 writePendingEventsBeforeCheckpoint = 18; + int32 writePendingEventsAfterCheckpoint = 19; + } +} + +message StateReq { + Options options = 1; + + message Options { + string name = 1; + string partition = 2; + } +} + +message StateResp { + google.protobuf.Value state = 1; +} + +message ResultReq { + Options options = 1; + + message Options { + string name = 1; + string partition = 2; + } +} + +message ResultResp { + google.protobuf.Value result = 1; +} + +message ResetReq { + Options options = 1; + + message Options { + string name = 1; + bool write_checkpoint = 2; + } +} + +message ResetResp { +} + + +message EnableReq { + Options options = 1; + + message Options { + string name = 1; + } +} + +message EnableResp { +} + +message DisableReq { + Options options = 1; + + message Options { + string name = 1; + bool write_checkpoint = 2; + } +} + +message DisableResp { +} diff --git a/etc/protos/shared.proto b/etc/protos/shared.proto new file mode 100644 index 0000000..c5a9121 --- /dev/null +++ b/etc/protos/shared.proto @@ -0,0 +1,22 @@ +syntax = "proto3"; +package event_store.client.shared; +option java_package = "com.eventstore.dbclient.proto.shared"; + +message UUID { + oneof value { + Structured structured = 1; + string string = 2; + } + + message Structured { + int64 most_significant_bits = 1; + int64 least_significant_bits = 2; + } +} +message Empty { +} + +message StreamIdentifier { + reserved 1 to 2; + bytes streamName = 3; +} diff --git a/etc/protos/streams.proto b/etc/protos/streams.proto new file mode 100644 index 0000000..e7d95b9 --- /dev/null +++ b/etc/protos/streams.proto @@ -0,0 +1,231 @@ +syntax = "proto3"; +package event_store.client.streams; +option java_package = "com.eventstore.dbclient.proto.streams"; + +import "shared.proto"; + +service Streams { + rpc Read (ReadReq) returns (stream ReadResp); + rpc Append (stream AppendReq) returns (AppendResp); + rpc Delete (DeleteReq) returns (DeleteResp); + rpc Tombstone (TombstoneReq) returns (TombstoneResp); +} + +message ReadReq { + Options options = 1; + + message Options { + oneof stream_option { + StreamOptions stream = 1; + AllOptions all = 2; + } + ReadDirection read_direction = 3; + bool resolve_links = 4; + oneof count_option { + uint64 count = 5; + SubscriptionOptions subscription = 6; + } + oneof filter_option { + FilterOptions filter = 7; + event_store.client.shared.Empty no_filter = 8; + } + UUIDOption uuid_option = 9; + + enum ReadDirection { + Forwards = 0; + Backwards = 1; + } + message StreamOptions { + event_store.client.shared.StreamIdentifier stream_identifier = 1; + oneof revision_option { + uint64 revision = 2; + event_store.client.shared.Empty start = 3; + event_store.client.shared.Empty end = 4; + } + } + message AllOptions { + oneof all_option { + Position position = 1; + event_store.client.shared.Empty start = 2; + event_store.client.shared.Empty end = 3; + } + } + message SubscriptionOptions { + } + message Position { + uint64 commit_position = 1; + uint64 prepare_position = 2; + } + message FilterOptions { + oneof filter { + Expression stream_identifier = 1; + Expression event_type = 2; + } + oneof window { + uint32 max = 3; + event_store.client.shared.Empty count = 4; + } + uint32 checkpointIntervalMultiplier = 5; + + message Expression { + string regex = 1; + repeated string prefix = 2; + } + } + message UUIDOption { + oneof content { + event_store.client.shared.Empty structured = 1; + event_store.client.shared.Empty string = 2; + } + } + } +} + +message ReadResp { + oneof content { + ReadEvent event = 1; + SubscriptionConfirmation confirmation = 2; + Checkpoint checkpoint = 3; + StreamNotFound stream_not_found = 4; + } + + message ReadEvent { + RecordedEvent event = 1; + RecordedEvent link = 2; + oneof position { + uint64 commit_position = 3; + event_store.client.shared.Empty no_position = 4; + } + + message RecordedEvent { + event_store.client.shared.UUID id = 1; + event_store.client.shared.StreamIdentifier stream_identifier = 2; + uint64 stream_revision = 3; + uint64 prepare_position = 4; + uint64 commit_position = 5; + map metadata = 6; + bytes custom_metadata = 7; + bytes data = 8; + } + } + message SubscriptionConfirmation { + string subscription_id = 1; + } + message Checkpoint { + uint64 commit_position = 1; + uint64 prepare_position = 2; + } + message StreamNotFound { + event_store.client.shared.StreamIdentifier stream_identifier = 1; + } +} + +message AppendReq { + oneof content { + Options options = 1; + ProposedMessage proposed_message = 2; + } + + message Options { + event_store.client.shared.StreamIdentifier stream_identifier = 1; + oneof expected_stream_revision { + uint64 revision = 2; + event_store.client.shared.Empty no_stream = 3; + event_store.client.shared.Empty any = 4; + event_store.client.shared.Empty stream_exists = 5; + } + } + message ProposedMessage { + event_store.client.shared.UUID id = 1; + map metadata = 2; + bytes custom_metadata = 3; + bytes data = 4; + } +} + +message AppendResp { + oneof result { + Success success = 1; + WrongExpectedVersion wrong_expected_version = 2; + } + + message Position { + uint64 commit_position = 1; + uint64 prepare_position = 2; + } + + message Success { + oneof current_revision_option { + uint64 current_revision = 1; + event_store.client.shared.Empty no_stream = 2; + } + oneof position_option { + Position position = 3; + event_store.client.shared.Empty no_position = 4; + } + } + + message WrongExpectedVersion { + oneof current_revision_option { + uint64 current_revision = 1; + event_store.client.shared.Empty no_stream = 2; + } + oneof expected_revision_option { + uint64 expected_revision = 3; + event_store.client.shared.Empty any = 4; + event_store.client.shared.Empty stream_exists = 5; + } + } +} + +message DeleteReq { + Options options = 1; + + message Options { + event_store.client.shared.StreamIdentifier stream_identifier = 1; + oneof expected_stream_revision { + uint64 revision = 2; + event_store.client.shared.Empty no_stream = 3; + event_store.client.shared.Empty any = 4; + event_store.client.shared.Empty stream_exists = 5; + } + } +} + +message DeleteResp { + oneof position_option { + Position position = 1; + event_store.client.shared.Empty no_position = 2; + } + + message Position { + uint64 commit_position = 1; + uint64 prepare_position = 2; + } +} + +message TombstoneReq { + Options options = 1; + + message Options { + event_store.client.shared.StreamIdentifier stream_identifier = 1; + oneof expected_stream_revision { + uint64 revision = 2; + event_store.client.shared.Empty no_stream = 3; + event_store.client.shared.Empty any = 4; + event_store.client.shared.Empty stream_exists = 5; + } + } +} + +message TombstoneResp { + oneof position_option { + Position position = 1; + event_store.client.shared.Empty no_position = 2; + } + + message Position { + uint64 commit_position = 1; + uint64 prepare_position = 2; + } +} diff --git a/etc/protos/users.proto b/etc/protos/users.proto new file mode 100644 index 0000000..0174725 --- /dev/null +++ b/etc/protos/users.proto @@ -0,0 +1,119 @@ +syntax = "proto3"; +package event_store.client.users; +option java_package = "com.eventstore.dbclient.proto.users"; + +service Users { + rpc Create (CreateReq) returns (CreateResp); + rpc Update (UpdateReq) returns (UpdateResp); + rpc Delete (DeleteReq) returns (DeleteResp); + rpc Disable (DisableReq) returns (DisableResp); + rpc Enable (EnableReq) returns (EnableResp); + rpc Details (DetailsReq) returns (stream DetailsResp); + rpc ChangePassword (ChangePasswordReq) returns (ChangePasswordResp); + rpc ResetPassword (ResetPasswordReq) returns (ResetPasswordResp); +} + +message CreateReq { + Options options = 1; + message Options { + string login_name = 1; + string password = 2; + string full_name = 3; + repeated string groups = 4; + } +} + +message CreateResp { + +} + +message UpdateReq { + Options options = 1; + message Options { + string login_name = 1; + string password = 2; + string full_name = 3; + repeated string groups = 4; + } +} + +message UpdateResp { + +} + +message DeleteReq { + Options options = 1; + message Options { + string login_name = 1; + } +} + +message DeleteResp { + +} + +message EnableReq { + Options options = 1; + message Options { + string login_name = 1; + } +} + +message EnableResp { + +} + +message DisableReq { + Options options = 1; + message Options { + string login_name = 1; + } +} + +message DisableResp { +} + +message DetailsReq { + Options options = 1; + message Options { + string login_name = 1; + } +} + +message DetailsResp { + UserDetails user_details = 1; + message UserDetails { + string login_name = 1; + string full_name = 2; + repeated string groups = 3; + DateTime last_updated = 4; + bool disabled = 5; + + message DateTime { + int64 ticks_since_epoch = 1; + } + } +} + +message ChangePasswordReq { + Options options = 1; + message Options { + string login_name = 1; + string current_password = 2; + string new_password = 3; + } +} + +message ChangePasswordResp { +} + +message ResetPasswordReq { + Options options = 1; + message Options { + string login_name = 1; + string new_password = 2; + } +} + +message ResetPasswordResp { +}