{-# 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.CloudDirectory.AddFacetToObject
(
addFacetToObject
, AddFacetToObject
, aftoObjectAttributeList
, aftoDirectoryARN
, aftoSchemaFacet
, aftoObjectReference
, addFacetToObjectResponse
, AddFacetToObjectResponse
, aftorsResponseStatus
) 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 AddFacetToObject = AddFacetToObject'
{ _aftoObjectAttributeList :: !(Maybe [AttributeKeyAndValue])
, _aftoDirectoryARN :: !Text
, _aftoSchemaFacet :: !SchemaFacet
, _aftoObjectReference :: !ObjectReference
} deriving (Eq, Read, Show, Data, Typeable, Generic)
addFacetToObject
:: Text
-> SchemaFacet
-> ObjectReference
-> AddFacetToObject
addFacetToObject pDirectoryARN_ pSchemaFacet_ pObjectReference_ =
AddFacetToObject'
{ _aftoObjectAttributeList = Nothing
, _aftoDirectoryARN = pDirectoryARN_
, _aftoSchemaFacet = pSchemaFacet_
, _aftoObjectReference = pObjectReference_
}
aftoObjectAttributeList :: Lens' AddFacetToObject [AttributeKeyAndValue]
aftoObjectAttributeList = lens _aftoObjectAttributeList (\ s a -> s{_aftoObjectAttributeList = a}) . _Default . _Coerce
aftoDirectoryARN :: Lens' AddFacetToObject Text
aftoDirectoryARN = lens _aftoDirectoryARN (\ s a -> s{_aftoDirectoryARN = a})
aftoSchemaFacet :: Lens' AddFacetToObject SchemaFacet
aftoSchemaFacet = lens _aftoSchemaFacet (\ s a -> s{_aftoSchemaFacet = a})
aftoObjectReference :: Lens' AddFacetToObject ObjectReference
aftoObjectReference = lens _aftoObjectReference (\ s a -> s{_aftoObjectReference = a})
instance AWSRequest AddFacetToObject where
type Rs AddFacetToObject = AddFacetToObjectResponse
request = putJSON cloudDirectory
response
= receiveEmpty
(\ s h x ->
AddFacetToObjectResponse' <$> (pure (fromEnum s)))
instance Hashable AddFacetToObject where
instance NFData AddFacetToObject where
instance ToHeaders AddFacetToObject where
toHeaders AddFacetToObject'{..}
= mconcat
["x-amz-data-partition" =# _aftoDirectoryARN]
instance ToJSON AddFacetToObject where
toJSON AddFacetToObject'{..}
= object
(catMaybes
[("ObjectAttributeList" .=) <$>
_aftoObjectAttributeList,
Just ("SchemaFacet" .= _aftoSchemaFacet),
Just ("ObjectReference" .= _aftoObjectReference)])
instance ToPath AddFacetToObject where
toPath
= const
"/amazonclouddirectory/2017-01-11/object/facets"
instance ToQuery AddFacetToObject where
toQuery = const mempty
newtype AddFacetToObjectResponse = AddFacetToObjectResponse'
{ _aftorsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
addFacetToObjectResponse
:: Int
-> AddFacetToObjectResponse
addFacetToObjectResponse pResponseStatus_ =
AddFacetToObjectResponse' {_aftorsResponseStatus = pResponseStatus_}
aftorsResponseStatus :: Lens' AddFacetToObjectResponse Int
aftorsResponseStatus = lens _aftorsResponseStatus (\ s a -> s{_aftorsResponseStatus = a})
instance NFData AddFacetToObjectResponse where