{-# LANGUAGE TemplateHaskell
           , MultiParamTypeClasses
           , TypeFamilies
           , OverloadedStrings
           #-}

module Aws.Ec2.Commands.DescribeRegions where

import Aws.Ec2.TH

data DescribeRegions = DescribeRegions [Text]
                       deriving (Show)

ec2ValueTransactionDef ''DescribeRegions 'DescribeRegions "regionInfo" "RegionName"

type DescribeRegionsResponse = [Region]