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

fix libraries changes

Browse source
This commit is contained in:
Swrup 2025-05-02 20:02:04 +02:00
parent ec90cda066
commit 4bb063e4eb
6 changed files with 41 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/ws.ml
View file

@ -7,7 +7,7 @@ let get_state_unsafe user_id =
| Ok state -> state
let handle_client request client =
match Dream.session "user_id" request with
match Dream.session_field request "user_id" with
| None -> Dream.log "User does not exists" |> Lwt.return
| Some user_id ->
(* send user island state for the first time *)