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

clean map

Browse source
This commit is contained in:
Swrup 2022-12-15 19:59:42 +01:00
parent 91cff202f6
commit 753a50bf85
3 changed files with 46 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/ws.ml
View file

@ -6,7 +6,7 @@ let handle_client request client =
| None -> Dream.log "User does not exists" |> Lwt.return
| Some user_id ->
(* TODO catch marshal failure *)
Dream.log " SEND USER ISLAND";
(* send user island state *)
let state =
match User.get_state user_id with
@ -14,6 +14,7 @@ let handle_client request client =
| Ok state -> state
in
let* () = Dream.send ~text_or_binary:`Text client (Network.marshal state) in
Dream.log " SENDED USER ISLAND";
let rec loop () =
match%lwt Dream.receive client with