{-# 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.CodeCommit.UpdateRepositoryDescription
(
updateRepositoryDescription
, UpdateRepositoryDescription
, urdRepositoryDescription
, urdRepositoryName
, updateRepositoryDescriptionResponse
, UpdateRepositoryDescriptionResponse
) where
import Network.AWS.CodeCommit.Types
import Network.AWS.CodeCommit.Types.Product
import Network.AWS.Lens
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 Rs UpdateRepositoryDescription =
UpdateRepositoryDescriptionResponse
request = postJSON codeCommit
response
= receiveNull UpdateRepositoryDescriptionResponse'
instance Hashable UpdateRepositoryDescription where
instance NFData UpdateRepositoryDescription where
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
(catMaybes
[("repositoryDescription" .=) <$>
_urdRepositoryDescription,
Just ("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'
instance NFData UpdateRepositoryDescriptionResponse
where