{-# 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.CreateSecurityConfiguration
(
createSecurityConfiguration
, CreateSecurityConfiguration
, cscName
, cscSecurityConfiguration
, createSecurityConfigurationResponse
, CreateSecurityConfigurationResponse
, cscrsResponseStatus
, cscrsName
, cscrsCreationDateTime
) 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
data CreateSecurityConfiguration = CreateSecurityConfiguration'
{ _cscName :: !Text
, _cscSecurityConfiguration :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createSecurityConfiguration
:: Text
-> Text
-> CreateSecurityConfiguration
createSecurityConfiguration pName_ pSecurityConfiguration_ =
CreateSecurityConfiguration'
{_cscName = pName_, _cscSecurityConfiguration = pSecurityConfiguration_}
cscName :: Lens' CreateSecurityConfiguration Text
cscName = lens _cscName (\ s a -> s{_cscName = a})
cscSecurityConfiguration :: Lens' CreateSecurityConfiguration Text
cscSecurityConfiguration = lens _cscSecurityConfiguration (\ s a -> s{_cscSecurityConfiguration = a})
instance AWSRequest CreateSecurityConfiguration where
type Rs CreateSecurityConfiguration =
CreateSecurityConfigurationResponse
request = postJSON emr
response
= receiveJSON
(\ s h x ->
CreateSecurityConfigurationResponse' <$>
(pure (fromEnum s)) <*> (x .:> "Name") <*>
(x .:> "CreationDateTime"))
instance Hashable CreateSecurityConfiguration where
instance NFData CreateSecurityConfiguration where
instance ToHeaders CreateSecurityConfiguration where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("ElasticMapReduce.CreateSecurityConfiguration" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateSecurityConfiguration where
toJSON CreateSecurityConfiguration'{..}
= object
(catMaybes
[Just ("Name" .= _cscName),
Just
("SecurityConfiguration" .=
_cscSecurityConfiguration)])
instance ToPath CreateSecurityConfiguration where
toPath = const "/"
instance ToQuery CreateSecurityConfiguration where
toQuery = const mempty
data CreateSecurityConfigurationResponse = CreateSecurityConfigurationResponse'
{ _cscrsResponseStatus :: !Int
, _cscrsName :: !Text
, _cscrsCreationDateTime :: !POSIX
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createSecurityConfigurationResponse
:: Int
-> Text
-> UTCTime
-> CreateSecurityConfigurationResponse
createSecurityConfigurationResponse pResponseStatus_ pName_ pCreationDateTime_ =
CreateSecurityConfigurationResponse'
{ _cscrsResponseStatus = pResponseStatus_
, _cscrsName = pName_
, _cscrsCreationDateTime = _Time # pCreationDateTime_
}
cscrsResponseStatus :: Lens' CreateSecurityConfigurationResponse Int
cscrsResponseStatus = lens _cscrsResponseStatus (\ s a -> s{_cscrsResponseStatus = a})
cscrsName :: Lens' CreateSecurityConfigurationResponse Text
cscrsName = lens _cscrsName (\ s a -> s{_cscrsName = a})
cscrsCreationDateTime :: Lens' CreateSecurityConfigurationResponse UTCTime
cscrsCreationDateTime = lens _cscrsCreationDateTime (\ s a -> s{_cscrsCreationDateTime = a}) . _Time
instance NFData CreateSecurityConfigurationResponse
where