{-# 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.DeviceFarm.UpdateVPCEConfiguration
(
updateVPCEConfiguration
, UpdateVPCEConfiguration
, uvecVpceServiceName
, uvecVpceConfigurationName
, uvecServiceDNSName
, uvecVpceConfigurationDescription
, uvecArn
, updateVPCEConfigurationResponse
, UpdateVPCEConfigurationResponse
, uvecrsVpceConfiguration
, uvecrsResponseStatus
) where
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data UpdateVPCEConfiguration = UpdateVPCEConfiguration'
{ _uvecVpceServiceName :: !(Maybe Text)
, _uvecVpceConfigurationName :: !(Maybe Text)
, _uvecServiceDNSName :: !(Maybe Text)
, _uvecVpceConfigurationDescription :: !(Maybe Text)
, _uvecArn :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateVPCEConfiguration
:: Text
-> UpdateVPCEConfiguration
updateVPCEConfiguration pArn_ =
UpdateVPCEConfiguration'
{ _uvecVpceServiceName = Nothing
, _uvecVpceConfigurationName = Nothing
, _uvecServiceDNSName = Nothing
, _uvecVpceConfigurationDescription = Nothing
, _uvecArn = pArn_
}
uvecVpceServiceName :: Lens' UpdateVPCEConfiguration (Maybe Text)
uvecVpceServiceName = lens _uvecVpceServiceName (\ s a -> s{_uvecVpceServiceName = a})
uvecVpceConfigurationName :: Lens' UpdateVPCEConfiguration (Maybe Text)
uvecVpceConfigurationName = lens _uvecVpceConfigurationName (\ s a -> s{_uvecVpceConfigurationName = a})
uvecServiceDNSName :: Lens' UpdateVPCEConfiguration (Maybe Text)
uvecServiceDNSName = lens _uvecServiceDNSName (\ s a -> s{_uvecServiceDNSName = a})
uvecVpceConfigurationDescription :: Lens' UpdateVPCEConfiguration (Maybe Text)
uvecVpceConfigurationDescription = lens _uvecVpceConfigurationDescription (\ s a -> s{_uvecVpceConfigurationDescription = a})
uvecArn :: Lens' UpdateVPCEConfiguration Text
uvecArn = lens _uvecArn (\ s a -> s{_uvecArn = a})
instance AWSRequest UpdateVPCEConfiguration where
type Rs UpdateVPCEConfiguration =
UpdateVPCEConfigurationResponse
request = postJSON deviceFarm
response
= receiveJSON
(\ s h x ->
UpdateVPCEConfigurationResponse' <$>
(x .?> "vpceConfiguration") <*> (pure (fromEnum s)))
instance Hashable UpdateVPCEConfiguration where
instance NFData UpdateVPCEConfiguration where
instance ToHeaders UpdateVPCEConfiguration where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DeviceFarm_20150623.UpdateVPCEConfiguration" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateVPCEConfiguration where
toJSON UpdateVPCEConfiguration'{..}
= object
(catMaybes
[("vpceServiceName" .=) <$> _uvecVpceServiceName,
("vpceConfigurationName" .=) <$>
_uvecVpceConfigurationName,
("serviceDnsName" .=) <$> _uvecServiceDNSName,
("vpceConfigurationDescription" .=) <$>
_uvecVpceConfigurationDescription,
Just ("arn" .= _uvecArn)])
instance ToPath UpdateVPCEConfiguration where
toPath = const "/"
instance ToQuery UpdateVPCEConfiguration where
toQuery = const mempty
data UpdateVPCEConfigurationResponse = UpdateVPCEConfigurationResponse'
{ _uvecrsVpceConfiguration :: !(Maybe VPCEConfiguration)
, _uvecrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateVPCEConfigurationResponse
:: Int
-> UpdateVPCEConfigurationResponse
updateVPCEConfigurationResponse pResponseStatus_ =
UpdateVPCEConfigurationResponse'
{ _uvecrsVpceConfiguration = Nothing
, _uvecrsResponseStatus = pResponseStatus_
}
uvecrsVpceConfiguration :: Lens' UpdateVPCEConfigurationResponse (Maybe VPCEConfiguration)
uvecrsVpceConfiguration = lens _uvecrsVpceConfiguration (\ s a -> s{_uvecrsVpceConfiguration = a})
uvecrsResponseStatus :: Lens' UpdateVPCEConfigurationResponse Int
uvecrsResponseStatus = lens _uvecrsResponseStatus (\ s a -> s{_uvecrsResponseStatus = a})
instance NFData UpdateVPCEConfigurationResponse where