getImages :: Maybe ImageType -> DigitalOcean (Response [Image])
getImages filter = do
  credentials <- creds
  get [uri| /images{?filter, credentials*} |]

---- /images/{imageId}
getImages :: Maybe ImageType -> DigitalOcean (Response [Image])
getImages filter = do
  credentials <- creds
  get [uri| /images{?filter, credentials*} |]

---- /images/{imageId}
getImages filter = do
  credentials <- creds
  get [uri| /images{?filter, credentials*} |]

---- /images/{imageId}