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

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

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

---- /images/{imageId}/destroy