module Network.AWS.CloudFront.ListStreamingDistributions
(
ListStreamingDistributions
, listStreamingDistributions
, lsdMarker
, lsdMaxItems
, ListStreamingDistributionsResponse
, listStreamingDistributionsResponse
, lsdrStreamingDistributionList
) where
import Network.AWS.Prelude
import Network.AWS.Request.RestXML
import Network.AWS.CloudFront.Types
import qualified GHC.Exts
data ListStreamingDistributions = ListStreamingDistributions
{ _lsdMarker :: Maybe Text
, _lsdMaxItems :: Maybe Text
} deriving (Eq, Ord, Read, Show)
listStreamingDistributions :: ListStreamingDistributions
listStreamingDistributions = ListStreamingDistributions
{ _lsdMarker = Nothing
, _lsdMaxItems = Nothing
}
lsdMarker :: Lens' ListStreamingDistributions (Maybe Text)
lsdMarker = lens _lsdMarker (\s a -> s { _lsdMarker = a })
lsdMaxItems :: Lens' ListStreamingDistributions (Maybe Text)
lsdMaxItems = lens _lsdMaxItems (\s a -> s { _lsdMaxItems = a })
newtype ListStreamingDistributionsResponse = ListStreamingDistributionsResponse
{ _lsdrStreamingDistributionList :: StreamingDistributionList
} deriving (Eq, Read, Show)
listStreamingDistributionsResponse :: StreamingDistributionList
-> ListStreamingDistributionsResponse
listStreamingDistributionsResponse p1 = ListStreamingDistributionsResponse
{ _lsdrStreamingDistributionList = p1
}
lsdrStreamingDistributionList :: Lens' ListStreamingDistributionsResponse StreamingDistributionList
lsdrStreamingDistributionList =
lens _lsdrStreamingDistributionList
(\s a -> s { _lsdrStreamingDistributionList = a })
instance ToPath ListStreamingDistributions where
toPath = const "/2014-11-06/streaming-distribution"
instance ToQuery ListStreamingDistributions where
toQuery ListStreamingDistributions{..} = mconcat
[ "Marker" =? _lsdMarker
, "MaxItems" =? _lsdMaxItems
]
instance ToHeaders ListStreamingDistributions
instance ToXMLRoot ListStreamingDistributions where
toXMLRoot = const (namespaced ns "ListStreamingDistributions" [])
instance ToXML ListStreamingDistributions
instance AWSRequest ListStreamingDistributions where
type Sv ListStreamingDistributions = CloudFront
type Rs ListStreamingDistributions = ListStreamingDistributionsResponse
request = get
response = xmlResponse
instance FromXML ListStreamingDistributionsResponse where
parseXML x = ListStreamingDistributionsResponse
<$> x .@ "StreamingDistributionList"
instance AWSPager ListStreamingDistributions where
page rq rs
| stop (rs ^. lsdrStreamingDistributionList . sdlIsTruncated) = Nothing
| otherwise = Just $ rq
& lsdMarker .~ rs ^. lsdrStreamingDistributionList . sdlNextMarker