Commit 6058fec8 authored by Sylvain Dailler's avatar Sylvain Dailler
Browse files

Remove unused raise and log

parent 0aa57b31
......@@ -79,12 +79,10 @@ end
let readBody (xhr: XmlHttpRequest.xmlHttpRequest Js.t) =
let data = ref None in
let resType = xhr ##. responseType in
PE.printAnswer (Js.to_string resType);
data := Some (xhr ##. responseText);
match !data with
| None -> raise Not_found
| Some data -> PE.printAnswer (Js.to_string data); Js.to_string data
| Some data -> Js.to_string data
module Tabs =
struct
......@@ -575,10 +573,8 @@ let getNotification2 () =
PE.printAnswer ("r = |" ^ r ^ "|"); (* TODO *)
let nl = Json_util.parse_list_notification r in
interpNotifications nl
(* TODO *)
else
()
(* TODO printAnswer ("Erreur" ^ string_of_int xhr##status)*)
in
(xhr ##. onreadystatechange :=
(Js.wrap_callback onreadystatechange));
......
......@@ -554,8 +554,9 @@ let parse_request (s: string) : ide_request =
let parse_list_notification (s: string): notification list =
let json = parse_json_object s in
match json with
| Array [Null] -> []
| Array l -> List.map parse_notification_json l
| _ -> raise NotNotification
| _ -> []
let parse_list_request (s: string): ide_request list =
let json = parse_json_object s in
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment