{-# 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.DetachFromIndex
(
detachFromIndex
, DetachFromIndex
, dfiDirectoryARN
, dfiIndexReference
, dfiTargetReference
, detachFromIndexResponse
, DetachFromIndexResponse
, dfirsDetachedObjectIdentifier
, dfirsResponseStatus
) 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 DetachFromIndex = DetachFromIndex'
{ _dfiDirectoryARN :: !Text
, _dfiIndexReference :: !ObjectReference
, _dfiTargetReference :: !ObjectReference
} deriving (Eq, Read, Show, Data, Typeable, Generic)
detachFromIndex
:: Text
-> ObjectReference
-> ObjectReference
-> DetachFromIndex
detachFromIndex pDirectoryARN_ pIndexReference_ pTargetReference_ =
DetachFromIndex'
{ _dfiDirectoryARN = pDirectoryARN_
, _dfiIndexReference = pIndexReference_
, _dfiTargetReference = pTargetReference_
}
dfiDirectoryARN :: Lens' DetachFromIndex Text
dfiDirectoryARN = lens _dfiDirectoryARN (\ s a -> s{_dfiDirectoryARN = a})
dfiIndexReference :: Lens' DetachFromIndex ObjectReference
dfiIndexReference = lens _dfiIndexReference (\ s a -> s{_dfiIndexReference = a})
dfiTargetReference :: Lens' DetachFromIndex ObjectReference
dfiTargetReference = lens _dfiTargetReference (\ s a -> s{_dfiTargetReference = a})
instance AWSRequest DetachFromIndex where
type Rs DetachFromIndex = DetachFromIndexResponse
request = putJSON cloudDirectory
response
= receiveJSON
(\ s h x ->
DetachFromIndexResponse' <$>
(x .?> "DetachedObjectIdentifier") <*>
(pure (fromEnum s)))
instance Hashable DetachFromIndex where
instance NFData DetachFromIndex where
instance ToHeaders DetachFromIndex where
toHeaders DetachFromIndex'{..}
= mconcat
["x-amz-data-partition" =# _dfiDirectoryARN]
instance ToJSON DetachFromIndex where
toJSON DetachFromIndex'{..}
= object
(catMaybes
[Just ("IndexReference" .= _dfiIndexReference),
Just ("TargetReference" .= _dfiTargetReference)])
instance ToPath DetachFromIndex where
toPath
= const
"/amazonclouddirectory/2017-01-11/index/detach"
instance ToQuery DetachFromIndex where
toQuery = const mempty
data DetachFromIndexResponse = DetachFromIndexResponse'
{ _dfirsDetachedObjectIdentifier :: !(Maybe Text)
, _dfirsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
detachFromIndexResponse
:: Int
-> DetachFromIndexResponse
detachFromIndexResponse pResponseStatus_ =
DetachFromIndexResponse'
{ _dfirsDetachedObjectIdentifier = Nothing
, _dfirsResponseStatus = pResponseStatus_
}
dfirsDetachedObjectIdentifier :: Lens' DetachFromIndexResponse (Maybe Text)
dfirsDetachedObjectIdentifier = lens _dfirsDetachedObjectIdentifier (\ s a -> s{_dfirsDetachedObjectIdentifier = a})
dfirsResponseStatus :: Lens' DetachFromIndexResponse Int
dfirsResponseStatus = lens _dfirsResponseStatus (\ s a -> s{_dfirsResponseStatus = a})
instance NFData DetachFromIndexResponse where