module Network.AWS.DeviceFarm.ListNetworkProfiles
(
listNetworkProfiles
, ListNetworkProfiles
, lnpNextToken
, lnpType
, lnpArn
, listNetworkProfilesResponse
, ListNetworkProfilesResponse
, lnprsNetworkProfiles
, lnprsNextToken
, lnprsResponseStatus
) where
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListNetworkProfiles = ListNetworkProfiles'
{ _lnpNextToken :: !(Maybe Text)
, _lnpType :: !(Maybe NetworkProfileType)
, _lnpArn :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listNetworkProfiles
:: Text
-> ListNetworkProfiles
listNetworkProfiles pArn_ =
ListNetworkProfiles'
{_lnpNextToken = Nothing, _lnpType = Nothing, _lnpArn = pArn_}
lnpNextToken :: Lens' ListNetworkProfiles (Maybe Text)
lnpNextToken = lens _lnpNextToken (\ s a -> s{_lnpNextToken = a});
lnpType :: Lens' ListNetworkProfiles (Maybe NetworkProfileType)
lnpType = lens _lnpType (\ s a -> s{_lnpType = a});
lnpArn :: Lens' ListNetworkProfiles Text
lnpArn = lens _lnpArn (\ s a -> s{_lnpArn = a});
instance AWSRequest ListNetworkProfiles where
type Rs ListNetworkProfiles =
ListNetworkProfilesResponse
request = postJSON deviceFarm
response
= receiveJSON
(\ s h x ->
ListNetworkProfilesResponse' <$>
(x .?> "networkProfiles" .!@ mempty) <*>
(x .?> "nextToken")
<*> (pure (fromEnum s)))
instance Hashable ListNetworkProfiles where
instance NFData ListNetworkProfiles where
instance ToHeaders ListNetworkProfiles where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DeviceFarm_20150623.ListNetworkProfiles" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListNetworkProfiles where
toJSON ListNetworkProfiles'{..}
= object
(catMaybes
[("nextToken" .=) <$> _lnpNextToken,
("type" .=) <$> _lnpType, Just ("arn" .= _lnpArn)])
instance ToPath ListNetworkProfiles where
toPath = const "/"
instance ToQuery ListNetworkProfiles where
toQuery = const mempty
data ListNetworkProfilesResponse = ListNetworkProfilesResponse'
{ _lnprsNetworkProfiles :: !(Maybe [NetworkProfile])
, _lnprsNextToken :: !(Maybe Text)
, _lnprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listNetworkProfilesResponse
:: Int
-> ListNetworkProfilesResponse
listNetworkProfilesResponse pResponseStatus_ =
ListNetworkProfilesResponse'
{ _lnprsNetworkProfiles = Nothing
, _lnprsNextToken = Nothing
, _lnprsResponseStatus = pResponseStatus_
}
lnprsNetworkProfiles :: Lens' ListNetworkProfilesResponse [NetworkProfile]
lnprsNetworkProfiles = lens _lnprsNetworkProfiles (\ s a -> s{_lnprsNetworkProfiles = a}) . _Default . _Coerce;
lnprsNextToken :: Lens' ListNetworkProfilesResponse (Maybe Text)
lnprsNextToken = lens _lnprsNextToken (\ s a -> s{_lnprsNextToken = a});
lnprsResponseStatus :: Lens' ListNetworkProfilesResponse Int
lnprsResponseStatus = lens _lnprsResponseStatus (\ s a -> s{_lnprsResponseStatus = a});
instance NFData ListNetworkProfilesResponse where