Resolve and reject pormises with cljs-ajax about promesa HOT 2 CLOSED

(defn register-user
  [params]
  (p/promise
   (fn [resolve reject]
     (http/post url {:params params
                     :handler resolve
                     :error-handler reject}))))

(-> (register-user {:username "foo"
                    :password "bar"})
    (p/then #(.log js/console "Success:" %))
    (p/catch #(.error js/console "Error:" %)))

(let [result (register-user {:username "foo"
                             :password "bar"})]
  (p/then result #(.log js/console "Success:" %))
  (p/catch result #(.error js/console "Error:" %)))

(require '[cats.core :as m])

(m/mlet [result (register-user {:username "foo"
                                :password "bar"})]
  ;; The mlet body will be executed only if the
  ;; result will successfully resolved.
  (.log js/console "Success " result))