package current
Pipeline language for keeping things up-to-date
Install
Dune Dependency
Authors
Maintainers
Sources
current-0.6.2.tbz
sha256=ed312cab4ce8d13b9547ee2f935a6954f1d5211de1c22d44d85baaeb9f5fca9d
sha512=c2981a2c7f05bd6f235662b74ee3a679cc395be3d2cca808fac3dc562d6307e8bfe05efff40f42fa4738443cc2fe13929bab9d815c43d741950e5e0e1e6da7a6
doc/src/current.term/output.ml.html
Source file output.ml
1 2 3 4 5 6 7 8 9 10 11type active = [`Ready | `Running] [@@deriving eq] type 'a t = ('a, [`Active of active | `Msg of string]) result [@@deriving eq] let pp ok f = function | Ok x -> Fmt.pf f "Ok: %a" ok x | Error (`Active `Ready) -> Fmt.string f "Ready" | Error (`Active `Running) -> Fmt.string f "Running" | Error (`Msg e) -> Fmt.pf f "Error: %s" e