mirror of
https://github.com/c-cube/moonpool.git
synced 2025-12-06 03:05:30 -05:00
12 lines
260 B
OCaml
12 lines
260 B
OCaml
open! Moonpool
|
|
|
|
let ( let@ ) = ( @@ )
|
|
|
|
let () =
|
|
let@ _ = Moonpool.main in
|
|
(let@ pool = Ws_pool.with_ () in
|
|
T_fibers.Fls.run ~pool ~pool_name:"ws_pool" ());
|
|
|
|
(let@ pool = Fifo_pool.with_ () in
|
|
T_fibers.Fls.run ~pool ~pool_name:"fifo_pool" ());
|
|
()
|