{-# 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.ServiceCatalog.UpdateConstraint
(
updateConstraint
, UpdateConstraint
, ucAcceptLanguage
, ucDescription
, ucId
, updateConstraintResponse
, UpdateConstraintResponse
, ucrsStatus
, ucrsConstraintDetail
, ucrsConstraintParameters
, ucrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.ServiceCatalog.Types
import Network.AWS.ServiceCatalog.Types.Product
data UpdateConstraint = UpdateConstraint'
{ _ucAcceptLanguage :: !(Maybe Text)
, _ucDescription :: !(Maybe Text)
, _ucId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateConstraint
:: Text
-> UpdateConstraint
updateConstraint pId_ =
UpdateConstraint'
{_ucAcceptLanguage = Nothing, _ucDescription = Nothing, _ucId = pId_}
ucAcceptLanguage :: Lens' UpdateConstraint (Maybe Text)
ucAcceptLanguage = lens _ucAcceptLanguage (\ s a -> s{_ucAcceptLanguage = a})
ucDescription :: Lens' UpdateConstraint (Maybe Text)
ucDescription = lens _ucDescription (\ s a -> s{_ucDescription = a})
ucId :: Lens' UpdateConstraint Text
ucId = lens _ucId (\ s a -> s{_ucId = a})
instance AWSRequest UpdateConstraint where
type Rs UpdateConstraint = UpdateConstraintResponse
request = postJSON serviceCatalog
response
= receiveJSON
(\ s h x ->
UpdateConstraintResponse' <$>
(x .?> "Status") <*> (x .?> "ConstraintDetail") <*>
(x .?> "ConstraintParameters")
<*> (pure (fromEnum s)))
instance Hashable UpdateConstraint where
instance NFData UpdateConstraint where
instance ToHeaders UpdateConstraint where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWS242ServiceCatalogService.UpdateConstraint" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateConstraint where
toJSON UpdateConstraint'{..}
= object
(catMaybes
[("AcceptLanguage" .=) <$> _ucAcceptLanguage,
("Description" .=) <$> _ucDescription,
Just ("Id" .= _ucId)])
instance ToPath UpdateConstraint where
toPath = const "/"
instance ToQuery UpdateConstraint where
toQuery = const mempty
data UpdateConstraintResponse = UpdateConstraintResponse'
{ _ucrsStatus :: !(Maybe RequestStatus)
, _ucrsConstraintDetail :: !(Maybe ConstraintDetail)
, _ucrsConstraintParameters :: !(Maybe Text)
, _ucrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateConstraintResponse
:: Int
-> UpdateConstraintResponse
updateConstraintResponse pResponseStatus_ =
UpdateConstraintResponse'
{ _ucrsStatus = Nothing
, _ucrsConstraintDetail = Nothing
, _ucrsConstraintParameters = Nothing
, _ucrsResponseStatus = pResponseStatus_
}
ucrsStatus :: Lens' UpdateConstraintResponse (Maybe RequestStatus)
ucrsStatus = lens _ucrsStatus (\ s a -> s{_ucrsStatus = a})
ucrsConstraintDetail :: Lens' UpdateConstraintResponse (Maybe ConstraintDetail)
ucrsConstraintDetail = lens _ucrsConstraintDetail (\ s a -> s{_ucrsConstraintDetail = a})
ucrsConstraintParameters :: Lens' UpdateConstraintResponse (Maybe Text)
ucrsConstraintParameters = lens _ucrsConstraintParameters (\ s a -> s{_ucrsConstraintParameters = a})
ucrsResponseStatus :: Lens' UpdateConstraintResponse Int
ucrsResponseStatus = lens _ucrsResponseStatus (\ s a -> s{_ucrsResponseStatus = a})
instance NFData UpdateConstraintResponse where