module Network.AWS.EFS.DescribeMountTargets
(
describeMountTargets
, DescribeMountTargets
, dmtMarker
, dmtMaxItems
, dmtFileSystemId
, describeMountTargetsResponse
, DescribeMountTargetsResponse
, dmtrsMountTargets
, dmtrsMarker
, dmtrsNextMarker
, dmtrsResponseStatus
) where
import Network.AWS.EFS.Types
import Network.AWS.EFS.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeMountTargets = DescribeMountTargets'
{ _dmtMarker :: !(Maybe Text)
, _dmtMaxItems :: !(Maybe Nat)
, _dmtFileSystemId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeMountTargets
:: Text
-> DescribeMountTargets
describeMountTargets pFileSystemId_ =
DescribeMountTargets'
{ _dmtMarker = Nothing
, _dmtMaxItems = Nothing
, _dmtFileSystemId = pFileSystemId_
}
dmtMarker :: Lens' DescribeMountTargets (Maybe Text)
dmtMarker = lens _dmtMarker (\ s a -> s{_dmtMarker = a});
dmtMaxItems :: Lens' DescribeMountTargets (Maybe Natural)
dmtMaxItems = lens _dmtMaxItems (\ s a -> s{_dmtMaxItems = a}) . mapping _Nat;
dmtFileSystemId :: Lens' DescribeMountTargets Text
dmtFileSystemId = lens _dmtFileSystemId (\ s a -> s{_dmtFileSystemId = a});
instance AWSRequest DescribeMountTargets where
type Rs DescribeMountTargets =
DescribeMountTargetsResponse
request = get eFS
response
= receiveJSON
(\ s h x ->
DescribeMountTargetsResponse' <$>
(x .?> "MountTargets" .!@ mempty) <*>
(x .?> "Marker")
<*> (x .?> "NextMarker")
<*> (pure (fromEnum s)))
instance ToHeaders DescribeMountTargets where
toHeaders = const mempty
instance ToPath DescribeMountTargets where
toPath = const "/2015-02-01/mount-targets"
instance ToQuery DescribeMountTargets where
toQuery DescribeMountTargets'{..}
= mconcat
["Marker" =: _dmtMarker, "MaxItems" =: _dmtMaxItems,
"FileSystemId" =: _dmtFileSystemId]
data DescribeMountTargetsResponse = DescribeMountTargetsResponse'
{ _dmtrsMountTargets :: !(Maybe [MountTargetDescription])
, _dmtrsMarker :: !(Maybe Text)
, _dmtrsNextMarker :: !(Maybe Text)
, _dmtrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeMountTargetsResponse
:: Int
-> DescribeMountTargetsResponse
describeMountTargetsResponse pResponseStatus_ =
DescribeMountTargetsResponse'
{ _dmtrsMountTargets = Nothing
, _dmtrsMarker = Nothing
, _dmtrsNextMarker = Nothing
, _dmtrsResponseStatus = pResponseStatus_
}
dmtrsMountTargets :: Lens' DescribeMountTargetsResponse [MountTargetDescription]
dmtrsMountTargets = lens _dmtrsMountTargets (\ s a -> s{_dmtrsMountTargets = a}) . _Default . _Coerce;
dmtrsMarker :: Lens' DescribeMountTargetsResponse (Maybe Text)
dmtrsMarker = lens _dmtrsMarker (\ s a -> s{_dmtrsMarker = a});
dmtrsNextMarker :: Lens' DescribeMountTargetsResponse (Maybe Text)
dmtrsNextMarker = lens _dmtrsNextMarker (\ s a -> s{_dmtrsNextMarker = a});
dmtrsResponseStatus :: Lens' DescribeMountTargetsResponse Int
dmtrsResponseStatus = lens _dmtrsResponseStatus (\ s a -> s{_dmtrsResponseStatus = a});