Upload a JSON file to an S3 bucket

core.clj

(ns facebook-campaigns-resolver.core
  (:require [cheshire.core :as json]
            [clj-http.client :as http]
            [amazonica.aws.s3 :as s3]
            [amazonica.aws.s3transfer :as s3transfer]
            [clojure.java.io :as io]))

(def ^:private url "https://jsonplaceholder.typicode.com/comments?postId=1")

(def ^:private aws {:key ""
                    :secret ""
                    :bucket ""
                    :region "us-west-1"})

(defn get-json [url]
  (:body (http/get url)))

(defn save-to-s3
  [json]
  (let [payload (.getBytes json "UTF-8")
        input-stream (java.io.ByteArrayInputStream. payload)]
    (s3/put-object :bucket-name (:bucket aws)
                   :access-key (:key aws)
                   :secret-key (:secret aws)
                   :file json)))

(save-to-s3 (get-json url))