module Network.AWS.WAF.ListWebACLs
(
listWebACLs
, ListWebACLs
, lwaNextMarker
, lwaLimit
, listWebACLsResponse
, ListWebACLsResponse
, lwarsWebACLs
, lwarsNextMarker
, lwarsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.WAF.Types
import Network.AWS.WAF.Types.Product
data ListWebACLs = ListWebACLs'
{ _lwaNextMarker :: !(Maybe Text)
, _lwaLimit :: !Nat
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listWebACLs
:: Natural
-> ListWebACLs
listWebACLs pLimit_ =
ListWebACLs'
{ _lwaNextMarker = Nothing
, _lwaLimit = _Nat # pLimit_
}
lwaNextMarker :: Lens' ListWebACLs (Maybe Text)
lwaNextMarker = lens _lwaNextMarker (\ s a -> s{_lwaNextMarker = a});
lwaLimit :: Lens' ListWebACLs Natural
lwaLimit = lens _lwaLimit (\ s a -> s{_lwaLimit = a}) . _Nat;
instance AWSRequest ListWebACLs where
type Rs ListWebACLs = ListWebACLsResponse
request = postJSON waf
response
= receiveJSON
(\ s h x ->
ListWebACLsResponse' <$>
(x .?> "WebACLs" .!@ mempty) <*> (x .?> "NextMarker")
<*> (pure (fromEnum s)))
instance Hashable ListWebACLs
instance NFData ListWebACLs
instance ToHeaders ListWebACLs where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSWAF_20150824.ListWebACLs" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListWebACLs where
toJSON ListWebACLs'{..}
= object
(catMaybes
[("NextMarker" .=) <$> _lwaNextMarker,
Just ("Limit" .= _lwaLimit)])
instance ToPath ListWebACLs where
toPath = const "/"
instance ToQuery ListWebACLs where
toQuery = const mempty
data ListWebACLsResponse = ListWebACLsResponse'
{ _lwarsWebACLs :: !(Maybe [WebACLSummary])
, _lwarsNextMarker :: !(Maybe Text)
, _lwarsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listWebACLsResponse
:: Int
-> ListWebACLsResponse
listWebACLsResponse pResponseStatus_ =
ListWebACLsResponse'
{ _lwarsWebACLs = Nothing
, _lwarsNextMarker = Nothing
, _lwarsResponseStatus = pResponseStatus_
}
lwarsWebACLs :: Lens' ListWebACLsResponse [WebACLSummary]
lwarsWebACLs = lens _lwarsWebACLs (\ s a -> s{_lwarsWebACLs = a}) . _Default . _Coerce;
lwarsNextMarker :: Lens' ListWebACLsResponse (Maybe Text)
lwarsNextMarker = lens _lwarsNextMarker (\ s a -> s{_lwarsNextMarker = a});
lwarsResponseStatus :: Lens' ListWebACLsResponse Int
lwarsResponseStatus = lens _lwarsResponseStatus (\ s a -> s{_lwarsResponseStatus = a});
instance NFData ListWebACLsResponse