{-# 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.Chime.ListAppInstanceUsers
(
ListAppInstanceUsers (..),
newListAppInstanceUsers,
listAppInstanceUsers_maxResults,
listAppInstanceUsers_nextToken,
listAppInstanceUsers_appInstanceArn,
ListAppInstanceUsersResponse (..),
newListAppInstanceUsersResponse,
listAppInstanceUsersResponse_appInstanceArn,
listAppInstanceUsersResponse_appInstanceUsers,
listAppInstanceUsersResponse_nextToken,
listAppInstanceUsersResponse_httpStatus,
)
where
import Amazonka.Chime.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 ListAppInstanceUsers = ListAppInstanceUsers'
{
ListAppInstanceUsers -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListAppInstanceUsers -> Maybe (Sensitive Text)
nextToken :: Prelude.Maybe (Data.Sensitive Prelude.Text),
ListAppInstanceUsers -> Text
appInstanceArn :: Prelude.Text
}
deriving (ListAppInstanceUsers -> ListAppInstanceUsers -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListAppInstanceUsers -> ListAppInstanceUsers -> Bool
$c/= :: ListAppInstanceUsers -> ListAppInstanceUsers -> Bool
== :: ListAppInstanceUsers -> ListAppInstanceUsers -> Bool
$c== :: ListAppInstanceUsers -> ListAppInstanceUsers -> Bool
Prelude.Eq, Int -> ListAppInstanceUsers -> ShowS
[ListAppInstanceUsers] -> ShowS
ListAppInstanceUsers -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListAppInstanceUsers] -> ShowS
$cshowList :: [ListAppInstanceUsers] -> ShowS
show :: ListAppInstanceUsers -> String
$cshow :: ListAppInstanceUsers -> String
showsPrec :: Int -> ListAppInstanceUsers -> ShowS
$cshowsPrec :: Int -> ListAppInstanceUsers -> ShowS
Prelude.Show, forall x. Rep ListAppInstanceUsers x -> ListAppInstanceUsers
forall x. ListAppInstanceUsers -> Rep ListAppInstanceUsers x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListAppInstanceUsers x -> ListAppInstanceUsers
$cfrom :: forall x. ListAppInstanceUsers -> Rep ListAppInstanceUsers x
Prelude.Generic)
newListAppInstanceUsers ::
Prelude.Text ->
ListAppInstanceUsers
newListAppInstanceUsers :: Text -> ListAppInstanceUsers
newListAppInstanceUsers Text
pAppInstanceArn_ =
ListAppInstanceUsers'
{ $sel:maxResults:ListAppInstanceUsers' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListAppInstanceUsers' :: Maybe (Sensitive Text)
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:appInstanceArn:ListAppInstanceUsers' :: Text
appInstanceArn = Text
pAppInstanceArn_
}
listAppInstanceUsers_maxResults :: Lens.Lens' ListAppInstanceUsers (Prelude.Maybe Prelude.Natural)
listAppInstanceUsers_maxResults :: Lens' ListAppInstanceUsers (Maybe Natural)
listAppInstanceUsers_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAppInstanceUsers' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListAppInstanceUsers' :: ListAppInstanceUsers -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListAppInstanceUsers
s@ListAppInstanceUsers' {} Maybe Natural
a -> ListAppInstanceUsers
s {$sel:maxResults:ListAppInstanceUsers' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListAppInstanceUsers)
listAppInstanceUsers_nextToken :: Lens.Lens' ListAppInstanceUsers (Prelude.Maybe Prelude.Text)
listAppInstanceUsers_nextToken :: Lens' ListAppInstanceUsers (Maybe Text)
listAppInstanceUsers_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAppInstanceUsers' {Maybe (Sensitive Text)
nextToken :: Maybe (Sensitive Text)
$sel:nextToken:ListAppInstanceUsers' :: ListAppInstanceUsers -> Maybe (Sensitive Text)
nextToken} -> Maybe (Sensitive Text)
nextToken) (\s :: ListAppInstanceUsers
s@ListAppInstanceUsers' {} Maybe (Sensitive Text)
a -> ListAppInstanceUsers
s {$sel:nextToken:ListAppInstanceUsers' :: Maybe (Sensitive Text)
nextToken = Maybe (Sensitive Text)
a} :: ListAppInstanceUsers) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall a. Iso' (Sensitive a) a
Data._Sensitive
listAppInstanceUsers_appInstanceArn :: Lens.Lens' ListAppInstanceUsers Prelude.Text
listAppInstanceUsers_appInstanceArn :: Lens' ListAppInstanceUsers Text
listAppInstanceUsers_appInstanceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAppInstanceUsers' {Text
appInstanceArn :: Text
$sel:appInstanceArn:ListAppInstanceUsers' :: ListAppInstanceUsers -> Text
appInstanceArn} -> Text
appInstanceArn) (\s :: ListAppInstanceUsers
s@ListAppInstanceUsers' {} Text
a -> ListAppInstanceUsers
s {$sel:appInstanceArn:ListAppInstanceUsers' :: Text
appInstanceArn = Text
a} :: ListAppInstanceUsers)
instance Core.AWSRequest ListAppInstanceUsers where
type
AWSResponse ListAppInstanceUsers =
ListAppInstanceUsersResponse
request :: (Service -> Service)
-> ListAppInstanceUsers -> Request ListAppInstanceUsers
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ListAppInstanceUsers
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListAppInstanceUsers)))
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 Text
-> Maybe [AppInstanceUserSummary]
-> Maybe (Sensitive Text)
-> Int
-> ListAppInstanceUsersResponse
ListAppInstanceUsersResponse'
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
"AppInstanceArn")
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
"AppInstanceUsers"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
)
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
"NextToken")
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 ListAppInstanceUsers where
hashWithSalt :: Int -> ListAppInstanceUsers -> Int
hashWithSalt Int
_salt ListAppInstanceUsers' {Maybe Natural
Maybe (Sensitive Text)
Text
appInstanceArn :: Text
nextToken :: Maybe (Sensitive Text)
maxResults :: Maybe Natural
$sel:appInstanceArn:ListAppInstanceUsers' :: ListAppInstanceUsers -> Text
$sel:nextToken:ListAppInstanceUsers' :: ListAppInstanceUsers -> Maybe (Sensitive Text)
$sel:maxResults:ListAppInstanceUsers' :: ListAppInstanceUsers -> Maybe Natural
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive Text)
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
appInstanceArn
instance Prelude.NFData ListAppInstanceUsers where
rnf :: ListAppInstanceUsers -> ()
rnf ListAppInstanceUsers' {Maybe Natural
Maybe (Sensitive Text)
Text
appInstanceArn :: Text
nextToken :: Maybe (Sensitive Text)
maxResults :: Maybe Natural
$sel:appInstanceArn:ListAppInstanceUsers' :: ListAppInstanceUsers -> Text
$sel:nextToken:ListAppInstanceUsers' :: ListAppInstanceUsers -> Maybe (Sensitive Text)
$sel:maxResults:ListAppInstanceUsers' :: ListAppInstanceUsers -> Maybe Natural
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Text)
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
appInstanceArn
instance Data.ToHeaders ListAppInstanceUsers where
toHeaders :: ListAppInstanceUsers -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ListAppInstanceUsers where
toPath :: ListAppInstanceUsers -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/app-instance-users"
instance Data.ToQuery ListAppInstanceUsers where
toQuery :: ListAppInstanceUsers -> QueryString
toQuery ListAppInstanceUsers' {Maybe Natural
Maybe (Sensitive Text)
Text
appInstanceArn :: Text
nextToken :: Maybe (Sensitive Text)
maxResults :: Maybe Natural
$sel:appInstanceArn:ListAppInstanceUsers' :: ListAppInstanceUsers -> Text
$sel:nextToken:ListAppInstanceUsers' :: ListAppInstanceUsers -> Maybe (Sensitive Text)
$sel:maxResults:ListAppInstanceUsers' :: ListAppInstanceUsers -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"max-results" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxResults,
ByteString
"next-token" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe (Sensitive Text)
nextToken,
ByteString
"app-instance-arn" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
appInstanceArn
]
data ListAppInstanceUsersResponse = ListAppInstanceUsersResponse'
{
ListAppInstanceUsersResponse -> Maybe Text
appInstanceArn :: Prelude.Maybe Prelude.Text,
ListAppInstanceUsersResponse -> Maybe [AppInstanceUserSummary]
appInstanceUsers :: Prelude.Maybe [AppInstanceUserSummary],
ListAppInstanceUsersResponse -> Maybe (Sensitive Text)
nextToken :: Prelude.Maybe (Data.Sensitive Prelude.Text),
ListAppInstanceUsersResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListAppInstanceUsersResponse
-> ListAppInstanceUsersResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListAppInstanceUsersResponse
-> ListAppInstanceUsersResponse -> Bool
$c/= :: ListAppInstanceUsersResponse
-> ListAppInstanceUsersResponse -> Bool
== :: ListAppInstanceUsersResponse
-> ListAppInstanceUsersResponse -> Bool
$c== :: ListAppInstanceUsersResponse
-> ListAppInstanceUsersResponse -> Bool
Prelude.Eq, Int -> ListAppInstanceUsersResponse -> ShowS
[ListAppInstanceUsersResponse] -> ShowS
ListAppInstanceUsersResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListAppInstanceUsersResponse] -> ShowS
$cshowList :: [ListAppInstanceUsersResponse] -> ShowS
show :: ListAppInstanceUsersResponse -> String
$cshow :: ListAppInstanceUsersResponse -> String
showsPrec :: Int -> ListAppInstanceUsersResponse -> ShowS
$cshowsPrec :: Int -> ListAppInstanceUsersResponse -> ShowS
Prelude.Show, forall x.
Rep ListAppInstanceUsersResponse x -> ListAppInstanceUsersResponse
forall x.
ListAppInstanceUsersResponse -> Rep ListAppInstanceUsersResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListAppInstanceUsersResponse x -> ListAppInstanceUsersResponse
$cfrom :: forall x.
ListAppInstanceUsersResponse -> Rep ListAppInstanceUsersResponse x
Prelude.Generic)
newListAppInstanceUsersResponse ::
Prelude.Int ->
ListAppInstanceUsersResponse
newListAppInstanceUsersResponse :: Int -> ListAppInstanceUsersResponse
newListAppInstanceUsersResponse Int
pHttpStatus_ =
ListAppInstanceUsersResponse'
{ $sel:appInstanceArn:ListAppInstanceUsersResponse' :: Maybe Text
appInstanceArn =
forall a. Maybe a
Prelude.Nothing,
$sel:appInstanceUsers:ListAppInstanceUsersResponse' :: Maybe [AppInstanceUserSummary]
appInstanceUsers = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListAppInstanceUsersResponse' :: Maybe (Sensitive Text)
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListAppInstanceUsersResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listAppInstanceUsersResponse_appInstanceArn :: Lens.Lens' ListAppInstanceUsersResponse (Prelude.Maybe Prelude.Text)
listAppInstanceUsersResponse_appInstanceArn :: Lens' ListAppInstanceUsersResponse (Maybe Text)
listAppInstanceUsersResponse_appInstanceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAppInstanceUsersResponse' {Maybe Text
appInstanceArn :: Maybe Text
$sel:appInstanceArn:ListAppInstanceUsersResponse' :: ListAppInstanceUsersResponse -> Maybe Text
appInstanceArn} -> Maybe Text
appInstanceArn) (\s :: ListAppInstanceUsersResponse
s@ListAppInstanceUsersResponse' {} Maybe Text
a -> ListAppInstanceUsersResponse
s {$sel:appInstanceArn:ListAppInstanceUsersResponse' :: Maybe Text
appInstanceArn = Maybe Text
a} :: ListAppInstanceUsersResponse)
listAppInstanceUsersResponse_appInstanceUsers :: Lens.Lens' ListAppInstanceUsersResponse (Prelude.Maybe [AppInstanceUserSummary])
listAppInstanceUsersResponse_appInstanceUsers :: Lens' ListAppInstanceUsersResponse (Maybe [AppInstanceUserSummary])
listAppInstanceUsersResponse_appInstanceUsers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAppInstanceUsersResponse' {Maybe [AppInstanceUserSummary]
appInstanceUsers :: Maybe [AppInstanceUserSummary]
$sel:appInstanceUsers:ListAppInstanceUsersResponse' :: ListAppInstanceUsersResponse -> Maybe [AppInstanceUserSummary]
appInstanceUsers} -> Maybe [AppInstanceUserSummary]
appInstanceUsers) (\s :: ListAppInstanceUsersResponse
s@ListAppInstanceUsersResponse' {} Maybe [AppInstanceUserSummary]
a -> ListAppInstanceUsersResponse
s {$sel:appInstanceUsers:ListAppInstanceUsersResponse' :: Maybe [AppInstanceUserSummary]
appInstanceUsers = Maybe [AppInstanceUserSummary]
a} :: ListAppInstanceUsersResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
listAppInstanceUsersResponse_nextToken :: Lens.Lens' ListAppInstanceUsersResponse (Prelude.Maybe Prelude.Text)
listAppInstanceUsersResponse_nextToken :: Lens' ListAppInstanceUsersResponse (Maybe Text)
listAppInstanceUsersResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAppInstanceUsersResponse' {Maybe (Sensitive Text)
nextToken :: Maybe (Sensitive Text)
$sel:nextToken:ListAppInstanceUsersResponse' :: ListAppInstanceUsersResponse -> Maybe (Sensitive Text)
nextToken} -> Maybe (Sensitive Text)
nextToken) (\s :: ListAppInstanceUsersResponse
s@ListAppInstanceUsersResponse' {} Maybe (Sensitive Text)
a -> ListAppInstanceUsersResponse
s {$sel:nextToken:ListAppInstanceUsersResponse' :: Maybe (Sensitive Text)
nextToken = Maybe (Sensitive Text)
a} :: ListAppInstanceUsersResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall a. Iso' (Sensitive a) a
Data._Sensitive
listAppInstanceUsersResponse_httpStatus :: Lens.Lens' ListAppInstanceUsersResponse Prelude.Int
listAppInstanceUsersResponse_httpStatus :: Lens' ListAppInstanceUsersResponse Int
listAppInstanceUsersResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAppInstanceUsersResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListAppInstanceUsersResponse' :: ListAppInstanceUsersResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListAppInstanceUsersResponse
s@ListAppInstanceUsersResponse' {} Int
a -> ListAppInstanceUsersResponse
s {$sel:httpStatus:ListAppInstanceUsersResponse' :: Int
httpStatus = Int
a} :: ListAppInstanceUsersResponse)
instance Prelude.NFData ListAppInstanceUsersResponse where
rnf :: ListAppInstanceUsersResponse -> ()
rnf ListAppInstanceUsersResponse' {Int
Maybe [AppInstanceUserSummary]
Maybe Text
Maybe (Sensitive Text)
httpStatus :: Int
nextToken :: Maybe (Sensitive Text)
appInstanceUsers :: Maybe [AppInstanceUserSummary]
appInstanceArn :: Maybe Text
$sel:httpStatus:ListAppInstanceUsersResponse' :: ListAppInstanceUsersResponse -> Int
$sel:nextToken:ListAppInstanceUsersResponse' :: ListAppInstanceUsersResponse -> Maybe (Sensitive Text)
$sel:appInstanceUsers:ListAppInstanceUsersResponse' :: ListAppInstanceUsersResponse -> Maybe [AppInstanceUserSummary]
$sel:appInstanceArn:ListAppInstanceUsersResponse' :: ListAppInstanceUsersResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
appInstanceArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [AppInstanceUserSummary]
appInstanceUsers
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Text)
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus