package accessor_base

  1. Overview
  2. Docs
package accessor_base
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file accessor_error.ml

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

let info = [%accessor Accessor.isomorphism ~get:Error.to_info ~construct:Error.of_info]

let lazy_t =
  [%accessor
    Accessor.isomorphism ~get:(fun error -> lazy error) ~construct:Error.of_lazy_t]
;;