Source file `bonsai_web.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
open! Core
open! Js_of_ocaml

module Arrow_deprecated = struct
  module Effect = Effect
  module Vdom = Import.Vdom
  module Start = Start.Arrow_deprecated
  module Bonsai = Bonsai.Arrow_deprecated
end

module Start = Start.Proc
module Bonsai = Import.Bonsai
module Incr = Import.Incr
module Vdom = Import.Vdom
module View = Bonsai_web_ui_view
module To_incr_dom = To_incr_dom
module Persistent_var = Persistent_var
module Rpc_effect = Rpc_effect

(* [Bonsai.For_open] provides an [Effect] module, but we want to export the [Effect]
   module from this library.  This [open struct] allows us to rename [Effect] to
   [Bonsai_web_effect] and restore it after opening [Bonsai.For_open], without exposing
   [Bonsai_web_effect] to users of [Bonsai_web]. *)
open struct
  module Bonsai_web_effect = Effect
end

include Bonsai.For_open
include Util
module Effect = Bonsai_web_effect
include Vdom.Html_syntax

module Cont = struct
  module Start = Start
  module Bonsai = Bonsai.Cont
  module Incr = Incr
  module Vdom = Vdom
  module View = Bonsai_web_ui_view
  module To_incr_dom = To_incr_dom
  module Persistent_var = Persistent_var
  module Rpc_effect = Rpc_effect
  module Effect = Bonsai_web_effect
  include Vdom.Html_syntax
  include Util
end