[clojure] Create new Fortune object in scope of request (#10656)

The new fortune object must be constructed in the scope of the request,
not as a constant:

> Within the scope of the request, a new Fortune object must be
constructed and added to the list.

https://github.com/TechEmpower/FrameworkBenchmarks/wiki/Project-Information-Framework-Tests-Overview#fortunes

Author: p8

frameworks/Clojure/ring-http-exchange/src/ring_http_exchange/input_stream_handler.clj

@@ -10,18 +10,17 @@
 (def query-fortunes (boa/build-query (boa/->NextJdbcAdapter) "fortune.sql"))
 
 (def ^:private hello-world-bytes (.getBytes "Hello, World!"))
-(def ^:private ^:const additional-message {:id      0
-                                           :message "Additional fortune added at request time."})
+
 (def ^:private ^:const fortune-headers {"Server"       "ring-http-exchange"
                                         "Content-Type" "text/html; charset=UTF-8"})
 
-
 (def ^:private render-fortune (majavat/build-html-renderer "fortune.html"
                                                            {:renderer (->InputStreamRenderer)}))
 
 (defn- get-body [datasource]
   (let [context (as-> (query-fortunes datasource) fortunes
-                      (conj fortunes additional-message)
+                      (conj fortunes {:id      0
+                                      :message "Additional fortune added at request time."})
                       (sort-by :message fortunes))]
     (render-fortune {:messages context})))
 

frameworks/Clojure/ring-http-exchange/src/ring_http_exchange/string_handler.clj

@@ -9,8 +9,7 @@
 (def query-fortunes (boa/build-query (boa/->NextJdbcAdapter) "fortune.sql"))
 
 (def ^:private ^:const hello-world "Hello, World!")
-(def ^:private ^:const additional-message {:id      0
-                                           :message "Additional fortune added at request time."})
+
 (def ^:private ^:const fortune-headers {"Server"       "ring-http-exchange"
                                         "Content-Type" "text/html; charset=UTF-8"})
 (def ^:private ^:const json-headers {"Server"       "ring-http-exchange"
@@ -22,7 +21,8 @@
 
 (defn- get-body [datasource]
   (let [context (as-> (query-fortunes datasource) fortunes
-                      (conj fortunes additional-message)
+                      (conj fortunes {:id      0
+                                      :message "Additional fortune added at request time."})
                       (sort-by :message fortunes))]
     (render-fortune {:messages context})))