yoyo with cont-m

yoyo-with-cont-m-cats.clj

(require '[cats.core :refer :all])
(require '[cats.monad.continuation :as cont])

(defn with-something
  [config]
  (cont/continuation
   (fn [cc]
     (prn (str "setting up something: " (pr-str config)))
     (let [r (cc :something)]
       (prn "tearing down something")
       r))))

(defn with-other-thing
  [config]
  (cont/continuation
   (fn [cc]
     (prn (str "setting up other-thing: " (pr-str config)))
     (let [r (cc :other-thing)]
       (prn "tearing down other-thing")
       r))))

(def s (mlet [config (return cont/continuation-monad {:foo 10})
              a (with-something config)
              b (with-other-thing (merge config {:bar a}))]
             (return cont/continuation-monad [config a b])))

(def p (promise))
(def r (future
         (s (fn [v] (prn (str "running system with: " (prn-str v))) (deref p)))))

(deliver p :hi!)
@p