5 lines
143 B
OCaml
5 lines
143 B
OCaml
let rec until p f = let r = f () in if p r then r else until p f
|
|
|
|
let guard p err = if p then Ok () else Error err
|
|
|
|
let ( let* ) = Result.bind
|