{-# 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.Discovery.AssociateConfigurationItemsToApplication
(
associateConfigurationItemsToApplication
, AssociateConfigurationItemsToApplication
, acitaApplicationConfigurationId
, acitaConfigurationIds
, associateConfigurationItemsToApplicationResponse
, AssociateConfigurationItemsToApplicationResponse
, acitarsResponseStatus
) where
import Network.AWS.Discovery.Types
import Network.AWS.Discovery.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data AssociateConfigurationItemsToApplication = AssociateConfigurationItemsToApplication'
{ _acitaApplicationConfigurationId :: !Text
, _acitaConfigurationIds :: ![Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
associateConfigurationItemsToApplication
:: Text
-> AssociateConfigurationItemsToApplication
associateConfigurationItemsToApplication pApplicationConfigurationId_ =
AssociateConfigurationItemsToApplication'
{ _acitaApplicationConfigurationId = pApplicationConfigurationId_
, _acitaConfigurationIds = mempty
}
acitaApplicationConfigurationId :: Lens' AssociateConfigurationItemsToApplication Text
acitaApplicationConfigurationId = lens _acitaApplicationConfigurationId (\ s a -> s{_acitaApplicationConfigurationId = a})
acitaConfigurationIds :: Lens' AssociateConfigurationItemsToApplication [Text]
acitaConfigurationIds = lens _acitaConfigurationIds (\ s a -> s{_acitaConfigurationIds = a}) . _Coerce
instance AWSRequest
AssociateConfigurationItemsToApplication
where
type Rs AssociateConfigurationItemsToApplication =
AssociateConfigurationItemsToApplicationResponse
request = postJSON discovery
response
= receiveEmpty
(\ s h x ->
AssociateConfigurationItemsToApplicationResponse' <$>
(pure (fromEnum s)))
instance Hashable
AssociateConfigurationItemsToApplication
where
instance NFData
AssociateConfigurationItemsToApplication
where
instance ToHeaders
AssociateConfigurationItemsToApplication
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSPoseidonService_V2015_11_01.AssociateConfigurationItemsToApplication"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON
AssociateConfigurationItemsToApplication
where
toJSON AssociateConfigurationItemsToApplication'{..}
= object
(catMaybes
[Just
("applicationConfigurationId" .=
_acitaApplicationConfigurationId),
Just ("configurationIds" .= _acitaConfigurationIds)])
instance ToPath
AssociateConfigurationItemsToApplication
where
toPath = const "/"
instance ToQuery
AssociateConfigurationItemsToApplication
where
toQuery = const mempty
newtype AssociateConfigurationItemsToApplicationResponse = AssociateConfigurationItemsToApplicationResponse'
{ _acitarsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
associateConfigurationItemsToApplicationResponse
:: Int
-> AssociateConfigurationItemsToApplicationResponse
associateConfigurationItemsToApplicationResponse pResponseStatus_ =
AssociateConfigurationItemsToApplicationResponse'
{_acitarsResponseStatus = pResponseStatus_}
acitarsResponseStatus :: Lens' AssociateConfigurationItemsToApplicationResponse Int
acitarsResponseStatus = lens _acitarsResponseStatus (\ s a -> s{_acitarsResponseStatus = a})
instance NFData
AssociateConfigurationItemsToApplicationResponse
where