{-# 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.CodeBuild.InvalidateProjectCache
(
invalidateProjectCache
, InvalidateProjectCache
, ipcProjectName
, invalidateProjectCacheResponse
, InvalidateProjectCacheResponse
, ipcrsResponseStatus
) where
import Network.AWS.CodeBuild.Types
import Network.AWS.CodeBuild.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype InvalidateProjectCache = InvalidateProjectCache'
{ _ipcProjectName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
invalidateProjectCache
:: Text
-> InvalidateProjectCache
invalidateProjectCache pProjectName_ =
InvalidateProjectCache' {_ipcProjectName = pProjectName_}
ipcProjectName :: Lens' InvalidateProjectCache Text
ipcProjectName = lens _ipcProjectName (\ s a -> s{_ipcProjectName = a})
instance AWSRequest InvalidateProjectCache where
type Rs InvalidateProjectCache =
InvalidateProjectCacheResponse
request = postJSON codeBuild
response
= receiveEmpty
(\ s h x ->
InvalidateProjectCacheResponse' <$>
(pure (fromEnum s)))
instance Hashable InvalidateProjectCache where
instance NFData InvalidateProjectCache where
instance ToHeaders InvalidateProjectCache where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeBuild_20161006.InvalidateProjectCache" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON InvalidateProjectCache where
toJSON InvalidateProjectCache'{..}
= object
(catMaybes [Just ("projectName" .= _ipcProjectName)])
instance ToPath InvalidateProjectCache where
toPath = const "/"
instance ToQuery InvalidateProjectCache where
toQuery = const mempty
newtype InvalidateProjectCacheResponse = InvalidateProjectCacheResponse'
{ _ipcrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
invalidateProjectCacheResponse
:: Int
-> InvalidateProjectCacheResponse
invalidateProjectCacheResponse pResponseStatus_ =
InvalidateProjectCacheResponse' {_ipcrsResponseStatus = pResponseStatus_}
ipcrsResponseStatus :: Lens' InvalidateProjectCacheResponse Int
ipcrsResponseStatus = lens _ipcrsResponseStatus (\ s a -> s{_ipcrsResponseStatus = a})
instance NFData InvalidateProjectCacheResponse where