{- This file was auto-generated from otr.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.Otr (
        ClientEntry(), ClientId(), ClientMismatchStrategy(),
        ClientMismatchStrategy'IgnoreAll(),
        ClientMismatchStrategy'IgnoreOnly(),
        ClientMismatchStrategy'ReportAll(),
        ClientMismatchStrategy'ReportOnly(), NewOtrMessage(),
        OtrAssetMeta(), Priority(..), Priority(), QualifiedNewOtrMessage(),
        QualifiedNewOtrMessage'ClientMismatchStrategy(..),
        _QualifiedNewOtrMessage'ReportAll,
        _QualifiedNewOtrMessage'IgnoreAll,
        _QualifiedNewOtrMessage'ReportOnly,
        _QualifiedNewOtrMessage'IgnoreOnly, QualifiedUserEntry(),
        QualifiedUserId(), UserEntry(), UserId()
    ) 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.Otr_Fields.client' @:: Lens' ClientEntry ClientId@
         * 'Proto.Otr_Fields.text' @:: Lens' ClientEntry Data.ByteString.ByteString@ -}
data ClientEntry
  = ClientEntry'_constructor {ClientEntry -> ClientId
_ClientEntry'client :: !ClientId,
                              ClientEntry -> ByteString
_ClientEntry'text :: !Data.ByteString.ByteString,
                              ClientEntry -> FieldSet
_ClientEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ClientEntry -> ClientEntry -> Bool
(ClientEntry -> ClientEntry -> Bool)
-> (ClientEntry -> ClientEntry -> Bool) -> Eq ClientEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ClientEntry -> ClientEntry -> Bool
== :: ClientEntry -> ClientEntry -> Bool
$c/= :: ClientEntry -> ClientEntry -> Bool
/= :: ClientEntry -> ClientEntry -> Bool
Prelude.Eq, Eq ClientEntry
Eq ClientEntry =>
(ClientEntry -> ClientEntry -> Ordering)
-> (ClientEntry -> ClientEntry -> Bool)
-> (ClientEntry -> ClientEntry -> Bool)
-> (ClientEntry -> ClientEntry -> Bool)
-> (ClientEntry -> ClientEntry -> Bool)
-> (ClientEntry -> ClientEntry -> ClientEntry)
-> (ClientEntry -> ClientEntry -> ClientEntry)
-> Ord ClientEntry
ClientEntry -> ClientEntry -> Bool
ClientEntry -> ClientEntry -> Ordering
ClientEntry -> ClientEntry -> ClientEntry
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ClientEntry -> ClientEntry -> Ordering
compare :: ClientEntry -> ClientEntry -> Ordering
$c< :: ClientEntry -> ClientEntry -> Bool
< :: ClientEntry -> ClientEntry -> Bool
$c<= :: ClientEntry -> ClientEntry -> Bool
<= :: ClientEntry -> ClientEntry -> Bool
$c> :: ClientEntry -> ClientEntry -> Bool
> :: ClientEntry -> ClientEntry -> Bool
$c>= :: ClientEntry -> ClientEntry -> Bool
>= :: ClientEntry -> ClientEntry -> Bool
$cmax :: ClientEntry -> ClientEntry -> ClientEntry
max :: ClientEntry -> ClientEntry -> ClientEntry
$cmin :: ClientEntry -> ClientEntry -> ClientEntry
min :: ClientEntry -> ClientEntry -> ClientEntry
Prelude.Ord)
instance Prelude.Show ClientEntry where
  showsPrec :: Int -> ClientEntry -> ShowS
showsPrec Int
_ ClientEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ClientEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ClientEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ClientEntry "client" ClientId where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "client"
-> (ClientId -> f ClientId) -> ClientEntry -> f ClientEntry
fieldOf Proxy# "client"
_
    = ((ClientId -> f ClientId) -> ClientEntry -> f ClientEntry)
-> ((ClientId -> f ClientId) -> ClientId -> f ClientId)
-> (ClientId -> f ClientId)
-> ClientEntry
-> f ClientEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClientEntry -> ClientId)
-> (ClientEntry -> ClientId -> ClientEntry)
-> Lens ClientEntry ClientEntry ClientId ClientId
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClientEntry -> ClientId
_ClientEntry'client (\ ClientEntry
x__ ClientId
y__ -> ClientEntry
x__ {_ClientEntry'client = y__}))
        (ClientId -> f ClientId) -> ClientId -> f ClientId
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ClientEntry "text" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "text"
-> (ByteString -> f ByteString) -> ClientEntry -> f ClientEntry
fieldOf Proxy# "text"
_
    = ((ByteString -> f ByteString) -> ClientEntry -> f ClientEntry)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> ClientEntry
-> f ClientEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClientEntry -> ByteString)
-> (ClientEntry -> ByteString -> ClientEntry)
-> Lens ClientEntry ClientEntry ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClientEntry -> ByteString
_ClientEntry'text (\ ClientEntry
x__ ByteString
y__ -> ClientEntry
x__ {_ClientEntry'text = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ClientEntry where
  messageName :: Proxy ClientEntry -> Text
messageName Proxy ClientEntry
_ = String -> Text
Data.Text.pack String
"proteus.ClientEntry"
  packedMessageDescriptor :: Proxy ClientEntry -> ByteString
packedMessageDescriptor Proxy ClientEntry
_
    = ByteString
"\n\
      \\vClientEntry\DC2)\n\
      \\ACKclient\CAN\SOH \STX(\v2\DC1.proteus.ClientIdR\ACKclient\DC2\DC2\n\
      \\EOTtext\CAN\STX \STX(\fR\EOTtext"
  packedFileDescriptor :: Proxy ClientEntry -> ByteString
packedFileDescriptor Proxy ClientEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ClientEntry)
fieldsByTag
    = let
        client__field_descriptor :: FieldDescriptor ClientEntry
client__field_descriptor
          = String
-> FieldTypeDescriptor ClientId
-> FieldAccessor ClientEntry ClientId
-> FieldDescriptor ClientEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"client"
              (MessageOrGroup -> FieldTypeDescriptor ClientId
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ClientId)
              (WireDefault ClientId
-> Lens ClientEntry ClientEntry ClientId ClientId
-> FieldAccessor ClientEntry ClientId
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ClientId
forall value. WireDefault value
Data.ProtoLens.Required (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"client")) ::
              Data.ProtoLens.FieldDescriptor ClientEntry
        text__field_descriptor :: FieldDescriptor ClientEntry
text__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor ClientEntry ByteString
-> FieldDescriptor ClientEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"text"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens ClientEntry ClientEntry ByteString ByteString
-> FieldAccessor ClientEntry ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. WireDefault value
Data.ProtoLens.Required (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"text")) ::
              Data.ProtoLens.FieldDescriptor ClientEntry
      in
        [(Tag, FieldDescriptor ClientEntry)]
-> Map Tag (FieldDescriptor ClientEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ClientEntry
client__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ClientEntry
text__field_descriptor)]
  unknownFields :: Lens' ClientEntry FieldSet
unknownFields
    = (ClientEntry -> FieldSet)
-> (ClientEntry -> FieldSet -> ClientEntry)
-> Lens' ClientEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ClientEntry -> FieldSet
_ClientEntry'_unknownFields
        (\ ClientEntry
x__ FieldSet
y__ -> ClientEntry
x__ {_ClientEntry'_unknownFields = y__})
  defMessage :: ClientEntry
defMessage
    = ClientEntry'_constructor
        {$sel:_ClientEntry'client:ClientEntry'_constructor :: ClientId
_ClientEntry'client = ClientId
forall msg. Message msg => msg
Data.ProtoLens.defMessage,
         $sel:_ClientEntry'text:ClientEntry'_constructor :: ByteString
_ClientEntry'text = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         $sel:_ClientEntry'_unknownFields:ClientEntry'_constructor :: FieldSet
_ClientEntry'_unknownFields = []}
  parseMessage :: Parser ClientEntry
parseMessage
    = let
        loop ::
          ClientEntry
          -> Prelude.Bool
             -> Prelude.Bool -> Data.ProtoLens.Encoding.Bytes.Parser ClientEntry
        loop :: ClientEntry -> Bool -> Bool -> Parser ClientEntry
loop ClientEntry
x Bool
required'client Bool
required'text
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let
                         missing :: [String]
missing
                           = (if Bool
required'client then (:) String
"client" else [String] -> [String]
forall a. a -> a
Prelude.id)
                               ((if Bool
required'text then (:) String
"text" else [String] -> [String]
forall a. a -> a
Prelude.id) [])
                       in
                         if [String] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [String]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
missing :: [Prelude.String]))))
                      ClientEntry -> Parser ClientEntry
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter ClientEntry ClientEntry FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ClientEntry -> ClientEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f ClientEntry FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientEntry FieldSet
Setter ClientEntry ClientEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ClientEntry
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ClientId
y <- Parser ClientId -> String -> Parser ClientId
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ClientId -> Parser ClientId
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ClientId
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"client"
                                ClientEntry -> Bool -> Bool -> Parser ClientEntry
loop
                                  (Setter ClientEntry ClientEntry ClientId ClientId
-> ClientId -> ClientEntry -> ClientEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"client") ClientId
y ClientEntry
x)
                                  Bool
Prelude.False Bool
required'text
                        Word64
18
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"text"
                                ClientEntry -> Bool -> Bool -> Parser ClientEntry
loop
                                  (Setter ClientEntry ClientEntry ByteString ByteString
-> ByteString -> ClientEntry -> ClientEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"text") ByteString
y ClientEntry
x)
                                  Bool
required'client Bool
Prelude.False
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ClientEntry -> Bool -> Bool -> Parser ClientEntry
loop
                                  (Setter ClientEntry ClientEntry FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ClientEntry -> ClientEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f ClientEntry FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientEntry FieldSet
Setter ClientEntry ClientEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ClientEntry
x)
                                  Bool
required'client Bool
required'text
      in
        Parser ClientEntry -> String -> Parser ClientEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ClientEntry -> Bool -> Bool -> Parser ClientEntry
loop ClientEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage Bool
Prelude.True Bool
Prelude.True)
          String
"ClientEntry"
  buildMessage :: ClientEntry -> Builder
buildMessage
    = \ ClientEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                ((ByteString -> Builder)
-> (ClientId -> ByteString) -> ClientId -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                   (\ ByteString
bs
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                   ClientId -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                   (FoldLike ClientId ClientEntry ClientEntry ClientId ClientId
-> ClientEntry -> ClientId
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"client") ClientEntry
_x)))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                   ((\ ByteString
bs
                       -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                               (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                            (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                      (FoldLike ByteString ClientEntry ClientEntry ByteString ByteString
-> ClientEntry -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"text") ClientEntry
_x)))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet ClientEntry ClientEntry FieldSet FieldSet
-> ClientEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ClientEntry ClientEntry FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientEntry FieldSet
Data.ProtoLens.unknownFields ClientEntry
_x)))
instance Control.DeepSeq.NFData ClientEntry where
  rnf :: ClientEntry -> ()
rnf
    = \ ClientEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ClientEntry -> FieldSet
_ClientEntry'_unknownFields ClientEntry
x__)
             (ClientId -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ClientEntry -> ClientId
_ClientEntry'client ClientEntry
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ClientEntry -> ByteString
_ClientEntry'text ClientEntry
x__) ()))
{- | Fields :
     
         * 'Proto.Otr_Fields.client' @:: Lens' ClientId Data.Word.Word64@ -}
data ClientId
  = ClientId'_constructor {ClientId -> Word64
_ClientId'client :: !Data.Word.Word64,
                           ClientId -> FieldSet
_ClientId'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ClientId -> ClientId -> Bool
(ClientId -> ClientId -> Bool)
-> (ClientId -> ClientId -> Bool) -> Eq ClientId
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ClientId -> ClientId -> Bool
== :: ClientId -> ClientId -> Bool
$c/= :: ClientId -> ClientId -> Bool
/= :: ClientId -> ClientId -> Bool
Prelude.Eq, Eq ClientId
Eq ClientId =>
(ClientId -> ClientId -> Ordering)
-> (ClientId -> ClientId -> Bool)
-> (ClientId -> ClientId -> Bool)
-> (ClientId -> ClientId -> Bool)
-> (ClientId -> ClientId -> Bool)
-> (ClientId -> ClientId -> ClientId)
-> (ClientId -> ClientId -> ClientId)
-> Ord ClientId
ClientId -> ClientId -> Bool
ClientId -> ClientId -> Ordering
ClientId -> ClientId -> ClientId
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ClientId -> ClientId -> Ordering
compare :: ClientId -> ClientId -> Ordering
$c< :: ClientId -> ClientId -> Bool
< :: ClientId -> ClientId -> Bool
$c<= :: ClientId -> ClientId -> Bool
<= :: ClientId -> ClientId -> Bool
$c> :: ClientId -> ClientId -> Bool
> :: ClientId -> ClientId -> Bool
$c>= :: ClientId -> ClientId -> Bool
>= :: ClientId -> ClientId -> Bool
$cmax :: ClientId -> ClientId -> ClientId
max :: ClientId -> ClientId -> ClientId
$cmin :: ClientId -> ClientId -> ClientId
min :: ClientId -> ClientId -> ClientId
Prelude.Ord)
instance Prelude.Show ClientId where
  showsPrec :: Int -> ClientId -> ShowS
showsPrec Int
_ ClientId
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ClientId -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ClientId
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ClientId "client" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "client" -> (Word64 -> f Word64) -> ClientId -> f ClientId
fieldOf Proxy# "client"
_
    = ((Word64 -> f Word64) -> ClientId -> f ClientId)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> ClientId
-> f ClientId
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClientId -> Word64)
-> (ClientId -> Word64 -> ClientId)
-> Lens ClientId ClientId Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClientId -> Word64
_ClientId'client (\ ClientId
x__ Word64
y__ -> ClientId
x__ {_ClientId'client = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ClientId where
  messageName :: Proxy ClientId -> Text
messageName Proxy ClientId
_ = String -> Text
Data.Text.pack String
"proteus.ClientId"
  packedMessageDescriptor :: Proxy ClientId -> ByteString
packedMessageDescriptor Proxy ClientId
_
    = ByteString
"\n\
      \\bClientId\DC2\SYN\n\
      \\ACKclient\CAN\SOH \STX(\EOTR\ACKclient"
  packedFileDescriptor :: Proxy ClientId -> ByteString
packedFileDescriptor Proxy ClientId
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ClientId)
fieldsByTag
    = let
        client__field_descriptor :: FieldDescriptor ClientId
client__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor ClientId Word64
-> FieldDescriptor ClientId
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"client"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens ClientId ClientId Word64 Word64
-> FieldAccessor ClientId Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
forall value. WireDefault value
Data.ProtoLens.Required (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"client")) ::
              Data.ProtoLens.FieldDescriptor ClientId
      in
        [(Tag, FieldDescriptor ClientId)]
-> Map Tag (FieldDescriptor ClientId)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ClientId
client__field_descriptor)]
  unknownFields :: Lens' ClientId FieldSet
unknownFields
    = (ClientId -> FieldSet)
-> (ClientId -> FieldSet -> ClientId) -> Lens' ClientId FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ClientId -> FieldSet
_ClientId'_unknownFields
        (\ ClientId
x__ FieldSet
y__ -> ClientId
x__ {_ClientId'_unknownFields = y__})
  defMessage :: ClientId
defMessage
    = ClientId'_constructor
        {$sel:_ClientId'client:ClientId'_constructor :: Word64
_ClientId'client = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         $sel:_ClientId'_unknownFields:ClientId'_constructor :: FieldSet
_ClientId'_unknownFields = []}
  parseMessage :: Parser ClientId
parseMessage
    = let
        loop ::
          ClientId
          -> Prelude.Bool -> Data.ProtoLens.Encoding.Bytes.Parser ClientId
        loop :: ClientId -> Bool -> Parser ClientId
loop ClientId
x Bool
required'client
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let
                         missing :: [String]
missing = (if Bool
required'client then (:) String
"client" else [String] -> [String]
forall a. a -> a
Prelude.id) []
                       in
                         if [String] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [String]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
missing :: [Prelude.String]))))
                      ClientId -> Parser ClientId
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter ClientId ClientId FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ClientId -> ClientId
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f ClientId FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientId FieldSet
Setter ClientId ClientId FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ClientId
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
8 -> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"client"
                                ClientId -> Bool -> Parser ClientId
loop
                                  (Setter ClientId ClientId Word64 Word64
-> Word64 -> ClientId -> ClientId
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"client") Word64
y ClientId
x)
                                  Bool
Prelude.False
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ClientId -> Bool -> Parser ClientId
loop
                                  (Setter ClientId ClientId FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ClientId -> ClientId
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f ClientId FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientId FieldSet
Setter ClientId ClientId FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ClientId
x)
                                  Bool
required'client
      in
        Parser ClientId -> String -> Parser ClientId
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ClientId -> Bool -> Parser ClientId
loop ClientId
forall msg. Message msg => msg
Data.ProtoLens.defMessage Bool
Prelude.True) String
"ClientId"
  buildMessage :: ClientId -> Builder
buildMessage
    = \ ClientId
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                   (FoldLike Word64 ClientId ClientId Word64 Word64
-> ClientId -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"client") ClientId
_x)))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet ClientId ClientId FieldSet FieldSet
-> ClientId -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ClientId ClientId FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientId FieldSet
Data.ProtoLens.unknownFields ClientId
_x))
instance Control.DeepSeq.NFData ClientId where
  rnf :: ClientId -> ()
rnf
    = \ ClientId
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ClientId -> FieldSet
_ClientId'_unknownFields ClientId
x__)
             (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ClientId -> Word64
_ClientId'client ClientId
x__) ())
{- | Fields :
      -}
data ClientMismatchStrategy
  = ClientMismatchStrategy'_constructor {ClientMismatchStrategy -> FieldSet
_ClientMismatchStrategy'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ClientMismatchStrategy -> ClientMismatchStrategy -> Bool
(ClientMismatchStrategy -> ClientMismatchStrategy -> Bool)
-> (ClientMismatchStrategy -> ClientMismatchStrategy -> Bool)
-> Eq ClientMismatchStrategy
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ClientMismatchStrategy -> ClientMismatchStrategy -> Bool
== :: ClientMismatchStrategy -> ClientMismatchStrategy -> Bool
$c/= :: ClientMismatchStrategy -> ClientMismatchStrategy -> Bool
/= :: ClientMismatchStrategy -> ClientMismatchStrategy -> Bool
Prelude.Eq, Eq ClientMismatchStrategy
Eq ClientMismatchStrategy =>
(ClientMismatchStrategy -> ClientMismatchStrategy -> Ordering)
-> (ClientMismatchStrategy -> ClientMismatchStrategy -> Bool)
-> (ClientMismatchStrategy -> ClientMismatchStrategy -> Bool)
-> (ClientMismatchStrategy -> ClientMismatchStrategy -> Bool)
-> (ClientMismatchStrategy -> ClientMismatchStrategy -> Bool)
-> (ClientMismatchStrategy
    -> ClientMismatchStrategy -> ClientMismatchStrategy)
-> (ClientMismatchStrategy
    -> ClientMismatchStrategy -> ClientMismatchStrategy)
-> Ord ClientMismatchStrategy
ClientMismatchStrategy -> ClientMismatchStrategy -> Bool
ClientMismatchStrategy -> ClientMismatchStrategy -> Ordering
ClientMismatchStrategy
-> ClientMismatchStrategy -> ClientMismatchStrategy
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ClientMismatchStrategy -> ClientMismatchStrategy -> Ordering
compare :: ClientMismatchStrategy -> ClientMismatchStrategy -> Ordering
$c< :: ClientMismatchStrategy -> ClientMismatchStrategy -> Bool
< :: ClientMismatchStrategy -> ClientMismatchStrategy -> Bool
$c<= :: ClientMismatchStrategy -> ClientMismatchStrategy -> Bool
<= :: ClientMismatchStrategy -> ClientMismatchStrategy -> Bool
$c> :: ClientMismatchStrategy -> ClientMismatchStrategy -> Bool
> :: ClientMismatchStrategy -> ClientMismatchStrategy -> Bool
$c>= :: ClientMismatchStrategy -> ClientMismatchStrategy -> Bool
>= :: ClientMismatchStrategy -> ClientMismatchStrategy -> Bool
$cmax :: ClientMismatchStrategy
-> ClientMismatchStrategy -> ClientMismatchStrategy
max :: ClientMismatchStrategy
-> ClientMismatchStrategy -> ClientMismatchStrategy
$cmin :: ClientMismatchStrategy
-> ClientMismatchStrategy -> ClientMismatchStrategy
min :: ClientMismatchStrategy
-> ClientMismatchStrategy -> ClientMismatchStrategy
Prelude.Ord)
instance Prelude.Show ClientMismatchStrategy where
  showsPrec :: Int -> ClientMismatchStrategy -> ShowS
showsPrec Int
_ ClientMismatchStrategy
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ClientMismatchStrategy -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ClientMismatchStrategy
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message ClientMismatchStrategy where
  messageName :: Proxy ClientMismatchStrategy -> Text
messageName Proxy ClientMismatchStrategy
_ = String -> Text
Data.Text.pack String
"proteus.ClientMismatchStrategy"
  packedMessageDescriptor :: Proxy ClientMismatchStrategy -> ByteString
packedMessageDescriptor Proxy ClientMismatchStrategy
_
    = ByteString
"\n\
      \\SYNClientMismatchStrategy\SUB\v\n\
      \\tReportAll\SUB\v\n\
      \\tIgnoreAll\SUBA\n\
      \\n\
      \ReportOnly\DC23\n\
      \\buser_ids\CAN\SOH \ETX(\v2\CAN.proteus.QualifiedUserIdR\auserIds\SUBA\n\
      \\n\
      \IgnoreOnly\DC23\n\
      \\buser_ids\CAN\SOH \ETX(\v2\CAN.proteus.QualifiedUserIdR\auserIds"
  packedFileDescriptor :: Proxy ClientMismatchStrategy -> ByteString
packedFileDescriptor Proxy ClientMismatchStrategy
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ClientMismatchStrategy)
fieldsByTag = let in [(Tag, FieldDescriptor ClientMismatchStrategy)]
-> Map Tag (FieldDescriptor ClientMismatchStrategy)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' ClientMismatchStrategy FieldSet
unknownFields
    = (ClientMismatchStrategy -> FieldSet)
