From d620e4d8ae95f62735682eb3e5cf2909175a3e6e Mon Sep 17 00:00:00 2001
From: Ayush Gaud <ayush.gaud@gmail.com>
Date: Wed, 4 Sep 2024 15:05:41 +0900
Subject: [PATCH] fix auth header

---
 src/wrike_ist/azure.cljs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/wrike_ist/azure.cljs b/src/wrike_ist/azure.cljs
index 7ce8d21..06015db 100644
--- a/src/wrike_ist/azure.cljs
+++ b/src/wrike_ist/azure.cljs
@@ -10,7 +10,7 @@
   (some-> js/process .-env .-AZURE_TOKEN .trim))
 
 (defn- headers []
-  {:Authorization (str "Basic " (js/btoa (str ":" (azure-token))))
+  {:Authorization (str "Basic " (js/btoa (str (azure-token))))
    :Content-Type "application/json"})
 
 (defn parse-body
@@ -55,7 +55,7 @@
                            (reduced (js/Promise.reject :present))
                            ok))
                        (js/Promise.resolve)
-                       (get (parse-body response) "data"))))
+                       (get (parse-body response) "comments"))))
              (.then (fn add-link-comment [& _]
                       (let [comment-text (link-html details)
                             params (clj->js {:text comment-text