package current
Pipeline language for keeping things up-to-date
Install
Dune Dependency
Authors
Maintainers
Sources
current-v0.5.tbz
sha256=f8c884318a46a568d965c7e8bac00dfe2339efac04ca6f0cbabef916d8b917ca
sha512=e0633239a7d02cdde6264db96c39ed7e3d1adf3a7f09bb25ad002d388f203b561e8c808daee90539bc0ee15c547d2ab4bef1789dcc9c22ed00b151bad0083f64
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