Merge pull request #688 from ocsigen/deprecated

No longer use deprecated functions

Author: vouillon

src/os_comet.eliom

@@ -85,15 +85,18 @@ let already_send_ref =
 
 let%client handle_error =
   ref (fun exn ->
-    Eliom_lib.debug_exn "Exception received on Os_comet's monitor channel: " exn;
+    Eliom_lib.Lwt_log.ign_info_f ~exn
+      "Exception received on Os_comet's monitor channel: ";
     restart_process ();
     Lwt.return_unit)
 
 let%client set_error_handler f = handle_error := f
 
 let%client handle_message = function
   | Error exn -> !handle_error exn
-  | Ok Heartbeat -> Eliom_lib.debug "poum"; Lwt.return_unit
+  | Ok Heartbeat ->
+      Eliom_lib.Lwt_log.ign_info_f "poum";
+      Lwt.return_unit
   | Ok Connection_changed ->
       Os_msg.msg ~level:`Err
         "Connection has changed from outside. Program will restart.";

src/os_msg.eliom

@@ -46,7 +46,7 @@ let%shared msg ?(level = `Err) ?(duration = ~%(!default_duration))
            if ~%onload then Eliom_client.lwt_onload () else Lwt.return_unit
          in
          let msgbox = msgbox () in
-         Eliom_lib.debug "%s" ~%message;
+         Eliom_lib.Lwt_log.ign_info_f "%s" ~%message;
          Dom.appendChild msgbox message_dom;
          let* () = Js_of_ocaml_lwt.Lwt_js.sleep ~%duration in
          Dom.removeChild msgbox message_dom;

src/os_user_view.eliom

@@ -293,9 +293,9 @@ let%shared upload_pic_link ?(a = []) ?(content = [txt "Change profile picture"])
                                ~input:~%input ~submit:~%submit
                                ~after_submit:close upload_service);
                      Lwt.return_unit)
-                  (fun e ->
+                  (fun exn ->
                      Os_msg.msg ~level:`Err "Error while uploading the picture";
-                     Eliom_lib.debug_exn "%s" e "→ ";
+                     Eliom_lib.Lwt_log.ign_info_f "%s" ~exn "→ ";
                      Lwt.return_unit))
             : _)]
       :: a)