Source file `and_view.ml`

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

type 'a t =
  { value : 'a
  ; view : Vdom.Node.t
  }
[@@deriving fields ~getters]

let map ~f { value; view } = { value = f value; view }
let map_view ~f { value; view } = { value; view = f view }