{:paths ["src" "resources"]
:deps {com.datomic/ion {:mvn/version "0.9.34"}
org.clojure/clojure {:mvn/version "1.10.0"}
com.datomic/ion-dev {:mvn/version "0.9.229"}
com.datomic/client-cloud {:mvn/version "0.8.71"}}
:mvn/repos {"datomic-cloud" {:url "s3://datomic-releases-1fc2183a/maven/releases"}}
:aliases
{:dev {:extra-deps {com.datomic/client-cloud {:mvn/version "0.8.71"}
com.datomic/ion-dev {:mvn/version "0.9.229"}}}}}
{:http-direct {:handler-fn http-direct.tutorial/handler}
:app-name "http-direct-tutorial"}
(ns http-direct.tutorial
(:require
[clojure.java.io :as io]
[clojure.edn :as edn]))
(defn read-edn
[input-stream]
(some-> input-stream io/reader (java.io.PushbackReader.) edn/read))
(defn handler
"Returns a cheerful message in response to a :ping in the body"
[{:keys [headers body]}]
(let [type (some-> body read-edn)]
(if (= type :ping)
{:status 200
:headers {"Content-Type" "text/plain"}
:body "Hey! It's working!"}
{:status 400
:headers {}
:body "Expected a :ping"})))
:creds-profile "default",
:region "us-east-1"}'
:group http-direct-tutorial-compute,
:rev \"5556d8abc59f5db49f353d4ed50fc76ddd3ea24f\",
:creds-profile \"default\",
:region \"us-east-1\"}'
:group http-direct-tutorial-compute,
:rev "5556d8abc59f5db49f353d4ed50fc76ddd3ea24f",
:creds-profile "default",
:region "us-east-1"}'
:execution-arn arn:aws:states:us-east-1:918805215306:execution:datomic-http-direct-tutorial-compute:http-direct-tutorial-compute-5556d8abc59f5db49f353d4ed50fc76ddd3ea24f-1558461354227,
:creds-profile "default",
:region "us-east-1"}'
:execution-arn arn:aws:states:us-east-1:918805215306:execution:datomic-http-direct-tutorial-compute:http-direct-tutorial-compute-5556d8abc59f5db49f353d4ed50fc76ddd3ea24f-1558461354227,
:creds-profile \"default\",
:region \"us-east-1\"}'