1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
(.module: [library [lux #* [abstract [monad (#+ Monad)]] [control ["." try (#+ Try)] [concurrency ["." async (#+ Async)]]]]]) (type: #export (Action a) (Async (Try a))) (def: #export monad (Monad Action) (:assume (try.with async.monad)))