Merge pull request #6 from jmeissen/delete-fmt

Remove unnecessary fmt package & remove sentry_sentry auth arg
mmontone · Sep 28, 2022 · dd5a98b · dd5a98b
2 parents 696b2fa + 640bf59
commit dd5a98b
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 7 deletions.
diff --git a/sentry-client.asd b/sentry-client.asd
@@ -11,7 +11,6 @@
                :cl-json
                :cl-ppcre
                :uuid
-               :fmt
                :local-time
                :trivial-backtrace)
   :components ((:file "package")

diff --git a/sentry-client.lisp b/sentry-client.lisp
@@ -105,12 +105,12 @@ If no TIMESTAMP is provided, then current time is used."
 
 (defun encode-sentry-auth-header (sentry-client)
   "Encode Sentry authentication header."
-  (fmt:fmt nil "Sentry sentry_version=" 5 ","
-           "sentry_client=" "cl-sentry-client/"
-           (asdf:component-version (asdf:find-system :sentry-client)) ","
-           "sentry_timestamp=" (format-sentry-timestamp nil (local-time:now)) ","
-           "sentry_key=" (getf (dsn sentry-client) :public-key) ","
-           "sentry_secret=" (getf (dsn sentry-client) :secret-key)))
+  (format nil "Sentry ~:{~(~A~)=~A~:^,~}"
+          `((sentry_version 5)
+            (sentry_client ,(concatenate 'string "cl-sentry-client/"
+                                         (asdf:component-version (asdf:find-system :sentry-client))))
+            (sentry_timestamp ,(format-sentry-timestamp nil (local-time:now)))
+            (sentry_key ,(getf (dsn sentry-client) :public-key)))))
 
 (defun post-sentry-request (data &optional (sentry-client *sentry-client*))
   "Just send DATA to sentry api via HTTP."