------------------------------------------------------------
-- CreateSubnet
------------------------------------------------------------
createSubnet
    :: (MonadResource m, MonadBaseControl IO m)
    => CreateSubnetRequest
    -> EC2 m Subnet
createSubnet param =
    ec2Query "CreateSubnet" params $
          element "subnet" subnetSink
  where
    params = createSubnetParams param
createSubnet
    :: (MonadResource m, MonadBaseControl IO m)
    => CreateSubnetRequest
    -> EC2 m Subnet
createSubnet param =
    ec2Query "CreateSubnet" params $
          element "subnet" subnetSink
  where
    params = createSubnetParams param
createSubnet param =
    ec2Query "CreateSubnet" params $
          element "subnet" subnetSink
  where
    params = createSubnetParams param