module Network.AWS.EFS.DescribeMountTargets
(
describeMountTargets
, DescribeMountTargets
, dmtMaxItems
, dmtMarker
, dmtFileSystemId
, describeMountTargetsResponse
, DescribeMountTargetsResponse
, dmtrsMountTargets
, dmtrsMarker
, dmtrsNextMarker
, dmtrsStatus
) 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'
{ _dmtMaxItems :: !(Maybe Nat)
, _dmtMarker :: !(Maybe Text)
, _dmtFileSystemId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeMountTargets
:: Text
-> DescribeMountTargets
describeMountTargets pFileSystemId_ =
DescribeMountTargets'
{ _dmtMaxItems = Nothing
, _dmtMarker = Nothing
, _dmtFileSystemId = pFileSystemId_
}
dmtMaxItems :: Lens' DescribeMountTargets (Maybe Natural)
dmtMaxItems = lens _dmtMaxItems (\ s a -> s{_dmtMaxItems = a}) . mapping _Nat;
dmtMarker :: Lens' DescribeMountTargets (Maybe Text)
dmtMarker = lens _dmtMarker (\ s a -> s{_dmtMarker = a});
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
["MaxItems" =: _dmtMaxItems, "Marker" =: _dmtMarker,
"FileSystemId" =: _dmtFileSystemId]
data DescribeMountTargetsResponse = DescribeMountTargetsResponse'
{ _dmtrsMountTargets :: !(Maybe [MountTargetDescription])
, _dmtrsMarker :: !(Maybe Text)
, _dmtrsNextMarker :: !(Maybe Text)
, _dmtrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeMountTargetsResponse
:: Int
-> DescribeMountTargetsResponse
describeMountTargetsResponse pStatus_ =
DescribeMountTargetsResponse'
{ _dmtrsMountTargets = Nothing
, _dmtrsMarker = Nothing
, _dmtrsNextMarker = Nothing
, _dmtrsStatus = pStatus_
}
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});
dmtrsStatus :: Lens' DescribeMountTargetsResponse Int
dmtrsStatus = lens _dmtrsStatus (\ s a -> s{_dmtrsStatus = a});