fix auth header

rapyuta-robotics · Sep 4, 2024 · d620e4d · d620e4d
1 parent ecfc519
commit d620e4d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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