   (.-value (.getElementById js/document id)))
 
 (defn wrap-error-alert [callback]
-  (fn [reply]
-    (let [resp (js->clj reply)]
-      (when (= "error" (get resp "result")) (msg/danger (get resp "message")))
-      (callback reply))))
+  (fn [response]
+    (when (= "error" (get response "result"))
+      (msg/danger (get response "message")))
+    (callback response)))
 
 (defn ajax [url type data callback]
   (jq/ajax url

      (do
        (msg/info (:text-progress config))
       (ajax "/api/actions/test" "POST" data
            (wrap-error-alert
             (fn [e]
               (done-callback)
               (msg/success (:text-done config)))))))))

(def action-update-error-message "Couldn't update the action. Please file a bug if the issue persists.")


                  :text-done "The issue is created. Check out the repository."}
   :github-pull-request {:build build-gh-pull-request
                         :schema schm/GithubPullRequestAction
                         :text-progress "Creating test pull request on GitHub..."
                         :text-done "The pull request is created. Check out the repository."}})

(defn send-new-action [data-pack]
