diff --git a/VERSION b/VERSION index e21e727f96fa5a19a233d5260fd3ba4f6ed3837c..13175fdc437138f09019c0688f900c1c227be1e9 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -1.4.0 \ No newline at end of file +1.4.1 \ No newline at end of file diff --git a/src_ocaml/grewpy.ml b/src_ocaml/grewpy.ml index 1d85a675d22e65a6cae7f7e78290748cd8a3043a..93ae2e07ad5ab2bae5ffe3e41326c1ff3fff16e6 100644 --- a/src_ocaml/grewpy.ml +++ b/src_ocaml/grewpy.ml @@ -38,7 +38,7 @@ let run_command request = match json |> member "filename" |> to_string_option with | Some filename -> let graph = Graph.load ~config filename in - let data = Graph.to_json_python graph in + let data = Graph.to_json_python ~config graph in Yojson.Basic.to_string (`Assoc [("status", `String "OK"); ("data", data)]) | None -> json_error "no 'filename' in 'load_grs' command" end @@ -91,7 +91,7 @@ let run_command request = | (_, Some pos) -> pos | (None, None) -> raise (Error "neither sent_id or pos in the request") in let graph = snd graphs.(position) in - let data = Graph.to_json_python graph in + let data = Graph.to_json_python ~config graph in Yojson.Basic.to_string (`Assoc [("status", `String "OK"); ("data", data)]) with | Error msg -> json_error msg @@ -199,7 +199,7 @@ let run_command request = Yojson.Basic.to_string (`Assoc [ ("status", `String "OK"); - ("data", `List (List.map Graph.to_json_python graph_list)) + ("data", `List (List.map (Graph.to_json_python ~config) graph_list)) ]) | _ -> json_error "incomplete 'run' command" end