{-# 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.BatchDeleteBuilds
(
batchDeleteBuilds
, BatchDeleteBuilds
, bdbIds
, batchDeleteBuildsResponse
, BatchDeleteBuildsResponse
, bdbrsBuildsNotDeleted
, bdbrsBuildsDeleted
, bdbrsResponseStatus
) 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 BatchDeleteBuilds = BatchDeleteBuilds'
{ _bdbIds :: List1 Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
batchDeleteBuilds
:: NonEmpty Text
-> BatchDeleteBuilds
batchDeleteBuilds pIds_ = BatchDeleteBuilds' {_bdbIds = _List1 # pIds_}
bdbIds :: Lens' BatchDeleteBuilds (NonEmpty Text)
bdbIds = lens _bdbIds (\ s a -> s{_bdbIds = a}) . _List1
instance AWSRequest BatchDeleteBuilds where
type Rs BatchDeleteBuilds = BatchDeleteBuildsResponse
request = postJSON codeBuild
response
= receiveJSON
(\ s h x ->
BatchDeleteBuildsResponse' <$>
(x .?> "buildsNotDeleted" .!@ mempty) <*>
(x .?> "buildsDeleted")
<*> (pure (fromEnum s)))
instance Hashable BatchDeleteBuilds where
instance NFData BatchDeleteBuilds where
instance ToHeaders BatchDeleteBuilds where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeBuild_20161006.BatchDeleteBuilds" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON BatchDeleteBuilds where
toJSON BatchDeleteBuilds'{..}
= object (catMaybes [Just ("ids" .= _bdbIds)])
instance ToPath BatchDeleteBuilds where
toPath = const "/"
instance ToQuery BatchDeleteBuilds where
toQuery = const mempty
data BatchDeleteBuildsResponse = BatchDeleteBuildsResponse'
{ _bdbrsBuildsNotDeleted :: !(Maybe [BuildNotDeleted])
, _bdbrsBuildsDeleted :: !(Maybe (List1 Text))
, _bdbrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
batchDeleteBuildsResponse
:: Int
-> BatchDeleteBuildsResponse
batchDeleteBuildsResponse pResponseStatus_ =
BatchDeleteBuildsResponse'
{ _bdbrsBuildsNotDeleted = Nothing
, _bdbrsBuildsDeleted = Nothing
, _bdbrsResponseStatus = pResponseStatus_
}
bdbrsBuildsNotDeleted :: Lens' BatchDeleteBuildsResponse [BuildNotDeleted]
bdbrsBuildsNotDeleted = lens _bdbrsBuildsNotDeleted (\ s a -> s{_bdbrsBuildsNotDeleted = a}) . _Default . _Coerce
bdbrsBuildsDeleted :: Lens' BatchDeleteBuildsResponse (Maybe (NonEmpty Text))
bdbrsBuildsDeleted = lens _bdbrsBuildsDeleted (\ s a -> s{_bdbrsBuildsDeleted = a}) . mapping _List1
bdbrsResponseStatus :: Lens' BatchDeleteBuildsResponse Int
bdbrsResponseStatus = lens _bdbrsResponseStatus (\ s a -> s{_bdbrsResponseStatus = a})
instance NFData BatchDeleteBuildsResponse where