From 8f73ef68e7238454cb7dde0d7f1fdeb38aa56227 Mon Sep 17 00:00:00 2001
From: Max Penet <mpenet@s-exp.com>
Date: Tue, 28 Jan 2025 09:36:13 +0100
Subject: [PATCH] fixup! refactor

---
 src/spootnik/reporter/alert.clj | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/spootnik/reporter/alert.clj b/src/spootnik/reporter/alert.clj
index 87d436f..88a604c 100644
--- a/src/spootnik/reporter/alert.clj
+++ b/src/spootnik/reporter/alert.clj
@@ -60,14 +60,18 @@
       generator-url
       (assoc :generatorURL generator-url))))
 
+(defn- alerts-body
+  [alerts]
+  (json/write-value-as-string
+   {:alerts (map (fn [alert] (->alert alert)) alerts)}))
+
 (defrecord AlephClient [])
 
 (extend-protocol Alert
   AlephClient
   (msend! [client alerts]
     @(http/post "/api/v2/alerts"
-                (into {:body (json/write-value-as-string
-                              {:alerts (map (fn [alert] (->alert alert)) alerts)})
+                (into {:body (alerts-body alerts)
                        :headers {"Content-Type" "application/json; charset=utf-8"}}
                       client)))
   (send! [client alert]