{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.CognitoSync.SetIdentityPoolConfiguration
(
SetIdentityPoolConfiguration (..),
newSetIdentityPoolConfiguration,
setIdentityPoolConfiguration_cognitoStreams,
setIdentityPoolConfiguration_pushSync,
setIdentityPoolConfiguration_identityPoolId,
SetIdentityPoolConfigurationResponse (..),
newSetIdentityPoolConfigurationResponse,
setIdentityPoolConfigurationResponse_cognitoStreams,
setIdentityPoolConfigurationResponse_identityPoolId,
setIdentityPoolConfigurationResponse_pushSync,
setIdentityPoolConfigurationResponse_httpStatus,
)
where
import Amazonka.CognitoSync.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data SetIdentityPoolConfiguration = SetIdentityPoolConfiguration'
{
SetIdentityPoolConfiguration -> Maybe CognitoStreams
cognitoStreams :: Prelude.Maybe CognitoStreams,
SetIdentityPoolConfiguration -> Maybe PushSync
pushSync :: Prelude.Maybe PushSync,
SetIdentityPoolConfiguration -> Text
identityPoolId :: Prelude.Text
}
deriving (SetIdentityPoolConfiguration
-> SetIdentityPoolConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SetIdentityPoolConfiguration
-> SetIdentityPoolConfiguration -> Bool
$c/= :: SetIdentityPoolConfiguration
-> SetIdentityPoolConfiguration -> Bool
== :: SetIdentityPoolConfiguration
-> SetIdentityPoolConfiguration -> Bool
$c== :: SetIdentityPoolConfiguration
-> SetIdentityPoolConfiguration -> Bool
Prelude.Eq, ReadPrec [SetIdentityPoolConfiguration]
ReadPrec SetIdentityPoolConfiguration
Int -> ReadS SetIdentityPoolConfiguration
ReadS [SetIdentityPoolConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SetIdentityPoolConfiguration]
$creadListPrec :: ReadPrec [SetIdentityPoolConfiguration]
readPrec :: ReadPrec SetIdentityPoolConfiguration
$creadPrec :: ReadPrec SetIdentityPoolConfiguration
readList :: ReadS [SetIdentityPoolConfiguration]
$creadList :: ReadS [SetIdentityPoolConfiguration]
readsPrec :: Int -> ReadS SetIdentityPoolConfiguration
$creadsPrec :: Int -> ReadS SetIdentityPoolConfiguration
Prelude.Read, Int -> SetIdentityPoolConfiguration -> ShowS
[SetIdentityPoolConfiguration] -> ShowS
SetIdentityPoolConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SetIdentityPoolConfiguration] -> ShowS
$cshowList :: [SetIdentityPoolConfiguration] -> ShowS
show :: SetIdentityPoolConfiguration -> String
$cshow :: SetIdentityPoolConfiguration -> String
showsPrec :: Int -> SetIdentityPoolConfiguration -> ShowS
$cshowsPrec :: Int -> SetIdentityPoolConfiguration -> ShowS
Prelude.Show, forall x.
Rep SetIdentityPoolConfiguration x -> SetIdentityPoolConfiguration
forall x.
SetIdentityPoolConfiguration -> Rep SetIdentityPoolConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SetIdentityPoolConfiguration x -> SetIdentityPoolConfiguration
$cfrom :: forall x.
SetIdentityPoolConfiguration -> Rep SetIdentityPoolConfiguration x
Prelude.Generic)
newSetIdentityPoolConfiguration ::
Prelude.Text ->
SetIdentityPoolConfiguration
newSetIdentityPoolConfiguration :: Text -> SetIdentityPoolConfiguration
newSetIdentityPoolConfiguration Text
pIdentityPoolId_ =
SetIdentityPoolConfiguration'
{ $sel:cognitoStreams:SetIdentityPoolConfiguration' :: Maybe CognitoStreams
cognitoStreams =
forall a. Maybe a
Prelude.Nothing,
$sel:pushSync:SetIdentityPoolConfiguration' :: Maybe PushSync
pushSync = forall a. Maybe a
Prelude.Nothing,
$sel:identityPoolId:SetIdentityPoolConfiguration' :: Text
identityPoolId = Text
pIdentityPoolId_
}
setIdentityPoolConfiguration_cognitoStreams :: Lens.Lens' SetIdentityPoolConfiguration (Prelude.Maybe CognitoStreams)
setIdentityPoolConfiguration_cognitoStreams :: Lens' SetIdentityPoolConfiguration (Maybe CognitoStreams)
setIdentityPoolConfiguration_cognitoStreams = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetIdentityPoolConfiguration' {Maybe CognitoStreams
cognitoStreams :: Maybe CognitoStreams
$sel:cognitoStreams:SetIdentityPoolConfiguration' :: SetIdentityPoolConfiguration -> Maybe CognitoStreams
cognitoStreams} -> Maybe CognitoStreams
cognitoStreams) (\s :: SetIdentityPoolConfiguration
s@SetIdentityPoolConfiguration' {} Maybe CognitoStreams
a -> SetIdentityPoolConfiguration
s {$sel:cognitoStreams:SetIdentityPoolConfiguration' :: Maybe CognitoStreams
cognitoStreams = Maybe CognitoStreams
a} :: SetIdentityPoolConfiguration)
setIdentityPoolConfiguration_pushSync :: Lens.Lens' SetIdentityPoolConfiguration (Prelude.Maybe PushSync)
setIdentityPoolConfiguration_pushSync :: Lens' SetIdentityPoolConfiguration (Maybe PushSync)
setIdentityPoolConfiguration_pushSync = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetIdentityPoolConfiguration' {Maybe PushSync
pushSync :: Maybe PushSync
$sel:pushSync:SetIdentityPoolConfiguration' :: SetIdentityPoolConfiguration -> Maybe PushSync
pushSync} -> Maybe PushSync
pushSync) (\s :: SetIdentityPoolConfiguration
s@SetIdentityPoolConfiguration' {} Maybe PushSync
a -> SetIdentityPoolConfiguration
s {$sel:pushSync:SetIdentityPoolConfiguration' :: Maybe PushSync
pushSync = Maybe PushSync
a} :: SetIdentityPoolConfiguration)
setIdentityPoolConfiguration_identityPoolId :: Lens.Lens' SetIdentityPoolConfiguration Prelude.Text
setIdentityPoolConfiguration_identityPoolId :: Lens' SetIdentityPoolConfiguration Text
setIdentityPoolConfiguration_identityPoolId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetIdentityPoolConfiguration' {Text
identityPoolId :: Text
$sel:identityPoolId:SetIdentityPoolConfiguration' :: SetIdentityPoolConfiguration -> Text
identityPoolId} -> Text
identityPoolId) (\s :: SetIdentityPoolConfiguration
s@SetIdentityPoolConfiguration' {} Text
a -> SetIdentityPoolConfiguration
s {$sel:identityPoolId:SetIdentityPoolConfiguration' :: Text
identityPoolId = Text
a} :: SetIdentityPoolConfiguration)
instance Core.AWSRequest SetIdentityPoolConfiguration where
type
AWSResponse SetIdentityPoolConfiguration =
SetIdentityPoolConfigurationResponse
request :: (Service -> Service)
-> SetIdentityPoolConfiguration
-> Request SetIdentityPoolConfiguration
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy SetIdentityPoolConfiguration
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse SetIdentityPoolConfiguration)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe CognitoStreams
-> Maybe Text
-> Maybe PushSync
-> Int
-> SetIdentityPoolConfigurationResponse
SetIdentityPoolConfigurationResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"CognitoStreams")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"IdentityPoolId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"PushSync")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
SetIdentityPoolConfiguration
where
hashWithSalt :: Int -> SetIdentityPoolConfiguration -> Int
hashWithSalt Int
_salt SetIdentityPoolConfiguration' {Maybe PushSync
Maybe CognitoStreams
Text
identityPoolId :: Text
pushSync :: Maybe PushSync
cognitoStreams :: Maybe CognitoStreams
$sel:identityPoolId:SetIdentityPoolConfiguration' :: SetIdentityPoolConfiguration -> Text
$sel:pushSync:SetIdentityPoolConfiguration' :: SetIdentityPoolConfiguration -> Maybe PushSync
$sel:cognitoStreams:SetIdentityPoolConfiguration' :: SetIdentityPoolConfiguration -> Maybe CognitoStreams
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe CognitoStreams
cognitoStreams
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe PushSync
pushSync
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
identityPoolId
instance Prelude.NFData SetIdentityPoolConfiguration where
rnf :: SetIdentityPoolConfiguration -> ()
rnf SetIdentityPoolConfiguration' {Maybe PushSync
Maybe CognitoStreams
Text
identityPoolId :: Text
pushSync :: Maybe PushSync
cognitoStreams :: Maybe CognitoStreams
$sel:identityPoolId:SetIdentityPoolConfiguration' :: SetIdentityPoolConfiguration -> Text
$sel:pushSync:SetIdentityPoolConfiguration' :: SetIdentityPoolConfiguration -> Maybe PushSync
$sel:cognitoStreams:SetIdentityPoolConfiguration' :: SetIdentityPoolConfiguration -> Maybe CognitoStreams
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe CognitoStreams
cognitoStreams
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe PushSync
pushSync
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
identityPoolId
instance Data.ToHeaders SetIdentityPoolConfiguration where
toHeaders :: SetIdentityPoolConfiguration -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON SetIdentityPoolConfiguration where
toJSON :: SetIdentityPoolConfiguration -> Value
toJSON SetIdentityPoolConfiguration' {Maybe PushSync
Maybe CognitoStreams
Text
identityPoolId :: Text
pushSync :: Maybe PushSync
cognitoStreams :: Maybe CognitoStreams
$sel:identityPoolId:SetIdentityPoolConfiguration' :: SetIdentityPoolConfiguration -> Text
$sel:pushSync:SetIdentityPoolConfiguration' :: SetIdentityPoolConfiguration -> Maybe PushSync
$sel:cognitoStreams:SetIdentityPoolConfiguration' :: SetIdentityPoolConfiguration -> Maybe CognitoStreams
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"CognitoStreams" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe CognitoStreams
cognitoStreams,
(Key
"PushSync" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PushSync
pushSync
]
)
instance Data.ToPath SetIdentityPoolConfiguration where
toPath :: SetIdentityPoolConfiguration -> ByteString
toPath SetIdentityPoolConfiguration' {Maybe PushSync
Maybe CognitoStreams
Text
identityPoolId :: Text
pushSync :: Maybe PushSync
cognitoStreams :: Maybe CognitoStreams
$sel:identityPoolId:SetIdentityPoolConfiguration' :: SetIdentityPoolConfiguration -> Text
$sel:pushSync:SetIdentityPoolConfiguration' :: SetIdentityPoolConfiguration -> Maybe PushSync
$sel:cognitoStreams:SetIdentityPoolConfiguration' :: SetIdentityPoolConfiguration -> Maybe CognitoStreams
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/identitypools/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
identityPoolId,
ByteString
"/configuration"
]
instance Data.ToQuery SetIdentityPoolConfiguration where
toQuery :: SetIdentityPoolConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data SetIdentityPoolConfigurationResponse = SetIdentityPoolConfigurationResponse'
{
SetIdentityPoolConfigurationResponse -> Maybe CognitoStreams
cognitoStreams :: Prelude.Maybe CognitoStreams,
SetIdentityPoolConfigurationResponse -> Maybe Text
identityPoolId :: Prelude.Maybe Prelude.Text,
SetIdentityPoolConfigurationResponse -> Maybe PushSync
pushSync :: Prelude.Maybe PushSync,
SetIdentityPoolConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (SetIdentityPoolConfigurationResponse
-> SetIdentityPoolConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SetIdentityPoolConfigurationResponse
-> SetIdentityPoolConfigurationResponse -> Bool
$c/= :: SetIdentityPoolConfigurationResponse
-> SetIdentityPoolConfigurationResponse -> Bool
== :: SetIdentityPoolConfigurationResponse
-> SetIdentityPoolConfigurationResponse -> Bool
$c== :: SetIdentityPoolConfigurationResponse
-> SetIdentityPoolConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [SetIdentityPoolConfigurationResponse]
ReadPrec SetIdentityPoolConfigurationResponse
Int -> ReadS SetIdentityPoolConfigurationResponse
ReadS [SetIdentityPoolConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SetIdentityPoolConfigurationResponse]
$creadListPrec :: ReadPrec [SetIdentityPoolConfigurationResponse]
readPrec :: ReadPrec SetIdentityPoolConfigurationResponse
$creadPrec :: ReadPrec SetIdentityPoolConfigurationResponse
readList :: ReadS [SetIdentityPoolConfigurationResponse]
$creadList :: ReadS [SetIdentityPoolConfigurationResponse]
readsPrec :: Int -> ReadS SetIdentityPoolConfigurationResponse
$creadsPrec :: Int -> ReadS SetIdentityPoolConfigurationResponse
Prelude.Read, Int -> SetIdentityPoolConfigurationResponse -> ShowS
[SetIdentityPoolConfigurationResponse] -> ShowS
SetIdentityPoolConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SetIdentityPoolConfigurationResponse] -> ShowS
$cshowList :: [SetIdentityPoolConfigurationResponse] -> ShowS
show :: SetIdentityPoolConfigurationResponse -> String
$cshow :: SetIdentityPoolConfigurationResponse -> String
showsPrec :: Int -> SetIdentityPoolConfigurationResponse -> ShowS
$cshowsPrec :: Int -> SetIdentityPoolConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep SetIdentityPoolConfigurationResponse x
-> SetIdentityPoolConfigurationResponse
forall x.
SetIdentityPoolConfigurationResponse
-> Rep SetIdentityPoolConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SetIdentityPoolConfigurationResponse x
-> SetIdentityPoolConfigurationResponse
$cfrom :: forall x.
SetIdentityPoolConfigurationResponse
-> Rep SetIdentityPoolConfigurationResponse x
Prelude.Generic)
newSetIdentityPoolConfigurationResponse ::
Prelude.Int ->
SetIdentityPoolConfigurationResponse
newSetIdentityPoolConfigurationResponse :: Int -> SetIdentityPoolConfigurationResponse
newSetIdentityPoolConfigurationResponse Int
pHttpStatus_ =
SetIdentityPoolConfigurationResponse'
{ $sel:cognitoStreams:SetIdentityPoolConfigurationResponse' :: Maybe CognitoStreams
cognitoStreams =
forall a. Maybe a
Prelude.Nothing,
$sel:identityPoolId:SetIdentityPoolConfigurationResponse' :: Maybe Text
identityPoolId = forall a. Maybe a
Prelude.Nothing,
$sel:pushSync:SetIdentityPoolConfigurationResponse' :: Maybe PushSync
pushSync = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:SetIdentityPoolConfigurationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
setIdentityPoolConfigurationResponse_cognitoStreams :: Lens.Lens' SetIdentityPoolConfigurationResponse (Prelude.Maybe CognitoStreams)
setIdentityPoolConfigurationResponse_cognitoStreams :: Lens' SetIdentityPoolConfigurationResponse (Maybe CognitoStreams)
setIdentityPoolConfigurationResponse_cognitoStreams = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetIdentityPoolConfigurationResponse' {Maybe CognitoStreams
cognitoStreams :: Maybe CognitoStreams
$sel:cognitoStreams:SetIdentityPoolConfigurationResponse' :: SetIdentityPoolConfigurationResponse -> Maybe CognitoStreams
cognitoStreams} -> Maybe CognitoStreams
cognitoStreams) (\s :: SetIdentityPoolConfigurationResponse
s@SetIdentityPoolConfigurationResponse' {} Maybe CognitoStreams
a -> SetIdentityPoolConfigurationResponse
s {$sel:cognitoStreams:SetIdentityPoolConfigurationResponse' :: Maybe CognitoStreams
cognitoStreams = Maybe CognitoStreams
a} :: SetIdentityPoolConfigurationResponse)
setIdentityPoolConfigurationResponse_identityPoolId :: Lens.Lens' SetIdentityPoolConfigurationResponse (Prelude.Maybe Prelude.Text)
setIdentityPoolConfigurationResponse_identityPoolId :: Lens' SetIdentityPoolConfigurationResponse (Maybe Text)
setIdentityPoolConfigurationResponse_identityPoolId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetIdentityPoolConfigurationResponse' {Maybe Text
identityPoolId :: Maybe Text
$sel:identityPoolId:SetIdentityPoolConfigurationResponse' :: SetIdentityPoolConfigurationResponse -> Maybe Text
identityPoolId} -> Maybe Text
identityPoolId) (\s :: SetIdentityPoolConfigurationResponse
s@SetIdentityPoolConfigurationResponse' {} Maybe Text
a -> SetIdentityPoolConfigurationResponse
s {$sel:identityPoolId:SetIdentityPoolConfigurationResponse' :: Maybe Text
identityPoolId = Maybe Text
a} :: SetIdentityPoolConfigurationResponse)
setIdentityPoolConfigurationResponse_pushSync :: Lens.Lens' SetIdentityPoolConfigurationResponse (Prelude.Maybe PushSync)
setIdentityPoolConfigurationResponse_pushSync :: Lens' SetIdentityPoolConfigurationResponse (Maybe PushSync)
setIdentityPoolConfigurationResponse_pushSync = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetIdentityPoolConfigurationResponse' {Maybe PushSync
pushSync :: Maybe PushSync
$sel:pushSync:SetIdentityPoolConfigurationResponse' :: SetIdentityPoolConfigurationResponse -> Maybe PushSync
pushSync} -> Maybe PushSync
pushSync) (\s :: SetIdentityPoolConfigurationResponse
s@SetIdentityPoolConfigurationResponse' {} Maybe PushSync
a -> SetIdentityPoolConfigurationResponse
s {$sel:pushSync:SetIdentityPoolConfigurationResponse' :: Maybe PushSync
pushSync = Maybe PushSync
a} :: SetIdentityPoolConfigurationResponse)
setIdentityPoolConfigurationResponse_httpStatus :: Lens.Lens' SetIdentityPoolConfigurationResponse Prelude.Int
setIdentityPoolConfigurationResponse_httpStatus :: Lens' SetIdentityPoolConfigurationResponse Int
setIdentityPoolConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetIdentityPoolConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:SetIdentityPoolConfigurationResponse' :: SetIdentityPoolConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: SetIdentityPoolConfigurationResponse
s@SetIdentityPoolConfigurationResponse' {} Int
a -> SetIdentityPoolConfigurationResponse
s {$sel:httpStatus:SetIdentityPoolConfigurationResponse' :: Int
httpStatus = Int
a} :: SetIdentityPoolConfigurationResponse)
instance
Prelude.NFData
SetIdentityPoolConfigurationResponse
where
rnf :: SetIdentityPoolConfigurationResponse -> ()
rnf SetIdentityPoolConfigurationResponse' {Int
Maybe Text
Maybe PushSync
Maybe CognitoStreams
httpStatus :: Int
pushSync :: Maybe PushSync
identityPoolId :: Maybe Text
cognitoStreams :: Maybe CognitoStreams
$sel:httpStatus:SetIdentityPoolConfigurationResponse' :: SetIdentityPoolConfigurationResponse -> Int
$sel:pushSync:SetIdentityPoolConfigurationResponse' :: SetIdentityPoolConfigurationResponse -> Maybe PushSync
$sel:identityPoolId:SetIdentityPoolConfigurationResponse' :: SetIdentityPoolConfigurationResponse -> Maybe Text
$sel:cognitoStreams:SetIdentityPoolConfigurationResponse' :: SetIdentityPoolConfigurationResponse -> Maybe CognitoStreams
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe CognitoStreams
cognitoStreams
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
identityPoolId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe PushSync
pushSync
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus