blob: e4c944a524ce4245484a9cb28ead87c49ad6a30b (
plain)
1
2
3
4
5
6
7
8
9
10
|
module App = Application.Make(struct type t = State.t end)
let ev
: (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
|