{-# 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.OpsWorks.DeleteUserProfile
(
deleteUserProfile
, DeleteUserProfile
, dupIAMUserARN
, deleteUserProfileResponse
, DeleteUserProfileResponse
) where
import Network.AWS.Lens
import Network.AWS.OpsWorks.Types
import Network.AWS.OpsWorks.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteUserProfile = DeleteUserProfile'
{ _dupIAMUserARN :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteUserProfile
:: Text
-> DeleteUserProfile
deleteUserProfile pIAMUserARN_ =
DeleteUserProfile' {_dupIAMUserARN = pIAMUserARN_}
dupIAMUserARN :: Lens' DeleteUserProfile Text
dupIAMUserARN = lens _dupIAMUserARN (\ s a -> s{_dupIAMUserARN = a})
instance AWSRequest DeleteUserProfile where
type Rs DeleteUserProfile = DeleteUserProfileResponse
request = postJSON opsWorks
response = receiveNull DeleteUserProfileResponse'
instance Hashable DeleteUserProfile where
instance NFData DeleteUserProfile where
instance ToHeaders DeleteUserProfile where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.DeleteUserProfile" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteUserProfile where
toJSON DeleteUserProfile'{..}
= object
(catMaybes [Just ("IamUserArn" .= _dupIAMUserARN)])
instance ToPath DeleteUserProfile where
toPath = const "/"
instance ToQuery DeleteUserProfile where
toQuery = const mempty
data DeleteUserProfileResponse =
DeleteUserProfileResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteUserProfileResponse
:: DeleteUserProfileResponse
deleteUserProfileResponse = DeleteUserProfileResponse'
instance NFData DeleteUserProfileResponse where