Commit 7bff80d8 authored by Sylvain Dailler's avatar Sylvain Dailler
Browse files

Remove useless exception.

parent 7a306e10
......@@ -565,7 +565,7 @@ exception NoNotification
let interpNotifications l =
match l with
| [] -> raise NoNotification
| [] -> ()
| l -> List.iter interpNotif l
let getNotification2 () =
......@@ -579,7 +579,7 @@ let getNotification2 () =
interpNotifications nl
(* TODO *)
else
raise NoNotification
()
(* TODO printAnswer ("Erreur" ^ string_of_int xhr##status)*)
in
(xhr ##. onreadystatechange :=
......
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