transferImage :: ImageId -> RegionId -> DigitalOcean (Response Event)
transferImage imageId regionId = do
  credentials <- creds
  get [uri| /images/{imageId}/transfer{?region_id, credentials*} |]
  where region_id = regionId

---- /ssh_keys
transferImage :: ImageId -> RegionId -> DigitalOcean (Response Event)
transferImage imageId regionId = do
  credentials <- creds
  get [uri| /images/{imageId}/transfer{?region_id, credentials*} |]
  where region_id = regionId

---- /ssh_keys
transferImage imageId regionId = do
  credentials <- creds
  get [uri| /images/{imageId}/transfer{?region_id, credentials*} |]
  where region_id = regionId

---- /ssh_keys