2022-12-04 22:42:55 +01:00
|
|
|
(* let bindings for early return when encountering an error *)
|
|
|
|
|
(* see https://ocaml.org/releases/4.13/htmlman/bindingops.html *)
|
|
|
|
|
|
|
|
|
|
let ( let* ) o f = Result.fold ~ok:f ~error:Result.error o
|
|
|
|
|
|
2022-12-06 00:12:14 +01:00
|
|
|
let ( let** ) o f = match o with Error e -> Template.err e | Ok v -> f v
|
