package bonsai

  1. Overview
  2. Docs

Source file import.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
open! Core
include Virtual_dom
include Bonsai_web
open Bonsai.Let_syntax

module Effect = struct
  type 'a t = 'a Vdom.Effect.t

  let no_op = Vdom.Effect.Ignore
  let sequence xs = Vdom.Effect.Many xs
end

module Driver = Bonsai_test.Arrow.Driver
include Expect_test_helpers_core

let opaque_const x = Bonsai.read (Bonsai.Var.value (Bonsai.Var.create x))
let opaque_const_value x = Bonsai.Var.value (Bonsai.Var.create x)
let opaque_computation c = if%sub opaque_const_value true then c else assert false