1_before.clj

(ns cursive-test)

(defn $render-digest
  [{{{accept "accept"} :headers} :request
   {:keys [date-range]} ::request
   record ::entry}]
  (let [digest (apply db/get-digest-data record date-range)]
    (if (re-matches #"^application/json;?.*" accept)
      (json/generate-string digest)
      (ring-response {:headers {"Cache-Control" "max-age=0, private, no-cache, no-store, must-revalidate"
                                "Content-Type" "text/html;charset=utf-8"}
                      :body (apply str (digest-template record digest))}))))

2_after.clj

(ns cursive-test)

(defn $render-digest
  [{{{accept "accept"} :headers} :request}
   {:keys [date-range]} ::request
   record ::entry]
  (let [digest (apply db/get-digest-data record date-range)]
    (if (re-matches #"^application/json;?.*" accept)
      (json/generate-string digest)
      (ring-response {:headers {"Cache-Control" "max-age=0, private, no-cache, no-store, must-revalidate"
                                "Content-Type" "text/html;charset=utf-8"}
                      :body (apply str (digest-template record digest))}))))

3_before-after.diff

diff --git a/src/dmarc/cursive-test.clj b/src/dmarc/cursive-test.clj
index 041a172..3780c6c 100644
--- a/src/dmarc/cursive-test.clj
+++ b/src/dmarc/cursive-test.clj
@@ -1,9 +1,9 @@
 (ns cursive-test)
 
 (defn $render-digest
-  [{{{accept "accept"} :headers} :request
+  [{{{accept "accept"} :headers} :request}
    {:keys [date-range]} ::request
-   record ::entry}]
+   record ::entry]
   (let [digest (apply db/get-digest-data record date-range)]
     (if (re-matches #"^application/json;?.*" accept)
       (json/generate-string digest)

IDEA information

IntelliJ IDEA 2017.1.2
Build #IC-171.4249.39, built on April 25, 2017
JRE: 1.8.0_112-release-736-b16 x86_64
JVM: OpenJDK 64-Bit Server VM by JetBrains s.r.o
Mac OS X 10.12.5

Cursive information

Version: 1.5.0-2017.1