or_error.ml
odoc
odoc.compat
odoc.html
odoc.loader
odoc.model
odoc.odoc
odoc.parser
odoc.xref
1 2 3 4 5 6 7 8 9 10 type ('a, 'e) result = ('a, 'e) Result.result = | Ok of 'a | Error of 'e type msg = [ `Msg of string ] let (>>=) r f = match r with | Ok v -> f v | Error _ as e -> e
1 2 3 4 5 6 7 8 9 10
type ('a, 'e) result = ('a, 'e) Result.result = | Ok of 'a | Error of 'e type msg = [ `Msg of string ] let (>>=) r f = match r with | Ok v -> f v | Error _ as e -> e