getRegions :: DigitalOcean (Response [Region])
getRegions = do
  credentials <- creds
  get [uri| /regions{?credentials*} |]

---- /images
getRegions :: DigitalOcean (Response [Region])
getRegions = do
  credentials <- creds
  get [uri| /regions{?credentials*} |]

---- /images
getRegions = do
  credentials <- creds
  get [uri| /regions{?credentials*} |]

---- /images