{-# 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.DirectoryService.ListSchemaExtensions
(
listSchemaExtensions
, ListSchemaExtensions
, lseNextToken
, lseLimit
, lseDirectoryId
, listSchemaExtensionsResponse
, ListSchemaExtensionsResponse
, lsersSchemaExtensionsInfo
, lsersNextToken
, lsersResponseStatus
) where
import Network.AWS.DirectoryService.Types
import Network.AWS.DirectoryService.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListSchemaExtensions = ListSchemaExtensions'
{ _lseNextToken :: !(Maybe Text)
, _lseLimit :: !(Maybe Nat)
, _lseDirectoryId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listSchemaExtensions
:: Text
-> ListSchemaExtensions
listSchemaExtensions pDirectoryId_ =
ListSchemaExtensions'
{ _lseNextToken = Nothing
, _lseLimit = Nothing
, _lseDirectoryId = pDirectoryId_
}
lseNextToken :: Lens' ListSchemaExtensions (Maybe Text)
lseNextToken = lens _lseNextToken (\ s a -> s{_lseNextToken = a})
lseLimit :: Lens' ListSchemaExtensions (Maybe Natural)
lseLimit = lens _lseLimit (\ s a -> s{_lseLimit = a}) . mapping _Nat
lseDirectoryId :: Lens' ListSchemaExtensions Text
lseDirectoryId = lens _lseDirectoryId (\ s a -> s{_lseDirectoryId = a})
instance AWSRequest ListSchemaExtensions where
type Rs ListSchemaExtensions =
ListSchemaExtensionsResponse
request = postJSON directoryService
response
= receiveJSON
(\ s h x ->
ListSchemaExtensionsResponse' <$>
(x .?> "SchemaExtensionsInfo" .!@ mempty) <*>
(x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable ListSchemaExtensions where
instance NFData ListSchemaExtensions where
instance ToHeaders ListSchemaExtensions where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DirectoryService_20150416.ListSchemaExtensions" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListSchemaExtensions where
toJSON ListSchemaExtensions'{..}
= object
(catMaybes
[("NextToken" .=) <$> _lseNextToken,
("Limit" .=) <$> _lseLimit,
Just ("DirectoryId" .= _lseDirectoryId)])
instance ToPath ListSchemaExtensions where
toPath = const "/"
instance ToQuery ListSchemaExtensions where
toQuery = const mempty
data ListSchemaExtensionsResponse = ListSchemaExtensionsResponse'
{ _lsersSchemaExtensionsInfo :: !(Maybe [SchemaExtensionInfo])
, _lsersNextToken :: !(Maybe Text)
, _lsersResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listSchemaExtensionsResponse
:: Int
-> ListSchemaExtensionsResponse
listSchemaExtensionsResponse pResponseStatus_ =
ListSchemaExtensionsResponse'
{ _lsersSchemaExtensionsInfo = Nothing
, _lsersNextToken = Nothing
, _lsersResponseStatus = pResponseStatus_
}
lsersSchemaExtensionsInfo :: Lens' ListSchemaExtensionsResponse [SchemaExtensionInfo]
lsersSchemaExtensionsInfo = lens _lsersSchemaExtensionsInfo (\ s a -> s{_lsersSchemaExtensionsInfo = a}) . _Default . _Coerce
lsersNextToken :: Lens' ListSchemaExtensionsResponse (Maybe Text)
lsersNextToken = lens _lsersNextToken (\ s a -> s{_lsersNextToken = a})
lsersResponseStatus :: Lens' ListSchemaExtensionsResponse Int
lsersResponseStatus = lens _lsersResponseStatus (\ s a -> s{_lsersResponseStatus = a})
instance NFData ListSchemaExtensionsResponse where