{-# 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.EMR.DescribeSecurityConfiguration
(
describeSecurityConfiguration
, DescribeSecurityConfiguration
, dName
, describeSecurityConfigurationResponse
, DescribeSecurityConfigurationResponse
, drsSecurityConfiguration
, drsName
, drsCreationDateTime
, drsResponseStatus
) where
import Network.AWS.EMR.Types
import Network.AWS.EMR.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeSecurityConfiguration = DescribeSecurityConfiguration'
{ _dName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeSecurityConfiguration
:: Text
-> DescribeSecurityConfiguration
describeSecurityConfiguration pName_ =
DescribeSecurityConfiguration' {_dName = pName_}
dName :: Lens' DescribeSecurityConfiguration Text
dName = lens _dName (\ s a -> s{_dName = a})
instance AWSRequest DescribeSecurityConfiguration
where
type Rs DescribeSecurityConfiguration =
DescribeSecurityConfigurationResponse
request = postJSON emr
response
= receiveJSON
(\ s h x ->
DescribeSecurityConfigurationResponse' <$>
(x .?> "SecurityConfiguration") <*> (x .?> "Name")
<*> (x .?> "CreationDateTime")
<*> (pure (fromEnum s)))
instance Hashable DescribeSecurityConfiguration where
instance NFData DescribeSecurityConfiguration where
instance ToHeaders DescribeSecurityConfiguration
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("ElasticMapReduce.DescribeSecurityConfiguration" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeSecurityConfiguration where
toJSON DescribeSecurityConfiguration'{..}
= object (catMaybes [Just ("Name" .= _dName)])
instance ToPath DescribeSecurityConfiguration where
toPath = const "/"
instance ToQuery DescribeSecurityConfiguration where
toQuery = const mempty
data DescribeSecurityConfigurationResponse = DescribeSecurityConfigurationResponse'
{ _drsSecurityConfiguration :: !(Maybe Text)
, _drsName :: !(Maybe Text)
, _drsCreationDateTime :: !(Maybe POSIX)
, _drsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeSecurityConfigurationResponse
:: Int
-> DescribeSecurityConfigurationResponse
describeSecurityConfigurationResponse pResponseStatus_ =
DescribeSecurityConfigurationResponse'
{ _drsSecurityConfiguration = Nothing
, _drsName = Nothing
, _drsCreationDateTime = Nothing
, _drsResponseStatus = pResponseStatus_
}
drsSecurityConfiguration :: Lens' DescribeSecurityConfigurationResponse (Maybe Text)
drsSecurityConfiguration = lens _drsSecurityConfiguration (\ s a -> s{_drsSecurityConfiguration = a})
drsName :: Lens' DescribeSecurityConfigurationResponse (Maybe Text)
drsName = lens _drsName (\ s a -> s{_drsName = a})
drsCreationDateTime :: Lens' DescribeSecurityConfigurationResponse (Maybe UTCTime)
drsCreationDateTime = lens _drsCreationDateTime (\ s a -> s{_drsCreationDateTime = a}) . mapping _Time
drsResponseStatus :: Lens' DescribeSecurityConfigurationResponse Int
drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})
instance NFData DescribeSecurityConfigurationResponse
where