module Network.AWS.DirectConnect.DescribeLocations
(
DescribeLocations
, describeLocations
, DescribeLocationsResponse
, describeLocationsResponse
, dlrLocations
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.DirectConnect.Types
import qualified GHC.Exts
data DescribeLocations = DescribeLocations
deriving (Eq, Ord, Read, Show, Generic)
describeLocations :: DescribeLocations
describeLocations = DescribeLocations
newtype DescribeLocationsResponse = DescribeLocationsResponse
{ _dlrLocations :: List "locations" Location
} deriving (Eq, Read, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeLocationsResponse where
type Item DescribeLocationsResponse = Location
fromList = DescribeLocationsResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dlrLocations
describeLocationsResponse :: DescribeLocationsResponse
describeLocationsResponse = DescribeLocationsResponse
{ _dlrLocations = mempty
}
dlrLocations :: Lens' DescribeLocationsResponse [Location]
dlrLocations = lens _dlrLocations (\s a -> s { _dlrLocations = a }) . _List
instance ToPath DescribeLocations where
toPath = const "/"
instance ToQuery DescribeLocations where
toQuery = const mempty
instance ToHeaders DescribeLocations
instance ToJSON DescribeLocations where
toJSON = const (toJSON Empty)
instance AWSRequest DescribeLocations where
type Sv DescribeLocations = DirectConnect
type Rs DescribeLocations = DescribeLocationsResponse
request = post "DescribeLocations"
response = jsonResponse
instance FromJSON DescribeLocationsResponse where
parseJSON = withObject "DescribeLocationsResponse" $ \o -> DescribeLocationsResponse
<$> o .:? "locations" .!= mempty