{-# 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.AlexaBusiness.UpdateAddressBook
(
updateAddressBook
, UpdateAddressBook
, uabName
, uabDescription
, uabAddressBookARN
, updateAddressBookResponse
, UpdateAddressBookResponse
, uabrsResponseStatus
) where
import Network.AWS.AlexaBusiness.Types
import Network.AWS.AlexaBusiness.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data UpdateAddressBook = UpdateAddressBook'
{ _uabName :: !(Maybe Text)
, _uabDescription :: !(Maybe Text)
, _uabAddressBookARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateAddressBook
:: Text
-> UpdateAddressBook
updateAddressBook pAddressBookARN_ =
UpdateAddressBook'
{ _uabName = Nothing
, _uabDescription = Nothing
, _uabAddressBookARN = pAddressBookARN_
}
uabName :: Lens' UpdateAddressBook (Maybe Text)
uabName = lens _uabName (\ s a -> s{_uabName = a})
uabDescription :: Lens' UpdateAddressBook (Maybe Text)
uabDescription = lens _uabDescription (\ s a -> s{_uabDescription = a})
uabAddressBookARN :: Lens' UpdateAddressBook Text
uabAddressBookARN = lens _uabAddressBookARN (\ s a -> s{_uabAddressBookARN = a})
instance AWSRequest UpdateAddressBook where
type Rs UpdateAddressBook = UpdateAddressBookResponse
request = postJSON alexaBusiness
response
= receiveEmpty
(\ s h x ->
UpdateAddressBookResponse' <$> (pure (fromEnum s)))
instance Hashable UpdateAddressBook where
instance NFData UpdateAddressBook where
instance ToHeaders UpdateAddressBook where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AlexaForBusiness.UpdateAddressBook" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateAddressBook where
toJSON UpdateAddressBook'{..}
= object
(catMaybes
[("Name" .=) <$> _uabName,
("Description" .=) <$> _uabDescription,
Just ("AddressBookArn" .= _uabAddressBookARN)])
instance ToPath UpdateAddressBook where
toPath = const "/"
instance ToQuery UpdateAddressBook where
toQuery = const mempty
newtype UpdateAddressBookResponse = UpdateAddressBookResponse'
{ _uabrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateAddressBookResponse
:: Int
-> UpdateAddressBookResponse
updateAddressBookResponse pResponseStatus_ =
UpdateAddressBookResponse' {_uabrsResponseStatus = pResponseStatus_}
uabrsResponseStatus :: Lens' UpdateAddressBookResponse Int
uabrsResponseStatus = lens _uabrsResponseStatus (\ s a -> s{_uabrsResponseStatus = a})
instance NFData UpdateAddressBookResponse where