type ('ok, 'err) t =
  | Ok of 'ok
  | Error of 'err

let return x = Ok x

let bind m f = match m with
  | Ok x -> f x
  | Error x -> Error x

let (>>=) = bind

let fail x = Error x


Add 'module Result' (missing file)
Add 'module Result' (missing file)

Signed-off-by: David Scott <63c9eb0ea83039690fefa11afe17873ba8278a56@eu.citrix.com>
