new-luxc/source/luxc/compiler/runtime.jvm.lux


1
2
3
4
5
6
7
8
9
10
11

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

(def: #export (compile-runtime _)
  (-> Top (P;Promise (E;Error Unit)))
  (P/wrap (#E;Success [])))