module Network.AWS.CloudDirectory.RemoveFacetFromObject
(
removeFacetFromObject
, RemoveFacetFromObject
, rffoDirectoryARN
, rffoSchemaFacet
, rffoObjectReference
, removeFacetFromObjectResponse
, RemoveFacetFromObjectResponse
, rfforsResponseStatus
) where
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data RemoveFacetFromObject = RemoveFacetFromObject'
{ _rffoDirectoryARN :: !Text
, _rffoSchemaFacet :: !SchemaFacet
, _rffoObjectReference :: !ObjectReference
} deriving (Eq, Read, Show, Data, Typeable, Generic)
removeFacetFromObject
:: Text
-> SchemaFacet
-> ObjectReference
-> RemoveFacetFromObject
removeFacetFromObject pDirectoryARN_ pSchemaFacet_ pObjectReference_ =
RemoveFacetFromObject'
{ _rffoDirectoryARN = pDirectoryARN_
, _rffoSchemaFacet = pSchemaFacet_
, _rffoObjectReference = pObjectReference_
}
rffoDirectoryARN :: Lens' RemoveFacetFromObject Text
rffoDirectoryARN = lens _rffoDirectoryARN (\ s a -> s{_rffoDirectoryARN = a});
rffoSchemaFacet :: Lens' RemoveFacetFromObject SchemaFacet
rffoSchemaFacet = lens _rffoSchemaFacet (\ s a -> s{_rffoSchemaFacet = a});
rffoObjectReference :: Lens' RemoveFacetFromObject ObjectReference
rffoObjectReference = lens _rffoObjectReference (\ s a -> s{_rffoObjectReference = a});
instance AWSRequest RemoveFacetFromObject where
type Rs RemoveFacetFromObject =
RemoveFacetFromObjectResponse
request = putJSON cloudDirectory
response
= receiveEmpty
(\ s h x ->
RemoveFacetFromObjectResponse' <$>
(pure (fromEnum s)))
instance Hashable RemoveFacetFromObject where
instance NFData RemoveFacetFromObject where
instance ToHeaders RemoveFacetFromObject where
toHeaders RemoveFacetFromObject'{..}
= mconcat
["x-amz-data-partition" =# _rffoDirectoryARN]
instance ToJSON RemoveFacetFromObject where
toJSON RemoveFacetFromObject'{..}
= object
(catMaybes
[Just ("SchemaFacet" .= _rffoSchemaFacet),
Just ("ObjectReference" .= _rffoObjectReference)])
instance ToPath RemoveFacetFromObject where
toPath
= const
"/amazonclouddirectory/2017-01-11/object/facets/delete"
instance ToQuery RemoveFacetFromObject where
toQuery = const mempty
newtype RemoveFacetFromObjectResponse = RemoveFacetFromObjectResponse'
{ _rfforsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
removeFacetFromObjectResponse
:: Int
-> RemoveFacetFromObjectResponse
removeFacetFromObjectResponse pResponseStatus_ =
RemoveFacetFromObjectResponse' {_rfforsResponseStatus = pResponseStatus_}
rfforsResponseStatus :: Lens' RemoveFacetFromObjectResponse Int
rfforsResponseStatus = lens _rfforsResponseStatus (\ s a -> s{_rfforsResponseStatus = a});
instance NFData RemoveFacetFromObjectResponse where