wip: state server side; websocket

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

5
src/network.ml Normal file
View file

@ -0,0 +1,5 @@
let marshal o = Marshal.to_string o [] |> Format.sprintf "%S"
let unmarshal o =
let s = Scanf.sscanf o "%S" (fun s -> s) in
Marshal.from_string s 0