-> (ClientMismatchStrategy -> FieldSet -> ClientMismatchStrategy)
-> Lens' ClientMismatchStrategy FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ClientMismatchStrategy -> FieldSet
_ClientMismatchStrategy'_unknownFields
        (\ ClientMismatchStrategy
x__ FieldSet
y__ -> ClientMismatchStrategy
x__ {_ClientMismatchStrategy'_unknownFields = y__})
  defMessage :: ClientMismatchStrategy
defMessage
    = ClientMismatchStrategy'_constructor
        {$sel:_ClientMismatchStrategy'_unknownFields:ClientMismatchStrategy'_constructor :: FieldSet
_ClientMismatchStrategy'_unknownFields = []}
  parseMessage :: Parser ClientMismatchStrategy
parseMessage
    = let
        loop ::
          ClientMismatchStrategy
          -> Data.ProtoLens.Encoding.Bytes.Parser ClientMismatchStrategy
        loop :: ClientMismatchStrategy -> Parser ClientMismatchStrategy
loop ClientMismatchStrategy
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ClientMismatchStrategy -> Parser ClientMismatchStrategy
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  ClientMismatchStrategy ClientMismatchStrategy FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ClientMismatchStrategy
-> ClientMismatchStrategy
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f ClientMismatchStrategy FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientMismatchStrategy FieldSet
Setter
  ClientMismatchStrategy ClientMismatchStrategy FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ClientMismatchStrategy
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ClientMismatchStrategy -> Parser ClientMismatchStrategy
loop
                                  (Setter
  ClientMismatchStrategy ClientMismatchStrategy FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ClientMismatchStrategy
-> ClientMismatchStrategy
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f ClientMismatchStrategy FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientMismatchStrategy FieldSet
Setter
  ClientMismatchStrategy ClientMismatchStrategy FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ClientMismatchStrategy
x)
      in
        Parser ClientMismatchStrategy
-> String -> Parser ClientMismatchStrategy
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ClientMismatchStrategy -> Parser ClientMismatchStrategy
loop ClientMismatchStrategy
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ClientMismatchStrategy"
  buildMessage :: ClientMismatchStrategy -> Builder
buildMessage
    = \ ClientMismatchStrategy
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet
  ClientMismatchStrategy
  ClientMismatchStrategy
  FieldSet
  FieldSet
-> ClientMismatchStrategy -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ClientMismatchStrategy
  ClientMismatchStrategy
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientMismatchStrategy FieldSet
Data.ProtoLens.unknownFields ClientMismatchStrategy
_x)
instance Control.DeepSeq.NFData ClientMismatchStrategy where
  rnf :: ClientMismatchStrategy -> ()
rnf
    = \ ClientMismatchStrategy
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ClientMismatchStrategy -> FieldSet
_ClientMismatchStrategy'_unknownFields ClientMismatchStrategy
x__) ()
{- | Fields :
      -}
data ClientMismatchStrategy'IgnoreAll
  = ClientMismatchStrategy'IgnoreAll'_constructor {ClientMismatchStrategy'IgnoreAll -> FieldSet
_ClientMismatchStrategy'IgnoreAll'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll -> Bool
(ClientMismatchStrategy'IgnoreAll
 -> ClientMismatchStrategy'IgnoreAll -> Bool)
-> (ClientMismatchStrategy'IgnoreAll
    -> ClientMismatchStrategy'IgnoreAll -> Bool)
-> Eq ClientMismatchStrategy'IgnoreAll
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll -> Bool
== :: ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll -> Bool
$c/= :: ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll -> Bool
/= :: ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll -> Bool
Prelude.Eq, Eq ClientMismatchStrategy'IgnoreAll
Eq ClientMismatchStrategy'IgnoreAll =>
(ClientMismatchStrategy'IgnoreAll
 -> ClientMismatchStrategy'IgnoreAll -> Ordering)
-> (ClientMismatchStrategy'IgnoreAll
    -> ClientMismatchStrategy'IgnoreAll -> Bool)
-> (ClientMismatchStrategy'IgnoreAll
    -> ClientMismatchStrategy'IgnoreAll -> Bool)
-> (ClientMismatchStrategy'IgnoreAll
    -> ClientMismatchStrategy'IgnoreAll -> Bool)
-> (ClientMismatchStrategy'IgnoreAll
    -> ClientMismatchStrategy'IgnoreAll -> Bool)
-> (ClientMismatchStrategy'IgnoreAll
    -> ClientMismatchStrategy'IgnoreAll
    -> ClientMismatchStrategy'IgnoreAll)
-> (ClientMismatchStrategy'IgnoreAll
    -> ClientMismatchStrategy'IgnoreAll
    -> ClientMismatchStrategy'IgnoreAll)
-> Ord ClientMismatchStrategy'IgnoreAll
ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll -> Bool
ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll -> Ordering
ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll -> Ordering
compare :: ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll -> Ordering
$c< :: ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll -> Bool
< :: ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll -> Bool
$c<= :: ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll -> Bool
<= :: ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll -> Bool
$c> :: ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll -> Bool
> :: ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll -> Bool
$c>= :: ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll -> Bool
>= :: ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll -> Bool
$cmax :: ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll
max :: ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll
$cmin :: ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll
min :: ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll
Prelude.Ord)
instance Prelude.Show ClientMismatchStrategy'IgnoreAll where
  showsPrec :: Int -> ClientMismatchStrategy'IgnoreAll -> ShowS
showsPrec Int
_ ClientMismatchStrategy'IgnoreAll
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ClientMismatchStrategy'IgnoreAll -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ClientMismatchStrategy'IgnoreAll
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message ClientMismatchStrategy'IgnoreAll where
  messageName :: Proxy ClientMismatchStrategy'IgnoreAll -> Text
messageName Proxy ClientMismatchStrategy'IgnoreAll
_
    = String -> Text
Data.Text.pack String
"proteus.ClientMismatchStrategy.IgnoreAll"
  packedMessageDescriptor :: Proxy ClientMismatchStrategy'IgnoreAll -> ByteString
packedMessageDescriptor Proxy ClientMismatchStrategy'IgnoreAll
_
    = ByteString
"\n\
      \\tIgnoreAll"
  packedFileDescriptor :: Proxy ClientMismatchStrategy'IgnoreAll -> ByteString
packedFileDescriptor Proxy ClientMismatchStrategy'IgnoreAll
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ClientMismatchStrategy'IgnoreAll)
fieldsByTag = let in [(Tag, FieldDescriptor ClientMismatchStrategy'IgnoreAll)]
-> Map Tag (FieldDescriptor ClientMismatchStrategy'IgnoreAll)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' ClientMismatchStrategy'IgnoreAll FieldSet
unknownFields
    = (ClientMismatchStrategy'IgnoreAll -> FieldSet)
-> (ClientMismatchStrategy'IgnoreAll
    -> FieldSet -> ClientMismatchStrategy'IgnoreAll)
-> Lens' ClientMismatchStrategy'IgnoreAll FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ClientMismatchStrategy'IgnoreAll -> FieldSet
_ClientMismatchStrategy'IgnoreAll'_unknownFields
        (\ ClientMismatchStrategy'IgnoreAll
x__ FieldSet
y__
           -> ClientMismatchStrategy'IgnoreAll
x__ {_ClientMismatchStrategy'IgnoreAll'_unknownFields = y__})
  defMessage :: ClientMismatchStrategy'IgnoreAll
defMessage
    = ClientMismatchStrategy'IgnoreAll'_constructor
        {$sel:_ClientMismatchStrategy'IgnoreAll'_unknownFields:ClientMismatchStrategy'IgnoreAll'_constructor :: FieldSet
_ClientMismatchStrategy'IgnoreAll'_unknownFields = []}
  parseMessage :: Parser ClientMismatchStrategy'IgnoreAll
parseMessage
    = let
        loop ::
          ClientMismatchStrategy'IgnoreAll
          -> Data.ProtoLens.Encoding.Bytes.Parser ClientMismatchStrategy'IgnoreAll
        loop :: ClientMismatchStrategy'IgnoreAll
-> Parser ClientMismatchStrategy'IgnoreAll
loop ClientMismatchStrategy'IgnoreAll
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ClientMismatchStrategy'IgnoreAll
-> Parser ClientMismatchStrategy'IgnoreAll
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  ClientMismatchStrategy'IgnoreAll
  ClientMismatchStrategy'IgnoreAll
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f ClientMismatchStrategy'IgnoreAll FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientMismatchStrategy'IgnoreAll FieldSet
Setter
  ClientMismatchStrategy'IgnoreAll
  ClientMismatchStrategy'IgnoreAll
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ClientMismatchStrategy'IgnoreAll
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ClientMismatchStrategy'IgnoreAll
-> Parser ClientMismatchStrategy'IgnoreAll
loop
                                  (Setter
  ClientMismatchStrategy'IgnoreAll
  ClientMismatchStrategy'IgnoreAll
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f ClientMismatchStrategy'IgnoreAll FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientMismatchStrategy'IgnoreAll FieldSet
Setter
  ClientMismatchStrategy'IgnoreAll
  ClientMismatchStrategy'IgnoreAll
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ClientMismatchStrategy'IgnoreAll
x)
      in
        Parser ClientMismatchStrategy'IgnoreAll
-> String -> Parser ClientMismatchStrategy'IgnoreAll
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ClientMismatchStrategy'IgnoreAll
-> Parser ClientMismatchStrategy'IgnoreAll
loop ClientMismatchStrategy'IgnoreAll
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"IgnoreAll"
  buildMessage :: ClientMismatchStrategy'IgnoreAll -> Builder
buildMessage
    = \ ClientMismatchStrategy'IgnoreAll
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet
  ClientMismatchStrategy'IgnoreAll
  ClientMismatchStrategy'IgnoreAll
  FieldSet
  FieldSet
-> ClientMismatchStrategy'IgnoreAll -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ClientMismatchStrategy'IgnoreAll
  ClientMismatchStrategy'IgnoreAll
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientMismatchStrategy'IgnoreAll FieldSet
Data.ProtoLens.unknownFields ClientMismatchStrategy'IgnoreAll
_x)
instance Control.DeepSeq.NFData ClientMismatchStrategy'IgnoreAll where
  rnf :: ClientMismatchStrategy'IgnoreAll -> ()
rnf
    = \ ClientMismatchStrategy'IgnoreAll
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ClientMismatchStrategy'IgnoreAll -> FieldSet
_ClientMismatchStrategy'IgnoreAll'_unknownFields ClientMismatchStrategy'IgnoreAll
x__) ()
{- | Fields :
     
         * 'Proto.Otr_Fields.userIds' @:: Lens' ClientMismatchStrategy'IgnoreOnly [QualifiedUserId]@
         * 'Proto.Otr_Fields.vec'userIds' @:: Lens' ClientMismatchStrategy'IgnoreOnly (Data.Vector.Vector QualifiedUserId)@ -}
data ClientMismatchStrategy'IgnoreOnly
  = ClientMismatchStrategy'IgnoreOnly'_constructor {ClientMismatchStrategy'IgnoreOnly -> Vector QualifiedUserId
_ClientMismatchStrategy'IgnoreOnly'userIds :: !(Data.Vector.Vector QualifiedUserId),
                                                    ClientMismatchStrategy'IgnoreOnly -> FieldSet
_ClientMismatchStrategy'IgnoreOnly'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly -> Bool
(ClientMismatchStrategy'IgnoreOnly
 -> ClientMismatchStrategy'IgnoreOnly -> Bool)
-> (ClientMismatchStrategy'IgnoreOnly
    -> ClientMismatchStrategy'IgnoreOnly -> Bool)
-> Eq ClientMismatchStrategy'IgnoreOnly
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly -> Bool
== :: ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly -> Bool
$c/= :: ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly -> Bool
/= :: ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly -> Bool
Prelude.Eq, Eq ClientMismatchStrategy'IgnoreOnly
Eq ClientMismatchStrategy'IgnoreOnly =>
(ClientMismatchStrategy'IgnoreOnly
 -> ClientMismatchStrategy'IgnoreOnly -> Ordering)
-> (ClientMismatchStrategy'IgnoreOnly
    -> ClientMismatchStrategy'IgnoreOnly -> Bool)
-> (ClientMismatchStrategy'IgnoreOnly
    -> ClientMismatchStrategy'IgnoreOnly -> Bool)
-> (ClientMismatchStrategy'IgnoreOnly
    -> ClientMismatchStrategy'IgnoreOnly -> Bool)
-> (ClientMismatchStrategy'IgnoreOnly
    -> ClientMismatchStrategy'IgnoreOnly -> Bool)
-> (ClientMismatchStrategy'IgnoreOnly
    -> ClientMismatchStrategy'IgnoreOnly
    -> ClientMismatchStrategy'IgnoreOnly)
-> (ClientMismatchStrategy'IgnoreOnly
    -> ClientMismatchStrategy'IgnoreOnly
    -> ClientMismatchStrategy'IgnoreOnly)
-> Ord ClientMismatchStrategy'IgnoreOnly
ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly -> Bool
ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly -> Ordering
ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly -> Ordering
compare :: ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly -> Ordering
$c< :: ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly -> Bool
< :: ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly -> Bool
$c<= :: ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly -> Bool
<= :: ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly -> Bool
$c> :: ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly -> Bool
> :: ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly -> Bool
$c>= :: ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly -> Bool
>= :: ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly -> Bool
$cmax :: ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly
max :: ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly
$cmin :: ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly
min :: ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly
Prelude.Ord)
instance Prelude.Show ClientMismatchStrategy'IgnoreOnly where
  showsPrec :: Int -> ClientMismatchStrategy'IgnoreOnly -> ShowS
showsPrec Int
_ ClientMismatchStrategy'IgnoreOnly
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ClientMismatchStrategy'IgnoreOnly -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ClientMismatchStrategy'IgnoreOnly
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ClientMismatchStrategy'IgnoreOnly "userIds" [QualifiedUserId] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "userIds"
-> ([QualifiedUserId] -> f [QualifiedUserId])
-> ClientMismatchStrategy'IgnoreOnly
-> f ClientMismatchStrategy'IgnoreOnly
fieldOf Proxy# "userIds"
_
    = ((Vector QualifiedUserId -> f (Vector QualifiedUserId))
 -> ClientMismatchStrategy'IgnoreOnly
 -> f ClientMismatchStrategy'IgnoreOnly)
-> (([QualifiedUserId] -> f [QualifiedUserId])
    -> Vector QualifiedUserId -> f (Vector QualifiedUserId))
-> ([QualifiedUserId] -> f [QualifiedUserId])
-> ClientMismatchStrategy'IgnoreOnly
-> f ClientMismatchStrategy'IgnoreOnly
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClientMismatchStrategy'IgnoreOnly -> Vector QualifiedUserId)
-> (ClientMismatchStrategy'IgnoreOnly
    -> Vector QualifiedUserId -> ClientMismatchStrategy'IgnoreOnly)
-> Lens
     ClientMismatchStrategy'IgnoreOnly
     ClientMismatchStrategy'IgnoreOnly
     (Vector QualifiedUserId)
     (Vector QualifiedUserId)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClientMismatchStrategy'IgnoreOnly -> Vector QualifiedUserId
_ClientMismatchStrategy'IgnoreOnly'userIds
           (\ ClientMismatchStrategy'IgnoreOnly
x__ Vector QualifiedUserId
y__
              -> ClientMismatchStrategy'IgnoreOnly
x__ {_ClientMismatchStrategy'IgnoreOnly'userIds = y__}))
        ((Vector QualifiedUserId -> [QualifiedUserId])
-> (Vector QualifiedUserId
    -> [QualifiedUserId] -> Vector QualifiedUserId)
-> Lens
     (Vector QualifiedUserId)
     (Vector QualifiedUserId)
     [QualifiedUserId]
     [QualifiedUserId]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector QualifiedUserId -> [QualifiedUserId]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector QualifiedUserId
_ [QualifiedUserId]
y__ -> [QualifiedUserId] -> Vector QualifiedUserId
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [QualifiedUserId]
y__))
instance Data.ProtoLens.Field.HasField ClientMismatchStrategy'IgnoreOnly "vec'userIds" (Data.Vector.Vector QualifiedUserId) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'userIds"
-> (Vector QualifiedUserId -> f (Vector QualifiedUserId))
-> ClientMismatchStrategy'IgnoreOnly
-> f ClientMismatchStrategy'IgnoreOnly
fieldOf Proxy# "vec'userIds"
_
    = ((Vector QualifiedUserId -> f (Vector QualifiedUserId))
 -> ClientMismatchStrategy'IgnoreOnly
 -> f ClientMismatchStrategy'IgnoreOnly)
-> ((Vector QualifiedUserId -> f (Vector QualifiedUserId))
    -> Vector QualifiedUserId -> f (Vector QualifiedUserId))
-> (Vector QualifiedUserId -> f (Vector QualifiedUserId))
-> ClientMismatchStrategy'IgnoreOnly
-> f ClientMismatchStrategy'IgnoreOnly
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClientMismatchStrategy'IgnoreOnly -> Vector QualifiedUserId)
-> (ClientMismatchStrategy'IgnoreOnly
    -> Vector QualifiedUserId -> ClientMismatchStrategy'IgnoreOnly)
-> Lens
     ClientMismatchStrategy'IgnoreOnly
     ClientMismatchStrategy'IgnoreOnly
     (Vector QualifiedUserId)
     (Vector QualifiedUserId)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClientMismatchStrategy'IgnoreOnly -> Vector QualifiedUserId
_ClientMismatchStrategy'IgnoreOnly'userIds
           (\ ClientMismatchStrategy'IgnoreOnly
x__ Vector QualifiedUserId
y__
              -> ClientMismatchStrategy'IgnoreOnly
x__ {_ClientMismatchStrategy'IgnoreOnly'userIds = y__}))
        (Vector QualifiedUserId -> f (Vector QualifiedUserId))
-> Vector QualifiedUserId -> f (Vector QualifiedUserId)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ClientMismatchStrategy'IgnoreOnly where
  messageName :: Proxy ClientMismatchStrategy'IgnoreOnly -> Text
messageName Proxy ClientMismatchStrategy'IgnoreOnly
_
    = String -> Text
Data.Text.pack String
"proteus.ClientMismatchStrategy.IgnoreOnly"
  packedMessageDescriptor :: Proxy ClientMismatchStrategy'IgnoreOnly -> ByteString
packedMessageDescriptor Proxy ClientMismatchStrategy'IgnoreOnly
_
    = ByteString
"\n\
      \\n\
      \IgnoreOnly\DC23\n\
      \\buser_ids\CAN\SOH \ETX(\v2\CAN.proteus.QualifiedUserIdR\auserIds"
  packedFileDescriptor :: Proxy ClientMismatchStrategy'IgnoreOnly -> ByteString
packedFileDescriptor Proxy ClientMismatchStrategy'IgnoreOnly
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ClientMismatchStrategy'IgnoreOnly)
fieldsByTag
    = let
        userIds__field_descriptor :: FieldDescriptor ClientMismatchStrategy'IgnoreOnly
userIds__field_descriptor
          = String
-> FieldTypeDescriptor QualifiedUserId
-> FieldAccessor ClientMismatchStrategy'IgnoreOnly QualifiedUserId
-> FieldDescriptor ClientMismatchStrategy'IgnoreOnly
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"user_ids"
              (MessageOrGroup -> FieldTypeDescriptor QualifiedUserId
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor QualifiedUserId)
              (Packing
-> Lens' ClientMismatchStrategy'IgnoreOnly [QualifiedUserId]
-> FieldAccessor ClientMismatchStrategy'IgnoreOnly QualifiedUserId
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"userIds")) ::
              Data.ProtoLens.FieldDescriptor ClientMismatchStrategy'IgnoreOnly
      in
        [(Tag, FieldDescriptor ClientMismatchStrategy'IgnoreOnly)]
-> Map Tag (FieldDescriptor ClientMismatchStrategy'IgnoreOnly)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ClientMismatchStrategy'IgnoreOnly
userIds__field_descriptor)]
  unknownFields :: Lens' ClientMismatchStrategy'IgnoreOnly FieldSet
unknownFields
    = (ClientMismatchStrategy'IgnoreOnly -> FieldSet)
-> (ClientMismatchStrategy'IgnoreOnly
    -> FieldSet -> ClientMismatchStrategy'IgnoreOnly)
-> Lens' ClientMismatchStrategy'IgnoreOnly FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ClientMismatchStrategy'IgnoreOnly -> FieldSet
_ClientMismatchStrategy'IgnoreOnly'_unknownFields
        (\ ClientMismatchStrategy'IgnoreOnly
x__ FieldSet
y__
           -> ClientMismatchStrategy'IgnoreOnly
x__ {_ClientMismatchStrategy'IgnoreOnly'_unknownFields = y__})
  defMessage :: ClientMismatchStrategy'IgnoreOnly
defMessage
    = ClientMismatchStrategy'IgnoreOnly'_constructor
        {$sel:_ClientMismatchStrategy'IgnoreOnly'userIds:ClientMismatchStrategy'IgnoreOnly'_constructor :: Vector QualifiedUserId
_ClientMismatchStrategy'IgnoreOnly'userIds = Vector QualifiedUserId
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         $sel:_ClientMismatchStrategy'IgnoreOnly'_unknownFields:ClientMismatchStrategy'IgnoreOnly'_constructor :: FieldSet
_ClientMismatchStrategy'IgnoreOnly'_unknownFields = []}
  parseMessage :: Parser ClientMismatchStrategy'IgnoreOnly
parseMessage
    = let
        loop ::
          ClientMismatchStrategy'IgnoreOnly
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld QualifiedUserId
             -> Data.ProtoLens.Encoding.Bytes.Parser ClientMismatchStrategy'IgnoreOnly
        loop :: ClientMismatchStrategy'IgnoreOnly
-> Growing Vector RealWorld QualifiedUserId
-> Parser ClientMismatchStrategy'IgnoreOnly
loop ClientMismatchStrategy'IgnoreOnly
x Growing Vector RealWorld QualifiedUserId
mutable'userIds
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector QualifiedUserId
frozen'userIds <- IO (Vector QualifiedUserId) -> Parser (Vector QualifiedUserId)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Growing Vector (PrimState IO) QualifiedUserId
-> IO (Vector QualifiedUserId)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             Growing Vector RealWorld QualifiedUserId
Growing Vector (PrimState IO) QualifiedUserId
mutable'userIds)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ClientMismatchStrategy'IgnoreOnly
-> Parser ClientMismatchStrategy'IgnoreOnly
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  ClientMismatchStrategy'IgnoreOnly
  ClientMismatchStrategy'IgnoreOnly
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f ClientMismatchStrategy'IgnoreOnly FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientMismatchStrategy'IgnoreOnly FieldSet
Setter
  ClientMismatchStrategy'IgnoreOnly
  ClientMismatchStrategy'IgnoreOnly
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  ClientMismatchStrategy'IgnoreOnly
  ClientMismatchStrategy'IgnoreOnly
  (Vector QualifiedUserId)
  (Vector QualifiedUserId)
-> Vector QualifiedUserId
-> ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'userIds") Vector QualifiedUserId
frozen'userIds ClientMismatchStrategy'IgnoreOnly
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do !QualifiedUserId
y <- Parser QualifiedUserId -> String -> Parser QualifiedUserId
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser QualifiedUserId -> Parser QualifiedUserId
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser QualifiedUserId
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"user_ids"
                                Growing Vector RealWorld QualifiedUserId
v <- IO (Growing Vector RealWorld QualifiedUserId)
-> Parser (Growing Vector RealWorld QualifiedUserId)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) QualifiedUserId
-> QualifiedUserId
-> IO (Growing Vector (PrimState IO) QualifiedUserId)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld QualifiedUserId
Growing Vector (PrimState IO) QualifiedUserId
mutable'userIds QualifiedUserId
y)
                                ClientMismatchStrategy'IgnoreOnly
-> Growing Vector RealWorld QualifiedUserId
-> Parser ClientMismatchStrategy'IgnoreOnly
loop ClientMismatchStrategy'IgnoreOnly
x Growing Vector RealWorld QualifiedUserId
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ClientMismatchStrategy'IgnoreOnly
-> Growing Vector RealWorld QualifiedUserId
-> Parser ClientMismatchStrategy'IgnoreOnly
loop
                                  (Setter
  ClientMismatchStrategy'IgnoreOnly
  ClientMismatchStrategy'IgnoreOnly
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f ClientMismatchStrategy'IgnoreOnly FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientMismatchStrategy'IgnoreOnly FieldSet
Setter
  ClientMismatchStrategy'IgnoreOnly
  ClientMismatchStrategy'IgnoreOnly
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ClientMismatchStrategy'IgnoreOnly
x)
                                  Growing Vector RealWorld QualifiedUserId
mutable'userIds
      in
        Parser ClientMismatchStrategy'IgnoreOnly
-> String -> Parser ClientMismatchStrategy'IgnoreOnly
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld QualifiedUserId
mutable'userIds <- IO (Growing Vector RealWorld QualifiedUserId)
-> Parser (Growing Vector RealWorld QualifiedUserId)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld QualifiedUserId)
IO (Growing Vector (PrimState IO) QualifiedUserId)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              ClientMismatchStrategy'IgnoreOnly
-> Growing Vector RealWorld QualifiedUserId
-> Parser ClientMismatchStrategy'IgnoreOnly
loop ClientMismatchStrategy'IgnoreOnly
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld QualifiedUserId
mutable'userIds)
          String
"IgnoreOnly"
  buildMessage :: ClientMismatchStrategy'IgnoreOnly -> Builder
buildMessage
    = \ ClientMismatchStrategy'IgnoreOnly
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((QualifiedUserId -> Builder) -> Vector QualifiedUserId -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ QualifiedUserId
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (QualifiedUserId -> ByteString) -> QualifiedUserId -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           QualifiedUserId -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage QualifiedUserId
_v))
                (FoldLike
  (Vector QualifiedUserId)
  ClientMismatchStrategy'IgnoreOnly
  ClientMismatchStrategy'IgnoreOnly
  (Vector QualifiedUserId)
  (Vector QualifiedUserId)
-> ClientMismatchStrategy'IgnoreOnly -> Vector QualifiedUserId
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'userIds") ClientMismatchStrategy'IgnoreOnly
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  ClientMismatchStrategy'IgnoreOnly
  ClientMismatchStrategy'IgnoreOnly
  FieldSet
  FieldSet
-> ClientMismatchStrategy'IgnoreOnly -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ClientMismatchStrategy'IgnoreOnly
  ClientMismatchStrategy'IgnoreOnly
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientMismatchStrategy'IgnoreOnly FieldSet
Data.ProtoLens.unknownFields ClientMismatchStrategy'IgnoreOnly
_x))
instance Control.DeepSeq.NFData ClientMismatchStrategy'IgnoreOnly where
  rnf :: ClientMismatchStrategy'IgnoreOnly -> ()
rnf
    = \ ClientMismatchStrategy'IgnoreOnly
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ClientMismatchStrategy'IgnoreOnly -> FieldSet
_ClientMismatchStrategy'IgnoreOnly'_unknownFields ClientMismatchStrategy'IgnoreOnly
x__)
             (Vector QualifiedUserId -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ClientMismatchStrategy'IgnoreOnly -> Vector QualifiedUserId
_ClientMismatchStrategy'IgnoreOnly'userIds ClientMismatchStrategy'IgnoreOnly
x__) ())
{- | Fields :
      -}
data ClientMismatchStrategy'ReportAll
  = ClientMismatchStrategy'ReportAll'_constructor {ClientMismatchStrategy'ReportAll -> FieldSet
_ClientMismatchStrategy'ReportAll'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll -> Bool
(ClientMismatchStrategy'ReportAll
 -> ClientMismatchStrategy'ReportAll -> Bool)
-> (ClientMismatchStrategy'ReportAll
    -> ClientMismatchStrategy'ReportAll -> Bool)
-> Eq ClientMismatchStrategy'ReportAll
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll -> Bool
== :: ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll -> Bool
$c/= :: ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll -> Bool
/= :: ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll -> Bool
Prelude.Eq, Eq ClientMismatchStrategy'ReportAll
Eq ClientMismatchStrategy'ReportAll =>
(ClientMismatchStrategy'ReportAll
 -> ClientMismatchStrategy'ReportAll -> Ordering)
-> (ClientMismatchStrategy'ReportAll
    -> ClientMismatchStrategy'ReportAll -> Bool)
-> (ClientMismatchStrategy'ReportAll
    -> ClientMismatchStrategy'ReportAll -> Bool)
-> (ClientMismatchStrategy'ReportAll
    -> ClientMismatchStrategy'ReportAll -> Bool)
-> (ClientMismatchStrategy'ReportAll
    -> ClientMismatchStrategy'ReportAll -> Bool)
-> (ClientMismatchStrategy'ReportAll
    -> ClientMismatchStrategy'ReportAll
    -> ClientMismatchStrategy'ReportAll)
-> (ClientMismatchStrategy'ReportAll
    -> ClientMismatchStrategy'ReportAll
    -> ClientMismatchStrategy'ReportAll)
-> Ord ClientMismatchStrategy'ReportAll
ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll -> Bool
ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll -> Ordering
ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll -> Ordering
compare :: ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll -> Ordering
$c< :: ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll -> Bool
< :: ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll -> Bool
$c<= :: ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll -> Bool
<= :: ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll -> Bool
$c> :: ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll -> Bool
> :: ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll -> Bool
$c>= :: ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll -> Bool
>= :: ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll -> Bool
$cmax :: ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll
max :: ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll
$cmin :: ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll
min :: ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll
Prelude.Ord)
instance Prelude.Show ClientMismatchStrategy'ReportAll where
  showsPrec :: Int -> ClientMismatchStrategy'ReportAll -> ShowS
showsPrec Int
_ ClientMismatchStrategy'ReportAll
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ClientMismatchStrategy'ReportAll -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ClientMismatchStrategy'ReportAll
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message ClientMismatchStrategy'ReportAll where
  messageName :: Proxy ClientMismatchStrategy'ReportAll -> Text
messageName Proxy ClientMismatchStrategy'ReportAll
_
    = String -> Text
Data.Text.pack String
"proteus.ClientMismatchStrategy.ReportAll"
  packedMessageDescriptor :: Proxy ClientMismatchStrategy'ReportAll -> ByteString
packedMessageDescriptor Proxy ClientMismatchStrategy'ReportAll
_
    = ByteString
"\n\
      \\tReportAll"
  packedFileDescriptor :: Proxy ClientMismatchStrategy'ReportAll -> ByteString
packedFileDescriptor Proxy ClientMismatchStrategy'ReportAll
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ClientMismatchStrategy'ReportAll)
fieldsByTag = let in [(Tag, FieldDescriptor ClientMismatchStrategy'ReportAll)]
-> Map Tag (FieldDescriptor ClientMismatchStrategy'ReportAll)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' ClientMismatchStrategy'ReportAll FieldSet
unknownFields
    = (ClientMismatchStrategy'ReportAll -> FieldSet)
-> (ClientMismatchStrategy'ReportAll
    -> FieldSet -> ClientMismatchStrategy'ReportAll)
-> Lens' ClientMismatchStrategy'ReportAll FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ClientMismatchStrategy'ReportAll -> FieldSet
_ClientMismatchStrategy'ReportAll'_unknownFields
        (\ ClientMismatchStrategy'ReportAll
x__ FieldSet
y__
           -> ClientMismatchStrategy'ReportAll
x__ {_ClientMismatchStrategy'ReportAll'_unknownFields = y__})
  defMessage :: ClientMismatchStrategy'ReportAll
defMessage
    = ClientMismatchStrategy'ReportAll'_constructor
        {$sel:_ClientMismatchStrategy'ReportAll'_unknownFields:ClientMismatchStrategy'ReportAll'_constructor :: FieldSet
_ClientMismatchStrategy'ReportAll'_unknownFields = []}
  parseMessage :: Parser ClientMismatchStrategy'ReportAll
parseMessage
    = let
        loop ::
          ClientMismatchStrategy'ReportAll
          -> Data.ProtoLens.Encoding.Bytes.Parser ClientMismatchStrategy'ReportAll
        loop :: ClientMismatchStrategy'ReportAll
-> Parser ClientMismatchStrategy'ReportAll
loop ClientMismatchStrategy'ReportAll
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ClientMismatchStrategy'ReportAll
-> Parser ClientMismatchStrategy'ReportAll
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  ClientMismatchStrategy'ReportAll
  ClientMismatchStrategy'ReportAll
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f ClientMismatchStrategy'ReportAll FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientMismatchStrategy'ReportAll FieldSet
Setter
  ClientMismatchStrategy'ReportAll
  ClientMismatchStrategy'ReportAll
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ClientMismatchStrategy'ReportAll
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ClientMismatchStrategy'ReportAll
-> Parser ClientMismatchStrategy'ReportAll
loop
                                  (Setter
  ClientMismatchStrategy'ReportAll
  ClientMismatchStrategy'ReportAll
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f ClientMismatchStrategy'ReportAll FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientMismatchStrategy'ReportAll FieldSet
Setter
  ClientMismatchStrategy'ReportAll
  ClientMismatchStrategy'ReportAll
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ClientMismatchStrategy'ReportAll
x)
      in
        Parser ClientMismatchStrategy'ReportAll
-> String -> Parser ClientMismatchStrategy'ReportAll
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ClientMismatchStrategy'ReportAll
-> Parser ClientMismatchStrategy'ReportAll
loop ClientMismatchStrategy'ReportAll
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ReportAll"
  buildMessage :: ClientMismatchStrategy'ReportAll -> Builder
buildMessage
    = \ ClientMismatchStrategy'ReportAll
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet
  ClientMismatchStrategy'ReportAll
  ClientMismatchStrategy'ReportAll
  FieldSet
  FieldSet
-> ClientMismatchStrategy'ReportAll -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ClientMismatchStrategy'ReportAll
  ClientMismatchStrategy'ReportAll
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientMismatchStrategy'ReportAll FieldSet
Data.ProtoLens.unknownFields ClientMismatchStrategy'ReportAll
_x)
instance Control.DeepSeq.NFData ClientMismatchStrategy'ReportAll where
  rnf :: ClientMismatchStrategy'ReportAll -> ()
rnf
    = \ ClientMismatchStrategy'ReportAll
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ClientMismatchStrategy'ReportAll -> FieldSet
_ClientMismatchStrategy'ReportAll'_unknownFields ClientMismatchStrategy'ReportAll
x__) ()
{- | Fields :
     
         * 'Proto.Otr_Fields.userIds' @:: Lens' ClientMismatchStrategy'ReportOnly [QualifiedUserId]@
         * 'Proto.Otr_Fields.vec'userIds' @:: Lens' ClientMismatchStrategy'ReportOnly (Data.Vector.Vector QualifiedUserId)@ -}
data ClientMismatchStrategy'ReportOnly
  = ClientMismatchStrategy'ReportOnly'_constructor {ClientMismatchStrategy'ReportOnly -> Vector QualifiedUserId
_ClientMismatchStrategy'ReportOnly'userIds :: !(Data.Vector.Vector QualifiedUserId),
                                                    ClientMismatchStrategy'ReportOnly -> FieldSet
_ClientMismatchStrategy'ReportOnly'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly -> Bool
(ClientMismatchStrategy'ReportOnly
 -> ClientMismatchStrategy'ReportOnly -> Bool)
-> (ClientMismatchStrategy'ReportOnly
    -> ClientMismatchStrategy'ReportOnly -> Bool)
-> Eq ClientMismatchStrategy'ReportOnly
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly -> Bool
== :: ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly -> Bool
$c/= :: ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly -> Bool
/= :: ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly -> Bool
Prelude.Eq, Eq ClientMismatchStrategy'ReportOnly
Eq ClientMismatchStrategy'ReportOnly =>
(ClientMismatchStrategy'ReportOnly
 -> ClientMismatchStrategy'ReportOnly -> Ordering)
-> (ClientMismatchStrategy'ReportOnly
    -> ClientMismatchStrategy'ReportOnly -> Bool)
-> (ClientMismatchStrategy'ReportOnly
    -> ClientMismatchStrategy'ReportOnly -> Bool)
-> (ClientMismatchStrategy'ReportOnly
    -> ClientMismatchStrategy'ReportOnly -> Bool)
-> (ClientMismatchStrategy'ReportOnly
    -> ClientMismatchStrategy'ReportOnly -> Bool)
-> (ClientMismatchStrategy'ReportOnly
    -> ClientMismatchStrategy'ReportOnly
    -> ClientMismatchStrategy'ReportOnly)
-> (ClientMismatchStrategy'ReportOnly
    -> ClientMismatchStrategy'ReportOnly
    -> ClientMismatchStrategy'ReportOnly)
-> Ord ClientMismatchStrategy'ReportOnly
ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly -> Bool
ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly -> Ordering
ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly -> Ordering
compare :: ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly -> Ordering
$c< :: ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly -> Bool
< :: ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly -> Bool
$c<= :: ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly -> Bool
<= :: ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly -> Bool
$c> :: ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly -> Bool
> :: ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly -> Bool
$c>= :: ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly -> Bool
>= :: ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly -> Bool
$cmax :: ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly
max :: ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly
$cmin :: ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly
min :: ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly
Prelude.Ord)
instance Prelude.Show ClientMismatchStrategy'ReportOnly where
  showsPrec :: Int -> ClientMismatchStrategy'ReportOnly -> ShowS
showsPrec Int
_ ClientMismatchStrategy'ReportOnly
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ClientMismatchStrategy'ReportOnly -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ClientMismatchStrategy'ReportOnly
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ClientMismatchStrategy'ReportOnly "userIds" [QualifiedUserId] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "userIds"
-> ([QualifiedUserId] -> f [QualifiedUserId])
-> ClientMismatchStrategy'ReportOnly
-> f ClientMismatchStrategy'ReportOnly
fieldOf Proxy# "userIds"
_
    = ((Vector QualifiedUserId -> f (Vector QualifiedUserId))
 -> ClientMismatchStrategy'ReportOnly
 -> f ClientMismatchStrategy'ReportOnly)
-> (([QualifiedUserId] -> f [QualifiedUserId])
    -> Vector QualifiedUserId -> f (Vector QualifiedUserId))
-> ([QualifiedUserId] -> f [QualifiedUserId])
-> ClientMismatchStrategy'ReportOnly
-> f ClientMismatchStrategy'ReportOnly
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClientMismatchStrategy'ReportOnly -> Vector QualifiedUserId)
-> (ClientMismatchStrategy'ReportOnly
    -> Vector QualifiedUserId -> ClientMismatchStrategy'ReportOnly)
-> Lens
     ClientMismatchStrategy'ReportOnly
     ClientMismatchStrategy'ReportOnly
     (Vector QualifiedUserId)
     (Vector QualifiedUserId)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClientMismatchStrategy'ReportOnly -> Vector QualifiedUserId
_ClientMismatchStrategy'ReportOnly'userIds
           (\ ClientMismatchStrategy'ReportOnly
x__ Vector QualifiedUserId
y__
              -> ClientMismatchStrategy'ReportOnly
x__ {_ClientMismatchStrategy'ReportOnly'userIds = y__}))
        ((Vector QualifiedUserId -> [QualifiedUserId])
-> (Vector QualifiedUserId
    -> [QualifiedUserId] -> Vector QualifiedUserId)
-> Lens
     (Vector QualifiedUserId)
     (Vector QualifiedUserId)
     [QualifiedUserId]
     [QualifiedUserId]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector QualifiedUserId -> [QualifiedUserId]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector QualifiedUserId
_ [QualifiedUserId]
y__ -> [QualifiedUserId] -> Vector QualifiedUserId
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [QualifiedUserId]
y__))
instance Data.ProtoLens.Field.HasField ClientMismatchStrategy'ReportOnly "vec'userIds" (Data.Vector.Vector QualifiedUserId) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'userIds"
-> (Vector QualifiedUserId -> f (Vector QualifiedUserId))
-> ClientMismatchStrategy'ReportOnly
-> f ClientMismatchStrategy'ReportOnly
fieldOf Proxy# "vec'userIds"
_
    = ((Vector QualifiedUserId -> f (Vector QualifiedUserId))
 -> ClientMismatchStrategy'ReportOnly
 -> f ClientMismatchStrategy'ReportOnly)
-> ((Vector QualifiedUserId -> f (Vector QualifiedUserId))
    -> Vector QualifiedUserId -> f (Vector QualifiedUserId))
-> (Vector QualifiedUserId -> f (Vector QualifiedUserId))
-> ClientMismatchStrategy'ReportOnly
-> f ClientMismatchStrategy'ReportOnly
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClientMismatchStrategy'ReportOnly -> Vector QualifiedUserId)
-> (ClientMismatchStrategy'ReportOnly
    -> Vector QualifiedUserId -> ClientMismatchStrategy'ReportOnly)
-> Lens
     ClientMismatchStrategy'ReportOnly
     ClientMismatchStrategy'ReportOnly
     (Vector QualifiedUserId)
     (Vector QualifiedUserId)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClientMismatchStrategy'ReportOnly -> Vector QualifiedUserId
_ClientMismatchStrategy'ReportOnly'userIds
           (\ ClientMismatchStrategy'ReportOnly
x__ Vector QualifiedUserId
y__
              -> ClientMismatchStrategy'ReportOnly
x__ {_ClientMismatchStrategy'ReportOnly'userIds = y__}))
        (Vector QualifiedUserId -> f (Vector QualifiedUserId))
-> Vector QualifiedUserId -> f (Vector QualifiedUserId)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ClientMismatchStrategy'ReportOnly where
  messageName :: Proxy ClientMismatchStrategy'ReportOnly -> Text
messageName Proxy ClientMismatchStrategy'ReportOnly
_
    = String -> Text
Data.Text.pack String
"proteus.ClientMismatchStrategy.ReportOnly"
  packedMessageDescriptor :: Proxy ClientMismatchStrategy'ReportOnly -> ByteString
packedMessageDescriptor Proxy ClientMismatchStrategy'ReportOnly
_
    = ByteString
"\n\
      \\n\
      \ReportOnly\DC23\n\
      \\buser_ids\CAN\SOH \ETX(\v2\CAN.proteus.QualifiedUserIdR\auserIds"
  packedFileDescriptor :: Proxy ClientMismatchStrategy'ReportOnly -> ByteString
packedFileDescriptor Proxy ClientMismatchStrategy'ReportOnly
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ClientMismatchStrategy'ReportOnly)
fieldsByTag
    = let
        userIds__field_descriptor :: FieldDescriptor ClientMismatchStrategy'ReportOnly
userIds__field_descriptor
          = String
-> FieldTypeDescriptor QualifiedUserId
-> FieldAccessor ClientMismatchStrategy'ReportOnly QualifiedUserId
-> FieldDescriptor ClientMismatchStrategy'ReportOnly
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"user_ids"
              (MessageOrGroup -> FieldTypeDescriptor QualifiedUserId
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor QualifiedUserId)
              (Packing
-> Lens' ClientMismatchStrategy'ReportOnly [QualifiedUserId]
-> FieldAccessor ClientMismatchStrategy'ReportOnly QualifiedUserId
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"userIds")) ::
              Data.ProtoLens.FieldDescriptor ClientMismatchStrategy'ReportOnly
      in
        [(Tag, FieldDescriptor ClientMismatchStrategy'ReportOnly)]
-> Map Tag (FieldDescriptor ClientMismatchStrategy'ReportOnly)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ClientMismatchStrategy'ReportOnly
userIds__field_descriptor)]
  unknownFields :: Lens' ClientMismatchStrategy'ReportOnly FieldSet
unknownFields
    = (ClientMismatchStrategy'ReportOnly -> FieldSet)
-> (ClientMismatchStrategy'ReportOnly
    -> FieldSet -> ClientMismatchStrategy'ReportOnly)
-> Lens' ClientMismatchStrategy'ReportOnly FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ClientMismatchStrategy'ReportOnly -> FieldSet
_ClientMismatchStrategy'ReportOnly'_unknownFields
        (\ ClientMismatchStrategy'ReportOnly
x__ FieldSet
y__
           -> ClientMismatchStrategy'ReportOnly
x__ {_ClientMismatchStrategy'ReportOnly'_unknownFields = y__})
  defMessage :: ClientMismatchStrategy'ReportOnly
defMessage
    = ClientMismatchStrategy'ReportOnly'_constructor
        {$sel:_ClientMismatchStrategy'ReportOnly'userIds:ClientMismatchStrategy'ReportOnly'_constructor :: Vector QualifiedUserId
_ClientMismatchStrategy'ReportOnly'userIds = Vector QualifiedUserId
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         $sel:_ClientMismatchStrategy'ReportOnly'_unknownFields:ClientMismatchStrategy'ReportOnly'_constructor :: FieldSet
_ClientMismatchStrategy'ReportOnly'_unknownFields = []}
  parseMessage :: Parser ClientMismatchStrategy'ReportOnly
parseMessage
    = let
        loop ::
          ClientMismatchStrategy'ReportOnly
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld QualifiedUserId
             -> Data.ProtoLens.Encoding.Bytes.Parser ClientMismatchStrategy'ReportOnly
        loop :: ClientMismatchStrategy'ReportOnly
-> Growing Vector RealWorld QualifiedUserId
-> Parser ClientMismatchStrategy'ReportOnly
loop ClientMismatchStrategy'ReportOnly
x Growing Vector RealWorld QualifiedUserId
mutable'userIds
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector QualifiedUserId
frozen'userIds <- IO (Vector QualifiedUserId) -> Parser (Vector QualifiedUserId)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Growing Vector (PrimState IO) QualifiedUserId
-> IO (Vector QualifiedUserId)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             Growing Vector RealWorld QualifiedUserId
Growing Vector (PrimState IO) QualifiedUserId
mutable'userIds)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ClientMismatchStrategy'ReportOnly
-> Parser ClientMismatchStrategy'ReportOnly
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  ClientMismatchStrategy'ReportOnly
  ClientMismatchStrategy'ReportOnly
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f ClientMismatchStrategy'ReportOnly FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientMismatchStrategy'ReportOnly FieldSet
Setter
  ClientMismatchStrategy'ReportOnly
  ClientMismatchStrategy'ReportOnly
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  ClientMismatchStrategy'ReportOnly
  ClientMismatchStrategy'ReportOnly
  (Vector QualifiedUserId)
  (Vector QualifiedUserId)
-> Vector QualifiedUserId
-> ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'userIds") Vector QualifiedUserId
frozen'userIds ClientMismatchStrategy'ReportOnly
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do !QualifiedUserId
y <- Parser QualifiedUserId -> String -> Parser QualifiedUserId
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser QualifiedUserId -> Parser QualifiedUserId
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser QualifiedUserId
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"user_ids"
                                Growing Vector RealWorld QualifiedUserId
v <- IO (Growing Vector RealWorld QualifiedUserId)
-> Parser (Growing Vector RealWorld QualifiedUserId)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) QualifiedUserId
-> QualifiedUserId
-> IO (Growing Vector (PrimState IO) QualifiedUserId)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld QualifiedUserId
Growing Vector (PrimState IO) QualifiedUserId
mutable'userIds QualifiedUserId
y)
                                ClientMismatchStrategy'ReportOnly
-> Growing Vector RealWorld QualifiedUserId
-> Parser ClientMismatchStrategy'ReportOnly
loop ClientMismatchStrategy'ReportOnly
x Growing Vector RealWorld QualifiedUserId
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ClientMismatchStrategy'ReportOnly
-> Growing Vector RealWorld QualifiedUserId
-> Parser ClientMismatchStrategy'ReportOnly
loop
                                  (Setter
  ClientMismatchStrategy'ReportOnly
  ClientMismatchStrategy'ReportOnly
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f ClientMismatchStrategy'ReportOnly FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientMismatchStrategy'ReportOnly FieldSet
Setter
  ClientMismatchStrategy'ReportOnly
  ClientMismatchStrategy'ReportOnly
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ClientMismatchStrategy'ReportOnly
x)
                                  Growing Vector RealWorld QualifiedUserId
mutable'userIds
      in
        Parser ClientMismatchStrategy'ReportOnly
-> String -> Parser ClientMismatchStrategy'ReportOnly
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld QualifiedUserId
mutable'userIds <- IO (Growing Vector RealWorld QualifiedUserId)
-> Parser (Growing Vector RealWorld QualifiedUserId)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld QualifiedUserId)
IO (Growing Vector (PrimState IO) QualifiedUserId)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              ClientMismatchStrategy'ReportOnly
-> Growing Vector RealWorld QualifiedUserId
-> Parser ClientMismatchStrategy'ReportOnly
loop ClientMismatchStrategy'ReportOnly
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld QualifiedUserId
mutable'userIds)
          String
"ReportOnly"
  buildMessage :: ClientMismatchStrategy'ReportOnly -> Builder
buildMessage
    = \ ClientMismatchStrategy'ReportOnly
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((QualifiedUserId -> Builder) -> Vector QualifiedUserId -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ QualifiedUserId
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (QualifiedUserId -> ByteString) -> QualifiedUserId -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           QualifiedUserId -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage QualifiedUserId
_v))
                (FoldLike
  (Vector QualifiedUserId)
  ClientMismatchStrategy'ReportOnly
  ClientMismatchStrategy'ReportOnly
  (Vector QualifiedUserId)
  (Vector QualifiedUserId)
-> ClientMismatchStrategy'ReportOnly -> Vector QualifiedUserId
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'userIds") ClientMismatchStrategy'ReportOnly
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  ClientMismatchStrategy'ReportOnly
  ClientMismatchStrategy'ReportOnly
  FieldSet
  FieldSet
-> ClientMismatchStrategy'ReportOnly -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ClientMismatchStrategy'ReportOnly
  ClientMismatchStrategy'ReportOnly
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ClientMismatchStrategy'ReportOnly FieldSet
Data.ProtoLens.unknownFields ClientMismatchStrategy'ReportOnly
_x))
instance Control.DeepSeq.NFData ClientMismatchStrategy'ReportOnly where
  rnf :: ClientMismatchStrategy'ReportOnly -> ()
rnf
    = \ ClientMismatchStrategy'ReportOnly
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ClientMismatchStrategy'ReportOnly -> FieldSet
_ClientMismatchStrategy'ReportOnly'_unknownFields ClientMismatchStrategy'ReportOnly
x__)
             (Vector QualifiedUserId -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ClientMismatchStrategy'ReportOnly -> Vector QualifiedUserId
_ClientMismatchStrategy'ReportOnly'userIds ClientMismatchStrategy'ReportOnly
x__) ())
{- | Fields :
     
         * 'Proto.Otr_Fields.sender' @:: Lens' NewOtrMessage ClientId@
         * 'Proto.Otr_Fields.recipients' @:: Lens' NewOtrMessage [UserEntry]@
         * 'Proto.Otr_Fields.vec'recipients' @:: Lens' NewOtrMessage (Data.Vector.Vector UserEntry)@
         * 'Proto.Otr_Fields.nativePush' @:: Lens' NewOtrMessage Prelude.Bool@
         * 'Proto.Otr_Fields.maybe'nativePush' @:: Lens' NewOtrMessage (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Otr_Fields.blob' @:: Lens' NewOtrMessage Data.ByteString.ByteString@
         * 'Proto.Otr_Fields.maybe'blob' @:: Lens' NewOtrMessage (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Otr_Fields.nativePriority' @:: Lens' NewOtrMessage Priority@
         * 'Proto.Otr_Fields.maybe'nativePriority' @:: Lens' NewOtrMessage (Prelude.Maybe Priority)@
         * 'Proto.Otr_Fields.transient' @:: Lens' NewOtrMessage Prelude.Bool@
         * 'Proto.Otr_Fields.maybe'transient' @:: Lens' NewOtrMessage (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Otr_Fields.reportMissing' @:: Lens' NewOtrMessage [UserId]@
         * 'Proto.Otr_Fields.vec'reportMissing' @:: Lens' NewOtrMessage (Data.Vector.Vector UserId)@ -}
data NewOtrMessage
  = NewOtrMessage'_constructor {NewOtrMessage -> ClientId
_NewOtrMessage'sender :: !ClientId,
                                NewOtrMessage -> Vector UserEntry
_NewOtrMessage'recipients :: !(Data.Vector.Vector UserEntry),
                                NewOtrMessage -> Maybe Bool
_NewOtrMessage'nativePush :: !(Prelude.Maybe Prelude.Bool),
                                NewOtrMessage -> Maybe ByteString
_NewOtrMessage'blob :: !(Prelude.Maybe Data.ByteString.ByteString),
                                NewOtrMessage -> Maybe Priority
_NewOtrMessage'nativePriority :: !(Prelude.Maybe Priority),
                                NewOtrMessage -> Maybe Bool
_NewOtrMessage'transient :: !(Prelude.Maybe Prelude.Bool),
                                NewOtrMessage -> Vector UserId
_NewOtrMessage'reportMissing :: !(Data.Vector.Vector UserId),
                                NewOtrMessage -> FieldSet
_NewOtrMessage'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NewOtrMessage -> NewOtrMessage -> Bool
(NewOtrMessage -> NewOtrMessage -> Bool)
-> (NewOtrMessage -> NewOtrMessage -> Bool) -> Eq NewOtrMessage
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NewOtrMessage -> NewOtrMessage -> Bool
== :: NewOtrMessage -> NewOtrMessage -> Bool
$c/= :: NewOtrMessage -> NewOtrMessage -> Bool
/= :: NewOtrMessage -> NewOtrMessage -> Bool
Prelude.Eq, Eq NewOtrMessage
Eq NewOtrMessage =>
(NewOtrMessage -> NewOtrMessage -> Ordering)
-> (NewOtrMessage -> NewOtrMessage -> Bool)
-> (NewOtrMessage -> NewOtrMessage -> Bool)
-> (NewOtrMessage -> NewOtrMessage -> Bool)
-> (NewOtrMessage -> NewOtrMessage -> Bool)
-> (NewOtrMessage -> NewOtrMessage -> NewOtrMessage)
-> (NewOtrMessage -> NewOtrMessage -> NewOtrMessage)
-> Ord NewOtrMessage
NewOtrMessage -> NewOtrMessage -> Bool
NewOtrMessage -> NewOtrMessage -> Ordering
NewOtrMessage -> NewOtrMessage -> NewOtrMessage
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: NewOtrMessage -> NewOtrMessage -> Ordering
compare :: NewOtrMessage -> NewOtrMessage -> Ordering
$c< :: NewOtrMessage -> NewOtrMessage -> Bool
< :: NewOtrMessage -> NewOtrMessage -> Bool
$c<= :: NewOtrMessage -> NewOtrMessage -> Bool
<= :: NewOtrMessage -> NewOtrMessage -> Bool
$c> :: NewOtrMessage -> NewOtrMessage -> Bool
> :: NewOtrMessage -> NewOtrMessage -> Bool
$c>= :: NewOtrMessage -> NewOtrMessage -> Bool
>= :: NewOtrMessage -> NewOtrMessage -> Bool
$cmax :: NewOtrMessage -> NewOtrMessage -> NewOtrMessage
max :: NewOtrMessage -> NewOtrMessage -> NewOtrMessage
$cmin :: NewOtrMessage -> NewOtrMessage -> NewOtrMessage
min :: NewOtrMessage -> NewOtrMessage -> NewOtrMessage
Prelude.Ord)
instance Prelude.Show NewOtrMessage where
  showsPrec :: Int -> NewOtrMessage -> ShowS
showsPrec Int
_ NewOtrMessage
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (NewOtrMessage -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NewOtrMessage
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField NewOtrMessage "sender" ClientId where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "sender"
-> (ClientId -> f ClientId) -> NewOtrMessage -> f NewOtrMessage
fieldOf Proxy# "sender"
_
    = ((ClientId -> f ClientId) -> NewOtrMessage -> f NewOtrMessage)
-> ((ClientId -> f ClientId) -> ClientId -> f ClientId)
-> (ClientId -> f ClientId)
-> NewOtrMessage
-> f NewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NewOtrMessage -> ClientId)
-> (NewOtrMessage -> ClientId -> NewOtrMessage)
-> Lens NewOtrMessage NewOtrMessage ClientId ClientId
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NewOtrMessage -> ClientId
_NewOtrMessage'sender
           (\ NewOtrMessage
x__ ClientId
y__ -> NewOtrMessage
x__ {_NewOtrMessage'sender = y__}))
        (ClientId -> f ClientId) -> ClientId -> f ClientId
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NewOtrMessage "recipients" [UserEntry] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "recipients"
-> ([UserEntry] -> f [UserEntry])
-> NewOtrMessage
-> f NewOtrMessage
fieldOf Proxy# "recipients"
_
    = ((Vector UserEntry -> f (Vector UserEntry))
 -> NewOtrMessage -> f NewOtrMessage)
-> (([UserEntry] -> f [UserEntry])
    -> Vector UserEntry -> f (Vector UserEntry))
-> ([UserEntry] -> f [UserEntry])
-> NewOtrMessage
-> f NewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NewOtrMessage -> Vector UserEntry)
-> (NewOtrMessage -> Vector UserEntry -> NewOtrMessage)
-> Lens
     NewOtrMessage NewOtrMessage (Vector UserEntry) (Vector UserEntry)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NewOtrMessage -> Vector UserEntry
_NewOtrMessage'recipients
           (\ NewOtrMessage
x__ Vector UserEntry
y__ -> NewOtrMessage
x__ {_NewOtrMessage'recipients = y__}))
        ((Vector UserEntry -> [UserEntry])
-> (Vector UserEntry -> [UserEntry] -> Vector UserEntry)
-> Lens
     (Vector UserEntry) (Vector UserEntry) [UserEntry] [UserEntry]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector UserEntry -> [UserEntry]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector UserEntry
_ [UserEntry]
y__ -> [UserEntry] -> Vector UserEntry
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [UserEntry]
y__))
instance Data.ProtoLens.Field.HasField NewOtrMessage "vec'recipients" (Data.Vector.Vector UserEntry) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'recipients"
-> (Vector UserEntry -> f (Vector UserEntry))
-> NewOtrMessage
-> f NewOtrMessage
fieldOf Proxy# "vec'recipients"
_
    = ((Vector UserEntry -> f (Vector UserEntry))
 -> NewOtrMessage -> f NewOtrMessage)
-> ((Vector UserEntry -> f (Vector UserEntry))
    -> Vector UserEntry -> f (Vector UserEntry))
-> (Vector UserEntry -> f (Vector UserEntry))
-> NewOtrMessage
-> f NewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NewOtrMessage -> Vector UserEntry)
-> (NewOtrMessage -> Vector UserEntry -> NewOtrMessage)
-> Lens
     NewOtrMessage NewOtrMessage (Vector UserEntry) (Vector UserEntry)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NewOtrMessage -> Vector UserEntry
_NewOtrMessage'recipients
           (\ NewOtrMessage
x__ Vector UserEntry
y__ -> NewOtrMessage
x__ {_NewOtrMessage'recipients = y__}))
        (Vector UserEntry -> f (Vector UserEntry))
-> Vector UserEntry -> f (Vector UserEntry)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NewOtrMessage "nativePush" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nativePush"
-> (Bool -> f Bool) -> NewOtrMessage -> f NewOtrMessage
fieldOf Proxy# "nativePush"
_
    = ((Maybe Bool -> f (Maybe Bool))
 -> NewOtrMessage -> f NewOtrMessage)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> NewOtrMessage
-> f NewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NewOtrMessage -> Maybe Bool)
-> (NewOtrMessage -> Maybe Bool -> NewOtrMessage)
-> Lens NewOtrMessage NewOtrMessage (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NewOtrMessage -> Maybe Bool
_NewOtrMessage'nativePush
           (\ NewOtrMessage
x__ Maybe Bool
y__ -> NewOtrMessage
x__ {_NewOtrMessage'nativePush = y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.True)
instance Data.ProtoLens.Field.HasField NewOtrMessage "maybe'nativePush" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'nativePush"
-> (Maybe Bool -> f (Maybe Bool))
-> NewOtrMessage
-> f NewOtrMessage
fieldOf Proxy# "maybe'nativePush"
_
    = ((Maybe Bool -> f (Maybe Bool))
 -> NewOtrMessage -> f NewOtrMessage)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> NewOtrMessage
-> f NewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NewOtrMessage -> Maybe Bool)
-> (NewOtrMessage -> Maybe Bool -> NewOtrMessage)
-> Lens NewOtrMessage NewOtrMessage (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NewOtrMessage -> Maybe Bool
_NewOtrMessage'nativePush
           (\ NewOtrMessage
x__ Maybe Bool
y__ -> NewOtrMessage
x__ {_NewOtrMessage'nativePush = y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NewOtrMessage "blob" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "blob"
-> (ByteString -> f ByteString) -> NewOtrMessage -> f NewOtrMessage
fieldOf Proxy# "blob"
_
    = ((Maybe ByteString -> f (Maybe ByteString))
 -> NewOtrMessage -> f NewOtrMessage)
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> NewOtrMessage
-> f NewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NewOtrMessage -> Maybe ByteString)
-> (NewOtrMessage -> Maybe ByteString -> NewOtrMessage)
-> Lens
     NewOtrMessage NewOtrMessage (Maybe ByteString) (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NewOtrMessage -> Maybe ByteString
_NewOtrMessage'blob (\ NewOtrMessage
x__ Maybe ByteString
y__ -> NewOtrMessage
x__ {_NewOtrMessage'blob = y__}))
        (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField NewOtrMessage "maybe'blob" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'blob"
-> (Maybe ByteString -> f (Maybe ByteString))
-> NewOtrMessage
-> f NewOtrMessage
fieldOf Proxy# "maybe'blob"
_
    = ((Maybe ByteString -> f (Maybe ByteString))
 -> NewOtrMessage -> f NewOtrMessage)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe ByteString -> f (Maybe ByteString))
-> (Maybe ByteString -> f (Maybe ByteString))
-> NewOtrMessage
-> f NewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NewOtrMessage -> Maybe ByteString)
-> (NewOtrMessage -> Maybe ByteString -> NewOtrMessage)
-> Lens
     NewOtrMessage NewOtrMessage (Maybe ByteString) (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NewOtrMessage -> Maybe ByteString
_NewOtrMessage'blob (\ NewOtrMessage
x__ Maybe ByteString
y__ -> NewOtrMessage
x__ {_NewOtrMessage'blob = y__}))
        (Maybe ByteString -> f (Maybe ByteString))
-> Maybe ByteString -> f (Maybe ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NewOtrMessage "nativePriority" Priority where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nativePriority"
-> (Priority -> f Priority) -> NewOtrMessage -> f NewOtrMessage
fieldOf Proxy# "nativePriority"
_
    = ((Maybe Priority -> f (Maybe Priority))
 -> NewOtrMessage -> f NewOtrMessage)
-> ((Priority -> f Priority)
    -> Maybe Priority -> f (Maybe Priority))
-> (Priority -> f Priority)
-> NewOtrMessage
-> f NewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NewOtrMessage -> Maybe Priority)
-> (NewOtrMessage -> Maybe Priority -> NewOtrMessage)
-> Lens
     NewOtrMessage NewOtrMessage (Maybe Priority) (Maybe Priority)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NewOtrMessage -> Maybe Priority
_NewOtrMessage'nativePriority
           (\ NewOtrMessage
x__ Maybe Priority
y__ -> NewOtrMessage
x__ {_NewOtrMessage'nativePriority = y__}))
        (Priority -> Lens' (Maybe Priority) Priority
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Priority
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField NewOtrMessage "maybe'nativePriority" (Prelude.Maybe Priority) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'nativePriority"
-> (Maybe Priority -> f (Maybe Priority))
-> NewOtrMessage
-> f NewOtrMessage
fieldOf Proxy# "maybe'nativePriority"
_
    = ((Maybe Priority -> f (Maybe Priority))
 -> NewOtrMessage -> f NewOtrMessage)
-> ((Maybe Priority -> f (Maybe Priority))
    -> Maybe Priority -> f (Maybe Priority))
-> (Maybe Priority -> f (Maybe Priority))
-> NewOtrMessage
-> f NewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NewOtrMessage -> Maybe Priority)
-> (NewOtrMessage -> Maybe Priority -> NewOtrMessage)
-> Lens
     NewOtrMessage NewOtrMessage (Maybe Priority) (Maybe Priority)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NewOtrMessage -> Maybe Priority
_NewOtrMessage'nativePriority
           (\ NewOtrMessage
x__ Maybe Priority
y__ -> NewOtrMessage
x__ {_NewOtrMessage'nativePriority = y__}))
        (Maybe Priority -> f (Maybe Priority))
-> Maybe Priority -> f (Maybe Priority)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NewOtrMessage "transient" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "transient"
-> (Bool -> f Bool) -> NewOtrMessage -> f NewOtrMessage
fieldOf Proxy# "transient"
_
    = ((Maybe Bool -> f (Maybe Bool))
 -> NewOtrMessage -> f NewOtrMessage)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> NewOtrMessage
-> f NewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NewOtrMessage -> Maybe Bool)
-> (NewOtrMessage -> Maybe Bool -> NewOtrMessage)
-> Lens NewOtrMessage NewOtrMessage (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NewOtrMessage -> Maybe Bool
_NewOtrMessage'transient
           (\ NewOtrMessage
x__ Maybe Bool
y__ -> NewOtrMessage
x__ {_NewOtrMessage'transient = y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField NewOtrMessage "maybe'transient" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'transient"
-> (Maybe Bool -> f (Maybe Bool))
-> NewOtrMessage
-> f NewOtrMessage
fieldOf Proxy# "maybe'transient"
_
    = ((Maybe Bool -> f (Maybe Bool))
 -> NewOtrMessage -> f NewOtrMessage)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> NewOtrMessage
-> f NewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NewOtrMessage -> Maybe Bool)
-> (NewOtrMessage -> Maybe Bool -> NewOtrMessage)
-> Lens NewOtrMessage NewOtrMessage (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NewOtrMessage -> Maybe Bool
_NewOtrMessage'transient
           (\ NewOtrMessage
x__ Maybe Bool
y__ -> NewOtrMessage
x__ {_NewOtrMessage'transient = y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NewOtrMessage "reportMissing" [UserId] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "reportMissing"
-> ([UserId] -> f [UserId]) -> NewOtrMessage -> f NewOtrMessage
fieldOf Proxy# "reportMissing"
_
    = ((Vector UserId -> f (Vector UserId))
 -> NewOtrMessage -> f NewOtrMessage)
-> (([UserId] -> f [UserId]) -> Vector UserId -> f (Vector UserId))
-> ([UserId] -> f [UserId])
-> NewOtrMessage
-> f NewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NewOtrMessage -> Vector UserId)
-> (NewOtrMessage -> Vector UserId -> NewOtrMessage)
-> Lens NewOtrMessage NewOtrMessage (Vector UserId) (Vector UserId)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NewOtrMessage -> Vector UserId
_NewOtrMessage'reportMissing
           (\ NewOtrMessage
x__ Vector UserId
y__ -> NewOtrMessage
x__ {_NewOtrMessage'reportMissing = y__}))
        ((Vector UserId -> [UserId])
-> (Vector UserId -> [UserId] -> Vector UserId)
-> Lens (Vector UserId) (Vector UserId) [UserId] [UserId]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector UserId -> [UserId]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector UserId
_ [UserId]
y__ -> [UserId] -> Vector UserId
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [UserId]
y__))
instance Data.ProtoLens.Field.HasField NewOtrMessage "vec'reportMissing" (Data.Vector.Vector UserId) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'reportMissing"
-> (Vector UserId -> f (Vector UserId))
-> NewOtrMessage
-> f NewOtrMessage
fieldOf Proxy# "vec'reportMissing"
_
    = ((Vector UserId -> f (Vector UserId))
 -> NewOtrMessage -> f NewOtrMessage)
-> ((Vector UserId -> f (Vector UserId))
    -> Vector UserId -> f (Vector UserId))
-> (Vector UserId -> f (Vector UserId))
-> NewOtrMessage
-> f NewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NewOtrMessage -> Vector UserId)
-> (NewOtrMessage -> Vector UserId -> NewOtrMessage)
-> Lens NewOtrMessage NewOtrMessage (Vector UserId) (Vector UserId)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NewOtrMessage -> Vector UserId
_NewOtrMessage'reportMissing
           (\ NewOtrMessage
x__ Vector UserId
y__ -> NewOtrMessage
x__ {_NewOtrMessage'reportMissing = y__}))
        (Vector UserId -> f (Vector UserId))
-> Vector UserId -> f (Vector UserId)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NewOtrMessage where
  messageName :: Proxy NewOtrMessage -> Text
messageName Proxy NewOtrMessage
_ = String -> Text
Data.Text.pack String
"proteus.NewOtrMessage"
  packedMessageDescriptor :: Proxy NewOtrMessage -> ByteString
packedMessageDescriptor Proxy NewOtrMessage
_
    = ByteString
"\n\
      \\rNewOtrMessage\DC2)\n\
      \\ACKsender\CAN\SOH \STX(\v2\DC1.proteus.ClientIdR\ACKsender\DC22\n\
      \\n\
      \recipients\CAN\STX \ETX(\v2\DC2.proteus.UserEntryR\n\
      \recipients\DC2%\n\
      \\vnative_push\CAN\ETX \SOH(\b:\EOTtrueR\n\
      \nativePush\DC2\DC2\n\
      \\EOTblob\CAN\EOT \SOH(\fR\EOTblob\DC2:\n\
      \\SInative_priority\CAN\ENQ \SOH(\SO2\DC1.proteus.PriorityR\SOnativePriority\DC2\FS\n\
      \\ttransient\CAN\ACK \SOH(\bR\ttransient\DC26\n\
      \\SOreport_missing\CAN\a \ETX(\v2\SI.proteus.UserIdR\rreportMissing"
  packedFileDescriptor :: Proxy NewOtrMessage -> ByteString
packedFileDescriptor Proxy NewOtrMessage
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NewOtrMessage)
fieldsByTag
    = let
        sender__field_descriptor :: FieldDescriptor NewOtrMessage
sender__field_descriptor
          = String
-> FieldTypeDescriptor ClientId
-> FieldAccessor NewOtrMessage ClientId
-> FieldDescriptor NewOtrMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"sender"
              (MessageOrGroup -> FieldTypeDescriptor ClientId
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ClientId)
              (WireDefault ClientId
-> Lens NewOtrMessage NewOtrMessage ClientId ClientId
-> FieldAccessor NewOtrMessage ClientId
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ClientId
forall value. WireDefault value
Data.ProtoLens.Required (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sender")) ::
              Data.ProtoLens.FieldDescriptor NewOtrMessage
        recipients__field_descriptor :: FieldDescriptor NewOtrMessage
recipients__field_descriptor
          = String
-> FieldTypeDescriptor UserEntry
-> FieldAccessor NewOtrMessage UserEntry
-> FieldDescriptor NewOtrMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"recipients"
              (MessageOrGroup -> FieldTypeDescriptor UserEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UserEntry)
              (Packing
-> Lens' NewOtrMessage [UserEntry]
-> FieldAccessor NewOtrMessage UserEntry
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"recipients")) ::
              Data.ProtoLens.FieldDescriptor NewOtrMessage
        nativePush__field_descriptor :: FieldDescriptor NewOtrMessage
nativePush__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor NewOtrMessage Bool
-> FieldDescriptor NewOtrMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"native_push"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens NewOtrMessage NewOtrMessage (Maybe Bool) (Maybe Bool)
-> FieldAccessor NewOtrMessage Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'nativePush")) ::
              Data.ProtoLens.FieldDescriptor NewOtrMessage
        blob__field_descriptor :: FieldDescriptor NewOtrMessage
blob__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor NewOtrMessage ByteString
-> FieldDescriptor NewOtrMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"blob"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens
  NewOtrMessage NewOtrMessage (Maybe ByteString) (Maybe ByteString)
-> FieldAccessor NewOtrMessage ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'blob")) ::
              Data.ProtoLens.FieldDescriptor NewOtrMessage
        nativePriority__field_descriptor :: FieldDescriptor NewOtrMessage
nativePriority__field_descriptor
          = String
-> FieldTypeDescriptor Priority
-> FieldAccessor NewOtrMessage Priority
-> FieldDescriptor NewOtrMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"native_priority"
              (ScalarField Priority -> FieldTypeDescriptor Priority
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Priority
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Priority)
              (Lens NewOtrMessage NewOtrMessage (Maybe Priority) (Maybe Priority)
-> FieldAccessor NewOtrMessage Priority
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'nativePriority")) ::
              Data.ProtoLens.FieldDescriptor NewOtrMessage
        transient__field_descriptor :: FieldDescriptor NewOtrMessage
transient__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor NewOtrMessage Bool
-> FieldDescriptor NewOtrMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"transient"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens NewOtrMessage NewOtrMessage (Maybe Bool) (Maybe Bool)
-> FieldAccessor NewOtrMessage Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'transient")) ::
              Data.ProtoLens.FieldDescriptor NewOtrMessage
        reportMissing__field_descriptor :: FieldDescriptor NewOtrMessage
reportMissing__field_descriptor
          = String
-> FieldTypeDescriptor UserId
-> FieldAccessor NewOtrMessage UserId
-> FieldDescriptor NewOtrMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"report_missing"
              (MessageOrGroup -> FieldTypeDescriptor UserId
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UserId)
              (Packing
-> Lens' NewOtrMessage [UserId]
-> FieldAccessor NewOtrMessage UserId
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"reportMissing")) ::
              Data.ProtoLens.FieldDescriptor NewOtrMessage
      in
        [(Tag, FieldDescriptor NewOtrMessage)]
-> Map Tag (FieldDescriptor NewOtrMessage)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor NewOtrMessage
sender__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor NewOtrMessage
recipients__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor NewOtrMessage
nativePush__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor NewOtrMessage
blob__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor NewOtrMessage
nativePriority__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor NewOtrMessage
transient__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor NewOtrMessage
reportMissing__field_descriptor)]
  unknownFields :: Lens' NewOtrMessage FieldSet
unknownFields
    = (NewOtrMessage -> FieldSet)
-> (NewOtrMessage -> FieldSet -> NewOtrMessage)
-> Lens' NewOtrMessage FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NewOtrMessage -> FieldSet
_NewOtrMessage'_unknownFields
        (\ NewOtrMessage
x__ FieldSet
y__ -> NewOtrMessage
x__ {_NewOtrMessage'_unknownFields = y__})
  defMessage :: NewOtrMessage
defMessage
    = NewOtrMessage'_constructor
        {$sel:_NewOtrMessage'sender:NewOtrMessage'_constructor :: ClientId
_NewOtrMessage'sender = ClientId
forall msg. Message msg => msg
Data.ProtoLens.defMessage,
         $sel:_NewOtrMessage'recipients:NewOtrMessage'_constructor :: Vector UserEntry
_NewOtrMessage'recipients = Vector UserEntry
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         $sel:_NewOtrMessage'nativePush:NewOtrMessage'_constructor :: Maybe Bool
_NewOtrMessage'nativePush = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         $sel:_NewOtrMessage'blob:NewOtrMessage'_constructor :: Maybe ByteString
_NewOtrMessage'blob = Maybe ByteString
forall a. Maybe a
Prelude.Nothing,
         $sel:_NewOtrMessage'nativePriority:NewOtrMessage'_constructor :: Maybe Priority
_NewOtrMessage'nativePriority = Maybe Priority
forall a. Maybe a
Prelude.Nothing,
         $sel:_NewOtrMessage'transient:NewOtrMessage'_constructor :: Maybe Bool
_NewOtrMessage'transient = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         $sel:_NewOtrMessage'reportMissing:NewOtrMessage'_constructor :: Vector UserId
_NewOtrMessage'reportMissing = Vector UserId
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         $sel:_NewOtrMessage'_unknownFields:NewOtrMessage'_constructor :: FieldSet
_NewOtrMessage'_unknownFields = []}
  parseMessage :: Parser NewOtrMessage
parseMessage
    = let
        loop ::
          NewOtrMessage
          -> Prelude.Bool
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UserEntry
                -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UserId
                   -> Data.ProtoLens.Encoding.Bytes.Parser NewOtrMessage
        loop :: NewOtrMessage
-> Bool
-> Growing Vector RealWorld UserEntry
-> Growing Vector RealWorld UserId
-> Parser NewOtrMessage
loop NewOtrMessage
x Bool
required'sender Growing Vector RealWorld UserEntry
mutable'recipients Growing Vector RealWorld UserId
mutable'reportMissing
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector UserEntry
frozen'recipients <- IO (Vector UserEntry) -> Parser (Vector UserEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                             (Growing Vector (PrimState IO) UserEntry -> IO (Vector UserEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                Growing Vector RealWorld UserEntry
Growing Vector (PrimState IO) UserEntry
mutable'recipients)
                      Vector UserId
frozen'reportMissing <- IO (Vector UserId) -> Parser (Vector UserId)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                (Growing Vector (PrimState IO) UserId -> IO (Vector UserId)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                   Growing Vector RealWorld UserId
Growing Vector (PrimState IO) UserId
mutable'reportMissing)
                      (let
                         missing :: [String]
missing = (if Bool
required'sender then (:) String
"sender" else [String] -> [String]
forall a. a -> a
Prelude.id) []
                       in
                         if [String] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [String]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
missing :: [Prelude.String]))))
                      NewOtrMessage -> Parser NewOtrMessage
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter NewOtrMessage NewOtrMessage FieldSet FieldSet
-> (FieldSet -> FieldSet) -> NewOtrMessage -> NewOtrMessage
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f NewOtrMessage FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NewOtrMessage FieldSet
Setter NewOtrMessage NewOtrMessage FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  NewOtrMessage NewOtrMessage (Vector UserEntry) (Vector UserEntry)
-> Vector UserEntry -> NewOtrMessage -> NewOtrMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'recipients") Vector UserEntry
frozen'recipients
                              (Setter NewOtrMessage NewOtrMessage (Vector UserId) (Vector UserId)
-> Vector UserId -> NewOtrMessage -> NewOtrMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'reportMissing")
                                 Vector UserId
frozen'reportMissing NewOtrMessage
x)))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ClientId
y <- Parser ClientId -> String -> Parser ClientId
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ClientId -> Parser ClientId
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ClientId
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"sender"
                                NewOtrMessage
-> Bool
-> Growing Vector RealWorld UserEntry
-> Growing Vector RealWorld UserId
-> Parser NewOtrMessage
loop
                                  (Setter NewOtrMessage NewOtrMessage ClientId ClientId
-> ClientId -> NewOtrMessage -> NewOtrMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sender") ClientId
y NewOtrMessage
x)
                                  Bool
Prelude.False Growing Vector RealWorld UserEntry
mutable'recipients Growing Vector RealWorld UserId
mutable'reportMissing
                        Word64
18
                          -> do !UserEntry
y <- Parser UserEntry -> String -> Parser UserEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser UserEntry -> Parser UserEntry
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser UserEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"recipients"
                                Growing Vector RealWorld UserEntry
v <- IO (Growing Vector RealWorld UserEntry)
-> Parser (Growing Vector RealWorld UserEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) UserEntry
-> UserEntry -> IO (Growing Vector (PrimState IO) UserEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld UserEntry
Growing Vector (PrimState IO) UserEntry
mutable'recipients UserEntry
y)
                                NewOtrMessage
-> Bool
-> Growing Vector RealWorld UserEntry
-> Growing Vector RealWorld UserId
-> Parser NewOtrMessage
loop NewOtrMessage
x Bool
required'sender Growing Vector RealWorld UserEntry
v Growing Vector RealWorld UserId
mutable'reportMissing
                        Word64
24
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"native_push"
                                NewOtrMessage
-> Bool
-> Growing Vector RealWorld UserEntry
-> Growing Vector RealWorld UserId
-> Parser NewOtrMessage
loop
                                  (Setter NewOtrMessage NewOtrMessage Bool Bool
-> Bool -> NewOtrMessage -> NewOtrMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nativePush") Bool
y NewOtrMessage
x)
                                  Bool
required'sender Growing Vector RealWorld UserEntry
mutable'recipients Growing Vector RealWorld UserId
mutable'reportMissing
                        Word64
34
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"blob"
                                NewOtrMessage
-> Bool
-> Growing Vector RealWorld UserEntry
-> Growing Vector RealWorld UserId
-> Parser NewOtrMessage
loop
                                  (Setter NewOtrMessage NewOtrMessage ByteString ByteString
-> ByteString -> NewOtrMessage -> NewOtrMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"blob") ByteString
y NewOtrMessage
x)
                                  Bool
required'sender Growing Vector RealWorld UserEntry
mutable'recipients Growing Vector RealWorld UserId
mutable'reportMissing
                        Word64
40
                          -> do Priority
y <- Parser Priority -> String -> Parser Priority
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> Priority) -> Parser Int -> Parser Priority
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> Priority
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       String
"native_priority"
                                NewOtrMessage
-> Bool
-> Growing Vector RealWorld UserEntry
-> Growing Vector RealWorld UserId
-> Parser NewOtrMessage
loop
                                  (Setter NewOtrMessage NewOtrMessage Priority Priority
-> Priority -> NewOtrMessage -> NewOtrMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nativePriority") Priority
y NewOtrMessage
x)
                                  Bool
required'sender Growing Vector RealWorld UserEntry
mutable'recipients Growing Vector RealWorld UserId
mutable'reportMissing
                        Word64
48
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"transient"
                                NewOtrMessage
-> Bool
-> Growing Vector RealWorld UserEntry
-> Growing Vector RealWorld UserId
-> Parser NewOtrMessage
loop
                                  (Setter NewOtrMessage NewOtrMessage Bool Bool
-> Bool -> NewOtrMessage -> NewOtrMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"transient") Bool
y NewOtrMessage
x)
                                  Bool
required'sender Growing Vector RealWorld UserEntry
mutable'recipients Growing Vector RealWorld UserId
mutable'reportMissing
                        Word64
58
                          -> do !UserId
y <- Parser UserId -> String -> Parser UserId
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser UserId -> Parser UserId
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser UserId
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"report_missing"
                                Growing Vector RealWorld UserId
v <- IO (Growing Vector RealWorld UserId)
-> Parser (Growing Vector RealWorld UserId)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) UserId
-> UserId -> IO (Growing Vector (PrimState IO) UserId)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld UserId
Growing Vector (PrimState IO) UserId
mutable'reportMissing UserId
y)
                                NewOtrMessage
-> Bool
-> Growing Vector RealWorld UserEntry
-> Growing Vector RealWorld UserId
-> Parser NewOtrMessage
loop NewOtrMessage
x Bool
required'sender Growing Vector RealWorld UserEntry
mutable'recipients Growing Vector RealWorld UserId
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                NewOtrMessage
-> Bool
-> Growing Vector RealWorld UserEntry
-> Growing Vector RealWorld UserId
-> Parser NewOtrMessage
loop
                                  (Setter NewOtrMessage NewOtrMessage FieldSet FieldSet
-> (FieldSet -> FieldSet) -> NewOtrMessage -> NewOtrMessage
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f NewOtrMessage FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NewOtrMessage FieldSet
Setter NewOtrMessage NewOtrMessage FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) NewOtrMessage
x)
                                  Bool
required'sender Growing Vector RealWorld UserEntry
mutable'recipients Growing Vector RealWorld UserId
mutable'reportMissing
      in
        Parser NewOtrMessage -> String -> Parser NewOtrMessage
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld UserEntry
mutable'recipients <- IO (Growing Vector RealWorld UserEntry)
-> Parser (Growing Vector RealWorld UserEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                      IO (Growing Vector RealWorld UserEntry)
IO (Growing Vector (PrimState IO) UserEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld UserId
mutable'reportMissing <- IO (Growing Vector RealWorld UserId)
-> Parser (Growing Vector RealWorld UserId)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         IO (Growing Vector RealWorld UserId)
IO (Growing Vector (PrimState IO) UserId)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              NewOtrMessage
-> Bool
-> Growing Vector RealWorld UserEntry
-> Growing Vector RealWorld UserId
-> Parser NewOtrMessage
loop
                NewOtrMessage
forall msg. Message msg => msg
Data.ProtoLens.defMessage Bool
Prelude.True Growing Vector RealWorld UserEntry
mutable'recipients
                Growing Vector RealWorld UserId
mutable'reportMissing)
          String
"NewOtrMessage"
  buildMessage :: NewOtrMessage -> Builder
buildMessage
    = \ NewOtrMessage
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                ((ByteString -> Builder)
-> (ClientId -> ByteString) -> ClientId -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                   (\ ByteString
bs
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                   ClientId -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                   (FoldLike ClientId NewOtrMessage NewOtrMessage ClientId ClientId
-> NewOtrMessage -> ClientId
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sender") NewOtrMessage
_x)))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((UserEntry -> Builder) -> Vector UserEntry -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ UserEntry
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (UserEntry -> ByteString) -> UserEntry -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                              (\ ByteString
bs
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                      (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                              UserEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage UserEntry
_v))
                   (FoldLike
  (Vector UserEntry)
  NewOtrMessage
  NewOtrMessage
  (Vector UserEntry)
  (Vector UserEntry)
-> NewOtrMessage -> Vector UserEntry
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                      (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'recipients") NewOtrMessage
_x))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe Bool) NewOtrMessage NewOtrMessage (Maybe Bool) (Maybe Bool)
-> NewOtrMessage -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'nativePush") NewOtrMessage
_x
                    of
                      Maybe Bool
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just Bool
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
24)
                             ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
                                Bool
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe ByteString)
  NewOtrMessage
  NewOtrMessage
  (Maybe ByteString)
  (Maybe ByteString)
-> NewOtrMessage -> Maybe ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'blob") NewOtrMessage
_x
                       of
                         Maybe ByteString
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just ByteString
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                                ((\ ByteString
bs
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                            (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                         (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                   ByteString
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (case
                              FoldLike
  (Maybe Priority)
  NewOtrMessage
  NewOtrMessage
  (Maybe Priority)
  (Maybe Priority)
-> NewOtrMessage -> Maybe Priority
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'nativePriority") NewOtrMessage
_x
                          of
                            Maybe Priority
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                            (Prelude.Just Priority
_v)
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
40)
                                   ((Int -> Builder) -> (Priority -> Int) -> Priority -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                      ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                                      Priority -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Priority
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (case
                                 FoldLike
  (Maybe Bool) NewOtrMessage NewOtrMessage (Maybe Bool) (Maybe Bool)
-> NewOtrMessage -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                   (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'transient") NewOtrMessage
_x
                             of
                               Maybe Bool
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                               (Prelude.Just Bool
_v)
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
48)
                                      ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (\ Bool
b -> if Bool
b then Word64
1 else Word64
0) Bool
_v))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               ((UserId -> Builder) -> Vector UserId -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                  (\ UserId
_v
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
                                          ((ByteString -> Builder)
-> (UserId -> ByteString) -> UserId -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                             (\ ByteString
bs
                                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                           (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                             UserId -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage UserId
_v))
                                  (FoldLike
  (Vector UserId)
  NewOtrMessage
  NewOtrMessage
  (Vector UserId)
  (Vector UserId)
-> NewOtrMessage -> Vector UserId
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                     (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'reportMissing") NewOtrMessage
_x))
                               (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                  (FoldLike FieldSet NewOtrMessage NewOtrMessage FieldSet FieldSet
-> NewOtrMessage -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet NewOtrMessage NewOtrMessage FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NewOtrMessage FieldSet
Data.ProtoLens.unknownFields NewOtrMessage
_x))))))))
instance Control.DeepSeq.NFData NewOtrMessage where
  rnf :: NewOtrMessage -> ()
rnf
    = \ NewOtrMessage
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NewOtrMessage -> FieldSet
_NewOtrMessage'_unknownFields NewOtrMessage
x__)
             (ClientId -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (NewOtrMessage -> ClientId
_NewOtrMessage'sender NewOtrMessage
x__)
                (Vector UserEntry -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (NewOtrMessage -> Vector UserEntry
_NewOtrMessage'recipients NewOtrMessage
x__)
                   (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (NewOtrMessage -> Maybe Bool
_NewOtrMessage'nativePush NewOtrMessage
x__)
                      (Maybe ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (NewOtrMessage -> Maybe ByteString
_NewOtrMessage'blob NewOtrMessage
x__)
                         (Maybe Priority -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (NewOtrMessage -> Maybe Priority
_NewOtrMessage'nativePriority NewOtrMessage
x__)
                            (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (NewOtrMessage -> Maybe Bool
_NewOtrMessage'transient NewOtrMessage
x__)
                               (Vector UserId -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (NewOtrMessage -> Vector UserId
_NewOtrMessage'reportMissing NewOtrMessage
x__) ())))))))
{- | Fields :
     
         * 'Proto.Otr_Fields.sender' @:: Lens' OtrAssetMeta ClientId@
         * 'Proto.Otr_Fields.recipients' @:: Lens' OtrAssetMeta [UserEntry]@
         * 'Proto.Otr_Fields.vec'recipients' @:: Lens' OtrAssetMeta (Data.Vector.Vector UserEntry)@
         * 'Proto.Otr_Fields.isInline' @:: Lens' OtrAssetMeta Prelude.Bool@
         * 'Proto.Otr_Fields.maybe'isInline' @:: Lens' OtrAssetMeta (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Otr_Fields.nativePush' @:: Lens' OtrAssetMeta Prelude.Bool@
         * 'Proto.Otr_Fields.maybe'nativePush' @:: Lens' OtrAssetMeta (Prelude.Maybe Prelude.Bool)@ -}
data OtrAssetMeta
  = OtrAssetMeta'_constructor {OtrAssetMeta -> ClientId
_OtrAssetMeta'sender :: !ClientId,
                               OtrAssetMeta -> Vector UserEntry
_OtrAssetMeta'recipients :: !(Data.Vector.Vector UserEntry),
                               OtrAssetMeta -> Maybe Bool
_OtrAssetMeta'isInline :: !(Prelude.Maybe Prelude.Bool),
                               OtrAssetMeta -> Maybe Bool
_OtrAssetMeta'nativePush :: !(Prelude.Maybe Prelude.Bool),
                               OtrAssetMeta -> FieldSet
_OtrAssetMeta'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (OtrAssetMeta -> OtrAssetMeta -> Bool
(OtrAssetMeta -> OtrAssetMeta -> Bool)
-> (OtrAssetMeta -> OtrAssetMeta -> Bool) -> Eq OtrAssetMeta
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: OtrAssetMeta -> OtrAssetMeta -> Bool
== :: OtrAssetMeta -> OtrAssetMeta -> Bool
$c/= :: OtrAssetMeta -> OtrAssetMeta -> Bool
/= :: OtrAssetMeta -> OtrAssetMeta -> Bool
Prelude.Eq, Eq OtrAssetMeta
Eq OtrAssetMeta =>
(OtrAssetMeta -> OtrAssetMeta -> Ordering)
-> (OtrAssetMeta -> OtrAssetMeta -> Bool)
-> (OtrAssetMeta -> OtrAssetMeta -> Bool)
-> (OtrAssetMeta -> OtrAssetMeta -> Bool)
-> (OtrAssetMeta -> OtrAssetMeta -> Bool)
-> (OtrAssetMeta -> OtrAssetMeta -> OtrAssetMeta)
-> (OtrAssetMeta -> OtrAssetMeta -> OtrAssetMeta)
-> Ord OtrAssetMeta
OtrAssetMeta -> OtrAssetMeta -> Bool
OtrAssetMeta -> OtrAssetMeta -> Ordering
OtrAssetMeta -> OtrAssetMeta -> OtrAssetMeta
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: OtrAssetMeta -> OtrAssetMeta -> Ordering
compare :: OtrAssetMeta -> OtrAssetMeta -> Ordering
$c< :: OtrAssetMeta -> OtrAssetMeta -> Bool
< :: OtrAssetMeta -> OtrAssetMeta -> Bool
$c<= :: OtrAssetMeta -> OtrAssetMeta -> Bool
<= :: OtrAssetMeta -> OtrAssetMeta -> Bool
$c> :: OtrAssetMeta -> OtrAssetMeta -> Bool
> :: OtrAssetMeta -> OtrAssetMeta -> Bool
$c>= :: OtrAssetMeta -> OtrAssetMeta -> Bool
>= :: OtrAssetMeta -> OtrAssetMeta -> Bool
$cmax :: OtrAssetMeta -> OtrAssetMeta -> OtrAssetMeta
max :: OtrAssetMeta -> OtrAssetMeta -> OtrAssetMeta
$cmin :: OtrAssetMeta -> OtrAssetMeta -> OtrAssetMeta
min :: OtrAssetMeta -> OtrAssetMeta -> OtrAssetMeta
Prelude.Ord)
instance Prelude.Show OtrAssetMeta where
  showsPrec :: Int -> OtrAssetMeta -> ShowS
showsPrec Int
_ OtrAssetMeta
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (OtrAssetMeta -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort OtrAssetMeta
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField OtrAssetMeta "sender" ClientId where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "sender"
-> (ClientId -> f ClientId) -> OtrAssetMeta -> f OtrAssetMeta
fieldOf Proxy# "sender"
_
    = ((ClientId -> f ClientId) -> OtrAssetMeta -> f OtrAssetMeta)
-> ((ClientId -> f ClientId) -> ClientId -> f ClientId)
-> (ClientId -> f ClientId)
-> OtrAssetMeta
-> f OtrAssetMeta
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OtrAssetMeta -> ClientId)
-> (OtrAssetMeta -> ClientId -> OtrAssetMeta)
-> Lens OtrAssetMeta OtrAssetMeta ClientId ClientId
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OtrAssetMeta -> ClientId
_OtrAssetMeta'sender
           (\ OtrAssetMeta
x__ ClientId
y__ -> OtrAssetMeta
x__ {_OtrAssetMeta'sender = y__}))
        (ClientId -> f ClientId) -> ClientId -> f ClientId
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OtrAssetMeta "recipients" [UserEntry] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "recipients"
-> ([UserEntry] -> f [UserEntry]) -> OtrAssetMeta -> f OtrAssetMeta
fieldOf Proxy# "recipients"
_
    = ((Vector UserEntry -> f (Vector UserEntry))
 -> OtrAssetMeta -> f OtrAssetMeta)
-> (([UserEntry] -> f [UserEntry])
    -> Vector UserEntry -> f (Vector UserEntry))
-> ([UserEntry] -> f [UserEntry])
-> OtrAssetMeta
-> f OtrAssetMeta
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OtrAssetMeta -> Vector UserEntry)
-> (OtrAssetMeta -> Vector UserEntry -> OtrAssetMeta)
-> Lens
     OtrAssetMeta OtrAssetMeta (Vector UserEntry) (Vector UserEntry)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OtrAssetMeta -> Vector UserEntry
_OtrAssetMeta'recipients
           (\ OtrAssetMeta
x__ Vector UserEntry
y__ -> OtrAssetMeta
x__ {_OtrAssetMeta'recipients = y__}))
        ((Vector UserEntry -> [UserEntry])
-> (Vector UserEntry -> [UserEntry] -> Vector UserEntry)
-> Lens
     (Vector UserEntry) (Vector UserEntry) [UserEntry] [UserEntry]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector UserEntry -> [UserEntry]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector UserEntry
_ [UserEntry]
y__ -> [UserEntry] -> Vector UserEntry
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [UserEntry]
y__))
instance Data.ProtoLens.Field.HasField OtrAssetMeta "vec'recipients" (Data.Vector.Vector UserEntry) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'recipients"
-> (Vector UserEntry -> f (Vector UserEntry))
-> OtrAssetMeta
-> f OtrAssetMeta
fieldOf Proxy# "vec'recipients"
_
    = ((Vector UserEntry -> f (Vector UserEntry))
 -> OtrAssetMeta -> f OtrAssetMeta)
-> ((Vector UserEntry -> f (Vector UserEntry))
    -> Vector UserEntry -> f (Vector UserEntry))
-> (Vector UserEntry -> f (Vector UserEntry))
-> OtrAssetMeta
-> f OtrAssetMeta
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OtrAssetMeta -> Vector UserEntry)
-> (OtrAssetMeta -> Vector UserEntry -> OtrAssetMeta)
-> Lens
     OtrAssetMeta OtrAssetMeta (Vector UserEntry) (Vector UserEntry)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OtrAssetMeta -> Vector UserEntry
_OtrAssetMeta'recipients
           (\ OtrAssetMeta
x__ Vector UserEntry
y__ -> OtrAssetMeta
x__ {_OtrAssetMeta'recipients = y__}))
        (Vector UserEntry -> f (Vector UserEntry))
-> Vector UserEntry -> f (Vector UserEntry)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OtrAssetMeta "isInline" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "isInline"
-> (Bool -> f Bool) -> OtrAssetMeta -> f OtrAssetMeta
fieldOf Proxy# "isInline"
_
    = ((Maybe Bool -> f (Maybe Bool)) -> OtrAssetMeta -> f OtrAssetMeta)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> OtrAssetMeta
-> f OtrAssetMeta
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OtrAssetMeta -> Maybe Bool)
-> (OtrAssetMeta -> Maybe Bool -> OtrAssetMeta)
-> Lens OtrAssetMeta OtrAssetMeta (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OtrAssetMeta -> Maybe Bool
_OtrAssetMeta'isInline
           (\ OtrAssetMeta
x__ Maybe Bool
y__ -> OtrAssetMeta
x__ {_OtrAssetMeta'isInline = y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField OtrAssetMeta "maybe'isInline" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'isInline"
-> (Maybe Bool -> f (Maybe Bool)) -> OtrAssetMeta -> f OtrAssetMeta
fieldOf Proxy# "maybe'isInline"
_
    = ((Maybe Bool -> f (Maybe Bool)) -> OtrAssetMeta -> f OtrAssetMeta)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> OtrAssetMeta
-> f OtrAssetMeta
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OtrAssetMeta -> Maybe Bool)
-> (OtrAssetMeta -> Maybe Bool -> OtrAssetMeta)
-> Lens OtrAssetMeta OtrAssetMeta (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OtrAssetMeta -> Maybe Bool
_OtrAssetMeta'isInline
           (\ OtrAssetMeta
x__ Maybe Bool
y__ -> OtrAssetMeta
x__ {_OtrAssetMeta'isInline = y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OtrAssetMeta "nativePush" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nativePush"
-> (Bool -> f Bool) -> OtrAssetMeta -> f OtrAssetMeta
fieldOf Proxy# "nativePush"
_
    = ((Maybe Bool -> f (Maybe Bool)) -> OtrAssetMeta -> f OtrAssetMeta)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> OtrAssetMeta
-> f OtrAssetMeta
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OtrAssetMeta -> Maybe Bool)
-> (OtrAssetMeta -> Maybe Bool -> OtrAssetMeta)
-> Lens OtrAssetMeta OtrAssetMeta (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OtrAssetMeta -> Maybe Bool
_OtrAssetMeta'nativePush
           (\ OtrAssetMeta
x__ Maybe Bool
y__ -> OtrAssetMeta
x__ {_OtrAssetMeta'nativePush = y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.True)
instance Data.ProtoLens.Field.HasField OtrAssetMeta "maybe'nativePush" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'nativePush"
-> (Maybe Bool -> f (Maybe Bool)) -> OtrAssetMeta -> f OtrAssetMeta
fieldOf Proxy# "maybe'nativePush"
_
    = ((Maybe Bool -> f (Maybe Bool)) -> OtrAssetMeta -> f OtrAssetMeta)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> OtrAssetMeta
-> f OtrAssetMeta
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OtrAssetMeta -> Maybe Bool)
-> (OtrAssetMeta -> Maybe Bool -> OtrAssetMeta)
-> Lens OtrAssetMeta OtrAssetMeta (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OtrAssetMeta -> Maybe Bool
_OtrAssetMeta'nativePush
           (\ OtrAssetMeta
x__ Maybe Bool
y__ -> OtrAssetMeta
x__ {_OtrAssetMeta'nativePush = y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message OtrAssetMeta where
  messageName :: Proxy OtrAssetMeta -> Text
messageName Proxy OtrAssetMeta
_ = String -> Text
Data.Text.pack String
"proteus.OtrAssetMeta"
  packedMessageDescriptor :: Proxy OtrAssetMeta -> ByteString
packedMessageDescriptor Proxy OtrAssetMeta
_
    = ByteString
"\n\
      \\fOtrAssetMeta\DC2)\n\
      \\ACKsender\CAN\SOH \STX(\v2\DC1.proteus.ClientIdR\ACKsender\DC22\n\
      \\n\
      \recipients\CAN\STX \ETX(\v2\DC2.proteus.UserEntryR\n\
      \recipients\DC2!\n\
      \\bisInline\CAN\ETX \SOH(\b:\ENQfalseR\bisInline\DC2%\n\
      \\vnative_push\CAN\EOT \SOH(\b:\EOTtrueR\n\
      \nativePush"
  packedFileDescriptor :: Proxy OtrAssetMeta -> ByteString
packedFileDescriptor Proxy OtrAssetMeta
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor OtrAssetMeta)
fieldsByTag
    = let
        sender__field_descriptor :: FieldDescriptor OtrAssetMeta
sender__field_descriptor
          = String
-> FieldTypeDescriptor ClientId
-> FieldAccessor OtrAssetMeta ClientId
-> FieldDescriptor OtrAssetMeta
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"sender"
              (MessageOrGroup -> FieldTypeDescriptor ClientId
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ClientId)
              (WireDefault ClientId
-> Lens OtrAssetMeta OtrAssetMeta ClientId ClientId
-> FieldAccessor OtrAssetMeta ClientId
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ClientId
forall value. WireDefault value
Data.ProtoLens.Required (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sender")) ::
              Data.ProtoLens.FieldDescriptor OtrAssetMeta
        recipients__field_descriptor :: FieldDescriptor OtrAssetMeta
recipients__field_descriptor
          = String
-> FieldTypeDescriptor UserEntry
-> FieldAccessor OtrAssetMeta UserEntry
-> FieldDescriptor OtrAssetMeta
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"recipients"
              (MessageOrGroup -> FieldTypeDescriptor UserEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UserEntry)
              (Packing
-> Lens' OtrAssetMeta [UserEntry]
-> FieldAccessor OtrAssetMeta UserEntry
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"recipients")) ::
              Data.ProtoLens.FieldDescriptor OtrAssetMeta
        isInline__field_descriptor :: FieldDescriptor OtrAssetMeta
isInline__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor OtrAssetMeta Bool
-> FieldDescriptor OtrAssetMeta
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"isInline"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens OtrAssetMeta OtrAssetMeta (Maybe Bool) (Maybe Bool)
-> FieldAccessor OtrAssetMeta Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'isInline")) ::
              Data.ProtoLens.FieldDescriptor OtrAssetMeta
        nativePush__field_descriptor :: FieldDescriptor OtrAssetMeta
nativePush__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor OtrAssetMeta Bool
-> FieldDescriptor OtrAssetMeta
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"native_push"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens OtrAssetMeta OtrAssetMeta (Maybe Bool) (Maybe Bool)
-> FieldAccessor OtrAssetMeta Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'nativePush")) ::
              Data.ProtoLens.FieldDescriptor OtrAssetMeta
      in
        [(Tag, FieldDescriptor OtrAssetMeta)]
-> Map Tag (FieldDescriptor OtrAssetMeta)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor OtrAssetMeta
sender__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor OtrAssetMeta
recipients__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor OtrAssetMeta
isInline__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor OtrAssetMeta
nativePush__field_descriptor)]
  unknownFields :: Lens' OtrAssetMeta FieldSet
unknownFields
    = (OtrAssetMeta -> FieldSet)
-> (OtrAssetMeta -> FieldSet -> OtrAssetMeta)
-> Lens' OtrAssetMeta FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        OtrAssetMeta -> FieldSet
_OtrAssetMeta'_unknownFields
        (\ OtrAssetMeta
x__ FieldSet
y__ -> OtrAssetMeta
x__ {_OtrAssetMeta'_unknownFields = y__})
  defMessage :: OtrAssetMeta
defMessage
    = OtrAssetMeta'_constructor
        {$sel:_OtrAssetMeta'sender:OtrAssetMeta'_constructor :: ClientId
_OtrAssetMeta'sender = ClientId
forall msg. Message msg => msg
Data.ProtoLens.defMessage,
         $sel:_OtrAssetMeta'recipients:OtrAssetMeta'_constructor :: Vector UserEntry
_OtrAssetMeta'recipients = Vector UserEntry
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         $sel:_OtrAssetMeta'isInline:OtrAssetMeta'_constructor :: Maybe Bool
_OtrAssetMeta'isInline = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         $sel:_OtrAssetMeta'nativePush:OtrAssetMeta'_constructor :: Maybe Bool
_OtrAssetMeta'nativePush = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         $sel:_OtrAssetMeta'_unknownFields:OtrAssetMeta'_constructor :: FieldSet
_OtrAssetMeta'_unknownFields = []}
  parseMessage :: Parser OtrAssetMeta
parseMessage
    = let
        loop ::
          OtrAssetMeta
          -> Prelude.Bool
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UserEntry
                -> Data.ProtoLens.Encoding.Bytes.Parser OtrAssetMeta
        loop :: OtrAssetMeta
-> Bool
-> Growing Vector RealWorld UserEntry
-> Parser OtrAssetMeta
loop OtrAssetMeta
x Bool
required'sender Growing Vector RealWorld UserEntry
mutable'recipients
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector UserEntry
frozen'recipients <- IO (Vector UserEntry) -> Parser (Vector UserEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                             (Growing Vector (PrimState IO) UserEntry -> IO (Vector UserEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                Growing Vector RealWorld UserEntry
Growing Vector (PrimState IO) UserEntry
mutable'recipients)
                      (let
                         missing :: [String]
missing = (if Bool
required'sender then (:) String
"sender" else [String] -> [String]
forall a. a -> a
Prelude.id) []
                       in
                         if [String] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [String]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
missing :: [Prelude.String]))))
                      OtrAssetMeta -> Parser OtrAssetMeta
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter OtrAssetMeta OtrAssetMeta FieldSet FieldSet
-> (FieldSet -> FieldSet) -> OtrAssetMeta -> OtrAssetMeta
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f OtrAssetMeta FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' OtrAssetMeta FieldSet
Setter OtrAssetMeta OtrAssetMeta FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  OtrAssetMeta OtrAssetMeta (Vector UserEntry) (Vector UserEntry)
-> Vector UserEntry -> OtrAssetMeta -> OtrAssetMeta
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'recipients") Vector UserEntry
frozen'recipients
                              OtrAssetMeta
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ClientId
y <- Parser ClientId -> String -> Parser ClientId
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ClientId -> Parser ClientId
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ClientId
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"sender"
                                OtrAssetMeta
-> Bool
-> Growing Vector RealWorld UserEntry
-> Parser OtrAssetMeta
loop
                                  (Setter OtrAssetMeta OtrAssetMeta ClientId ClientId
-> ClientId -> OtrAssetMeta -> OtrAssetMeta
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sender") ClientId
y OtrAssetMeta
x)
                                  Bool
Prelude.False Growing Vector RealWorld UserEntry
mutable'recipients
                        Word64
18
                          -> do !UserEntry
y <- Parser UserEntry -> String -> Parser UserEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser UserEntry -> Parser UserEntry
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser UserEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"recipients"
                                Growing Vector RealWorld UserEntry
v <- IO (Growing Vector RealWorld UserEntry)
-> Parser (Growing Vector RealWorld UserEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) UserEntry
-> UserEntry -> IO (Growing Vector (PrimState IO) UserEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld UserEntry
Growing Vector (PrimState IO) UserEntry
mutable'recipients UserEntry
y)
                                OtrAssetMeta
-> Bool
-> Growing Vector RealWorld UserEntry
-> Parser OtrAssetMeta
loop OtrAssetMeta
x Bool
required'sender Growing Vector RealWorld UserEntry
v
                        Word64
24
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"isInline"
                                OtrAssetMeta
-> Bool
-> Growing Vector RealWorld UserEntry
-> Parser OtrAssetMeta
loop
                                  (Setter OtrAssetMeta OtrAssetMeta Bool Bool
-> Bool -> OtrAssetMeta -> OtrAssetMeta
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isInline") Bool
y OtrAssetMeta
x)
                                  Bool
required'sender Growing Vector RealWorld UserEntry
mutable'recipients
                        Word64
32
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"native_push"
                                OtrAssetMeta
-> Bool
-> Growing Vector RealWorld UserEntry
-> Parser OtrAssetMeta
loop
                                  (Setter OtrAssetMeta OtrAssetMeta Bool Bool
-> Bool -> OtrAssetMeta -> OtrAssetMeta
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nativePush") Bool
y OtrAssetMeta
x)
                                  Bool
required'sender Growing Vector RealWorld UserEntry
mutable'recipients
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                OtrAssetMeta
-> Bool
-> Growing Vector RealWorld UserEntry
-> Parser OtrAssetMeta
loop
                                  (Setter OtrAssetMeta OtrAssetMeta FieldSet FieldSet
-> (FieldSet -> FieldSet) -> OtrAssetMeta -> OtrAssetMeta
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f OtrAssetMeta FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' OtrAssetMeta FieldSet
Setter OtrAssetMeta OtrAssetMeta FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) OtrAssetMeta
x)
                                  Bool
required'sender Growing Vector RealWorld UserEntry
mutable'recipients
      in
        Parser OtrAssetMeta -> String -> Parser OtrAssetMeta
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld UserEntry
mutable'recipients <- IO (Growing Vector RealWorld UserEntry)
-> Parser (Growing Vector RealWorld UserEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                      IO (Growing Vector RealWorld UserEntry)
IO (Growing Vector (PrimState IO) UserEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              OtrAssetMeta
-> Bool
-> Growing Vector RealWorld UserEntry
-> Parser OtrAssetMeta
loop OtrAssetMeta
forall msg. Message msg => msg
Data.ProtoLens.defMessage Bool
Prelude.True Growing Vector RealWorld UserEntry
mutable'recipients)
          String
"OtrAssetMeta"
  buildMessage :: OtrAssetMeta -> Builder
buildMessage
    = \ OtrAssetMeta
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                ((ByteString -> Builder)
-> (ClientId -> ByteString) -> ClientId -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                   (\ ByteString
bs
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                   ClientId -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                   (FoldLike ClientId OtrAssetMeta OtrAssetMeta ClientId ClientId
-> OtrAssetMeta -> ClientId
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sender") OtrAssetMeta
_x)))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((UserEntry -> Builder) -> Vector UserEntry -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ UserEntry
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (UserEntry -> ByteString) -> UserEntry -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                              (\ ByteString
bs
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                      (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                              UserEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage UserEntry
_v))
                   (FoldLike
  (Vector UserEntry)
  OtrAssetMeta
  OtrAssetMeta
  (Vector UserEntry)
  (Vector UserEntry)
-> OtrAssetMeta -> Vector UserEntry
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                      (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'recipients") OtrAssetMeta
_x))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe Bool) OtrAssetMeta OtrAssetMeta (Maybe Bool) (Maybe Bool)
-> OtrAssetMeta -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'isInline") OtrAssetMeta
_x
                    of
                      Maybe Bool
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just Bool
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
24)
                             ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
                                Bool
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe Bool) OtrAssetMeta OtrAssetMeta (Maybe Bool) (Maybe Bool)
-> OtrAssetMeta -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                             (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'nativePush") OtrAssetMeta
_x
                       of
                         Maybe Bool
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just Bool
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
32)
                                ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                   (\ Bool
b -> if Bool
b then Word64
1 else Word64
0) Bool
_v))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike FieldSet OtrAssetMeta OtrAssetMeta FieldSet FieldSet
-> OtrAssetMeta -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet OtrAssetMeta OtrAssetMeta FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' OtrAssetMeta FieldSet
Data.ProtoLens.unknownFields OtrAssetMeta
_x)))))
instance Control.DeepSeq.NFData OtrAssetMeta where
  rnf :: OtrAssetMeta -> ()
rnf
    = \ OtrAssetMeta
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (OtrAssetMeta -> FieldSet
_OtrAssetMeta'_unknownFields OtrAssetMeta
x__)
             (ClientId -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (OtrAssetMeta -> ClientId
_OtrAssetMeta'sender OtrAssetMeta
x__)
                (Vector UserEntry -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (OtrAssetMeta -> Vector UserEntry
_OtrAssetMeta'recipients OtrAssetMeta
x__)
                   (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (OtrAssetMeta -> Maybe Bool
_OtrAssetMeta'isInline OtrAssetMeta
x__)
                      (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (OtrAssetMeta -> Maybe Bool
_OtrAssetMeta'nativePush OtrAssetMeta
x__) ()))))
data Priority
  = LOW_PRIORITY | HIGH_PRIORITY
  deriving stock (Int -> Priority -> ShowS
[Priority] -> ShowS
Priority -> String
(Int -> Priority -> ShowS)
-> (Priority -> String) -> ([Priority] -> ShowS) -> Show Priority
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Priority -> ShowS
showsPrec :: Int -> Priority -> ShowS
$cshow :: Priority -> String
show :: Priority -> String
$cshowList :: [Priority] -> ShowS
showList :: [Priority] -> ShowS
Prelude.Show, Priority -> Priority -> Bool
(Priority -> Priority -> Bool)
-> (Priority -> Priority -> Bool) -> Eq Priority
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Priority -> Priority -> Bool
== :: Priority -> Priority -> Bool
$c/= :: Priority -> Priority -> Bool
/= :: Priority -> Priority -> Bool
Prelude.Eq, Eq Priority
Eq Priority =>
(Priority -> Priority -> Ordering)
-> (Priority -> Priority -> Bool)
-> (Priority -> Priority -> Bool)
-> (Priority -> Priority -> Bool)
-> (Priority -> Priority -> Bool)
-> (Priority -> Priority -> Priority)
-> (Priority -> Priority -> Priority)
-> Ord Priority
Priority -> Priority -> Bool
Priority -> Priority -> Ordering
Priority -> Priority -> Priority
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Priority -> Priority -> Ordering
compare :: Priority -> Priority -> Ordering
$c< :: Priority -> Priority -> Bool
< :: Priority -> Priority -> Bool
$c<= :: Priority -> Priority -> Bool
<= :: Priority -> Priority -> Bool
$c> :: Priority -> Priority -> Bool
> :: Priority -> Priority -> Bool
$c>= :: Priority -> Priority -> Bool
>= :: Priority -> Priority -> Bool
$cmax :: Priority -> Priority -> Priority
max :: Priority -> Priority -> Priority
$cmin :: Priority -> Priority -> Priority
min :: Priority -> Priority -> Priority
Prelude.Ord)
instance Data.ProtoLens.MessageEnum Priority where
  maybeToEnum :: Int -> Maybe Priority
maybeToEnum Int
1 = Priority -> Maybe Priority
forall a. a -> Maybe a
Prelude.Just Priority
LOW_PRIORITY
  maybeToEnum Int
2 = Priority -> Maybe Priority
forall a. a -> Maybe a
Prelude.Just Priority
HIGH_PRIORITY
  maybeToEnum Int
_ = Maybe Priority
forall a. Maybe a
Prelude.Nothing
  showEnum :: Priority -> String
showEnum Priority
LOW_PRIORITY = String
"LOW_PRIORITY"
  showEnum Priority
HIGH_PRIORITY = String
"HIGH_PRIORITY"
  readEnum :: String -> Maybe Priority
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"LOW_PRIORITY" = Priority -> Maybe Priority
forall a. a -> Maybe a
Prelude.Just Priority
LOW_PRIORITY
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"HIGH_PRIORITY" = Priority -> Maybe Priority
forall a. a -> Maybe a
Prelude.Just Priority
HIGH_PRIORITY
    | Bool
Prelude.otherwise
    = Maybe Int -> (Int -> Maybe Priority) -> Maybe Priority
forall a b. Maybe a -> (a -> Maybe b) -> Maybe b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe Priority
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded Priority where
  minBound :: Priority
minBound = Priority
LOW_PRIORITY
  maxBound :: Priority
maxBound = Priority
HIGH_PRIORITY
instance Prelude.Enum Priority where
  toEnum :: Int -> Priority
toEnum Int
k__
    = Priority -> (Priority -> Priority) -> Maybe Priority -> Priority
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> Priority
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum Priority: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        Priority -> Priority
forall a. a -> a
Prelude.id (Int -> Maybe Priority
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: Priority -> Int
fromEnum Priority
LOW_PRIORITY = Int
1
  fromEnum Priority
HIGH_PRIORITY = Int
2
  succ :: Priority -> Priority
succ Priority
HIGH_PRIORITY
    = String -> Priority
forall a. HasCallStack => String -> a
Prelude.error
        String
"Priority.succ: bad argument HIGH_PRIORITY. This value would be out of bounds."
  succ Priority
LOW_PRIORITY = Priority
HIGH_PRIORITY
  pred :: Priority -> Priority
pred Priority
LOW_PRIORITY
    = String -> Priority
forall a. HasCallStack => String -> a
Prelude.error
        String
"Priority.pred: bad argument LOW_PRIORITY. This value would be out of bounds."
  pred Priority
HIGH_PRIORITY = Priority
LOW_PRIORITY
  enumFrom :: Priority -> [Priority]
enumFrom = Priority -> [Priority]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: Priority -> Priority -> [Priority]
enumFromTo = Priority -> Priority -> [Priority]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: Priority -> Priority -> [Priority]
enumFromThen = Priority -> Priority -> [Priority]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: Priority -> Priority -> Priority -> [Priority]
enumFromThenTo = Priority -> Priority -> Priority -> [Priority]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault Priority where
  fieldDefault :: Priority
fieldDefault = Priority
LOW_PRIORITY
instance Control.DeepSeq.NFData Priority where
  rnf :: Priority -> ()
rnf Priority
x__ = Priority -> () -> ()
forall a b. a -> b -> b
Prelude.seq Priority
x__ ()
{- | Fields :
     
         * 'Proto.Otr_Fields.sender' @:: Lens' QualifiedNewOtrMessage ClientId@
         * 'Proto.Otr_Fields.recipients' @:: Lens' QualifiedNewOtrMessage [QualifiedUserEntry]@
         * 'Proto.Otr_Fields.vec'recipients' @:: Lens' QualifiedNewOtrMessage (Data.Vector.Vector QualifiedUserEntry)@
         * 'Proto.Otr_Fields.nativePush' @:: Lens' QualifiedNewOtrMessage Prelude.Bool@
         * 'Proto.Otr_Fields.maybe'nativePush' @:: Lens' QualifiedNewOtrMessage (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Otr_Fields.blob' @:: Lens' QualifiedNewOtrMessage Data.ByteString.ByteString@
         * 'Proto.Otr_Fields.maybe'blob' @:: Lens' QualifiedNewOtrMessage (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Otr_Fields.nativePriority' @:: Lens' QualifiedNewOtrMessage Priority@
         * 'Proto.Otr_Fields.maybe'nativePriority' @:: Lens' QualifiedNewOtrMessage (Prelude.Maybe Priority)@
         * 'Proto.Otr_Fields.transient' @:: Lens' QualifiedNewOtrMessage Prelude.Bool@
         * 'Proto.Otr_Fields.maybe'transient' @:: Lens' QualifiedNewOtrMessage (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Otr_Fields.maybe'clientMismatchStrategy' @:: Lens' QualifiedNewOtrMessage (Prelude.Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)@
         * 'Proto.Otr_Fields.maybe'reportAll' @:: Lens' QualifiedNewOtrMessage (Prelude.Maybe ClientMismatchStrategy'ReportAll)@
         * 'Proto.Otr_Fields.reportAll' @:: Lens' QualifiedNewOtrMessage ClientMismatchStrategy'ReportAll@
         * 'Proto.Otr_Fields.maybe'ignoreAll' @:: Lens' QualifiedNewOtrMessage (Prelude.Maybe ClientMismatchStrategy'IgnoreAll)@
         * 'Proto.Otr_Fields.ignoreAll' @:: Lens' QualifiedNewOtrMessage ClientMismatchStrategy'IgnoreAll@
         * 'Proto.Otr_Fields.maybe'reportOnly' @:: Lens' QualifiedNewOtrMessage (Prelude.Maybe ClientMismatchStrategy'ReportOnly)@
         * 'Proto.Otr_Fields.reportOnly' @:: Lens' QualifiedNewOtrMessage ClientMismatchStrategy'ReportOnly@
         * 'Proto.Otr_Fields.maybe'ignoreOnly' @:: Lens' QualifiedNewOtrMessage (Prelude.Maybe ClientMismatchStrategy'IgnoreOnly)@
         * 'Proto.Otr_Fields.ignoreOnly' @:: Lens' QualifiedNewOtrMessage ClientMismatchStrategy'IgnoreOnly@ -}
data QualifiedNewOtrMessage
  = QualifiedNewOtrMessage'_constructor {QualifiedNewOtrMessage -> ClientId
_QualifiedNewOtrMessage'sender :: !ClientId,
                                         QualifiedNewOtrMessage -> Vector QualifiedUserEntry
_QualifiedNewOtrMessage'recipients :: !(Data.Vector.Vector QualifiedUserEntry),
                                         QualifiedNewOtrMessage -> Maybe Bool
_QualifiedNewOtrMessage'nativePush :: !(Prelude.Maybe Prelude.Bool),
                                         QualifiedNewOtrMessage -> Maybe ByteString
_QualifiedNewOtrMessage'blob :: !(Prelude.Maybe Data.ByteString.ByteString),
                                         QualifiedNewOtrMessage -> Maybe Priority
_QualifiedNewOtrMessage'nativePriority :: !(Prelude.Maybe Priority),
                                         QualifiedNewOtrMessage -> Maybe Bool
_QualifiedNewOtrMessage'transient :: !(Prelude.Maybe Prelude.Bool),
                                         QualifiedNewOtrMessage
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_QualifiedNewOtrMessage'clientMismatchStrategy :: !(Prelude.Maybe QualifiedNewOtrMessage'ClientMismatchStrategy),
                                         QualifiedNewOtrMessage -> FieldSet
_QualifiedNewOtrMessage'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool
(QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool)
-> (QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool)
-> Eq QualifiedNewOtrMessage
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool
== :: QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool
$c/= :: QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool
/= :: QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool
Prelude.Eq, Eq QualifiedNewOtrMessage
Eq QualifiedNewOtrMessage =>
(QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Ordering)
-> (QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool)
-> (QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool)
-> (QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool)
-> (QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool)
-> (QualifiedNewOtrMessage
    -> QualifiedNewOtrMessage -> QualifiedNewOtrMessage)
-> (QualifiedNewOtrMessage
    -> QualifiedNewOtrMessage -> QualifiedNewOtrMessage)
-> Ord QualifiedNewOtrMessage
QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool
QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Ordering
QualifiedNewOtrMessage
-> QualifiedNewOtrMessage -> QualifiedNewOtrMessage
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Ordering
compare :: QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Ordering
$c< :: QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool
< :: QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool
$c<= :: QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool
<= :: QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool
$c> :: QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool
> :: QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool
$c>= :: QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool
>= :: QualifiedNewOtrMessage -> QualifiedNewOtrMessage -> Bool
$cmax :: QualifiedNewOtrMessage
-> QualifiedNewOtrMessage -> QualifiedNewOtrMessage
max :: QualifiedNewOtrMessage
-> QualifiedNewOtrMessage -> QualifiedNewOtrMessage
$cmin :: QualifiedNewOtrMessage
-> QualifiedNewOtrMessage -> QualifiedNewOtrMessage
min :: QualifiedNewOtrMessage
-> QualifiedNewOtrMessage -> QualifiedNewOtrMessage
Prelude.Ord)
instance Prelude.Show QualifiedNewOtrMessage where
  showsPrec :: Int -> QualifiedNewOtrMessage -> ShowS
showsPrec Int
_ QualifiedNewOtrMessage
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (QualifiedNewOtrMessage -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort QualifiedNewOtrMessage
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data QualifiedNewOtrMessage'ClientMismatchStrategy
  = QualifiedNewOtrMessage'ReportAll !ClientMismatchStrategy'ReportAll |
    QualifiedNewOtrMessage'IgnoreAll !ClientMismatchStrategy'IgnoreAll |
    QualifiedNewOtrMessage'ReportOnly !ClientMismatchStrategy'ReportOnly |
    QualifiedNewOtrMessage'IgnoreOnly !ClientMismatchStrategy'IgnoreOnly
  deriving stock (Int -> QualifiedNewOtrMessage'ClientMismatchStrategy -> ShowS
[QualifiedNewOtrMessage'ClientMismatchStrategy] -> ShowS
QualifiedNewOtrMessage'ClientMismatchStrategy -> String
(Int -> QualifiedNewOtrMessage'ClientMismatchStrategy -> ShowS)
-> (QualifiedNewOtrMessage'ClientMismatchStrategy -> String)
-> ([QualifiedNewOtrMessage'ClientMismatchStrategy] -> ShowS)
-> Show QualifiedNewOtrMessage'ClientMismatchStrategy
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> QualifiedNewOtrMessage'ClientMismatchStrategy -> ShowS
showsPrec :: Int -> QualifiedNewOtrMessage'ClientMismatchStrategy -> ShowS
$cshow :: QualifiedNewOtrMessage'ClientMismatchStrategy -> String
show :: QualifiedNewOtrMessage'ClientMismatchStrategy -> String
$cshowList :: [QualifiedNewOtrMessage'ClientMismatchStrategy] -> ShowS
showList :: [QualifiedNewOtrMessage'ClientMismatchStrategy] -> ShowS
Prelude.Show, QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool
(QualifiedNewOtrMessage'ClientMismatchStrategy
 -> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool)
-> (QualifiedNewOtrMessage'ClientMismatchStrategy
    -> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool)
-> Eq QualifiedNewOtrMessage'ClientMismatchStrategy
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool
== :: QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool
$c/= :: QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool
/= :: QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool
Prelude.Eq, Eq QualifiedNewOtrMessage'ClientMismatchStrategy
Eq QualifiedNewOtrMessage'ClientMismatchStrategy =>
(QualifiedNewOtrMessage'ClientMismatchStrategy
 -> QualifiedNewOtrMessage'ClientMismatchStrategy -> Ordering)
-> (QualifiedNewOtrMessage'ClientMismatchStrategy
    -> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool)
-> (QualifiedNewOtrMessage'ClientMismatchStrategy
    -> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool)
-> (QualifiedNewOtrMessage'ClientMismatchStrategy
    -> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool)
-> (QualifiedNewOtrMessage'ClientMismatchStrategy
    -> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool)
-> (QualifiedNewOtrMessage'ClientMismatchStrategy
    -> QualifiedNewOtrMessage'ClientMismatchStrategy
    -> QualifiedNewOtrMessage'ClientMismatchStrategy)
-> (QualifiedNewOtrMessage'ClientMismatchStrategy
    -> QualifiedNewOtrMessage'ClientMismatchStrategy
    -> QualifiedNewOtrMessage'ClientMismatchStrategy)
-> Ord QualifiedNewOtrMessage'ClientMismatchStrategy
QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool
QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy -> Ordering
QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy -> Ordering
compare :: QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy -> Ordering
$c< :: QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool
< :: QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool
$c<= :: QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool
<= :: QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool
$c> :: QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool
> :: QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool
$c>= :: QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool
>= :: QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy -> Bool
$cmax :: QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy
max :: QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy
$cmin :: QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy
min :: QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy
-> QualifiedNewOtrMessage'ClientMismatchStrategy
Prelude.Ord)
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "sender" ClientId where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "sender"
-> (ClientId -> f ClientId)
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "sender"
_
    = ((ClientId -> f ClientId)
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((ClientId -> f ClientId) -> ClientId -> f ClientId)
-> (ClientId -> f ClientId)
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage -> ClientId)
-> (QualifiedNewOtrMessage -> ClientId -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage QualifiedNewOtrMessage ClientId ClientId
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage -> ClientId
_QualifiedNewOtrMessage'sender
           (\ QualifiedNewOtrMessage
x__ ClientId
y__ -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'sender = y__}))
        (ClientId -> f ClientId) -> ClientId -> f ClientId
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "recipients" [QualifiedUserEntry] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "recipients"
-> ([QualifiedUserEntry] -> f [QualifiedUserEntry])
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "recipients"
_
    = ((Vector QualifiedUserEntry -> f (Vector QualifiedUserEntry))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> (([QualifiedUserEntry] -> f [QualifiedUserEntry])
    -> Vector QualifiedUserEntry -> f (Vector QualifiedUserEntry))
-> ([QualifiedUserEntry] -> f [QualifiedUserEntry])
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage -> Vector QualifiedUserEntry)
-> (QualifiedNewOtrMessage
    -> Vector QualifiedUserEntry -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Vector QualifiedUserEntry)
     (Vector QualifiedUserEntry)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage -> Vector QualifiedUserEntry
_QualifiedNewOtrMessage'recipients
           (\ QualifiedNewOtrMessage
x__ Vector QualifiedUserEntry
y__ -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'recipients = y__}))
        ((Vector QualifiedUserEntry -> [QualifiedUserEntry])
-> (Vector QualifiedUserEntry
    -> [QualifiedUserEntry] -> Vector QualifiedUserEntry)
-> Lens
     (Vector QualifiedUserEntry)
     (Vector QualifiedUserEntry)
     [QualifiedUserEntry]
     [QualifiedUserEntry]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector QualifiedUserEntry -> [QualifiedUserEntry]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector QualifiedUserEntry
_ [QualifiedUserEntry]
y__ -> [QualifiedUserEntry] -> Vector QualifiedUserEntry
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [QualifiedUserEntry]
y__))
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "vec'recipients" (Data.Vector.Vector QualifiedUserEntry) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'recipients"
-> (Vector QualifiedUserEntry -> f (Vector QualifiedUserEntry))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "vec'recipients"
_
    = ((Vector QualifiedUserEntry -> f (Vector QualifiedUserEntry))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((Vector QualifiedUserEntry -> f (Vector QualifiedUserEntry))
    -> Vector QualifiedUserEntry -> f (Vector QualifiedUserEntry))
-> (Vector QualifiedUserEntry -> f (Vector QualifiedUserEntry))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage -> Vector QualifiedUserEntry)
-> (QualifiedNewOtrMessage
    -> Vector QualifiedUserEntry -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Vector QualifiedUserEntry)
     (Vector QualifiedUserEntry)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage -> Vector QualifiedUserEntry
_QualifiedNewOtrMessage'recipients
           (\ QualifiedNewOtrMessage
x__ Vector QualifiedUserEntry
y__ -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'recipients = y__}))
        (Vector QualifiedUserEntry -> f (Vector QualifiedUserEntry))
-> Vector QualifiedUserEntry -> f (Vector QualifiedUserEntry)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "nativePush" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nativePush"
-> (Bool -> f Bool)
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "nativePush"
_
    = ((Maybe Bool -> f (Maybe Bool))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage -> Maybe Bool)
-> (QualifiedNewOtrMessage -> Maybe Bool -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Maybe Bool)
     (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage -> Maybe Bool
_QualifiedNewOtrMessage'nativePush
           (\ QualifiedNewOtrMessage
x__ Maybe Bool
y__ -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'nativePush = y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.True)
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "maybe'nativePush" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'nativePush"
-> (Maybe Bool -> f (Maybe Bool))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "maybe'nativePush"
_
    = ((Maybe Bool -> f (Maybe Bool))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage -> Maybe Bool)
-> (QualifiedNewOtrMessage -> Maybe Bool -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Maybe Bool)
     (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage -> Maybe Bool
_QualifiedNewOtrMessage'nativePush
           (\ QualifiedNewOtrMessage
x__ Maybe Bool
y__ -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'nativePush = y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "blob" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "blob"
-> (ByteString -> f ByteString)
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "blob"
_
    = ((Maybe ByteString -> f (Maybe ByteString))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage -> Maybe ByteString)
-> (QualifiedNewOtrMessage
    -> Maybe ByteString -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage -> Maybe ByteString
_QualifiedNewOtrMessage'blob
           (\ QualifiedNewOtrMessage
x__ Maybe ByteString
y__ -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'blob = y__}))
        (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "maybe'blob" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'blob"
-> (Maybe ByteString -> f (Maybe ByteString))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "maybe'blob"
_
    = ((Maybe ByteString -> f (Maybe ByteString))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe ByteString -> f (Maybe ByteString))
-> (Maybe ByteString -> f (Maybe ByteString))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage -> Maybe ByteString)
-> (QualifiedNewOtrMessage
    -> Maybe ByteString -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage -> Maybe ByteString
_QualifiedNewOtrMessage'blob
           (\ QualifiedNewOtrMessage
x__ Maybe ByteString
y__ -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'blob = y__}))
        (Maybe ByteString -> f (Maybe ByteString))
-> Maybe ByteString -> f (Maybe ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "nativePriority" Priority where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nativePriority"
-> (Priority -> f Priority)
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "nativePriority"
_
    = ((Maybe Priority -> f (Maybe Priority))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((Priority -> f Priority)
    -> Maybe Priority -> f (Maybe Priority))
-> (Priority -> f Priority)
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage -> Maybe Priority)
-> (QualifiedNewOtrMessage
    -> Maybe Priority -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Maybe Priority)
     (Maybe Priority)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage -> Maybe Priority
_QualifiedNewOtrMessage'nativePriority
           (\ QualifiedNewOtrMessage
x__ Maybe Priority
y__ -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'nativePriority = y__}))
        (Priority -> Lens' (Maybe Priority) Priority
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Priority
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "maybe'nativePriority" (Prelude.Maybe Priority) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'nativePriority"
-> (Maybe Priority -> f (Maybe Priority))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "maybe'nativePriority"
_
    = ((Maybe Priority -> f (Maybe Priority))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((Maybe Priority -> f (Maybe Priority))
    -> Maybe Priority -> f (Maybe Priority))
-> (Maybe Priority -> f (Maybe Priority))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage -> Maybe Priority)
-> (QualifiedNewOtrMessage
    -> Maybe Priority -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Maybe Priority)
     (Maybe Priority)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage -> Maybe Priority
_QualifiedNewOtrMessage'nativePriority
           (\ QualifiedNewOtrMessage
x__ Maybe Priority
y__ -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'nativePriority = y__}))
        (Maybe Priority -> f (Maybe Priority))
-> Maybe Priority -> f (Maybe Priority)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "transient" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "transient"
-> (Bool -> f Bool)
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "transient"
_
    = ((Maybe Bool -> f (Maybe Bool))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage -> Maybe Bool)
-> (QualifiedNewOtrMessage -> Maybe Bool -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Maybe Bool)
     (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage -> Maybe Bool
_QualifiedNewOtrMessage'transient
           (\ QualifiedNewOtrMessage
x__ Maybe Bool
y__ -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'transient = y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "maybe'transient" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'transient"
-> (Maybe Bool -> f (Maybe Bool))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "maybe'transient"
_
    = ((Maybe Bool -> f (Maybe Bool))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage -> Maybe Bool)
-> (QualifiedNewOtrMessage -> Maybe Bool -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Maybe Bool)
     (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage -> Maybe Bool
_QualifiedNewOtrMessage'transient
           (\ QualifiedNewOtrMessage
x__ Maybe Bool
y__ -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'transient = y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "maybe'clientMismatchStrategy" (Prelude.Maybe QualifiedNewOtrMessage'ClientMismatchStrategy) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'clientMismatchStrategy"
-> (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "maybe'clientMismatchStrategy"
_
    = ((Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
  -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
     -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
-> (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage
 -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
-> (QualifiedNewOtrMessage
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_QualifiedNewOtrMessage'clientMismatchStrategy
           (\ QualifiedNewOtrMessage
x__ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
y__
              -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'clientMismatchStrategy = y__}))
        (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
 -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
-> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "maybe'reportAll" (Prelude.Maybe ClientMismatchStrategy'ReportAll) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'reportAll"
-> (Maybe ClientMismatchStrategy'ReportAll
    -> f (Maybe ClientMismatchStrategy'ReportAll))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "maybe'reportAll"
_
    = ((Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
  -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((Maybe ClientMismatchStrategy'ReportAll
     -> f (Maybe ClientMismatchStrategy'ReportAll))
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
-> (Maybe ClientMismatchStrategy'ReportAll
    -> f (Maybe ClientMismatchStrategy'ReportAll))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage
 -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
-> (QualifiedNewOtrMessage
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_QualifiedNewOtrMessage'clientMismatchStrategy
           (\ QualifiedNewOtrMessage
x__ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
y__
              -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'clientMismatchStrategy = y__}))
        ((Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
 -> Maybe ClientMismatchStrategy'ReportAll)
-> (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> Maybe ClientMismatchStrategy'ReportAll
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
-> Lens
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe ClientMismatchStrategy'ReportAll)
     (Maybe ClientMismatchStrategy'ReportAll)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
x__
              -> case Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
x__ of
                   (Prelude.Just (QualifiedNewOtrMessage'ReportAll ClientMismatchStrategy'ReportAll
x__val))
                     -> ClientMismatchStrategy'ReportAll
-> Maybe ClientMismatchStrategy'ReportAll
forall a. a -> Maybe a
Prelude.Just ClientMismatchStrategy'ReportAll
x__val
                   Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_otherwise -> Maybe ClientMismatchStrategy'ReportAll
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_ Maybe ClientMismatchStrategy'ReportAll
y__ -> (ClientMismatchStrategy'ReportAll
 -> QualifiedNewOtrMessage'ClientMismatchStrategy)
-> Maybe ClientMismatchStrategy'ReportAll
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ClientMismatchStrategy'ReportAll
-> QualifiedNewOtrMessage'ClientMismatchStrategy
QualifiedNewOtrMessage'ReportAll Maybe ClientMismatchStrategy'ReportAll
y__))
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "reportAll" ClientMismatchStrategy'ReportAll where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "reportAll"
-> (ClientMismatchStrategy'ReportAll
    -> f ClientMismatchStrategy'ReportAll)
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "reportAll"
_
    = ((Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
  -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((ClientMismatchStrategy'ReportAll
     -> f ClientMismatchStrategy'ReportAll)
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
-> (ClientMismatchStrategy'ReportAll
    -> f ClientMismatchStrategy'ReportAll)
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage
 -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
-> (QualifiedNewOtrMessage
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_QualifiedNewOtrMessage'clientMismatchStrategy
           (\ QualifiedNewOtrMessage
x__ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
y__
              -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'clientMismatchStrategy = y__}))
        (((Maybe ClientMismatchStrategy'ReportAll
  -> f (Maybe ClientMismatchStrategy'ReportAll))
 -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
 -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
-> ((ClientMismatchStrategy'ReportAll
     -> f ClientMismatchStrategy'ReportAll)
    -> Maybe ClientMismatchStrategy'ReportAll
    -> f (Maybe ClientMismatchStrategy'ReportAll))
-> (ClientMismatchStrategy'ReportAll
    -> f ClientMismatchStrategy'ReportAll)
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
-> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
 -> Maybe ClientMismatchStrategy'ReportAll)
-> (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> Maybe ClientMismatchStrategy'ReportAll
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
-> Lens
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe ClientMismatchStrategy'ReportAll)
     (Maybe ClientMismatchStrategy'ReportAll)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
x__
                 -> case Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
x__ of
                      (Prelude.Just (QualifiedNewOtrMessage'ReportAll ClientMismatchStrategy'ReportAll
x__val))
                        -> ClientMismatchStrategy'ReportAll
-> Maybe ClientMismatchStrategy'ReportAll
forall a. a -> Maybe a
Prelude.Just ClientMismatchStrategy'ReportAll
x__val
                      Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_otherwise -> Maybe ClientMismatchStrategy'ReportAll
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_ Maybe ClientMismatchStrategy'ReportAll
y__ -> (ClientMismatchStrategy'ReportAll
 -> QualifiedNewOtrMessage'ClientMismatchStrategy)
-> Maybe ClientMismatchStrategy'ReportAll
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ClientMismatchStrategy'ReportAll
-> QualifiedNewOtrMessage'ClientMismatchStrategy
QualifiedNewOtrMessage'ReportAll Maybe ClientMismatchStrategy'ReportAll
y__))
           (ClientMismatchStrategy'ReportAll
-> Lens'
     (Maybe ClientMismatchStrategy'ReportAll)
     ClientMismatchStrategy'ReportAll
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ClientMismatchStrategy'ReportAll
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "maybe'ignoreAll" (Prelude.Maybe ClientMismatchStrategy'IgnoreAll) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'ignoreAll"
-> (Maybe ClientMismatchStrategy'IgnoreAll
    -> f (Maybe ClientMismatchStrategy'IgnoreAll))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "maybe'ignoreAll"
_
    = ((Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
  -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((Maybe ClientMismatchStrategy'IgnoreAll
     -> f (Maybe ClientMismatchStrategy'IgnoreAll))
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
-> (Maybe ClientMismatchStrategy'IgnoreAll
    -> f (Maybe ClientMismatchStrategy'IgnoreAll))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage
 -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
-> (QualifiedNewOtrMessage
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_QualifiedNewOtrMessage'clientMismatchStrategy
           (\ QualifiedNewOtrMessage
x__ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
y__
              -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'clientMismatchStrategy = y__}))
        ((Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
 -> Maybe ClientMismatchStrategy'IgnoreAll)
-> (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> Maybe ClientMismatchStrategy'IgnoreAll
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
-> Lens
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe ClientMismatchStrategy'IgnoreAll)
     (Maybe ClientMismatchStrategy'IgnoreAll)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
x__
              -> case Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
x__ of
                   (Prelude.Just (QualifiedNewOtrMessage'IgnoreAll ClientMismatchStrategy'IgnoreAll
x__val))
                     -> ClientMismatchStrategy'IgnoreAll
-> Maybe ClientMismatchStrategy'IgnoreAll
forall a. a -> Maybe a
Prelude.Just ClientMismatchStrategy'IgnoreAll
x__val
                   Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_otherwise -> Maybe ClientMismatchStrategy'IgnoreAll
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_ Maybe ClientMismatchStrategy'IgnoreAll
y__ -> (ClientMismatchStrategy'IgnoreAll
 -> QualifiedNewOtrMessage'ClientMismatchStrategy)
-> Maybe ClientMismatchStrategy'IgnoreAll
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ClientMismatchStrategy'IgnoreAll
-> QualifiedNewOtrMessage'ClientMismatchStrategy
QualifiedNewOtrMessage'IgnoreAll Maybe ClientMismatchStrategy'IgnoreAll
y__))
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "ignoreAll" ClientMismatchStrategy'IgnoreAll where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ignoreAll"
-> (ClientMismatchStrategy'IgnoreAll
    -> f ClientMismatchStrategy'IgnoreAll)
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "ignoreAll"
_
    = ((Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
  -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((ClientMismatchStrategy'IgnoreAll
     -> f ClientMismatchStrategy'IgnoreAll)
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
-> (ClientMismatchStrategy'IgnoreAll
    -> f ClientMismatchStrategy'IgnoreAll)
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage
 -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
-> (QualifiedNewOtrMessage
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_QualifiedNewOtrMessage'clientMismatchStrategy
           (\ QualifiedNewOtrMessage
x__ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
y__
              -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'clientMismatchStrategy = y__}))
        (((Maybe ClientMismatchStrategy'IgnoreAll
  -> f (Maybe ClientMismatchStrategy'IgnoreAll))
 -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
 -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
-> ((ClientMismatchStrategy'IgnoreAll
     -> f ClientMismatchStrategy'IgnoreAll)
    -> Maybe ClientMismatchStrategy'IgnoreAll
    -> f (Maybe ClientMismatchStrategy'IgnoreAll))
-> (ClientMismatchStrategy'IgnoreAll
    -> f ClientMismatchStrategy'IgnoreAll)
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
-> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
 -> Maybe ClientMismatchStrategy'IgnoreAll)
-> (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> Maybe ClientMismatchStrategy'IgnoreAll
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
-> Lens
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe ClientMismatchStrategy'IgnoreAll)
     (Maybe ClientMismatchStrategy'IgnoreAll)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
x__
                 -> case Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
x__ of
                      (Prelude.Just (QualifiedNewOtrMessage'IgnoreAll ClientMismatchStrategy'IgnoreAll
x__val))
                        -> ClientMismatchStrategy'IgnoreAll
-> Maybe ClientMismatchStrategy'IgnoreAll
forall a. a -> Maybe a
Prelude.Just ClientMismatchStrategy'IgnoreAll
x__val
                      Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_otherwise -> Maybe ClientMismatchStrategy'IgnoreAll
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_ Maybe ClientMismatchStrategy'IgnoreAll
y__ -> (ClientMismatchStrategy'IgnoreAll
 -> QualifiedNewOtrMessage'ClientMismatchStrategy)
-> Maybe ClientMismatchStrategy'IgnoreAll
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ClientMismatchStrategy'IgnoreAll
-> QualifiedNewOtrMessage'ClientMismatchStrategy
QualifiedNewOtrMessage'IgnoreAll Maybe ClientMismatchStrategy'IgnoreAll
y__))
           (ClientMismatchStrategy'IgnoreAll
-> Lens'
     (Maybe ClientMismatchStrategy'IgnoreAll)
     ClientMismatchStrategy'IgnoreAll
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ClientMismatchStrategy'IgnoreAll
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "maybe'reportOnly" (Prelude.Maybe ClientMismatchStrategy'ReportOnly) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'reportOnly"
-> (Maybe ClientMismatchStrategy'ReportOnly
    -> f (Maybe ClientMismatchStrategy'ReportOnly))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "maybe'reportOnly"
_
    = ((Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
  -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((Maybe ClientMismatchStrategy'ReportOnly
     -> f (Maybe ClientMismatchStrategy'ReportOnly))
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
-> (Maybe ClientMismatchStrategy'ReportOnly
    -> f (Maybe ClientMismatchStrategy'ReportOnly))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage
 -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
-> (QualifiedNewOtrMessage
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_QualifiedNewOtrMessage'clientMismatchStrategy
           (\ QualifiedNewOtrMessage
x__ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
y__
              -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'clientMismatchStrategy = y__}))
        ((Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
 -> Maybe ClientMismatchStrategy'ReportOnly)
-> (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> Maybe ClientMismatchStrategy'ReportOnly
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
-> Lens
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe ClientMismatchStrategy'ReportOnly)
     (Maybe ClientMismatchStrategy'ReportOnly)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
x__
              -> case Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
x__ of
                   (Prelude.Just (QualifiedNewOtrMessage'ReportOnly ClientMismatchStrategy'ReportOnly
x__val))
                     -> ClientMismatchStrategy'ReportOnly
-> Maybe ClientMismatchStrategy'ReportOnly
forall a. a -> Maybe a
Prelude.Just ClientMismatchStrategy'ReportOnly
x__val
                   Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_otherwise -> Maybe ClientMismatchStrategy'ReportOnly
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_ Maybe ClientMismatchStrategy'ReportOnly
y__ -> (ClientMismatchStrategy'ReportOnly
 -> QualifiedNewOtrMessage'ClientMismatchStrategy)
-> Maybe ClientMismatchStrategy'ReportOnly
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ClientMismatchStrategy'ReportOnly
-> QualifiedNewOtrMessage'ClientMismatchStrategy
QualifiedNewOtrMessage'ReportOnly Maybe ClientMismatchStrategy'ReportOnly
y__))
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "reportOnly" ClientMismatchStrategy'ReportOnly where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "reportOnly"
-> (ClientMismatchStrategy'ReportOnly
    -> f ClientMismatchStrategy'ReportOnly)
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "reportOnly"
_
    = ((Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
  -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((ClientMismatchStrategy'ReportOnly
     -> f ClientMismatchStrategy'ReportOnly)
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
-> (ClientMismatchStrategy'ReportOnly
    -> f ClientMismatchStrategy'ReportOnly)
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage
 -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
-> (QualifiedNewOtrMessage
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_QualifiedNewOtrMessage'clientMismatchStrategy
           (\ QualifiedNewOtrMessage
x__ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
y__
              -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'clientMismatchStrategy = y__}))
        (((Maybe ClientMismatchStrategy'ReportOnly
  -> f (Maybe ClientMismatchStrategy'ReportOnly))
 -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
 -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
-> ((ClientMismatchStrategy'ReportOnly
     -> f ClientMismatchStrategy'ReportOnly)
    -> Maybe ClientMismatchStrategy'ReportOnly
    -> f (Maybe ClientMismatchStrategy'ReportOnly))
-> (ClientMismatchStrategy'ReportOnly
    -> f ClientMismatchStrategy'ReportOnly)
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
-> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
 -> Maybe ClientMismatchStrategy'ReportOnly)
-> (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> Maybe ClientMismatchStrategy'ReportOnly
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
-> Lens
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe ClientMismatchStrategy'ReportOnly)
     (Maybe ClientMismatchStrategy'ReportOnly)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
x__
                 -> case Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
x__ of
                      (Prelude.Just (QualifiedNewOtrMessage'ReportOnly ClientMismatchStrategy'ReportOnly
x__val))
                        -> ClientMismatchStrategy'ReportOnly
-> Maybe ClientMismatchStrategy'ReportOnly
forall a. a -> Maybe a
Prelude.Just ClientMismatchStrategy'ReportOnly
x__val
                      Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_otherwise -> Maybe ClientMismatchStrategy'ReportOnly
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_ Maybe ClientMismatchStrategy'ReportOnly
y__ -> (ClientMismatchStrategy'ReportOnly
 -> QualifiedNewOtrMessage'ClientMismatchStrategy)
-> Maybe ClientMismatchStrategy'ReportOnly
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ClientMismatchStrategy'ReportOnly
-> QualifiedNewOtrMessage'ClientMismatchStrategy
QualifiedNewOtrMessage'ReportOnly Maybe ClientMismatchStrategy'ReportOnly
y__))
           (ClientMismatchStrategy'ReportOnly
-> Lens'
     (Maybe ClientMismatchStrategy'ReportOnly)
     ClientMismatchStrategy'ReportOnly
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ClientMismatchStrategy'ReportOnly
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "maybe'ignoreOnly" (Prelude.Maybe ClientMismatchStrategy'IgnoreOnly) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'ignoreOnly"
-> (Maybe ClientMismatchStrategy'IgnoreOnly
    -> f (Maybe ClientMismatchStrategy'IgnoreOnly))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "maybe'ignoreOnly"
_
    = ((Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
  -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((Maybe ClientMismatchStrategy'IgnoreOnly
     -> f (Maybe ClientMismatchStrategy'IgnoreOnly))
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
-> (Maybe ClientMismatchStrategy'IgnoreOnly
    -> f (Maybe ClientMismatchStrategy'IgnoreOnly))
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage
 -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
-> (QualifiedNewOtrMessage
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_QualifiedNewOtrMessage'clientMismatchStrategy
           (\ QualifiedNewOtrMessage
x__ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
y__
              -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'clientMismatchStrategy = y__}))
        ((Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
 -> Maybe ClientMismatchStrategy'IgnoreOnly)
-> (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> Maybe ClientMismatchStrategy'IgnoreOnly
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
-> Lens
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe ClientMismatchStrategy'IgnoreOnly)
     (Maybe ClientMismatchStrategy'IgnoreOnly)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
x__
              -> case Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
x__ of
                   (Prelude.Just (QualifiedNewOtrMessage'IgnoreOnly ClientMismatchStrategy'IgnoreOnly
x__val))
                     -> ClientMismatchStrategy'IgnoreOnly
-> Maybe ClientMismatchStrategy'IgnoreOnly
forall a. a -> Maybe a
Prelude.Just ClientMismatchStrategy'IgnoreOnly
x__val
                   Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_otherwise -> Maybe ClientMismatchStrategy'IgnoreOnly
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_ Maybe ClientMismatchStrategy'IgnoreOnly
y__ -> (ClientMismatchStrategy'IgnoreOnly
 -> QualifiedNewOtrMessage'ClientMismatchStrategy)
-> Maybe ClientMismatchStrategy'IgnoreOnly
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ClientMismatchStrategy'IgnoreOnly
-> QualifiedNewOtrMessage'ClientMismatchStrategy
QualifiedNewOtrMessage'IgnoreOnly Maybe ClientMismatchStrategy'IgnoreOnly
y__))
instance Data.ProtoLens.Field.HasField QualifiedNewOtrMessage "ignoreOnly" ClientMismatchStrategy'IgnoreOnly where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ignoreOnly"
-> (ClientMismatchStrategy'IgnoreOnly
    -> f ClientMismatchStrategy'IgnoreOnly)
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
fieldOf Proxy# "ignoreOnly"
_
    = ((Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
  -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
 -> QualifiedNewOtrMessage -> f QualifiedNewOtrMessage)
-> ((ClientMismatchStrategy'IgnoreOnly
     -> f ClientMismatchStrategy'IgnoreOnly)
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
-> (ClientMismatchStrategy'IgnoreOnly
    -> f ClientMismatchStrategy'IgnoreOnly)
-> QualifiedNewOtrMessage
-> f QualifiedNewOtrMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedNewOtrMessage
 -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
-> (QualifiedNewOtrMessage
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> QualifiedNewOtrMessage)
-> Lens
     QualifiedNewOtrMessage
     QualifiedNewOtrMessage
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedNewOtrMessage
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_QualifiedNewOtrMessage'clientMismatchStrategy
           (\ QualifiedNewOtrMessage
x__ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
y__
              -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'clientMismatchStrategy = y__}))
        (((Maybe ClientMismatchStrategy'IgnoreOnly
  -> f (Maybe ClientMismatchStrategy'IgnoreOnly))
 -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
 -> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy))
-> ((ClientMismatchStrategy'IgnoreOnly
     -> f ClientMismatchStrategy'IgnoreOnly)
    -> Maybe ClientMismatchStrategy'IgnoreOnly
    -> f (Maybe ClientMismatchStrategy'IgnoreOnly))
-> (ClientMismatchStrategy'IgnoreOnly
    -> f ClientMismatchStrategy'IgnoreOnly)
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
-> f (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
 -> Maybe ClientMismatchStrategy'IgnoreOnly)
-> (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
    -> Maybe ClientMismatchStrategy'IgnoreOnly
    -> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
-> Lens
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
     (Maybe ClientMismatchStrategy'IgnoreOnly)
     (Maybe ClientMismatchStrategy'IgnoreOnly)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
x__
                 -> case Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
x__ of
                      (Prelude.Just (QualifiedNewOtrMessage'IgnoreOnly ClientMismatchStrategy'IgnoreOnly
x__val))
                        -> ClientMismatchStrategy'IgnoreOnly
-> Maybe ClientMismatchStrategy'IgnoreOnly
forall a. a -> Maybe a
Prelude.Just ClientMismatchStrategy'IgnoreOnly
x__val
                      Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_otherwise -> Maybe ClientMismatchStrategy'IgnoreOnly
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_ Maybe ClientMismatchStrategy'IgnoreOnly
y__ -> (ClientMismatchStrategy'IgnoreOnly
 -> QualifiedNewOtrMessage'ClientMismatchStrategy)
-> Maybe ClientMismatchStrategy'IgnoreOnly
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ClientMismatchStrategy'IgnoreOnly
-> QualifiedNewOtrMessage'ClientMismatchStrategy
QualifiedNewOtrMessage'IgnoreOnly Maybe ClientMismatchStrategy'IgnoreOnly
y__))
           (ClientMismatchStrategy'IgnoreOnly
-> Lens'
     (Maybe ClientMismatchStrategy'IgnoreOnly)
     ClientMismatchStrategy'IgnoreOnly
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ClientMismatchStrategy'IgnoreOnly
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message QualifiedNewOtrMessage where
  messageName :: Proxy QualifiedNewOtrMessage -> Text
messageName Proxy QualifiedNewOtrMessage
_ = String -> Text
Data.Text.pack String
"proteus.QualifiedNewOtrMessage"
  packedMessageDescriptor :: Proxy QualifiedNewOtrMessage -> ByteString
packedMessageDescriptor Proxy QualifiedNewOtrMessage
_
    = ByteString
"\n\
      \\SYNQualifiedNewOtrMessage\DC2)\n\
      \\ACKsender\CAN\SOH \STX(\v2\DC1.proteus.ClientIdR\ACKsender\DC2;\n\
      \\n\
      \recipients\CAN\STX \ETX(\v2\ESC.proteus.QualifiedUserEntryR\n\
      \recipients\DC2%\n\
      \\vnative_push\CAN\ETX \SOH(\b:\EOTtrueR\n\
      \nativePush\DC2\DC2\n\
      \\EOTblob\CAN\EOT \SOH(\fR\EOTblob\DC2:\n\
      \\SInative_priority\CAN\ENQ \SOH(\SO2\DC1.proteus.PriorityR\SOnativePriority\DC2\FS\n\
      \\ttransient\CAN\ACK \SOH(\bR\ttransient\DC2J\n\
      \\n\
      \report_all\CAN\a \SOH(\v2).proteus.ClientMismatchStrategy.ReportAllH\NULR\treportAll\DC2J\n\
      \\n\
      \ignore_all\CAN\b \SOH(\v2).proteus.ClientMismatchStrategy.IgnoreAllH\NULR\tignoreAll\DC2M\n\
      \\vreport_only\CAN\t \SOH(\v2*.proteus.ClientMismatchStrategy.ReportOnlyH\NULR\n\
      \reportOnly\DC2M\n\
      \\vignore_only\CAN\n\
      \ \SOH(\v2*.proteus.ClientMismatchStrategy.IgnoreOnlyH\NULR\n\
      \ignoreOnlyB\SUB\n\
      \\CANclient_mismatch_strategy"
  packedFileDescriptor :: Proxy QualifiedNewOtrMessage -> ByteString
packedFileDescriptor Proxy QualifiedNewOtrMessage
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor QualifiedNewOtrMessage)
fieldsByTag
    = let
        sender__field_descriptor :: FieldDescriptor QualifiedNewOtrMessage
sender__field_descriptor
          = String
-> FieldTypeDescriptor ClientId
-> FieldAccessor QualifiedNewOtrMessage ClientId
-> FieldDescriptor QualifiedNewOtrMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"sender"
              (MessageOrGroup -> FieldTypeDescriptor ClientId
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ClientId)
              (WireDefault ClientId
-> Lens
     QualifiedNewOtrMessage QualifiedNewOtrMessage ClientId ClientId
-> FieldAccessor QualifiedNewOtrMessage ClientId
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ClientId
forall value. WireDefault value
Data.ProtoLens.Required (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sender")) ::
              Data.ProtoLens.FieldDescriptor QualifiedNewOtrMessage
        recipients__field_descriptor :: FieldDescriptor QualifiedNewOtrMessage
recipients__field_descriptor
          = String
-> FieldTypeDescriptor QualifiedUserEntry
-> FieldAccessor QualifiedNewOtrMessage QualifiedUserEntry
-> FieldDescriptor QualifiedNewOtrMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"recipients"
              (MessageOrGroup -> FieldTypeDescriptor QualifiedUserEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor QualifiedUserEntry)
              (Packing
-> Lens' QualifiedNewOtrMessage [QualifiedUserEntry]
-> FieldAccessor QualifiedNewOtrMessage QualifiedUserEntry
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"recipients")) ::
              Data.ProtoLens.FieldDescriptor QualifiedNewOtrMessage
        nativePush__field_descriptor :: FieldDescriptor QualifiedNewOtrMessage
nativePush__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor QualifiedNewOtrMessage Bool
-> FieldDescriptor QualifiedNewOtrMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"native_push"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens
  QualifiedNewOtrMessage
  QualifiedNewOtrMessage
  (Maybe Bool)
  (Maybe Bool)
-> FieldAccessor QualifiedNewOtrMessage Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'nativePush")) ::
              Data.ProtoLens.FieldDescriptor QualifiedNewOtrMessage
        blob__field_descriptor :: FieldDescriptor QualifiedNewOtrMessage
blob__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor QualifiedNewOtrMessage ByteString
-> FieldDescriptor QualifiedNewOtrMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"blob"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens
  QualifiedNewOtrMessage
  QualifiedNewOtrMessage
  (Maybe ByteString)
  (Maybe ByteString)
-> FieldAccessor QualifiedNewOtrMessage ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'blob")) ::
              Data.ProtoLens.FieldDescriptor QualifiedNewOtrMessage
        nativePriority__field_descriptor :: FieldDescriptor QualifiedNewOtrMessage
nativePriority__field_descriptor
          = String
-> FieldTypeDescriptor Priority
-> FieldAccessor QualifiedNewOtrMessage Priority
-> FieldDescriptor QualifiedNewOtrMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"native_priority"
              (ScalarField Priority -> FieldTypeDescriptor Priority
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Priority
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Priority)
              (Lens
  QualifiedNewOtrMessage
  QualifiedNewOtrMessage
  (Maybe Priority)
  (Maybe Priority)
-> FieldAccessor QualifiedNewOtrMessage Priority
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'nativePriority")) ::
              Data.ProtoLens.FieldDescriptor QualifiedNewOtrMessage
        transient__field_descriptor :: FieldDescriptor QualifiedNewOtrMessage
transient__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor QualifiedNewOtrMessage Bool
-> FieldDescriptor QualifiedNewOtrMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"transient"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens
  QualifiedNewOtrMessage
  QualifiedNewOtrMessage
  (Maybe Bool)
  (Maybe Bool)
-> FieldAccessor QualifiedNewOtrMessage Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'transient")) ::
              Data.ProtoLens.FieldDescriptor QualifiedNewOtrMessage
        reportAll__field_descriptor :: FieldDescriptor QualifiedNewOtrMessage
reportAll__field_descriptor
          = String
-> FieldTypeDescriptor ClientMismatchStrategy'ReportAll
-> FieldAccessor
     QualifiedNewOtrMessage ClientMismatchStrategy'ReportAll
-> FieldDescriptor QualifiedNewOtrMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"report_all"
              (MessageOrGroup
-> FieldTypeDescriptor ClientMismatchStrategy'ReportAll
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ClientMismatchStrategy'ReportAll)
              (Lens'
  QualifiedNewOtrMessage (Maybe ClientMismatchStrategy'ReportAll)
-> FieldAccessor
     QualifiedNewOtrMessage ClientMismatchStrategy'ReportAll
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'reportAll")) ::
              Data.ProtoLens.FieldDescriptor QualifiedNewOtrMessage
        ignoreAll__field_descriptor :: FieldDescriptor QualifiedNewOtrMessage
ignoreAll__field_descriptor
          = String
-> FieldTypeDescriptor ClientMismatchStrategy'IgnoreAll
-> FieldAccessor
     QualifiedNewOtrMessage ClientMismatchStrategy'IgnoreAll
-> FieldDescriptor QualifiedNewOtrMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ignore_all"
              (MessageOrGroup
-> FieldTypeDescriptor ClientMismatchStrategy'IgnoreAll
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ClientMismatchStrategy'IgnoreAll)
              (Lens'
  QualifiedNewOtrMessage (Maybe ClientMismatchStrategy'IgnoreAll)
-> FieldAccessor
     QualifiedNewOtrMessage ClientMismatchStrategy'IgnoreAll
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'ignoreAll")) ::
              Data.ProtoLens.FieldDescriptor QualifiedNewOtrMessage
        reportOnly__field_descriptor :: FieldDescriptor QualifiedNewOtrMessage
reportOnly__field_descriptor
          = String
-> FieldTypeDescriptor ClientMismatchStrategy'ReportOnly
-> FieldAccessor
     QualifiedNewOtrMessage ClientMismatchStrategy'ReportOnly
-> FieldDescriptor QualifiedNewOtrMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"report_only"
              (MessageOrGroup
-> FieldTypeDescriptor ClientMismatchStrategy'ReportOnly
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ClientMismatchStrategy'ReportOnly)
              (Lens'
  QualifiedNewOtrMessage (Maybe ClientMismatchStrategy'ReportOnly)
-> FieldAccessor
     QualifiedNewOtrMessage ClientMismatchStrategy'ReportOnly
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'reportOnly")) ::
              Data.ProtoLens.FieldDescriptor QualifiedNewOtrMessage
        ignoreOnly__field_descriptor :: FieldDescriptor QualifiedNewOtrMessage
ignoreOnly__field_descriptor
          = String
-> FieldTypeDescriptor ClientMismatchStrategy'IgnoreOnly
-> FieldAccessor
     QualifiedNewOtrMessage ClientMismatchStrategy'IgnoreOnly
-> FieldDescriptor QualifiedNewOtrMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ignore_only"
              (MessageOrGroup
-> FieldTypeDescriptor ClientMismatchStrategy'IgnoreOnly
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ClientMismatchStrategy'IgnoreOnly)
              (Lens'
  QualifiedNewOtrMessage (Maybe ClientMismatchStrategy'IgnoreOnly)
-> FieldAccessor
     QualifiedNewOtrMessage ClientMismatchStrategy'IgnoreOnly
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'ignoreOnly")) ::
              Data.ProtoLens.FieldDescriptor QualifiedNewOtrMessage
      in
        [(Tag, FieldDescriptor QualifiedNewOtrMessage)]
-> Map Tag (FieldDescriptor QualifiedNewOtrMessage)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor QualifiedNewOtrMessage
sender__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor QualifiedNewOtrMessage
recipients__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor QualifiedNewOtrMessage
nativePush__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor QualifiedNewOtrMessage
blob__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor QualifiedNewOtrMessage
nativePriority__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor QualifiedNewOtrMessage
transient__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor QualifiedNewOtrMessage
reportAll__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor QualifiedNewOtrMessage
ignoreAll__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor QualifiedNewOtrMessage
reportOnly__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
10, FieldDescriptor QualifiedNewOtrMessage
ignoreOnly__field_descriptor)]
  unknownFields :: Lens' QualifiedNewOtrMessage FieldSet
unknownFields
    = (QualifiedNewOtrMessage -> FieldSet)
-> (QualifiedNewOtrMessage -> FieldSet -> QualifiedNewOtrMessage)
-> Lens' QualifiedNewOtrMessage FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        QualifiedNewOtrMessage -> FieldSet
_QualifiedNewOtrMessage'_unknownFields
        (\ QualifiedNewOtrMessage
x__ FieldSet
y__ -> QualifiedNewOtrMessage
x__ {_QualifiedNewOtrMessage'_unknownFields = y__})
  defMessage :: QualifiedNewOtrMessage
defMessage
    = QualifiedNewOtrMessage'_constructor
        {$sel:_QualifiedNewOtrMessage'sender:QualifiedNewOtrMessage'_constructor :: ClientId
_QualifiedNewOtrMessage'sender = ClientId
forall msg. Message msg => msg
Data.ProtoLens.defMessage,
         $sel:_QualifiedNewOtrMessage'recipients:QualifiedNewOtrMessage'_constructor :: Vector QualifiedUserEntry
_QualifiedNewOtrMessage'recipients = Vector QualifiedUserEntry
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         $sel:_QualifiedNewOtrMessage'nativePush:QualifiedNewOtrMessage'_constructor :: Maybe Bool
_QualifiedNewOtrMessage'nativePush = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         $sel:_QualifiedNewOtrMessage'blob:QualifiedNewOtrMessage'_constructor :: Maybe ByteString
_QualifiedNewOtrMessage'blob = Maybe ByteString
forall a. Maybe a
Prelude.Nothing,
         $sel:_QualifiedNewOtrMessage'nativePriority:QualifiedNewOtrMessage'_constructor :: Maybe Priority
_QualifiedNewOtrMessage'nativePriority = Maybe Priority
forall a. Maybe a
Prelude.Nothing,
         $sel:_QualifiedNewOtrMessage'transient:QualifiedNewOtrMessage'_constructor :: Maybe Bool
_QualifiedNewOtrMessage'transient = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         $sel:_QualifiedNewOtrMessage'clientMismatchStrategy:QualifiedNewOtrMessage'_constructor :: Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_QualifiedNewOtrMessage'clientMismatchStrategy = Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
forall a. Maybe a
Prelude.Nothing,
         $sel:_QualifiedNewOtrMessage'_unknownFields:QualifiedNewOtrMessage'_constructor :: FieldSet
_QualifiedNewOtrMessage'_unknownFields = []}
  parseMessage :: Parser QualifiedNewOtrMessage
parseMessage
    = let
        loop ::
          QualifiedNewOtrMessage
          -> Prelude.Bool
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld QualifiedUserEntry
                -> Data.ProtoLens.Encoding.Bytes.Parser QualifiedNewOtrMessage
        loop :: QualifiedNewOtrMessage
-> Bool
-> Growing Vector RealWorld QualifiedUserEntry
-> Parser QualifiedNewOtrMessage
loop QualifiedNewOtrMessage
x Bool
required'sender Growing Vector RealWorld QualifiedUserEntry
mutable'recipients
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector QualifiedUserEntry
frozen'recipients <- IO (Vector QualifiedUserEntry)
-> Parser (Vector QualifiedUserEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                             (Growing Vector (PrimState IO) QualifiedUserEntry
-> IO (Vector QualifiedUserEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                Growing Vector RealWorld QualifiedUserEntry
Growing Vector (PrimState IO) QualifiedUserEntry
mutable'recipients)
                      (let
                         missing :: [String]
missing = (if Bool
required'sender then (:) String
"sender" else [String] -> [String]
forall a. a -> a
Prelude.id) []
                       in
                         if [String] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [String]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
missing :: [Prelude.String]))))
                      QualifiedNewOtrMessage -> Parser QualifiedNewOtrMessage
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  QualifiedNewOtrMessage QualifiedNewOtrMessage FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> QualifiedNewOtrMessage
-> QualifiedNewOtrMessage
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f QualifiedNewOtrMessage FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' QualifiedNewOtrMessage FieldSet
Setter
  QualifiedNewOtrMessage QualifiedNewOtrMessage FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  QualifiedNewOtrMessage
  QualifiedNewOtrMessage
  (Vector QualifiedUserEntry)
  (Vector QualifiedUserEntry)
-> Vector QualifiedUserEntry
-> QualifiedNewOtrMessage
-> QualifiedNewOtrMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'recipients") Vector QualifiedUserEntry
frozen'recipients
                              QualifiedNewOtrMessage
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ClientId
y <- Parser ClientId -> String -> Parser ClientId
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ClientId -> Parser ClientId
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ClientId
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"sender"
                                QualifiedNewOtrMessage
-> Bool
-> Growing Vector RealWorld QualifiedUserEntry
-> Parser QualifiedNewOtrMessage
loop
                                  (Setter
  QualifiedNewOtrMessage QualifiedNewOtrMessage ClientId ClientId
-> ClientId -> QualifiedNewOtrMessage -> QualifiedNewOtrMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sender") ClientId
y QualifiedNewOtrMessage
x)
                                  Bool
Prelude.False Growing Vector RealWorld QualifiedUserEntry
mutable'recipients
                        Word64
18
                          -> do !QualifiedUserEntry
y <- Parser QualifiedUserEntry -> String -> Parser QualifiedUserEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser QualifiedUserEntry -> Parser QualifiedUserEntry
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser QualifiedUserEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"recipients"
                                Growing Vector RealWorld QualifiedUserEntry
v <- IO (Growing Vector RealWorld QualifiedUserEntry)
-> Parser (Growing Vector RealWorld QualifiedUserEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) QualifiedUserEntry
-> QualifiedUserEntry
-> IO (Growing Vector (PrimState IO) QualifiedUserEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld QualifiedUserEntry
Growing Vector (PrimState IO) QualifiedUserEntry
mutable'recipients QualifiedUserEntry
y)
                                QualifiedNewOtrMessage
-> Bool
-> Growing Vector RealWorld QualifiedUserEntry
-> Parser QualifiedNewOtrMessage
loop QualifiedNewOtrMessage
x Bool
required'sender Growing Vector RealWorld QualifiedUserEntry
v
                        Word64
24
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"native_push"
                                QualifiedNewOtrMessage
-> Bool
-> Growing Vector RealWorld QualifiedUserEntry
-> Parser QualifiedNewOtrMessage
loop
                                  (Setter QualifiedNewOtrMessage QualifiedNewOtrMessage Bool Bool
-> Bool -> QualifiedNewOtrMessage -> QualifiedNewOtrMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nativePush") Bool
y QualifiedNewOtrMessage
x)
                                  Bool
required'sender Growing Vector RealWorld QualifiedUserEntry
mutable'recipients
                        Word64
34
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"blob"
                                QualifiedNewOtrMessage
-> Bool
-> Growing Vector RealWorld QualifiedUserEntry
-> Parser QualifiedNewOtrMessage
loop
                                  (Setter
  QualifiedNewOtrMessage QualifiedNewOtrMessage ByteString ByteString
-> ByteString -> QualifiedNewOtrMessage -> QualifiedNewOtrMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"blob") ByteString
y QualifiedNewOtrMessage
x)
                                  Bool
required'sender Growing Vector RealWorld QualifiedUserEntry
mutable'recipients
                        Word64
40
                          -> do Priority
y <- Parser Priority -> String -> Parser Priority
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> Priority) -> Parser Int -> Parser Priority
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> Priority
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       String
"native_priority"
                                QualifiedNewOtrMessage
-> Bool
-> Growing Vector RealWorld QualifiedUserEntry
-> Parser QualifiedNewOtrMessage
loop
                                  (Setter
  QualifiedNewOtrMessage QualifiedNewOtrMessage Priority Priority
-> Priority -> QualifiedNewOtrMessage -> QualifiedNewOtrMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nativePriority") Priority
y QualifiedNewOtrMessage
x)
                                  Bool
required'sender Growing Vector RealWorld QualifiedUserEntry
mutable'recipients
                        Word64
48
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"transient"
                                QualifiedNewOtrMessage
-> Bool
-> Growing Vector RealWorld QualifiedUserEntry
-> Parser QualifiedNewOtrMessage
loop
                                  (Setter QualifiedNewOtrMessage QualifiedNewOtrMessage Bool Bool
-> Bool -> QualifiedNewOtrMessage -> QualifiedNewOtrMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"transient") Bool
y QualifiedNewOtrMessage
x)
                                  Bool
required'sender Growing Vector RealWorld QualifiedUserEntry
mutable'recipients
                        Word64
58
                          -> do ClientMismatchStrategy'ReportAll
y <- Parser ClientMismatchStrategy'ReportAll
-> String -> Parser ClientMismatchStrategy'ReportAll
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int
-> Parser ClientMismatchStrategy'ReportAll
-> Parser ClientMismatchStrategy'ReportAll
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ClientMismatchStrategy'ReportAll
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"report_all"
                                QualifiedNewOtrMessage
-> Bool
-> Growing Vector RealWorld QualifiedUserEntry
-> Parser QualifiedNewOtrMessage
loop
                                  (Setter
  QualifiedNewOtrMessage
  QualifiedNewOtrMessage
  ClientMismatchStrategy'ReportAll
  ClientMismatchStrategy'ReportAll
-> ClientMismatchStrategy'ReportAll
-> QualifiedNewOtrMessage
-> QualifiedNewOtrMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"reportAll") ClientMismatchStrategy'ReportAll
y QualifiedNewOtrMessage
x)
                                  Bool
required'sender Growing Vector RealWorld QualifiedUserEntry
mutable'recipients
                        Word64
66
                          -> do ClientMismatchStrategy'IgnoreAll
y <- Parser ClientMismatchStrategy'IgnoreAll
-> String -> Parser ClientMismatchStrategy'IgnoreAll
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int
-> Parser ClientMismatchStrategy'IgnoreAll
-> Parser ClientMismatchStrategy'IgnoreAll
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ClientMismatchStrategy'IgnoreAll
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"ignore_all"
                                QualifiedNewOtrMessage
-> Bool
-> Growing Vector RealWorld QualifiedUserEntry
-> Parser QualifiedNewOtrMessage
loop
                                  (Setter
  QualifiedNewOtrMessage
  QualifiedNewOtrMessage
  ClientMismatchStrategy'IgnoreAll
  ClientMismatchStrategy'IgnoreAll
-> ClientMismatchStrategy'IgnoreAll
-> QualifiedNewOtrMessage
-> QualifiedNewOtrMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ignoreAll") ClientMismatchStrategy'IgnoreAll
y QualifiedNewOtrMessage
x)
                                  Bool
required'sender Growing Vector RealWorld QualifiedUserEntry
mutable'recipients
                        Word64
74
                          -> do ClientMismatchStrategy'ReportOnly
y <- Parser ClientMismatchStrategy'ReportOnly
-> String -> Parser ClientMismatchStrategy'ReportOnly
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int
-> Parser ClientMismatchStrategy'ReportOnly
-> Parser ClientMismatchStrategy'ReportOnly
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ClientMismatchStrategy'ReportOnly
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"report_only"
                                QualifiedNewOtrMessage
-> Bool
-> Growing Vector RealWorld QualifiedUserEntry
-> Parser QualifiedNewOtrMessage
loop
                                  (Setter
  QualifiedNewOtrMessage
  QualifiedNewOtrMessage
  ClientMismatchStrategy'ReportOnly
  ClientMismatchStrategy'ReportOnly
-> ClientMismatchStrategy'ReportOnly
-> QualifiedNewOtrMessage
-> QualifiedNewOtrMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"reportOnly") ClientMismatchStrategy'ReportOnly
y QualifiedNewOtrMessage
x)
                                  Bool
required'sender Growing Vector RealWorld QualifiedUserEntry
mutable'recipients
                        Word64
82
                          -> do ClientMismatchStrategy'IgnoreOnly
y <- Parser ClientMismatchStrategy'IgnoreOnly
-> String -> Parser ClientMismatchStrategy'IgnoreOnly
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int
-> Parser ClientMismatchStrategy'IgnoreOnly
-> Parser ClientMismatchStrategy'IgnoreOnly
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ClientMismatchStrategy'IgnoreOnly
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"ignore_only"
                                QualifiedNewOtrMessage
-> Bool
-> Growing Vector RealWorld QualifiedUserEntry
-> Parser QualifiedNewOtrMessage
loop
                                  (Setter
  QualifiedNewOtrMessage
  QualifiedNewOtrMessage
  ClientMismatchStrategy'IgnoreOnly
  ClientMismatchStrategy'IgnoreOnly
-> ClientMismatchStrategy'IgnoreOnly
-> QualifiedNewOtrMessage
-> QualifiedNewOtrMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ignoreOnly") ClientMismatchStrategy'IgnoreOnly
y QualifiedNewOtrMessage
x)
                                  Bool
required'sender Growing Vector RealWorld QualifiedUserEntry
mutable'recipients
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                QualifiedNewOtrMessage
-> Bool
-> Growing Vector RealWorld QualifiedUserEntry
-> Parser QualifiedNewOtrMessage
loop
                                  (Setter
  QualifiedNewOtrMessage QualifiedNewOtrMessage FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> QualifiedNewOtrMessage
-> QualifiedNewOtrMessage
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f QualifiedNewOtrMessage FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' QualifiedNewOtrMessage FieldSet
Setter
  QualifiedNewOtrMessage QualifiedNewOtrMessage FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) QualifiedNewOtrMessage
x)
                                  Bool
required'sender Growing Vector RealWorld QualifiedUserEntry
mutable'recipients
      in
        Parser QualifiedNewOtrMessage
-> String -> Parser QualifiedNewOtrMessage
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld QualifiedUserEntry
mutable'recipients <- IO (Growing Vector RealWorld QualifiedUserEntry)
-> Parser (Growing Vector RealWorld QualifiedUserEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                      IO (Growing Vector RealWorld QualifiedUserEntry)
IO (Growing Vector (PrimState IO) QualifiedUserEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              QualifiedNewOtrMessage
-> Bool
-> Growing Vector RealWorld QualifiedUserEntry
-> Parser QualifiedNewOtrMessage
loop QualifiedNewOtrMessage
forall msg. Message msg => msg
Data.ProtoLens.defMessage Bool
Prelude.True Growing Vector RealWorld QualifiedUserEntry
mutable'recipients)
          String
"QualifiedNewOtrMessage"
  buildMessage :: QualifiedNewOtrMessage -> Builder
buildMessage
    = \ QualifiedNewOtrMessage
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                ((ByteString -> Builder)
-> (ClientId -> ByteString) -> ClientId -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                   (\ ByteString
bs
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                   ClientId -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                   (FoldLike
  ClientId
  QualifiedNewOtrMessage
  QualifiedNewOtrMessage
  ClientId
  ClientId
-> QualifiedNewOtrMessage -> ClientId
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sender") QualifiedNewOtrMessage
_x)))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((QualifiedUserEntry -> Builder)
-> Vector QualifiedUserEntry -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ QualifiedUserEntry
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (QualifiedUserEntry -> ByteString)
-> QualifiedUserEntry
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                              (\ ByteString
bs
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                      (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                              QualifiedUserEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage QualifiedUserEntry
_v))
                   (FoldLike
  (Vector QualifiedUserEntry)
  QualifiedNewOtrMessage
  QualifiedNewOtrMessage
  (Vector QualifiedUserEntry)
  (Vector QualifiedUserEntry)
-> QualifiedNewOtrMessage -> Vector QualifiedUserEntry
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                      (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'recipients") QualifiedNewOtrMessage
_x))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe Bool)
  QualifiedNewOtrMessage
  QualifiedNewOtrMessage
  (Maybe Bool)
  (Maybe Bool)
-> QualifiedNewOtrMessage -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'nativePush") QualifiedNewOtrMessage
_x
                    of
                      Maybe Bool
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just Bool
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
24)
                             ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
                                Bool
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe ByteString)
  QualifiedNewOtrMessage
  QualifiedNewOtrMessage
  (Maybe ByteString)
  (Maybe ByteString)
-> QualifiedNewOtrMessage -> Maybe ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'blob") QualifiedNewOtrMessage
_x
                       of
                         Maybe ByteString
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just ByteString
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                                ((\ ByteString
bs
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                            (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                         (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                   ByteString
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (case
                              FoldLike
  (Maybe Priority)
  QualifiedNewOtrMessage
  QualifiedNewOtrMessage
  (Maybe Priority)
  (Maybe Priority)
-> QualifiedNewOtrMessage -> Maybe Priority
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'nativePriority") QualifiedNewOtrMessage
_x
                          of
                            Maybe Priority
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                            (Prelude.Just Priority
_v)
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
40)
                                   ((Int -> Builder) -> (Priority -> Int) -> Priority -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                      ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                                      Priority -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Priority
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (case
                                 FoldLike
  (Maybe Bool)
  QualifiedNewOtrMessage
  QualifiedNewOtrMessage
  (Maybe Bool)
  (Maybe Bool)
-> QualifiedNewOtrMessage -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                   (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'transient") QualifiedNewOtrMessage
_x
                             of
                               Maybe Bool
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                               (Prelude.Just Bool
_v)
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
48)
                                      ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (\ Bool
b -> if Bool
b then Word64
1 else Word64
0) Bool
_v))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (case
                                    FoldLike
  (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
  QualifiedNewOtrMessage
  QualifiedNewOtrMessage
  (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
  (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy)
-> QualifiedNewOtrMessage
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                      (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'clientMismatchStrategy")
                                      QualifiedNewOtrMessage
_x
                                of
                                  Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                  (Prelude.Just (QualifiedNewOtrMessage'ReportAll ClientMismatchStrategy'ReportAll
v))
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
                                         ((ByteString -> Builder)
-> (ClientMismatchStrategy'ReportAll -> ByteString)
-> ClientMismatchStrategy'ReportAll
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                            (\ ByteString
bs
                                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                          (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                            ClientMismatchStrategy'ReportAll -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ClientMismatchStrategy'ReportAll
v)
                                  (Prelude.Just (QualifiedNewOtrMessage'IgnoreAll ClientMismatchStrategy'IgnoreAll
v))
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
66)
                                         ((ByteString -> Builder)
-> (ClientMismatchStrategy'IgnoreAll -> ByteString)
-> ClientMismatchStrategy'IgnoreAll
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                            (\ ByteString
bs
                                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                          (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                            ClientMismatchStrategy'IgnoreAll -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ClientMismatchStrategy'IgnoreAll
v)
                                  (Prelude.Just (QualifiedNewOtrMessage'ReportOnly ClientMismatchStrategy'ReportOnly
v))
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
74)
                                         ((ByteString -> Builder)
-> (ClientMismatchStrategy'ReportOnly -> ByteString)
-> ClientMismatchStrategy'ReportOnly
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                            (\ ByteString
bs
                                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                          (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                            ClientMismatchStrategy'ReportOnly -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ClientMismatchStrategy'ReportOnly
v)
                                  (Prelude.Just (QualifiedNewOtrMessage'IgnoreOnly ClientMismatchStrategy'IgnoreOnly
v))
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
82)
                                         ((ByteString -> Builder)
-> (ClientMismatchStrategy'IgnoreOnly -> ByteString)
-> ClientMismatchStrategy'IgnoreOnly
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                            (\ ByteString
bs
                                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                          (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                            ClientMismatchStrategy'IgnoreOnly -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ClientMismatchStrategy'IgnoreOnly
v))
                               (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                  (FoldLike
  FieldSet
  QualifiedNewOtrMessage
  QualifiedNewOtrMessage
  FieldSet
  FieldSet
-> QualifiedNewOtrMessage -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  QualifiedNewOtrMessage
  QualifiedNewOtrMessage
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' QualifiedNewOtrMessage FieldSet
Data.ProtoLens.unknownFields QualifiedNewOtrMessage
_x))))))))
instance Control.DeepSeq.NFData QualifiedNewOtrMessage where
  rnf :: QualifiedNewOtrMessage -> ()
rnf
    = \ QualifiedNewOtrMessage
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (QualifiedNewOtrMessage -> FieldSet
_QualifiedNewOtrMessage'_unknownFields QualifiedNewOtrMessage
x__)
             (ClientId -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (QualifiedNewOtrMessage -> ClientId
_QualifiedNewOtrMessage'sender QualifiedNewOtrMessage
x__)
                (Vector QualifiedUserEntry -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (QualifiedNewOtrMessage -> Vector QualifiedUserEntry
_QualifiedNewOtrMessage'recipients QualifiedNewOtrMessage
x__)
                   (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (QualifiedNewOtrMessage -> Maybe Bool
_QualifiedNewOtrMessage'nativePush QualifiedNewOtrMessage
x__)
                      (Maybe ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (QualifiedNewOtrMessage -> Maybe ByteString
_QualifiedNewOtrMessage'blob QualifiedNewOtrMessage
x__)
                         (Maybe Priority -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (QualifiedNewOtrMessage -> Maybe Priority
_QualifiedNewOtrMessage'nativePriority QualifiedNewOtrMessage
x__)
                            (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (QualifiedNewOtrMessage -> Maybe Bool
_QualifiedNewOtrMessage'transient QualifiedNewOtrMessage
x__)
                               (Maybe QualifiedNewOtrMessage'ClientMismatchStrategy -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (QualifiedNewOtrMessage
-> Maybe QualifiedNewOtrMessage'ClientMismatchStrategy
_QualifiedNewOtrMessage'clientMismatchStrategy QualifiedNewOtrMessage
x__) ())))))))
instance Control.DeepSeq.NFData QualifiedNewOtrMessage'ClientMismatchStrategy where
  rnf :: QualifiedNewOtrMessage'ClientMismatchStrategy -> ()
rnf (QualifiedNewOtrMessage'ReportAll ClientMismatchStrategy'ReportAll
x__)
    = ClientMismatchStrategy'ReportAll -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ClientMismatchStrategy'ReportAll
x__
  rnf (QualifiedNewOtrMessage'IgnoreAll ClientMismatchStrategy'IgnoreAll
x__)
    = ClientMismatchStrategy'IgnoreAll -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ClientMismatchStrategy'IgnoreAll
x__
  rnf (QualifiedNewOtrMessage'ReportOnly ClientMismatchStrategy'ReportOnly
x__)
    = ClientMismatchStrategy'ReportOnly -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ClientMismatchStrategy'ReportOnly
x__
  rnf (QualifiedNewOtrMessage'IgnoreOnly ClientMismatchStrategy'IgnoreOnly
x__)
    = ClientMismatchStrategy'IgnoreOnly -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ClientMismatchStrategy'IgnoreOnly
x__
_QualifiedNewOtrMessage'ReportAll ::
  Data.ProtoLens.Prism.Prism' QualifiedNewOtrMessage'ClientMismatchStrategy ClientMismatchStrategy'ReportAll
_QualifiedNewOtrMessage'ReportAll :: Prism'
  QualifiedNewOtrMessage'ClientMismatchStrategy
  ClientMismatchStrategy'ReportAll
_QualifiedNewOtrMessage'ReportAll
  = (ClientMismatchStrategy'ReportAll
 -> QualifiedNewOtrMessage'ClientMismatchStrategy)
-> (QualifiedNewOtrMessage'ClientMismatchStrategy
    -> Maybe ClientMismatchStrategy'ReportAll)
-> Prism'
     QualifiedNewOtrMessage'ClientMismatchStrategy
     ClientMismatchStrategy'ReportAll
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ClientMismatchStrategy'ReportAll
-> QualifiedNewOtrMessage'ClientMismatchStrategy
QualifiedNewOtrMessage'ReportAll
      (\ QualifiedNewOtrMessage'ClientMismatchStrategy
p__
         -> case QualifiedNewOtrMessage'ClientMismatchStrategy
p__ of
              (QualifiedNewOtrMessage'ReportAll ClientMismatchStrategy'ReportAll
p__val) -> ClientMismatchStrategy'ReportAll
-> Maybe ClientMismatchStrategy'ReportAll
forall a. a -> Maybe a
Prelude.Just ClientMismatchStrategy'ReportAll
p__val
              QualifiedNewOtrMessage'ClientMismatchStrategy
_otherwise -> Maybe ClientMismatchStrategy'ReportAll
forall a. Maybe a
Prelude.Nothing)
_QualifiedNewOtrMessage'IgnoreAll ::
  Data.ProtoLens.Prism.Prism' QualifiedNewOtrMessage'ClientMismatchStrategy ClientMismatchStrategy'IgnoreAll
_QualifiedNewOtrMessage'IgnoreAll :: Prism'
  QualifiedNewOtrMessage'ClientMismatchStrategy
  ClientMismatchStrategy'IgnoreAll
_QualifiedNewOtrMessage'IgnoreAll
  = (ClientMismatchStrategy'IgnoreAll
 -> QualifiedNewOtrMessage'ClientMismatchStrategy)
-> (QualifiedNewOtrMessage'ClientMismatchStrategy
    -> Maybe ClientMismatchStrategy'IgnoreAll)
-> Prism'
     QualifiedNewOtrMessage'ClientMismatchStrategy
     ClientMismatchStrategy'IgnoreAll
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ClientMismatchStrategy'IgnoreAll
-> QualifiedNewOtrMessage'ClientMismatchStrategy
QualifiedNewOtrMessage'IgnoreAll
      (\ QualifiedNewOtrMessage'ClientMismatchStrategy
p__
         -> case QualifiedNewOtrMessage'ClientMismatchStrategy
p__ of
              (QualifiedNewOtrMessage'IgnoreAll ClientMismatchStrategy'IgnoreAll
p__val) -> ClientMismatchStrategy'IgnoreAll
-> Maybe ClientMismatchStrategy'IgnoreAll
forall a. a -> Maybe a
Prelude.Just ClientMismatchStrategy'IgnoreAll
p__val
              QualifiedNewOtrMessage'ClientMismatchStrategy
_otherwise -> Maybe ClientMismatchStrategy'IgnoreAll
forall a. Maybe a
Prelude.Nothing)
_QualifiedNewOtrMessage'ReportOnly ::
  Data.ProtoLens.Prism.Prism' QualifiedNewOtrMessage'ClientMismatchStrategy ClientMismatchStrategy'ReportOnly
_QualifiedNewOtrMessage'ReportOnly :: Prism'
  QualifiedNewOtrMessage'ClientMismatchStrategy
  ClientMismatchStrategy'ReportOnly
_QualifiedNewOtrMessage'ReportOnly
  = (ClientMismatchStrategy'ReportOnly
 -> QualifiedNewOtrMessage'ClientMismatchStrategy)
-> (QualifiedNewOtrMessage'ClientMismatchStrategy
    -> Maybe ClientMismatchStrategy'ReportOnly)
-> Prism'
     QualifiedNewOtrMessage'ClientMismatchStrategy
     ClientMismatchStrategy'ReportOnly
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ClientMismatchStrategy'ReportOnly
-> QualifiedNewOtrMessage'ClientMismatchStrategy
QualifiedNewOtrMessage'ReportOnly
      (\ QualifiedNewOtrMessage'ClientMismatchStrategy
p__
         -> case QualifiedNewOtrMessage'ClientMismatchStrategy
p__ of
              (QualifiedNewOtrMessage'ReportOnly ClientMismatchStrategy'ReportOnly
p__val) -> ClientMismatchStrategy'ReportOnly
-> Maybe ClientMismatchStrategy'ReportOnly
forall a. a -> Maybe a
Prelude.Just ClientMismatchStrategy'ReportOnly
p__val
              QualifiedNewOtrMessage'ClientMismatchStrategy
_otherwise -> Maybe ClientMismatchStrategy'ReportOnly
forall a. Maybe a
Prelude.Nothing)
_QualifiedNewOtrMessage'IgnoreOnly ::
  Data.ProtoLens.Prism.Prism' QualifiedNewOtrMessage'ClientMismatchStrategy ClientMismatchStrategy'IgnoreOnly
_QualifiedNewOtrMessage'IgnoreOnly :: Prism'
  QualifiedNewOtrMessage'ClientMismatchStrategy
  ClientMismatchStrategy'IgnoreOnly
_QualifiedNewOtrMessage'IgnoreOnly
  = (ClientMismatchStrategy'IgnoreOnly
 -> QualifiedNewOtrMessage'ClientMismatchStrategy)
-> (QualifiedNewOtrMessage'ClientMismatchStrategy
    -> Maybe ClientMismatchStrategy'IgnoreOnly)
-> Prism'
     QualifiedNewOtrMessage'ClientMismatchStrategy
     ClientMismatchStrategy'IgnoreOnly
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ClientMismatchStrategy'IgnoreOnly
-> QualifiedNewOtrMessage'ClientMismatchStrategy
QualifiedNewOtrMessage'IgnoreOnly
      (\ QualifiedNewOtrMessage'ClientMismatchStrategy
p__
         -> case QualifiedNewOtrMessage'ClientMismatchStrategy
p__ of
              (QualifiedNewOtrMessage'IgnoreOnly ClientMismatchStrategy'IgnoreOnly
p__val) -> ClientMismatchStrategy'IgnoreOnly
-> Maybe ClientMismatchStrategy'IgnoreOnly
forall a. a -> Maybe a
Prelude.Just ClientMismatchStrategy'IgnoreOnly
p__val
              QualifiedNewOtrMessage'ClientMismatchStrategy
_otherwise -> Maybe ClientMismatchStrategy'IgnoreOnly
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Otr_Fields.domain' @:: Lens' QualifiedUserEntry Data.Text.Text@
         * 'Proto.Otr_Fields.entries' @:: Lens' QualifiedUserEntry [UserEntry]@
         * 'Proto.Otr_Fields.vec'entries' @:: Lens' QualifiedUserEntry (Data.Vector.Vector UserEntry)@ -}
data QualifiedUserEntry
  = QualifiedUserEntry'_constructor {QualifiedUserEntry -> Text
_QualifiedUserEntry'domain :: !Data.Text.Text,
                                     QualifiedUserEntry -> Vector UserEntry
_QualifiedUserEntry'entries :: !(Data.Vector.Vector UserEntry),
                                     QualifiedUserEntry -> FieldSet
_QualifiedUserEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (QualifiedUserEntry -> QualifiedUserEntry -> Bool
(QualifiedUserEntry -> QualifiedUserEntry -> Bool)
-> (QualifiedUserEntry -> QualifiedUserEntry -> Bool)
-> Eq QualifiedUserEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: QualifiedUserEntry -> QualifiedUserEntry -> Bool
== :: QualifiedUserEntry -> QualifiedUserEntry -> Bool
$c/= :: QualifiedUserEntry -> QualifiedUserEntry -> Bool
/= :: QualifiedUserEntry -> QualifiedUserEntry -> Bool
Prelude.Eq, Eq QualifiedUserEntry
Eq QualifiedUserEntry =>
(QualifiedUserEntry -> QualifiedUserEntry -> Ordering)
-> (QualifiedUserEntry -> QualifiedUserEntry -> Bool)
-> (QualifiedUserEntry -> QualifiedUserEntry -> Bool)
-> (QualifiedUserEntry -> QualifiedUserEntry -> Bool)
-> (QualifiedUserEntry -> QualifiedUserEntry -> Bool)
-> (QualifiedUserEntry -> QualifiedUserEntry -> QualifiedUserEntry)
-> (QualifiedUserEntry -> QualifiedUserEntry -> QualifiedUserEntry)
-> Ord QualifiedUserEntry
QualifiedUserEntry -> QualifiedUserEntry -> Bool
QualifiedUserEntry -> QualifiedUserEntry -> Ordering
QualifiedUserEntry -> QualifiedUserEntry -> QualifiedUserEntry
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: QualifiedUserEntry -> QualifiedUserEntry -> Ordering
compare :: QualifiedUserEntry -> QualifiedUserEntry -> Ordering
$c< :: QualifiedUserEntry -> QualifiedUserEntry -> Bool
< :: QualifiedUserEntry -> QualifiedUserEntry -> Bool
$c<= :: QualifiedUserEntry -> QualifiedUserEntry -> Bool
<= :: QualifiedUserEntry -> QualifiedUserEntry -> Bool
$c> :: QualifiedUserEntry -> QualifiedUserEntry -> Bool
> :: QualifiedUserEntry -> QualifiedUserEntry -> Bool
$c>= :: QualifiedUserEntry -> QualifiedUserEntry -> Bool
>= :: QualifiedUserEntry -> QualifiedUserEntry -> Bool
$cmax :: QualifiedUserEntry -> QualifiedUserEntry -> QualifiedUserEntry
max :: QualifiedUserEntry -> QualifiedUserEntry -> QualifiedUserEntry
$cmin :: QualifiedUserEntry -> QualifiedUserEntry -> QualifiedUserEntry
min :: QualifiedUserEntry -> QualifiedUserEntry -> QualifiedUserEntry
Prelude.Ord)
instance Prelude.Show QualifiedUserEntry where
  showsPrec :: Int -> QualifiedUserEntry -> ShowS
showsPrec Int
_ QualifiedUserEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (QualifiedUserEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort QualifiedUserEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField QualifiedUserEntry "domain" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "domain"
-> (Text -> f Text) -> QualifiedUserEntry -> f QualifiedUserEntry
fieldOf Proxy# "domain"
_
    = ((Text -> f Text) -> QualifiedUserEntry -> f QualifiedUserEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> QualifiedUserEntry
-> f QualifiedUserEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedUserEntry -> Text)
-> (QualifiedUserEntry -> Text -> QualifiedUserEntry)
-> Lens QualifiedUserEntry QualifiedUserEntry Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedUserEntry -> Text
_QualifiedUserEntry'domain
           (\ QualifiedUserEntry
x__ Text
y__ -> QualifiedUserEntry
x__ {_QualifiedUserEntry'domain = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField QualifiedUserEntry "entries" [UserEntry] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "entries"
-> ([UserEntry] -> f [UserEntry])
-> QualifiedUserEntry
-> f QualifiedUserEntry
fieldOf Proxy# "entries"
_
    = ((Vector UserEntry -> f (Vector UserEntry))
 -> QualifiedUserEntry -> f QualifiedUserEntry)
-> (([UserEntry] -> f [UserEntry])
    -> Vector UserEntry -> f (Vector UserEntry))
-> ([UserEntry] -> f [UserEntry])
-> QualifiedUserEntry
-> f QualifiedUserEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedUserEntry -> Vector UserEntry)
-> (QualifiedUserEntry -> Vector UserEntry -> QualifiedUserEntry)
-> Lens
     QualifiedUserEntry
     QualifiedUserEntry
     (Vector UserEntry)
     (Vector UserEntry)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedUserEntry -> Vector UserEntry
_QualifiedUserEntry'entries
           (\ QualifiedUserEntry
x__ Vector UserEntry
y__ -> QualifiedUserEntry
x__ {_QualifiedUserEntry'entries = y__}))
        ((Vector UserEntry -> [UserEntry])
-> (Vector UserEntry -> [UserEntry] -> Vector UserEntry)
-> Lens
     (Vector UserEntry) (Vector UserEntry) [UserEntry] [UserEntry]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector UserEntry -> [UserEntry]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector UserEntry
_ [UserEntry]
y__ -> [UserEntry] -> Vector UserEntry
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [UserEntry]
y__))
instance Data.ProtoLens.Field.HasField QualifiedUserEntry "vec'entries" (Data.Vector.Vector UserEntry) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'entries"
-> (Vector UserEntry -> f (Vector UserEntry))
-> QualifiedUserEntry
-> f QualifiedUserEntry
fieldOf Proxy# "vec'entries"
_
    = ((Vector UserEntry -> f (Vector UserEntry))
 -> QualifiedUserEntry -> f QualifiedUserEntry)
-> ((Vector UserEntry -> f (Vector UserEntry))
    -> Vector UserEntry -> f (Vector UserEntry))
-> (Vector UserEntry -> f (Vector UserEntry))
-> QualifiedUserEntry
-> f QualifiedUserEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedUserEntry -> Vector UserEntry)
-> (QualifiedUserEntry -> Vector UserEntry -> QualifiedUserEntry)
-> Lens
     QualifiedUserEntry
     QualifiedUserEntry
     (Vector UserEntry)
     (Vector UserEntry)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedUserEntry -> Vector UserEntry
_QualifiedUserEntry'entries
           (\ QualifiedUserEntry
x__ Vector UserEntry
y__ -> QualifiedUserEntry
x__ {_QualifiedUserEntry'entries = y__}))
        (Vector UserEntry -> f (Vector UserEntry))
-> Vector UserEntry -> f (Vector UserEntry)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message QualifiedUserEntry where
  messageName :: Proxy QualifiedUserEntry -> Text
messageName Proxy QualifiedUserEntry
_ = String -> Text
Data.Text.pack String
"proteus.QualifiedUserEntry"
  packedMessageDescriptor :: Proxy QualifiedUserEntry -> ByteString
packedMessageDescriptor Proxy QualifiedUserEntry
_
    = ByteString
"\n\
      \\DC2QualifiedUserEntry\DC2\SYN\n\
      \\ACKdomain\CAN\SOH \STX(\tR\ACKdomain\DC2,\n\
      \\aentries\CAN\STX \ETX(\v2\DC2.proteus.UserEntryR\aentries"
  packedFileDescriptor :: Proxy QualifiedUserEntry -> ByteString
packedFileDescriptor Proxy QualifiedUserEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor QualifiedUserEntry)
fieldsByTag
    = let
        domain__field_descriptor :: FieldDescriptor QualifiedUserEntry
domain__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor QualifiedUserEntry Text
-> FieldDescriptor QualifiedUserEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"domain"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens QualifiedUserEntry QualifiedUserEntry Text Text
-> FieldAccessor QualifiedUserEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. WireDefault value
Data.ProtoLens.Required (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"domain")) ::
              Data.ProtoLens.FieldDescriptor QualifiedUserEntry
        entries__field_descriptor :: FieldDescriptor QualifiedUserEntry
entries__field_descriptor
          = String
-> FieldTypeDescriptor UserEntry
-> FieldAccessor QualifiedUserEntry UserEntry
-> FieldDescriptor QualifiedUserEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"entries"
              (MessageOrGroup -> FieldTypeDescriptor UserEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UserEntry)
              (Packing
-> Lens' QualifiedUserEntry [UserEntry]
-> FieldAccessor QualifiedUserEntry UserEntry
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"entries")) ::
              Data.ProtoLens.FieldDescriptor QualifiedUserEntry
      in
        [(Tag, FieldDescriptor QualifiedUserEntry)]
-> Map Tag (FieldDescriptor QualifiedUserEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor QualifiedUserEntry
domain__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor QualifiedUserEntry
entries__field_descriptor)]
  unknownFields :: Lens' QualifiedUserEntry FieldSet
unknownFields
    = (QualifiedUserEntry -> FieldSet)
-> (QualifiedUserEntry -> FieldSet -> QualifiedUserEntry)
-> Lens' QualifiedUserEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        QualifiedUserEntry -> FieldSet
_QualifiedUserEntry'_unknownFields
        (\ QualifiedUserEntry
x__ FieldSet
y__ -> QualifiedUserEntry
x__ {_QualifiedUserEntry'_unknownFields = y__})
  defMessage :: QualifiedUserEntry
defMessage
    = QualifiedUserEntry'_constructor
        {$sel:_QualifiedUserEntry'domain:QualifiedUserEntry'_constructor :: Text
_QualifiedUserEntry'domain = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         $sel:_QualifiedUserEntry'entries:QualifiedUserEntry'_constructor :: Vector UserEntry
_QualifiedUserEntry'entries = Vector UserEntry
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         $sel:_QualifiedUserEntry'_unknownFields:QualifiedUserEntry'_constructor :: FieldSet
_QualifiedUserEntry'_unknownFields = []}
  parseMessage :: Parser QualifiedUserEntry
parseMessage
    = let
        loop ::
          QualifiedUserEntry
          -> Prelude.Bool
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UserEntry
                -> Data.ProtoLens.Encoding.Bytes.Parser QualifiedUserEntry
        loop :: QualifiedUserEntry
-> Bool
-> Growing Vector RealWorld UserEntry
-> Parser QualifiedUserEntry
loop QualifiedUserEntry
x Bool
required'domain Growing Vector RealWorld UserEntry
mutable'entries
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector UserEntry
frozen'entries <- IO (Vector UserEntry) -> Parser (Vector UserEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Growing Vector (PrimState IO) UserEntry -> IO (Vector UserEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             Growing Vector RealWorld UserEntry
Growing Vector (PrimState IO) UserEntry
mutable'entries)
                      (let
                         missing :: [String]
missing = (if Bool
required'domain then (:) String
"domain" else [String] -> [String]
forall a. a -> a
Prelude.id) []
                       in
                         if [String] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [String]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
missing :: [Prelude.String]))))
                      QualifiedUserEntry -> Parser QualifiedUserEntry
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter QualifiedUserEntry QualifiedUserEntry FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> QualifiedUserEntry
-> QualifiedUserEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f QualifiedUserEntry FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' QualifiedUserEntry FieldSet
Setter QualifiedUserEntry QualifiedUserEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  QualifiedUserEntry
  QualifiedUserEntry
  (Vector UserEntry)
  (Vector UserEntry)
-> Vector UserEntry -> QualifiedUserEntry -> QualifiedUserEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'entries") Vector UserEntry
frozen'entries QualifiedUserEntry
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Text
Data.ProtoLens.Encoding.Bytes.getText
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"domain"
                                QualifiedUserEntry
-> Bool
-> Growing Vector RealWorld UserEntry
-> Parser QualifiedUserEntry
loop
                                  (Setter QualifiedUserEntry QualifiedUserEntry Text Text
-> Text -> QualifiedUserEntry -> QualifiedUserEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"domain") Text
y QualifiedUserEntry
x)
                                  Bool
Prelude.False Growing Vector RealWorld UserEntry
mutable'entries
                        Word64
18
                          -> do !UserEntry
y <- Parser UserEntry -> String -> Parser UserEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser UserEntry -> Parser UserEntry
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser UserEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"entries"
                                Growing Vector RealWorld UserEntry
v <- IO (Growing Vector RealWorld UserEntry)
-> Parser (Growing Vector RealWorld UserEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) UserEntry
-> UserEntry -> IO (Growing Vector (PrimState IO) UserEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld UserEntry
Growing Vector (PrimState IO) UserEntry
mutable'entries UserEntry
y)
                                QualifiedUserEntry
-> Bool
-> Growing Vector RealWorld UserEntry
-> Parser QualifiedUserEntry
loop QualifiedUserEntry
x Bool
required'domain Growing Vector RealWorld UserEntry
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                QualifiedUserEntry
-> Bool
-> Growing Vector RealWorld UserEntry
-> Parser QualifiedUserEntry
loop
                                  (Setter QualifiedUserEntry QualifiedUserEntry FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> QualifiedUserEntry
-> QualifiedUserEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f QualifiedUserEntry FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' QualifiedUserEntry FieldSet
Setter QualifiedUserEntry QualifiedUserEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) QualifiedUserEntry
x)
                                  Bool
required'domain Growing Vector RealWorld UserEntry
mutable'entries
      in
        Parser QualifiedUserEntry -> String -> Parser QualifiedUserEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld UserEntry
mutable'entries <- IO (Growing Vector RealWorld UserEntry)
-> Parser (Growing Vector RealWorld UserEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld UserEntry)
IO (Growing Vector (PrimState IO) UserEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              QualifiedUserEntry
-> Bool
-> Growing Vector RealWorld UserEntry
-> Parser QualifiedUserEntry
loop QualifiedUserEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage Bool
Prelude.True Growing Vector RealWorld UserEntry
mutable'entries)
          String
"QualifiedUserEntry"
  buildMessage :: QualifiedUserEntry -> Builder
buildMessage
    = \ QualifiedUserEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                   (\ ByteString
bs
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                   Text -> ByteString
Data.Text.Encoding.encodeUtf8
                   (FoldLike Text QualifiedUserEntry QualifiedUserEntry Text Text
-> QualifiedUserEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"domain") QualifiedUserEntry
_x)))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((UserEntry -> Builder) -> Vector UserEntry -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ UserEntry
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (UserEntry -> ByteString) -> UserEntry -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                              (\ ByteString
bs
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                      (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                              UserEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage UserEntry
_v))
                   (FoldLike
  (Vector UserEntry)
  QualifiedUserEntry
  QualifiedUserEntry
  (Vector UserEntry)
  (Vector UserEntry)
-> QualifiedUserEntry -> Vector UserEntry
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'entries") QualifiedUserEntry
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet QualifiedUserEntry QualifiedUserEntry FieldSet FieldSet
-> QualifiedUserEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet QualifiedUserEntry QualifiedUserEntry FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' QualifiedUserEntry FieldSet
Data.ProtoLens.unknownFields QualifiedUserEntry
_x)))
instance Control.DeepSeq.NFData QualifiedUserEntry where
  rnf :: QualifiedUserEntry -> ()
rnf
    = \ QualifiedUserEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (QualifiedUserEntry -> FieldSet
_QualifiedUserEntry'_unknownFields QualifiedUserEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (QualifiedUserEntry -> Text
_QualifiedUserEntry'domain QualifiedUserEntry
x__)
                (Vector UserEntry -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (QualifiedUserEntry -> Vector UserEntry
_QualifiedUserEntry'entries QualifiedUserEntry
x__) ()))
{- | Fields :
     
         * 'Proto.Otr_Fields.id' @:: Lens' QualifiedUserId Data.Text.Text@
         * 'Proto.Otr_Fields.domain' @:: Lens' QualifiedUserId Data.Text.Text@ -}
data QualifiedUserId
  = QualifiedUserId'_constructor {QualifiedUserId -> Text
_QualifiedUserId'id :: !Data.Text.Text,
                                  QualifiedUserId -> Text
_QualifiedUserId'domain :: !Data.Text.Text,
                                  QualifiedUserId -> FieldSet
_QualifiedUserId'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (QualifiedUserId -> QualifiedUserId -> Bool
(QualifiedUserId -> QualifiedUserId -> Bool)
-> (QualifiedUserId -> QualifiedUserId -> Bool)
-> Eq QualifiedUserId
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: QualifiedUserId -> QualifiedUserId -> Bool
== :: QualifiedUserId -> QualifiedUserId -> Bool
$c/= :: QualifiedUserId -> QualifiedUserId -> Bool
/= :: QualifiedUserId -> QualifiedUserId -> Bool
Prelude.Eq, Eq QualifiedUserId
Eq QualifiedUserId =>
(QualifiedUserId -> QualifiedUserId -> Ordering)
-> (QualifiedUserId -> QualifiedUserId -> Bool)
-> (QualifiedUserId -> QualifiedUserId -> Bool)
-> (QualifiedUserId -> QualifiedUserId -> Bool)
-> (QualifiedUserId -> QualifiedUserId -> Bool)
-> (QualifiedUserId -> QualifiedUserId -> QualifiedUserId)
-> (QualifiedUserId -> QualifiedUserId -> QualifiedUserId)
-> Ord QualifiedUserId
QualifiedUserId -> QualifiedUserId -> Bool
QualifiedUserId -> QualifiedUserId -> Ordering
QualifiedUserId -> QualifiedUserId -> QualifiedUserId
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: QualifiedUserId -> QualifiedUserId -> Ordering
compare :: QualifiedUserId -> QualifiedUserId -> Ordering
$c< :: QualifiedUserId -> QualifiedUserId -> Bool
< :: QualifiedUserId -> QualifiedUserId -> Bool
$c<= :: QualifiedUserId -> QualifiedUserId -> Bool
<= :: QualifiedUserId -> QualifiedUserId -> Bool
$c> :: QualifiedUserId -> QualifiedUserId -> Bool
> :: QualifiedUserId -> QualifiedUserId -> Bool
$c>= :: QualifiedUserId -> QualifiedUserId -> Bool
>= :: QualifiedUserId -> QualifiedUserId -> Bool
$cmax :: QualifiedUserId -> QualifiedUserId -> QualifiedUserId
max :: QualifiedUserId -> QualifiedUserId -> QualifiedUserId
$cmin :: QualifiedUserId -> QualifiedUserId -> QualifiedUserId
min :: QualifiedUserId -> QualifiedUserId -> QualifiedUserId
Prelude.Ord)
instance Prelude.Show QualifiedUserId where
  showsPrec :: Int -> QualifiedUserId -> ShowS
showsPrec Int
_ QualifiedUserId
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (QualifiedUserId -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort QualifiedUserId
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField QualifiedUserId "id" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id"
-> (Text -> f Text) -> QualifiedUserId -> f QualifiedUserId
fieldOf Proxy# "id"
_
    = ((Text -> f Text) -> QualifiedUserId -> f QualifiedUserId)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> QualifiedUserId
-> f QualifiedUserId
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedUserId -> Text)
-> (QualifiedUserId -> Text -> QualifiedUserId)
-> Lens QualifiedUserId QualifiedUserId Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedUserId -> Text
_QualifiedUserId'id (\ QualifiedUserId
x__ Text
y__ -> QualifiedUserId
x__ {_QualifiedUserId'id = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField QualifiedUserId "domain" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "domain"
-> (Text -> f Text) -> QualifiedUserId -> f QualifiedUserId
fieldOf Proxy# "domain"
_
    = ((Text -> f Text) -> QualifiedUserId -> f QualifiedUserId)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> QualifiedUserId
-> f QualifiedUserId
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QualifiedUserId -> Text)
-> (QualifiedUserId -> Text -> QualifiedUserId)
-> Lens QualifiedUserId QualifiedUserId Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QualifiedUserId -> Text
_QualifiedUserId'domain
           (\ QualifiedUserId
x__ Text
y__ -> QualifiedUserId
x__ {_QualifiedUserId'domain = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message QualifiedUserId where
  messageName :: Proxy QualifiedUserId -> Text
messageName Proxy QualifiedUserId
_ = String -> Text
Data.Text.pack String
"proteus.QualifiedUserId"
  packedMessageDescriptor :: Proxy QualifiedUserId -> ByteString
packedMessageDescriptor Proxy QualifiedUserId
_
    = ByteString
"\n\
      \\SIQualifiedUserId\DC2\SO\n\
      \\STXid\CAN\SOH \STX(\tR\STXid\DC2\SYN\n\
      \\ACKdomain\CAN\STX \STX(\tR\ACKdomain"
  packedFileDescriptor :: Proxy QualifiedUserId -> ByteString
packedFileDescriptor Proxy QualifiedUserId
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor QualifiedUserId)
fieldsByTag
    = let
        id__field_descriptor :: FieldDescriptor QualifiedUserId
id__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor QualifiedUserId Text
-> FieldDescriptor QualifiedUserId
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"id"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens QualifiedUserId QualifiedUserId Text Text
-> FieldAccessor QualifiedUserId Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. WireDefault value
Data.ProtoLens.Required (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"id")) ::
              Data.ProtoLens.FieldDescriptor QualifiedUserId
        domain__field_descriptor :: FieldDescriptor QualifiedUserId
domain__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor QualifiedUserId Text
-> FieldDescriptor QualifiedUserId
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"domain"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens QualifiedUserId QualifiedUserId Text Text
-> FieldAccessor QualifiedUserId Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. WireDefault value
Data.ProtoLens.Required (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"domain")) ::
              Data.ProtoLens.FieldDescriptor QualifiedUserId
      in
        [(Tag, FieldDescriptor QualifiedUserId)]
-> Map Tag (FieldDescriptor QualifiedUserId)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor QualifiedUserId
id__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor QualifiedUserId
domain__field_descriptor)]
  unknownFields :: Lens' QualifiedUserId FieldSet
unknownFields
    = (QualifiedUserId -> FieldSet)
-> (QualifiedUserId -> FieldSet -> QualifiedUserId)
-> Lens' QualifiedUserId FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        QualifiedUserId -> FieldSet
_QualifiedUserId'_unknownFields
        (\ QualifiedUserId
x__ FieldSet
y__ -> QualifiedUserId
x__ {_QualifiedUserId'_unknownFields = y__})
  defMessage :: QualifiedUserId
defMessage
    = QualifiedUserId'_constructor
        {$sel:_QualifiedUserId'id:QualifiedUserId'_constructor :: Text
_QualifiedUserId'id = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         $sel:_QualifiedUserId'domain:QualifiedUserId'_constructor :: Text
_QualifiedUserId'domain = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         $sel:_QualifiedUserId'_unknownFields:QualifiedUserId'_constructor :: FieldSet
_QualifiedUserId'_unknownFields = []}
  parseMessage :: Parser QualifiedUserId
parseMessage
    = let
        loop ::
          QualifiedUserId
          -> Prelude.Bool
             -> Prelude.Bool
                -> Data.ProtoLens.Encoding.Bytes.Parser QualifiedUserId
        loop :: QualifiedUserId -> Bool -> Bool -> Parser QualifiedUserId
loop QualifiedUserId
x Bool
required'domain Bool
required'id
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let
                         missing :: [String]
missing
                           = (if Bool
required'domain then (:) String
"domain" else [String] -> [String]
forall a. a -> a
Prelude.id)
                               ((if Bool
required'id then (:) String
"id" else [String] -> [String]
forall a. a -> a
Prelude.id) [])
                       in
                         if [String] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [String]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
missing :: [Prelude.String]))))
                      QualifiedUserId -> Parser QualifiedUserId
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter QualifiedUserId QualifiedUserId FieldSet FieldSet
-> (FieldSet -> FieldSet) -> QualifiedUserId -> QualifiedUserId
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f QualifiedUserId FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' QualifiedUserId FieldSet
Setter QualifiedUserId QualifiedUserId FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) QualifiedUserId
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Text
Data.ProtoLens.Encoding.Bytes.getText
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"id"
                                QualifiedUserId -> Bool -> Bool -> Parser QualifiedUserId
loop
                                  (Setter QualifiedUserId QualifiedUserId Text Text
-> Text -> QualifiedUserId -> QualifiedUserId
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"id") Text
y QualifiedUserId
x)
                                  Bool
required'domain Bool
Prelude.False
                        Word64
18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Text
Data.ProtoLens.Encoding.Bytes.getText
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"domain"
                                QualifiedUserId -> Bool -> Bool -> Parser QualifiedUserId
loop
                                  (Setter QualifiedUserId QualifiedUserId Text Text
-> Text -> QualifiedUserId -> QualifiedUserId
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"domain") Text
y QualifiedUserId
x)
                                  Bool
Prelude.False Bool
required'id
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                QualifiedUserId -> Bool -> Bool -> Parser QualifiedUserId
loop
                                  (Setter QualifiedUserId QualifiedUserId FieldSet FieldSet
-> (FieldSet -> FieldSet) -> QualifiedUserId -> QualifiedUserId
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f QualifiedUserId FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' QualifiedUserId FieldSet
Setter QualifiedUserId QualifiedUserId FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) QualifiedUserId
x)
                                  Bool
required'domain Bool
required'id
      in
        Parser QualifiedUserId -> String -> Parser QualifiedUserId
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do QualifiedUserId -> Bool -> Bool -> Parser QualifiedUserId
loop QualifiedUserId
forall msg. Message msg => msg
Data.ProtoLens.defMessage Bool
Prelude.True Bool
Prelude.True)
          String
"QualifiedUserId"
  buildMessage :: QualifiedUserId -> Builder
buildMessage
    = \ QualifiedUserId
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                   (\ ByteString
bs
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                   Text -> ByteString
Data.Text.Encoding.encodeUtf8
                   (FoldLike Text QualifiedUserId QualifiedUserId Text Text
-> QualifiedUserId -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"id") QualifiedUserId
_x)))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                   ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                      (\ ByteString
bs
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                 (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                              (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                      Text -> ByteString
Data.Text.Encoding.encodeUtf8
                      (FoldLike Text QualifiedUserId QualifiedUserId Text Text
-> QualifiedUserId -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"domain") QualifiedUserId
_x)))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet QualifiedUserId QualifiedUserId FieldSet FieldSet
-> QualifiedUserId -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet QualifiedUserId QualifiedUserId FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' QualifiedUserId FieldSet
Data.ProtoLens.unknownFields QualifiedUserId
_x)))
instance Control.DeepSeq.NFData QualifiedUserId where
  rnf :: QualifiedUserId -> ()
rnf
    = \ QualifiedUserId
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (QualifiedUserId -> FieldSet
_QualifiedUserId'_unknownFields QualifiedUserId
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (QualifiedUserId -> Text
_QualifiedUserId'id QualifiedUserId
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (QualifiedUserId -> Text
_QualifiedUserId'domain QualifiedUserId
x__) ()))
{- | Fields :
     
         * 'Proto.Otr_Fields.user' @:: Lens' UserEntry UserId@
         * 'Proto.Otr_Fields.clients' @:: Lens' UserEntry [ClientEntry]@
         * 'Proto.Otr_Fields.vec'clients' @:: Lens' UserEntry (Data.Vector.Vector ClientEntry)@ -}
data UserEntry
  = UserEntry'_constructor {UserEntry -> UserId
_UserEntry'user :: !UserId,
                            UserEntry -> Vector ClientEntry
_UserEntry'clients :: !(Data.Vector.Vector ClientEntry),
                            UserEntry -> FieldSet
_UserEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (UserEntry -> UserEntry -> Bool
(UserEntry -> UserEntry -> Bool)
-> (UserEntry -> UserEntry -> Bool) -> Eq UserEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: UserEntry -> UserEntry -> Bool
== :: UserEntry -> UserEntry -> Bool
$c/= :: UserEntry -> UserEntry -> Bool
/= :: UserEntry -> UserEntry -> Bool
Prelude.Eq, Eq UserEntry
Eq UserEntry =>
(UserEntry -> UserEntry -> Ordering)
-> (UserEntry -> UserEntry -> Bool)
-> (UserEntry -> UserEntry -> Bool)
-> (UserEntry -> UserEntry -> Bool)
-> (UserEntry -> UserEntry -> Bool)
-> (UserEntry -> UserEntry -> UserEntry)
-> (UserEntry -> UserEntry -> UserEntry)
-> Ord UserEntry
UserEntry -> UserEntry -> Bool
UserEntry -> UserEntry -> Ordering
UserEntry -> UserEntry -> UserEntry
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: UserEntry -> UserEntry -> Ordering
compare :: UserEntry -> UserEntry -> Ordering
$c< :: UserEntry -> UserEntry -> Bool
< :: UserEntry -> UserEntry -> Bool
$c<= :: UserEntry -> UserEntry -> Bool
<= :: UserEntry -> UserEntry -> Bool
$c> :: UserEntry -> UserEntry -> Bool
> :: UserEntry -> UserEntry -> Bool
$c>= :: UserEntry -> UserEntry -> Bool
>= :: UserEntry -> UserEntry -> Bool
$cmax :: UserEntry -> UserEntry -> UserEntry
max :: UserEntry -> UserEntry -> UserEntry
$cmin :: UserEntry -> UserEntry -> UserEntry
min :: UserEntry -> UserEntry -> UserEntry
Prelude.Ord)
instance Prelude.Show UserEntry where
  showsPrec :: Int -> UserEntry -> ShowS
showsPrec Int
_ UserEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (UserEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort UserEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField UserEntry "user" UserId where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "user" -> (UserId -> f UserId) -> UserEntry -> f UserEntry
fieldOf Proxy# "user"
_
    = ((UserId -> f UserId) -> UserEntry -> f UserEntry)
-> ((UserId -> f UserId) -> UserId -> f UserId)
-> (UserId -> f UserId)
-> UserEntry
-> f UserEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UserEntry -> UserId)
-> (UserEntry -> UserId -> UserEntry)
-> Lens UserEntry UserEntry UserId UserId
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UserEntry -> UserId
_UserEntry'user (\ UserEntry
x__ UserId
y__ -> UserEntry
x__ {_UserEntry'user = y__}))
        (UserId -> f UserId) -> UserId -> f UserId
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UserEntry "clients" [ClientEntry] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "clients"
-> ([ClientEntry] -> f [ClientEntry]) -> UserEntry -> f UserEntry
fieldOf Proxy# "clients"
_
    = ((Vector ClientEntry -> f (Vector ClientEntry))
 -> UserEntry -> f UserEntry)
-> (([ClientEntry] -> f [ClientEntry])
    -> Vector ClientEntry -> f (Vector ClientEntry))
-> ([ClientEntry] -> f [ClientEntry])
-> UserEntry
-> f UserEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UserEntry -> Vector ClientEntry)
-> (UserEntry -> Vector ClientEntry -> UserEntry)
-> Lens
     UserEntry UserEntry (Vector ClientEntry) (Vector ClientEntry)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UserEntry -> Vector ClientEntry
_UserEntry'clients (\ UserEntry
x__ Vector ClientEntry
y__ -> UserEntry
x__ {_UserEntry'clients = y__}))
        ((Vector ClientEntry -> [ClientEntry])
-> (Vector ClientEntry -> [ClientEntry] -> Vector ClientEntry)
-> Lens
     (Vector ClientEntry)
     (Vector ClientEntry)
     [ClientEntry]
     [ClientEntry]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector ClientEntry -> [ClientEntry]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector ClientEntry
_ [ClientEntry]
y__ -> [ClientEntry] -> Vector ClientEntry
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ClientEntry]
y__))
instance Data.ProtoLens.Field.HasField UserEntry "vec'clients" (Data.Vector.Vector ClientEntry) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'clients"
-> (Vector ClientEntry -> f (Vector ClientEntry))
-> UserEntry
-> f UserEntry
fieldOf Proxy# "vec'clients"
_
    = ((Vector ClientEntry -> f (Vector ClientEntry))
 -> UserEntry -> f UserEntry)
-> ((Vector ClientEntry -> f (Vector ClientEntry))
    -> Vector ClientEntry -> f (Vector ClientEntry))
-> (Vector ClientEntry -> f (Vector ClientEntry))
-> UserEntry
-> f UserEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UserEntry -> Vector ClientEntry)
-> (UserEntry -> Vector ClientEntry -> UserEntry)
-> Lens
     UserEntry UserEntry (Vector ClientEntry) (Vector ClientEntry)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UserEntry -> Vector ClientEntry
_UserEntry'clients (\ UserEntry
x__ Vector ClientEntry
y__ -> UserEntry
x__ {_UserEntry'clients = y__}))
        (Vector ClientEntry -> f (Vector ClientEntry))
-> Vector ClientEntry -> f (Vector ClientEntry)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message UserEntry where
  messageName :: Proxy UserEntry -> Text
messageName Proxy UserEntry
_ = String -> Text
Data.Text.pack String
"proteus.UserEntry"
  packedMessageDescriptor :: Proxy UserEntry -> ByteString
packedMessageDescriptor Proxy UserEntry
_
    = ByteString
"\n\
      \\tUserEntry\DC2#\n\
      \\EOTuser\CAN\SOH \STX(\v2\SI.proteus.UserIdR\EOTuser\DC2.\n\
      \\aclients\CAN\STX \ETX(\v2\DC4.proteus.ClientEntryR\aclients"
  packedFileDescriptor :: Proxy UserEntry -> ByteString
packedFileDescriptor Proxy UserEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor UserEntry)
fieldsByTag
    = let
        user__field_descriptor :: FieldDescriptor UserEntry
user__field_descriptor
          = String
-> FieldTypeDescriptor UserId
-> FieldAccessor UserEntry UserId
-> FieldDescriptor UserEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"user"
              (MessageOrGroup -> FieldTypeDescriptor UserId
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UserId)
              (WireDefault UserId
-> Lens UserEntry UserEntry UserId UserId
-> FieldAccessor UserEntry UserId
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault UserId
forall value. WireDefault value
Data.ProtoLens.Required (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"user")) ::
              Data.ProtoLens.FieldDescriptor UserEntry
        clients__field_descriptor :: FieldDescriptor UserEntry
clients__field_descriptor
          = String
-> FieldTypeDescriptor ClientEntry
-> FieldAccessor UserEntry ClientEntry
-> FieldDescriptor UserEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"clients"
              (MessageOrGroup -> FieldTypeDescriptor ClientEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ClientEntry)
              (Packing
-> Lens' UserEntry [ClientEntry]
-> FieldAccessor UserEntry ClientEntry
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"clients")) ::
              Data.ProtoLens.FieldDescriptor UserEntry
      in
        [(Tag, FieldDescriptor UserEntry)]
-> Map Tag (FieldDescriptor UserEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor UserEntry
user__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor UserEntry
clients__field_descriptor)]
  unknownFields :: Lens' UserEntry FieldSet
unknownFields
    = (UserEntry -> FieldSet)
-> (UserEntry -> FieldSet -> UserEntry) -> Lens' UserEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        UserEntry -> FieldSet
_UserEntry'_unknownFields
        (\ UserEntry
x__ FieldSet
y__ -> UserEntry
x__ {_UserEntry'_unknownFields = y__})
  defMessage :: UserEntry
defMessage
    = UserEntry'_constructor
        {$sel:_UserEntry'user:UserEntry'_constructor :: UserId
_UserEntry'user = UserId
forall msg. Message msg => msg
Data.ProtoLens.defMessage,
         $sel:_UserEntry'clients:UserEntry'_constructor :: Vector ClientEntry
_UserEntry'clients = Vector ClientEntry
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         $sel:_UserEntry'_unknownFields:UserEntry'_constructor :: FieldSet
_UserEntry'_unknownFields = []}
  parseMessage :: Parser UserEntry
parseMessage
    = let
        loop ::
          UserEntry
          -> Prelude.Bool
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ClientEntry
                -> Data.ProtoLens.Encoding.Bytes.Parser UserEntry
        loop :: UserEntry
-> Bool -> Growing Vector RealWorld ClientEntry -> Parser UserEntry
loop UserEntry
x Bool
required'user Growing Vector RealWorld ClientEntry
mutable'clients
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector ClientEntry
frozen'clients <- IO (Vector ClientEntry) -> Parser (Vector ClientEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Growing Vector (PrimState IO) ClientEntry
-> IO (Vector ClientEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             Growing Vector RealWorld ClientEntry
Growing Vector (PrimState IO) ClientEntry
mutable'clients)
                      (let
                         missing :: [String]
missing = (if Bool
required'user then (:) String
"user" else [String] -> [String]
forall a. a -> a
Prelude.id) []
                       in
                         if [String] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [String]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
missing :: [Prelude.String]))))
                      UserEntry -> Parser UserEntry
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter UserEntry UserEntry FieldSet FieldSet
-> (FieldSet -> FieldSet) -> UserEntry -> UserEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f UserEntry FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UserEntry FieldSet
Setter UserEntry UserEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  UserEntry UserEntry (Vector ClientEntry) (Vector ClientEntry)
-> Vector ClientEntry -> UserEntry -> UserEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'clients") Vector ClientEntry
frozen'clients UserEntry
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do UserId
y <- Parser UserId -> String -> Parser UserId
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser UserId -> Parser UserId
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser UserId
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"user"
                                UserEntry
-> Bool -> Growing Vector RealWorld ClientEntry -> Parser UserEntry
loop
                                  (Setter UserEntry UserEntry UserId UserId
-> UserId -> UserEntry -> UserEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"user") UserId
y UserEntry
x)
                                  Bool
Prelude.False Growing Vector RealWorld ClientEntry
mutable'clients
                        Word64
18
                          -> do !ClientEntry
y <- Parser ClientEntry -> String -> Parser ClientEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser ClientEntry -> Parser ClientEntry
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser ClientEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"clients"
                                Growing Vector RealWorld ClientEntry
v <- IO (Growing Vector RealWorld ClientEntry)
-> Parser (Growing Vector RealWorld ClientEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) ClientEntry
-> ClientEntry -> IO (Growing Vector (PrimState IO) ClientEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld ClientEntry
Growing Vector (PrimState IO) ClientEntry
mutable'clients ClientEntry
y)
                                UserEntry
-> Bool -> Growing Vector RealWorld ClientEntry -> Parser UserEntry
loop UserEntry
x Bool
required'user Growing Vector RealWorld ClientEntry
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                UserEntry
-> Bool -> Growing Vector RealWorld ClientEntry -> Parser UserEntry
loop
                                  (Setter UserEntry UserEntry FieldSet FieldSet
-> (FieldSet -> FieldSet) -> UserEntry -> UserEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f UserEntry FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UserEntry FieldSet
Setter UserEntry UserEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) UserEntry
x)
                                  Bool
required'user Growing Vector RealWorld ClientEntry
mutable'clients
      in
        Parser UserEntry -> String -> Parser UserEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld ClientEntry
mutable'clients <- IO (Growing Vector RealWorld ClientEntry)
-> Parser (Growing Vector RealWorld ClientEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld ClientEntry)
IO (Growing Vector (PrimState IO) ClientEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              UserEntry
-> Bool -> Growing Vector RealWorld ClientEntry -> Parser UserEntry
loop UserEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage Bool
Prelude.True Growing Vector RealWorld ClientEntry
mutable'clients)
          String
"UserEntry"
  buildMessage :: UserEntry -> Builder
buildMessage
    = \ UserEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                ((ByteString -> Builder)
-> (UserId -> ByteString) -> UserId -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                   (\ ByteString
bs
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                   UserId -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                   (FoldLike UserId UserEntry UserEntry UserId UserId
-> UserEntry -> UserId
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"user") UserEntry
_x)))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((ClientEntry -> Builder) -> Vector ClientEntry -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ ClientEntry
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (ClientEntry -> ByteString) -> ClientEntry -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                              (\ ByteString
bs
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                      (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                              ClientEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ClientEntry
_v))
                   (FoldLike
  (Vector ClientEntry)
  UserEntry
  UserEntry
  (Vector ClientEntry)
  (Vector ClientEntry)
-> UserEntry -> Vector ClientEntry
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'clients") UserEntry
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet UserEntry UserEntry FieldSet FieldSet
-> UserEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet UserEntry UserEntry FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UserEntry FieldSet
Data.ProtoLens.unknownFields UserEntry
_x)))
instance Control.DeepSeq.NFData UserEntry where
  rnf :: UserEntry -> ()
rnf
    = \ UserEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (UserEntry -> FieldSet
_UserEntry'_unknownFields UserEntry
x__)
             (UserId -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (UserEntry -> UserId
_UserEntry'user UserEntry
x__)
                (Vector ClientEntry -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (UserEntry -> Vector ClientEntry
_UserEntry'clients UserEntry
x__) ()))
{- | Fields :
     
         * 'Proto.Otr_Fields.uuid' @:: Lens' UserId Data.ByteString.ByteString@ -}
data UserId
  = UserId'_constructor {UserId -> ByteString
_UserId'uuid :: !Data.ByteString.ByteString,
                         UserId -> FieldSet
_UserId'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (UserId -> UserId -> Bool
(UserId -> UserId -> Bool)
-> (UserId -> UserId -> Bool) -> Eq UserId
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: UserId -> UserId -> Bool
== :: UserId -> UserId -> Bool
$c/= :: UserId -> UserId -> Bool
/= :: UserId -> UserId -> Bool
Prelude.Eq, Eq UserId
Eq UserId =>
(UserId -> UserId -> Ordering)
-> (UserId -> UserId -> Bool)
-> (UserId -> UserId -> Bool)
-> (UserId -> UserId -> Bool)
-> (UserId -> UserId -> Bool)
-> (UserId -> UserId -> UserId)
-> (UserId -> UserId -> UserId)
-> Ord UserId
UserId -> UserId -> Bool
UserId -> UserId -> Ordering
UserId -> UserId -> UserId
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: UserId -> UserId -> Ordering
compare :: UserId -> UserId -> Ordering
$c< :: UserId -> UserId -> Bool
< :: UserId -> UserId -> Bool
$c<= :: UserId -> UserId -> Bool
<= :: UserId -> UserId -> Bool
$c> :: UserId -> UserId -> Bool
> :: UserId -> UserId -> Bool
$c>= :: UserId -> UserId -> Bool
>= :: UserId -> UserId -> Bool
$cmax :: UserId -> UserId -> UserId
max :: UserId -> UserId -> UserId
$cmin :: UserId -> UserId -> UserId
min :: UserId -> UserId -> UserId
Prelude.Ord)
instance Prelude.Show UserId where
  showsPrec :: Int -> UserId -> ShowS
showsPrec Int
_ UserId
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (UserId -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort UserId
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField UserId "uuid" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "uuid" -> (ByteString -> f ByteString) -> UserId -> f UserId
fieldOf Proxy# "uuid"
_
    = ((ByteString -> f ByteString) -> UserId -> f UserId)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> UserId
-> f UserId
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UserId -> ByteString)
-> (UserId -> ByteString -> UserId)
-> Lens UserId UserId ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UserId -> ByteString
_UserId'uuid (\ UserId
x__ ByteString
y__ -> UserId
x__ {_UserId'uuid = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message UserId where
  messageName :: Proxy UserId -> Text
messageName Proxy UserId
_ = String -> Text
Data.Text.pack String
"proteus.UserId"
  packedMessageDescriptor :: Proxy UserId -> ByteString
packedMessageDescriptor Proxy UserId
_
    = ByteString
"\n\
      \\ACKUserId\DC2\DC2\n\
      \\EOTuuid\CAN\SOH \STX(\fR\EOTuuid"
  packedFileDescriptor :: Proxy UserId -> ByteString
packedFileDescriptor Proxy UserId
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor UserId)
fieldsByTag
    = let
        uuid__field_descriptor :: FieldDescriptor UserId
uuid__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor UserId ByteString
-> FieldDescriptor UserId
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"uuid"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens UserId UserId ByteString ByteString
-> FieldAccessor UserId ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. WireDefault value
Data.ProtoLens.Required (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"uuid")) ::
              Data.ProtoLens.FieldDescriptor UserId
      in
        [(Tag, FieldDescriptor UserId)] -> Map Tag (FieldDescriptor UserId)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor UserId
uuid__field_descriptor)]
  unknownFields :: Lens' UserId FieldSet
unknownFields
    = (UserId -> FieldSet)
-> (UserId -> FieldSet -> UserId) -> Lens' UserId FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        UserId -> FieldSet
_UserId'_unknownFields
        (\ UserId
x__ FieldSet
y__ -> UserId
x__ {_UserId'_unknownFields = y__})
  defMessage :: UserId
defMessage
    = UserId'_constructor
        {$sel:_UserId'uuid:UserId'_constructor :: ByteString
_UserId'uuid = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         $sel:_UserId'_unknownFields:UserId'_constructor :: FieldSet
_UserId'_unknownFields = []}
  parseMessage :: Parser UserId
parseMessage
    = let
        loop ::
          UserId
          -> Prelude.Bool -> Data.ProtoLens.Encoding.Bytes.Parser UserId
        loop :: UserId -> Bool -> Parser UserId
loop UserId
x Bool
required'uuid
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let
                         missing :: [String]
missing = (if Bool
required'uuid then (:) String
"uuid" else [String] -> [String]
forall a. a -> a
Prelude.id) []
                       in
                         if [String] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [String]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
missing :: [Prelude.String]))))
                      UserId -> Parser UserId
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter UserId UserId FieldSet FieldSet
-> (FieldSet -> FieldSet) -> UserId -> UserId
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f UserId FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UserId FieldSet
Setter UserId UserId FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) UserId
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"uuid"
                                UserId -> Bool -> Parser UserId
loop
                                  (Setter UserId UserId ByteString ByteString
-> ByteString -> UserId -> UserId
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"uuid") ByteString
y UserId
x)
                                  Bool
Prelude.False
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                UserId -> Bool -> Parser UserId
loop
                                  (Setter UserId UserId FieldSet FieldSet
-> (FieldSet -> FieldSet) -> UserId -> UserId
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f UserId FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UserId FieldSet
Setter UserId UserId FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) UserId
x)
                                  Bool
required'uuid
      in
        Parser UserId -> String -> Parser UserId
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do UserId -> Bool -> Parser UserId
loop UserId
forall msg. Message msg => msg
Data.ProtoLens.defMessage Bool
Prelude.True) String
"UserId"
  buildMessage :: UserId -> Builder
buildMessage
    = \ UserId
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                ((\ ByteString
bs
                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                            (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                         (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                   (FoldLike ByteString UserId UserId ByteString ByteString
-> UserId -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"uuid") UserId
_x)))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet UserId UserId FieldSet FieldSet
-> UserId -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet UserId UserId FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UserId FieldSet
Data.ProtoLens.unknownFields UserId
_x))
instance Control.DeepSeq.NFData UserId where
  rnf :: UserId -> ()
rnf
    = \ UserId
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (UserId -> FieldSet
_UserId'_unknownFields UserId
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (UserId -> ByteString
_UserId'uuid UserId
x__) ())
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \\totr.proto\DC2\aproteus\"\FS\n\
    \\ACKUserId\DC2\DC2\n\
    \\EOTuuid\CAN\SOH \STX(\fR\EOTuuid\"9\n\
    \\SIQualifiedUserId\DC2\SO\n\
    \\STXid\CAN\SOH \STX(\tR\STXid\DC2\SYN\n\
    \\ACKdomain\CAN\STX \STX(\tR\ACKdomain\"\"\n\
    \\bClientId\DC2\SYN\n\
    \\ACKclient\CAN\SOH \STX(\EOTR\ACKclient\"L\n\
    \\vClientEntry\DC2)\n\
    \\ACKclient\CAN\SOH \STX(\v2\DC1.proteus.ClientIdR\ACKclient\DC2\DC2\n\
    \\EOTtext\CAN\STX \STX(\fR\EOTtext\"`\n\
    \\tUserEntry\DC2#\n\
    \\EOTuser\CAN\SOH \STX(\v2\SI.proteus.UserIdR\EOTuser\DC2.\n\
    \\aclients\CAN\STX \ETX(\v2\DC4.proteus.ClientEntryR\aclients\"Z\n\
    \\DC2QualifiedUserEntry\DC2\SYN\n\
    \\ACKdomain\CAN\SOH \STX(\tR\ACKdomain\DC2,\n\
    \\aentries\CAN\STX \ETX(\v2\DC2.proteus.UserEntryR\aentries\"\187\STX\n\
    \\rNewOtrMessage\DC2)\n\
    \\ACKsender\CAN\SOH \STX(\v2\DC1.proteus.ClientIdR\ACKsender\DC22\n\
    \\n\
    \recipients\CAN\STX \ETX(\v2\DC2.proteus.UserEntryR\n\
    \recipients\DC2%\n\
    \\vnative_push\CAN\ETX \SOH(\b:\EOTtrueR\n\
    \nativePush\DC2\DC2\n\
    \\EOTblob\CAN\EOT \SOH(\fR\EOTblob\DC2:\n\
    \\SInative_priority\CAN\ENQ \SOH(\SO2\DC1.proteus.PriorityR\SOnativePriority\DC2\FS\n\
    \\ttransient\CAN\ACK \SOH(\bR\ttransient\DC26\n\
    \\SOreport_missing\CAN\a \ETX(\v2\SI.proteus.UserIdR\rreportMissing\"\231\EOT\n\
    \\SYNQualifiedNewOtrMessage\DC2)\n\
    \\ACKsender\CAN\SOH \STX(\v2\DC1.proteus.ClientIdR\ACKsender\DC2;\n\
    \\n\
    \recipients\CAN\STX \ETX(\v2\ESC.proteus.QualifiedUserEntryR\n\
    \recipients\DC2%\n\
    \\vnative_push\CAN\ETX \SOH(\b:\EOTtrueR\n\
    \nativePush\DC2\DC2\n\
    \\EOTblob\CAN\EOT \SOH(\fR\EOTblob\DC2:\n\
    \\SInative_priority\CAN\ENQ \SOH(\SO2\DC1.proteus.PriorityR\SOnativePriority\DC2\FS\n\
    \\ttransient\CAN\ACK \SOH(\bR\ttransient\DC2J\n\
    \\n\
    \report_all\CAN\a \SOH(\v2).proteus.ClientMismatchStrategy.ReportAllH\NULR\treportAll\DC2J\n\
    \\n\
    \ignore_all\CAN\b \SOH(\v2).proteus.ClientMismatchStrategy.IgnoreAllH\NULR\tignoreAll\DC2M\n\
    \\vreport_only\CAN\t \SOH(\v2*.proteus.ClientMismatchStrategy.ReportOnlyH\NULR\n\
    \reportOnly\DC2M\n\
    \\vignore_only\CAN\n\
    \ \SOH(\v2*.proteus.ClientMismatchStrategy.IgnoreOnlyH\NULR\n\
    \ignoreOnlyB\SUB\n\
    \\CANclient_mismatch_strategy\"\184\SOH\n\
    \\SYNClientMismatchStrategy\SUB\v\n\
    \\tReportAll\SUB\v\n\
    \\tIgnoreAll\SUBA\n\
    \\n\
    \ReportOnly\DC23\n\
    \\buser_ids\CAN\SOH \ETX(\v2\CAN.proteus.QualifiedUserIdR\auserIds\SUBA\n\
    \\n\
    \IgnoreOnly\DC23\n\
    \\buser_ids\CAN\SOH \ETX(\v2\CAN.proteus.QualifiedUserIdR\auserIds\"\183\SOH\n\
    \\fOtrAssetMeta\DC2)\n\
    \\ACKsender\CAN\SOH \STX(\v2\DC1.proteus.ClientIdR\ACKsender\DC22\n\
    \\n\
    \recipients\CAN\STX \ETX(\v2\DC2.proteus.UserEntryR\n\
    \recipients\DC2!\n\
    \\bisInline\CAN\ETX \SOH(\b:\ENQfalseR\bisInline\DC2%\n\
    \\vnative_push\CAN\EOT \SOH(\b:\EOTtrueR\n\
    \nativePush*/\n\
    \\bPriority\DC2\DLE\n\
    \\fLOW_PRIORITY\DLE\SOH\DC2\DC1\n\
    \\rHIGH_PRIORITY\DLE\STXB\SUB\n\
    \\DC1com.wire.messagesB\ETXOtrH\ETXJ\191\GS\n\
    \\ACK\DC2\EOT\DC3\NULk\SOH\n\
    \\162\ENQ\n\
    \\SOH\f\DC2\ETX\DC3\NUL\DC22\151\ENQ\n\
    \ Wire\n\
    \ Copyright (C) 2021 Wire Swiss GmbH\n\
    \\n\
    \ This program is free software: you can redistribute it and/or modify\n\
    \ it under the terms of the GNU General Public License as published by\n\
    \ the Free Software Foundation, either version 3 of the License, or\n\
    \ (at your option) any later version.\n\
    \\n\
    \ This program is distributed in the hope that it will be useful,\n\
    \ but WITHOUT ANY WARRANTY; without even the implied warranty of\n\
    \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n\
    \ GNU General Public License for more details.\n\
    \\n\
    \ You should have received a copy of the GNU General Public License\n\
    \ along with this program. If not, see http://www.gnu.org/licenses/.\n\
    \\n\
    \\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\NAK\NUL\DLE\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ETB\NUL*\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\ETB\NUL*\n\
    \\b\n\
    \\SOH\b\DC2\ETX\CAN\NUL$\n\
    \\t\n\
    \\STX\b\b\DC2\ETX\CAN\NUL$\n\
    \\b\n\
    \\SOH\b\DC2\ETX\EM\NUL#\n\
    \\t\n\
    \\STX\b\t\DC2\ETX\EM\NUL#\n\
    \\n\
    \\n\
    \\STX\EOT\NUL\DC2\EOT\ESC\NUL\GS\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\ESC\b\SO\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\FS\EOT\FS\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\EOT\DC2\ETX\FS\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\FS\r\DC2\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\FS\DC3\ETB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\FS\SUB\ESC\n\
    \\n\
    \\n\
    \\STX\EOT\SOH\DC2\EOT\US\NUL\"\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX\US\b\ETB\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX \EOT\US\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\EOT\DC2\ETX \EOT\f\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX \r\DC3\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX \DC4\SYN\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX \GS\RS\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETX!\EOT\US\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\EOT\DC2\ETX!\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX!\r\DC3\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX!\DC4\SUB\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX!\GS\RS\n\
    \\n\
    \\n\
    \\STX\EOT\STX\DC2\EOT$\NUL&\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX$\b\DLE\n\
    \\v\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETX%\EOT\US\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\EOT\DC2\ETX%\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX%\r\DC3\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX%\DC4\SUB\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX%\GS\RS\n\
    \\n\
    \\n\
    \\STX\EOT\ETX\DC2\EOT(\NUL+\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETX(\b\DC3\n\
    \\v\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\ETX)\EOT!\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\EOT\DC2\ETX)\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX)\r\NAK\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX)\SYN\FS\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX)\US \n\
    \\v\n\
    \\EOT\EOT\ETX\STX\SOH\DC2\ETX*\EOT!\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\EOT\DC2\ETX*\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\ETX*\r\DC2\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX*\SYN\SUB\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX*\US \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.\EOT%\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\EOT\DC2\ETX.\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETX.\r\DC3\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX.\EM\GS\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX.#$\n\
    \\v\n\
    \\EOT\EOT\EOT\STX\SOH\DC2\ETX/\EOT%\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\EOT\DC2\ETX/\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\ACK\DC2\ETX/\r\CAN\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETX/\EM \n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETX/#$\n\
    \\n\
    \\n\
    \\STX\EOT\ENQ\DC2\EOT2\NUL5\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ENQ\SOH\DC2\ETX2\b\SUB\n\
    \\v\n\
    \\EOT\EOT\ENQ\STX\NUL\DC2\ETX3\STX\GS\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\EOT\DC2\ETX3\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETX3\v\DC1\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX3\DC2\CAN\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX3\ESC\FS\n\
    \\v\n\
    \\EOT\EOT\ENQ\STX\SOH\DC2\ETX4\STX!\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\EOT\DC2\ETX4\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\ETX4\v\DC4\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETX4\NAK\FS\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETX4\US \n\
    \\n\
    \\n\
    \\STX\ENQ\NUL\DC2\EOT7\NUL;\SOH\n\
    \\n\
    \\n\
    \\ETX\ENQ\NUL\SOH\DC2\ETX7\ENQ\r\n\
    \'\n\
    \\EOT\ENQ\NUL\STX\NUL\DC2\ETX9\STX\DC3\SUB\SUB 0 is reserved for errors\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\ETX9\STX\SO\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\NUL\STX\DC2\ETX9\DC1\DC2\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\SOH\DC2\ETX:\STX\DC4\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\ETX:\STX\SI\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\SOH\STX\DC2\ETX:\DC2\DC3\n\
    \4\n\
    \\STX\EOT\ACK\DC2\EOT>\NULF\SOH\SUB( deprecated, use QualifiedNewOtrMessage\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ACK\SOH\DC2\ETX>\b\NAK\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\NUL\DC2\ETX?\EOT+\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\EOT\DC2\ETX?\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ACK\DC2\ETX?\r\NAK\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX?\ETB\GS\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX?)*\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\SOH\DC2\ETX@\EOT+\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\EOT\DC2\ETX@\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\ACK\DC2\ETX@\r\SYN\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX@\ETB!\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX@)*\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\STX\DC2\ETXA\EOT<\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\EOT\DC2\ETXA\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\ENQ\DC2\ETXA\r\DC1\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETXA\ETB\"\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETXA)*\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\b\DC2\ETXA+;\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\a\DC2\ETXA6:\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\ETX\DC2\ETXB\EOT+\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\ETX\EOT\DC2\ETXB\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\ETX\ENQ\DC2\ETXB\r\DC2\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\ETX\SOH\DC2\ETXB\ETB\ESC\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\ETX\ETX\DC2\ETXB)*\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\EOT\DC2\ETXC\EOT+\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\EOT\EOT\DC2\ETXC\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\EOT\ACK\DC2\ETXC\r\NAK\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\EOT\SOH\DC2\ETXC\ETB&\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\EOT\ETX\DC2\ETXC)*\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\ENQ\DC2\ETXD\EOT+\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\ENQ\EOT\DC2\ETXD\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\ENQ\ENQ\DC2\ETXD\r\DC1\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\ENQ\SOH\DC2\ETXD\ETB \n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\ENQ\ETX\DC2\ETXD)*\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\ACK\DC2\ETXE\EOT+\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\ACK\EOT\DC2\ETXE\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\ACK\ACK\DC2\ETXE\r\DC3\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\ACK\SOH\DC2\ETXE\ETB%\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\ACK\ETX\DC2\ETXE)*\n\
    \\n\
    \\n\
    \\STX\EOT\a\DC2\EOTH\NULW\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\a\SOH\DC2\ETXH\b\RS\n\
    \\v\n\
    \\EOT\EOT\a\STX\NUL\DC2\ETXI\EOT;\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\EOT\DC2\ETXI\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ACK\DC2\ETXI\r\NAK\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETXI'-\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXI9:\n\
    \\v\n\
    \\EOT\EOT\a\STX\SOH\DC2\ETXJ\EOT;\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\EOT\DC2\ETXJ\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\ACK\DC2\ETXJ\r\US\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\SOH\DC2\ETXJ'1\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETXJ9:\n\
    \\v\n\
    \\EOT\EOT\a\STX\STX\DC2\ETXK\EOTL\n\
    \\f\n\
    \\ENQ\EOT\a\STX\STX\EOT\DC2\ETXK\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\a\STX\STX\ENQ\DC2\ETXK\r\DC1\n\
    \\f\n\
    \\ENQ\EOT\a\STX\STX\SOH\DC2\ETXK'2\n\
    \\f\n\
    \\ENQ\EOT\a\STX\STX\ETX\DC2\ETXK9:\n\
    \\f\n\
    \\ENQ\EOT\a\STX\STX\b\DC2\ETXK;K\n\
    \\f\n\
    \\ENQ\EOT\a\STX\STX\a\DC2\ETXKFJ\n\
    \\v\n\
    \\EOT\EOT\a\STX\ETX\DC2\ETXL\EOT;\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ETX\EOT\DC2\ETXL\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ETX\ENQ\DC2\ETXL\r\DC2\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ETX\SOH\DC2\ETXL'+\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ETX\ETX\DC2\ETXL9:\n\
    \\v\n\
    \\EOT\EOT\a\STX\EOT\DC2\ETXM\EOT;\n\
    \\f\n\
    \\ENQ\EOT\a\STX\EOT\EOT\DC2\ETXM\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\a\STX\EOT\ACK\DC2\ETXM\r\NAK\n\
    \\f\n\
    \\ENQ\EOT\a\STX\EOT\SOH\DC2\ETXM'6\n\
    \\f\n\
    \\ENQ\EOT\a\STX\EOT\ETX\DC2\ETXM9:\n\
    \\v\n\
    \\EOT\EOT\a\STX\ENQ\DC2\ETXN\EOT;\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ENQ\EOT\DC2\ETXN\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ENQ\ENQ\DC2\ETXN\r\DC1\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ENQ\SOH\DC2\ETXN'0\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ENQ\ETX\DC2\ETXN9:\n\
    \z\n\
    \\EOT\EOT\a\b\NUL\DC2\EOTQ\EOTV\ENQ\SUBl For more details please refer to backend swagger at\n\
    \ https://staging-nginz-https.zinfra.io/api/swagger-ui/\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\b\NUL\SOH\DC2\ETXQ\n\
    \\"\n\
    \\v\n\
    \\EOT\EOT\a\STX\ACK\DC2\ETXR\b;\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ACK\ACK\DC2\ETXR\b(\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ACK\SOH\DC2\ETXR*4\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ACK\ETX\DC2\ETXR9:\n\
    \\v\n\
    \\EOT\EOT\a\STX\a\DC2\ETXS\b;\n\
    \\f\n\
    \\ENQ\EOT\a\STX\a\ACK\DC2\ETXS\b(\n\
    \\f\n\
    \\ENQ\EOT\a\STX\a\SOH\DC2\ETXS*4\n\
    \\f\n\
    \\ENQ\EOT\a\STX\a\ETX\DC2\ETXS9:\n\
    \\v\n\
    \\EOT\EOT\a\STX\b\DC2\ETXT\b;\n\
    \\f\n\
    \\ENQ\EOT\a\STX\b\ACK\DC2\ETXT\b)\n\
    \\f\n\
    \\ENQ\EOT\a\STX\b\SOH\DC2\ETXT*5\n\
    \\f\n\
    \\ENQ\EOT\a\STX\b\ETX\DC2\ETXT9:\n\
    \\v\n\
    \\EOT\EOT\a\STX\t\DC2\ETXU\b<\n\
    \\f\n\
    \\ENQ\EOT\a\STX\t\ACK\DC2\ETXU\b)\n\
    \\f\n\
    \\ENQ\EOT\a\STX\t\SOH\DC2\ETXU*5\n\
    \\f\n\
    \\ENQ\EOT\a\STX\t\ETX\DC2\ETXU9;\n\
    \\n\
    \\n\
    \\STX\EOT\b\DC2\EOTY\NULd\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\b\SOH\DC2\ETXY\b\RS\n\
    \\v\n\
    \\EOT\EOT\b\ETX\NUL\DC2\ETXZ\EOT\CAN\n\
    \\f\n\
    \\ENQ\EOT\b\ETX\NUL\SOH\DC2\ETXZ\f\NAK\n\
    \\v\n\
    \\EOT\EOT\b\ETX\SOH\DC2\ETX[\EOT\CAN\n\
    \\f\n\
    \\ENQ\EOT\b\ETX\SOH\SOH\DC2\ETX[\f\NAK\n\
    \\f\n\
    \\EOT\EOT\b\ETX\STX\DC2\EOT]\EOT_\ENQ\n\
    \\f\n\
    \\ENQ\EOT\b\ETX\STX\SOH\DC2\ETX]\f\SYN\n\
    \\r\n\
    \\ACK\EOT\b\ETX\STX\STX\NUL\DC2\ETX^\b.\n\
    \\SO\n\
    \\a\EOT\b\ETX\STX\STX\NUL\EOT\DC2\ETX^\b\DLE\n\
    \\SO\n\
    \\a\EOT\b\ETX\STX\STX\NUL\ACK\DC2\ETX^\DC1 \n\
    \\SO\n\
    \\a\EOT\b\ETX\STX\STX\NUL\SOH\DC2\ETX^!)\n\
    \\SO\n\
    \\a\EOT\b\ETX\STX\STX\NUL\ETX\DC2\ETX^,-\n\
    \\f\n\
    \\EOT\EOT\b\ETX\ETX\DC2\EOTa\EOTc\ENQ\n\
    \\f\n\
    \\ENQ\EOT\b\ETX\ETX\SOH\DC2\ETXa\f\SYN\n\
    \\r\n\
    \\ACK\EOT\b\ETX\ETX\STX\NUL\DC2\ETXb\b.\n\
    \\SO\n\
    \\a\EOT\b\ETX\ETX\STX\NUL\EOT\DC2\ETXb\b\DLE\n\
    \\SO\n\
    \\a\EOT\b\ETX\ETX\STX\NUL\ACK\DC2\ETXb\DC1 \n\
    \\SO\n\
    \\a\EOT\b\ETX\ETX\STX\NUL\SOH\DC2\ETXb!)\n\
    \\SO\n\
    \\a\EOT\b\ETX\ETX\STX\NUL\ETX\DC2\ETXb,-\n\
    \\n\
    \\n\
    \\STX\EOT\t\DC2\EOTf\NULk\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\t\SOH\DC2\ETXf\b\DC4\n\
    \\v\n\
    \\EOT\EOT\t\STX\NUL\DC2\ETXg\EOT'\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\EOT\DC2\ETXg\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\ACK\DC2\ETXg\r\NAK\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXg\ETB\GS\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXg%&\n\
    \\v\n\
    \\EOT\EOT\t\STX\SOH\DC2\ETXh\EOT'\n\
    \\f\n\
    \\ENQ\EOT\t\STX\SOH\EOT\DC2\ETXh\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\t\STX\SOH\ACK\DC2\ETXh\r\SYN\n\
    \\f\n\
    \\ENQ\EOT\t\STX\SOH\SOH\DC2\ETXh\ETB!\n\
    \\f\n\
    \\ENQ\EOT\t\STX\SOH\ETX\DC2\ETXh%&\n\
    \\v\n\
    \\EOT\EOT\t\STX\STX\DC2\ETXi\EOT9\n\
    \\f\n\
    \\ENQ\EOT\t\STX\STX\EOT\DC2\ETXi\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\t\STX\STX\ENQ\DC2\ETXi\r\DC1\n\
    \\f\n\
    \\ENQ\EOT\t\STX\STX\SOH\DC2\ETXi\ETB\US\n\
    \\f\n\
    \\ENQ\EOT\t\STX\STX\ETX\DC2\ETXi%&\n\
    \\f\n\
    \\ENQ\EOT\t\STX\STX\b\DC2\ETXi'8\n\
    \\f\n\
    \\ENQ\EOT\t\STX\STX\a\DC2\ETXi27\n\
    \\v\n\
    \\EOT\EOT\t\STX\ETX\DC2\ETXj\EOT8\n\
    \\f\n\
    \\ENQ\EOT\t\STX\ETX\EOT\DC2\ETXj\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\t\STX\ETX\ENQ\DC2\ETXj\r\DC1\n\
    \\f\n\
    \\ENQ\EOT\t\STX\ETX\SOH\DC2\ETXj\ETB\"\n\
    \\f\n\
    \\ENQ\EOT\t\STX\ETX\ETX\DC2\ETXj%&\n\
    \\f\n\
    \\ENQ\EOT\t\STX\ETX\b\DC2\ETXj'7\n\
    \\f\n\
    \\ENQ\EOT\t\STX\ETX\a\DC2\ETXj26"