{-# 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.CloudDirectory.BatchWrite
(
batchWrite
, BatchWrite
, bwDirectoryARN
, bwOperations
, batchWriteResponse
, BatchWriteResponse
, bwrsResponses
, bwrsResponseStatus
) where
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data BatchWrite = BatchWrite'
{ _bwDirectoryARN :: !Text
, _bwOperations :: ![BatchWriteOperation]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
batchWrite
:: Text
-> BatchWrite
batchWrite pDirectoryARN_ =
BatchWrite' {_bwDirectoryARN = pDirectoryARN_, _bwOperations = mempty}
bwDirectoryARN :: Lens' BatchWrite Text
bwDirectoryARN = lens _bwDirectoryARN (\ s a -> s{_bwDirectoryARN = a})
bwOperations :: Lens' BatchWrite [BatchWriteOperation]
bwOperations = lens _bwOperations (\ s a -> s{_bwOperations = a}) . _Coerce
instance AWSRequest BatchWrite where
type Rs BatchWrite = BatchWriteResponse
request = putJSON cloudDirectory
response
= receiveJSON
(\ s h x ->
BatchWriteResponse' <$>
(x .?> "Responses" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable BatchWrite where
instance NFData BatchWrite where
instance ToHeaders BatchWrite where
toHeaders BatchWrite'{..}
= mconcat ["x-amz-data-partition" =# _bwDirectoryARN]
instance ToJSON BatchWrite where
toJSON BatchWrite'{..}
= object
(catMaybes [Just ("Operations" .= _bwOperations)])
instance ToPath BatchWrite where
toPath
= const "/amazonclouddirectory/2017-01-11/batchwrite"
instance ToQuery BatchWrite where
toQuery = const mempty
data BatchWriteResponse = BatchWriteResponse'
{ _bwrsResponses :: !(Maybe [BatchWriteOperationResponse])
, _bwrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
batchWriteResponse
:: Int
-> BatchWriteResponse
batchWriteResponse pResponseStatus_ =
BatchWriteResponse'
{_bwrsResponses = Nothing, _bwrsResponseStatus = pResponseStatus_}
bwrsResponses :: Lens' BatchWriteResponse [BatchWriteOperationResponse]
bwrsResponses = lens _bwrsResponses (\ s a -> s{_bwrsResponses = a}) . _Default . _Coerce
bwrsResponseStatus :: Lens' BatchWriteResponse Int
bwrsResponseStatus = lens _bwrsResponseStatus (\ s a -> s{_bwrsResponseStatus = a})
instance NFData BatchWriteResponse where