destroyImage :: ImageId -> DigitalOcean (Response ())
destroyImage imageId = do
  credentials <- creds
  get [uri| /images/{imageId}/destroy{?credentials*} |]

---- /images/{imageId}/transfer
destroyImage :: ImageId -> DigitalOcean (Response ())
destroyImage imageId = do
  credentials <- creds
  get [uri| /images/{imageId}/destroy{?credentials*} |]

---- /images/{imageId}/transfer
destroyImage imageId = do
  credentials <- creds
  get [uri| /images/{imageId}/destroy{?credentials*} |]

---- /images/{imageId}/transfer