stackctl-1.1.0.0: src/Stackctl/AWS/EC2.hs

module Stackctl.AWS.EC2
  ( awsEc2DescribeFirstAvailabilityZoneRegionName
  ) where

import Stackctl.Prelude

import Amazonka.EC2.DescribeAvailabilityZones
import Amazonka.EC2.Types (AvailabilityZone(..))
import Stackctl.AWS.Core

awsEc2DescribeFirstAvailabilityZoneRegionName
  :: (MonadResource m, MonadReader env m, HasAwsEnv env) => m Region
awsEc2DescribeFirstAvailabilityZoneRegionName = do
  let req = newDescribeAvailabilityZones
  awsSimple "DescribeAvailabilityZones" req $ \resp -> do
    azs <- resp ^. describeAvailabilityZonesResponse_availabilityZones
    az <- listToMaybe azs
    rn <- regionName az
    hush $ fromText rn