Mentions légales du service

Skip to content
Snippets Groups Projects
Commit cb3db55d authored by Sylvain Dailler's avatar Sylvain Dailler
Browse files

Missing json case.

parent d8294aba
No related branches found
No related tags found
1 merge request!2Isabelle configure realization1
......@@ -474,6 +474,10 @@ let parse_request (constr: string) j =
| "Unfocus_req" ->
Unfocus_req
| "Get_first_unproven_node" ->
let nid = get_int (get_field j "node_ID") in
Get_first_unproven_node nid
| "Add_file_req" ->
let f = get_string (get_field j "file") in
Add_file_req f
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment