{-# 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.EnableDirectory
(
enableDirectory
, EnableDirectory
, edDirectoryARN
, enableDirectoryResponse
, EnableDirectoryResponse
, edrsResponseStatus
, edrsDirectoryARN
) 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
newtype EnableDirectory = EnableDirectory'
{ _edDirectoryARN :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
enableDirectory
:: Text
-> EnableDirectory
enableDirectory pDirectoryARN_ =
EnableDirectory' {_edDirectoryARN = pDirectoryARN_}
edDirectoryARN :: Lens' EnableDirectory Text
edDirectoryARN = lens _edDirectoryARN (\ s a -> s{_edDirectoryARN = a})
instance AWSRequest EnableDirectory where
type Rs EnableDirectory = EnableDirectoryResponse
request = putJSON cloudDirectory
response
= receiveJSON
(\ s h x ->
EnableDirectoryResponse' <$>
(pure (fromEnum s)) <*> (x .:> "DirectoryArn"))
instance Hashable EnableDirectory where
instance NFData EnableDirectory where
instance ToHeaders EnableDirectory where
toHeaders EnableDirectory'{..}
= mconcat ["x-amz-data-partition" =# _edDirectoryARN]
instance ToJSON EnableDirectory where
toJSON = const (Object mempty)
instance ToPath EnableDirectory where
toPath
= const
"/amazonclouddirectory/2017-01-11/directory/enable"
instance ToQuery EnableDirectory where
toQuery = const mempty
data EnableDirectoryResponse = EnableDirectoryResponse'
{ _edrsResponseStatus :: !Int
, _edrsDirectoryARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
enableDirectoryResponse
:: Int
-> Text
-> EnableDirectoryResponse
enableDirectoryResponse pResponseStatus_ pDirectoryARN_ =
EnableDirectoryResponse'
{_edrsResponseStatus = pResponseStatus_, _edrsDirectoryARN = pDirectoryARN_}
edrsResponseStatus :: Lens' EnableDirectoryResponse Int
edrsResponseStatus = lens _edrsResponseStatus (\ s a -> s{_edrsResponseStatus = a})
edrsDirectoryARN :: Lens' EnableDirectoryResponse Text
edrsDirectoryARN = lens _edrsDirectoryARN (\ s a -> s{_edrsDirectoryARN = a})
instance NFData EnableDirectoryResponse where