package accessor_base

  1. Overview
  2. Docs

Source file accessor_or_error.ml

1
2
3
4
5
6
7
8
9
10
11
open! Base
open! Import

let ok = Accessor_result.ok
let error = Accessor_result.error

include Accessor.Of_monad (struct
    include Or_error

    let apply = `Custom apply
  end)