{-# 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.EC2.ModifyIdentityIdFormat
(
modifyIdentityIdFormat
, ModifyIdentityIdFormat
, miifResource
, miifUseLongIds
, miifPrincipalARN
, modifyIdentityIdFormatResponse
, ModifyIdentityIdFormatResponse
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ModifyIdentityIdFormat = ModifyIdentityIdFormat'
{ _miifResource :: !Text
, _miifUseLongIds :: !Bool
, _miifPrincipalARN :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
modifyIdentityIdFormat
:: Text
-> Bool
-> Text
-> ModifyIdentityIdFormat
modifyIdentityIdFormat pResource_ pUseLongIds_ pPrincipalARN_ =
ModifyIdentityIdFormat'
{ _miifResource = pResource_
, _miifUseLongIds = pUseLongIds_
, _miifPrincipalARN = pPrincipalARN_
}
miifResource :: Lens' ModifyIdentityIdFormat Text
miifResource = lens _miifResource (\ s a -> s{_miifResource = a});
miifUseLongIds :: Lens' ModifyIdentityIdFormat Bool
miifUseLongIds = lens _miifUseLongIds (\ s a -> s{_miifUseLongIds = a});
miifPrincipalARN :: Lens' ModifyIdentityIdFormat Text
miifPrincipalARN = lens _miifPrincipalARN (\ s a -> s{_miifPrincipalARN = a});
instance AWSRequest ModifyIdentityIdFormat where
type Rs ModifyIdentityIdFormat =
ModifyIdentityIdFormatResponse
request = postQuery ec2
response
= receiveNull ModifyIdentityIdFormatResponse'
instance Hashable ModifyIdentityIdFormat
instance NFData ModifyIdentityIdFormat
instance ToHeaders ModifyIdentityIdFormat where
toHeaders = const mempty
instance ToPath ModifyIdentityIdFormat where
toPath = const "/"
instance ToQuery ModifyIdentityIdFormat where
toQuery ModifyIdentityIdFormat'{..}
= mconcat
["Action" =:
("ModifyIdentityIdFormat" :: ByteString),
"Version" =: ("2016-04-01" :: ByteString),
"Resource" =: _miifResource,
"UseLongIds" =: _miifUseLongIds,
"PrincipalArn" =: _miifPrincipalARN]
data ModifyIdentityIdFormatResponse =
ModifyIdentityIdFormatResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
modifyIdentityIdFormatResponse
:: ModifyIdentityIdFormatResponse
modifyIdentityIdFormatResponse = ModifyIdentityIdFormatResponse'
instance NFData ModifyIdentityIdFormatResponse