{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.MQ.DescribeUser
(
describeUser
, DescribeUser
, duUsername
, duBrokerId
, describeUserResponse
, DescribeUserResponse
, dursGroups
, dursPending
, dursConsoleAccess
, dursUsername
, dursBrokerId
, dursResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MQ.Types
import Network.AWS.MQ.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeUser = DescribeUser'
{ _duUsername :: !Text
, _duBrokerId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeUser
:: Text
-> Text
-> DescribeUser
describeUser pUsername_ pBrokerId_ =
DescribeUser' {_duUsername = pUsername_, _duBrokerId = pBrokerId_}
duUsername :: Lens' DescribeUser Text
duUsername = lens _duUsername (\ s a -> s{_duUsername = a})
duBrokerId :: Lens' DescribeUser Text
duBrokerId = lens _duBrokerId (\ s a -> s{_duBrokerId = a})
instance AWSRequest DescribeUser where
type Rs DescribeUser = DescribeUserResponse
request = get mq
response
= receiveJSON
(\ s h x ->
DescribeUserResponse' <$>
(x .?> "groups" .!@ mempty) <*> (x .?> "pending") <*>
(x .?> "consoleAccess")
<*> (x .?> "username")
<*> (x .?> "brokerId")
<*> (pure (fromEnum s)))
instance Hashable DescribeUser where
instance NFData DescribeUser where
instance ToHeaders DescribeUser where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DescribeUser where
toPath DescribeUser'{..}
= mconcat
["/v1/brokers/", toBS _duBrokerId, "/users/",
toBS _duUsername]
instance ToQuery DescribeUser where
toQuery = const mempty
data DescribeUserResponse = DescribeUserResponse'
{ _dursGroups :: !(Maybe [Text])
, _dursPending :: !(Maybe UserPendingChanges)
, _dursConsoleAccess :: !(Maybe Bool)
, _dursUsername :: !(Maybe Text)
, _dursBrokerId :: !(Maybe Text)
, _dursResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeUserResponse
:: Int
-> DescribeUserResponse
describeUserResponse pResponseStatus_ =
DescribeUserResponse'
{ _dursGroups = Nothing
, _dursPending = Nothing
, _dursConsoleAccess = Nothing
, _dursUsername = Nothing
, _dursBrokerId = Nothing
, _dursResponseStatus = pResponseStatus_
}
dursGroups :: Lens' DescribeUserResponse [Text]
dursGroups = lens _dursGroups (\ s a -> s{_dursGroups = a}) . _Default . _Coerce
dursPending :: Lens' DescribeUserResponse (Maybe UserPendingChanges)
dursPending = lens _dursPending (\ s a -> s{_dursPending = a})
dursConsoleAccess :: Lens' DescribeUserResponse (Maybe Bool)
dursConsoleAccess = lens _dursConsoleAccess (\ s a -> s{_dursConsoleAccess = a})
dursUsername :: Lens' DescribeUserResponse (Maybe Text)
dursUsername = lens _dursUsername (\ s a -> s{_dursUsername = a})
dursBrokerId :: Lens' DescribeUserResponse (Maybe Text)
dursBrokerId = lens _dursBrokerId (\ s a -> s{_dursBrokerId = a})
dursResponseStatus :: Lens' DescribeUserResponse Int
dursResponseStatus = lens _dursResponseStatus (\ s a -> s{_dursResponseStatus = a})
instance NFData DescribeUserResponse where