Support HEAD requests

Author: alexander-yakushev

src/flamebin/processing.clj

@@ -117,7 +117,7 @@
 (defn dense-edn-stream->dense-profile [^InputStream input-stream]
   (with-open [rdr (PushbackReader. (io/reader input-stream))]
     (let [profile (select-keys (edn/read rdr) [:stacks :id->frame :total-samples])]
-      (m/validate DenseProfile profile)
+      (m/assert DenseProfile profile)
       ;; Calculate total samples if not provided.
       (update profile :total-samples
               #(or % (transduce (map second) + 0 (:stacks profile)))))))

src/flamebin/web.clj

@@ -18,6 +18,7 @@
             [reitit.ring :as ring]
             [reitit.ring.coercion :as ring-coercion]
             [reitit.ring.middleware.parameters :refer [parameters-middleware]]
+            [ring.middleware.head]
             [ring.middleware.resource]
             [taoensso.timbre :as log])
   (:import clojure.lang.ExceptionInfo))
@@ -186,7 +187,9 @@
     {:data {:middleware [;; Needed for coercion to work.
                          ring-coercion/coerce-exceptions-middleware
                          ring-coercion/coerce-request-middleware]}})
-   (ring/redirect-trailing-slash-handler)))
+   (ring/redirect-trailing-slash-handler)
+   ;; This middleware should live outside of router because it impacts matching.
+   {:middleware [[ring.middleware.head/wrap-head]]}))
 
 (mount/defstate server
   :start (let [port (@config :server :port)]

src/flamebin/web/pages.clj

@@ -24,7 +24,7 @@
                          (form/file-upload {:id "fileInput"} "file")
                          (form/submit-button "Upload"))
            [:div#status]
-           [:a {:href "/"} "Back to home"]]]
+           [:a {:href "/"} "↰ Home"]]]
          [:script (h/raw (render-template
                           (slurp (io/resource "site/upload.js"))
                           {:upload-url "/api/v1/upload-profile?type=cpu&format=collapsed"}))]]])))