(;module:
  lux
  (lux (control monad)
       (concurrency ["P" promise "P/" Monad<Promise>])
       (data text/format
             ["R" result]))
  (luxc ["&" base]))

(def: #export (compile-runtime compiler)
  (-> Compiler (P;Promise (R;Result Compiler)))
  (P/wrap (#R;Success compiler)))