{-# 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.GetDirectory
(
getDirectory
, GetDirectory
, gdDirectoryARN
, getDirectoryResponse
, GetDirectoryResponse
, gdrsResponseStatus
, gdrsDirectory
) 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 GetDirectory = GetDirectory'
{ _gdDirectoryARN :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getDirectory
:: Text
-> GetDirectory
getDirectory pDirectoryARN_ = GetDirectory' {_gdDirectoryARN = pDirectoryARN_}
gdDirectoryARN :: Lens' GetDirectory Text
gdDirectoryARN = lens _gdDirectoryARN (\ s a -> s{_gdDirectoryARN = a})
instance AWSRequest GetDirectory where
type Rs GetDirectory = GetDirectoryResponse
request = postJSON cloudDirectory
response
= receiveJSON
(\ s h x ->
GetDirectoryResponse' <$>
(pure (fromEnum s)) <*> (x .:> "Directory"))
instance Hashable GetDirectory where
instance NFData GetDirectory where
instance ToHeaders GetDirectory where
toHeaders GetDirectory'{..}
= mconcat ["x-amz-data-partition" =# _gdDirectoryARN]
instance ToJSON GetDirectory where
toJSON = const (Object mempty)
instance ToPath GetDirectory where
toPath
= const
"/amazonclouddirectory/2017-01-11/directory/get"
instance ToQuery GetDirectory where
toQuery = const mempty
data GetDirectoryResponse = GetDirectoryResponse'
{ _gdrsResponseStatus :: !Int
, _gdrsDirectory :: !Directory
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getDirectoryResponse
:: Int
-> Directory
-> GetDirectoryResponse
getDirectoryResponse pResponseStatus_ pDirectory_ =
GetDirectoryResponse'
{_gdrsResponseStatus = pResponseStatus_, _gdrsDirectory = pDirectory_}
gdrsResponseStatus :: Lens' GetDirectoryResponse Int
gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a})
gdrsDirectory :: Lens' GetDirectoryResponse Directory
gdrsDirectory = lens _gdrsDirectory (\ s a -> s{_gdrsDirectory = a})
instance NFData GetDirectoryResponse where