module Network.AWS.CodeCommit.UpdateRepositoryDescription
(
updateRepositoryDescription
, UpdateRepositoryDescription
, urdRepositoryDescription
, urdRepositoryName
, updateRepositoryDescriptionResponse
, UpdateRepositoryDescriptionResponse
) where
import Network.AWS.CodeCommit.Types
import Network.AWS.CodeCommit.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data UpdateRepositoryDescription = UpdateRepositoryDescription'
{ _urdRepositoryDescription :: !(Maybe Text)
, _urdRepositoryName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
updateRepositoryDescription
:: Text
-> UpdateRepositoryDescription
updateRepositoryDescription pRepositoryName_ =
UpdateRepositoryDescription'
{ _urdRepositoryDescription = Nothing
, _urdRepositoryName = pRepositoryName_
}
urdRepositoryDescription :: Lens' UpdateRepositoryDescription (Maybe Text)
urdRepositoryDescription = lens _urdRepositoryDescription (\ s a -> s{_urdRepositoryDescription = a});
urdRepositoryName :: Lens' UpdateRepositoryDescription Text
urdRepositoryName = lens _urdRepositoryName (\ s a -> s{_urdRepositoryName = a});
instance AWSRequest UpdateRepositoryDescription where
type Sv UpdateRepositoryDescription = CodeCommit
type Rs UpdateRepositoryDescription =
UpdateRepositoryDescriptionResponse
request = postJSON
response
= receiveNull UpdateRepositoryDescriptionResponse'
instance ToHeaders UpdateRepositoryDescription where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeCommit_20150413.UpdateRepositoryDescription" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateRepositoryDescription where
toJSON UpdateRepositoryDescription'{..}
= object
["repositoryDescription" .=
_urdRepositoryDescription,
"repositoryName" .= _urdRepositoryName]
instance ToPath UpdateRepositoryDescription where
toPath = const "/"
instance ToQuery UpdateRepositoryDescription where
toQuery = const mempty
data UpdateRepositoryDescriptionResponse =
UpdateRepositoryDescriptionResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
updateRepositoryDescriptionResponse
:: UpdateRepositoryDescriptionResponse
updateRepositoryDescriptionResponse = UpdateRepositoryDescriptionResponse'