Source file application.ml

1
2
3
4
5
6
7
8
9
10
11
open Runtime

module type Intf = sig
  val name : string

  val start :
    unit ->
    ( Pid.t,
      ([> `Application_error of string | `Supervisor_error ] as 'err) )
    result
end