package hardcaml_step_testbench

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

Source file before_and_after_edge.ml

1
2
3
4
5
6
7
8
type 'a t =
  { before_edge : 'a
  ; after_edge : 'a
  }
[@@deriving sexp_of, fields]

let create ~before_edge ~after_edge = { before_edge; after_edge }
let map t ~f = { before_edge = f t.before_edge; after_edge = f t.after_edge }