1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
open Riot
module Event = Event
module Command = Command
module App = App
module Program = Program
let app = App.make
let run ?(fps = 60) ~initial_model app =
let prog = Program.make ~app ~fps in
Program.run prog initial_model
let start app ~initial_model =
let module App = struct
let name = "my_app"
let start () =
Logger.set_log_level None;
let pid = spawn_link (fun () -> run app ~initial_model) in
Ok pid
end in
Riot.start ~apps:[ (module Riot.Logger); (module App) ] ()