wip: state server side; websocket
This commit is contained in:
parent
549aa39e09
commit
91cff202f6
11 changed files with 169 additions and 44 deletions
5
src/network.ml
Normal file
5
src/network.ml
Normal 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
|
||||
Loading…
Add table
Add a link
Reference in a new issue