summaryrefslogtreecommitdiff
path: root/editor/app/editor_app.ml
blob: 6bcfc4ac26af683441d2f0b0a8c00aec1120c450 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
module App = Application.Make(struct type t = State.t end)

(*
let dispatch
 : (module App.Event with type t = 's) -> 's -> App.event
 = fun (type s) (module M: App.Event with type t = s) v ->
    App.E
      ( v
      , (module M : App.Event with type t = M.t ))
      *)

include App