lambda-entrypoint.clj

(defn unwrap-payload
  [input]
  (let [raw (json/parse-string (slurp input) true)
        ;; actuall notification data is wrapped in an inner json field
        payload (-> raw :Records first :Sns :Message (json/parse-string true))]
    payload))


(gen-class
  :name "something.Core"
  :implements [com.amazonaws.services.lambda.runtime.RequestStreamHandler])


(defn -handleRequest
  [_this input output ctx]
  (let [logger (.getLogger ctx)
        payload (unwrap-payload input)
        res (do-something-with-payload logger payload)]
    (with-open [o (io/writer output)]
      (.write o (json/generate-string {:message "ack", :result res})))))