Source file `form_context.ml`

1
2
3
4
5
6
7
8
9
10
11
open! Core
open Bonsai_web_ui_form_view

type t =
  { depth : int
  ; editable : editable
  }
[@@deriving fields ~getters]

let default ~editable = { depth = 0; editable }
let incr_depth t = { t with depth = t.depth + 1 }