getDomains :: DigitalOcean (Response [Domain])
getDomains = do
  credentials <- creds
  get [uri| /domains{?credentials*} |]

---- /domains/new
getDomains :: DigitalOcean (Response [Domain])
getDomains = do
  credentials <- creds
  get [uri| /domains{?credentials*} |]

---- /domains/new
getDomains = do
  credentials <- creds
  get [uri| /domains{?credentials*} |]

---- /domains/new