swrup/pellest
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

wip: state server side; websocket

Browse source
This commit is contained in:
Swrup 2022-12-11 18:58:56 +01:00
parent 549aa39e09
commit 91cff202f6
11 changed files with 169 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/app.ml
View file

@ -78,10 +78,6 @@ let log =
let () = Dream.log "log: %b" log
let random_state = Random.State.make_self_init ()
let () = Random.set_state random_state
let about =
let default_about = "Pellest is great !" in
match Scfg.Query.get_dir "about" config with
@ -90,3 +86,7 @@ let about =
match Scfg.Query.get_param 0 about with
| Error e -> failwith e
| Ok about -> about )
let random_state = Random.State.make_self_init ()
let () = Random.set_state random_state