{-# 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.GetAddressBook
(
getAddressBook
, GetAddressBook
, gabAddressBookARN
, getAddressBookResponse
, GetAddressBookResponse
, gabrsAddressBook
, gabrsResponseStatus
) 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
newtype GetAddressBook = GetAddressBook'
{ _gabAddressBookARN :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getAddressBook
:: Text
-> GetAddressBook
getAddressBook pAddressBookARN_ =
GetAddressBook' {_gabAddressBookARN = pAddressBookARN_}
gabAddressBookARN :: Lens' GetAddressBook Text
gabAddressBookARN = lens _gabAddressBookARN (\ s a -> s{_gabAddressBookARN = a})
instance AWSRequest GetAddressBook where
type Rs GetAddressBook = GetAddressBookResponse
request = postJSON alexaBusiness
response
= receiveJSON
(\ s h x ->
GetAddressBookResponse' <$>
(x .?> "AddressBook") <*> (pure (fromEnum s)))
instance Hashable GetAddressBook where
instance NFData GetAddressBook where
instance ToHeaders GetAddressBook where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AlexaForBusiness.GetAddressBook" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetAddressBook where
toJSON GetAddressBook'{..}
= object
(catMaybes
[Just ("AddressBookArn" .= _gabAddressBookARN)])
instance ToPath GetAddressBook where
toPath = const "/"
instance ToQuery GetAddressBook where
toQuery = const mempty
data GetAddressBookResponse = GetAddressBookResponse'
{ _gabrsAddressBook :: !(Maybe AddressBook)
, _gabrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getAddressBookResponse
:: Int
-> GetAddressBookResponse
getAddressBookResponse pResponseStatus_ =
GetAddressBookResponse'
{_gabrsAddressBook = Nothing, _gabrsResponseStatus = pResponseStatus_}
gabrsAddressBook :: Lens' GetAddressBookResponse (Maybe AddressBook)
gabrsAddressBook = lens _gabrsAddressBook (\ s a -> s{_gabrsAddressBook = a})
gabrsResponseStatus :: Lens' GetAddressBookResponse Int
gabrsResponseStatus = lens _gabrsResponseStatus (\ s a -> s{_gabrsResponseStatus = a})
instance NFData GetAddressBookResponse where