namespace Pentole

module Result =
    let inline protect ([<InlineIfLambda>]f) x =
        try
            Ok (f x)
        with e -> Error e

    let inline pairwise_map fun_ (x: 'a, y: 'a) =
        match fun_ x with
        | Error e -> Error e
        | Ok o ->
            match fun_ y with | Ok o' -> Ok (o, o') | Error e -> Error e

    let of_option = function | Some s -> Ok s | None -> Error ()


    type ToStringWrapper(toString) =
        override this.ToString() = toString ()

    let Result l = ToStringWrapper(fun _ ->
                                     match l with
                                     | Ok o -> sprintf "Ok %O" o
                                     | _ -> failwith "")