{-# 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.WorkMail.CreateAlias
(
createAlias
, CreateAlias
, caOrganizationId
, caEntityId
, caAlias
, createAliasResponse
, CreateAliasResponse
, carsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.WorkMail.Types
import Network.AWS.WorkMail.Types.Product
data CreateAlias = CreateAlias'
{ _caOrganizationId :: !Text
, _caEntityId :: !Text
, _caAlias :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createAlias
:: Text
-> Text
-> Text
-> CreateAlias
createAlias pOrganizationId_ pEntityId_ pAlias_ =
CreateAlias'
{ _caOrganizationId = pOrganizationId_
, _caEntityId = pEntityId_
, _caAlias = pAlias_
}
caOrganizationId :: Lens' CreateAlias Text
caOrganizationId = lens _caOrganizationId (\ s a -> s{_caOrganizationId = a})
caEntityId :: Lens' CreateAlias Text
caEntityId = lens _caEntityId (\ s a -> s{_caEntityId = a})
caAlias :: Lens' CreateAlias Text
caAlias = lens _caAlias (\ s a -> s{_caAlias = a})
instance AWSRequest CreateAlias where
type Rs CreateAlias = CreateAliasResponse
request = postJSON workMail
response
= receiveEmpty
(\ s h x ->
CreateAliasResponse' <$> (pure (fromEnum s)))
instance Hashable CreateAlias where
instance NFData CreateAlias where
instance ToHeaders CreateAlias where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("WorkMailService.CreateAlias" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateAlias where
toJSON CreateAlias'{..}
= object
(catMaybes
[Just ("OrganizationId" .= _caOrganizationId),
Just ("EntityId" .= _caEntityId),
Just ("Alias" .= _caAlias)])
instance ToPath CreateAlias where
toPath = const "/"
instance ToQuery CreateAlias where
toQuery = const mempty
newtype CreateAliasResponse = CreateAliasResponse'
{ _carsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createAliasResponse
:: Int
-> CreateAliasResponse
createAliasResponse pResponseStatus_ =
CreateAliasResponse' {_carsResponseStatus = pResponseStatus_}
carsResponseStatus :: Lens' CreateAliasResponse Int
carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a})
instance NFData CreateAliasResponse where