Experimenting with Promenade Library

promenade.clj

(require '[promenade.core :as prom])
(defn a [x] (prom/fail (str x)))
(defn b [x] (inc x))
(defn handle-error [failure] {:error (str "OH SNAP! " failure)})
(defn one [x] (prom/either->> x a b a b))
(defn two [] (prom/either->> 1 one one [handle-error]))
(two)


;; -----------------
(require '[promenade.core :as prom])
(defn a [x] (prom/fail (str x)))
(defn b [x] (inc x))
(defn error [x] (prom/! (throw (Exception. "ERROR"))))
(defn ok [x] (println "ok" x) x)
(defn handle-error [failure] {:error (str "OH SNAP ERROR! " failure)})
(defn handle-ex [failure] {:error (str "OH SNAP EXCEPTION! " failure)})
(defn one [x] (prom/either->> x a b b b))
;;(defn two [] (-> 1  one error one [handle-error ok]))
(defn two [] (-> 1 (prom/either-> one) (prom/either-> one) (prom/trial-> error) (prom/either-> [handle-error ok]) (prom/trial-> [handle-ex])))
(two)