[Pkg-ocaml-maint-commits] r2947 - /trunk/packages/mldonkey/trunk/debian/utils/mldonkey_server.ml

[smimram at users.alioth.debian.org]

Author: smimram
Date: Thu Jul 13 21:52:19 2006
New Revision: 2947

URL: http://svn.debian.org/wsvn/pkg-ocaml-maint/?sc=1&rev=2947
Log:
mldonkey_server compiles again.

Modified:
    trunk/packages/mldonkey/trunk/debian/utils/mldonkey_server.ml

Modified: trunk/packages/mldonkey/trunk/debian/utils/mldonkey_server.ml
URL: http://svn.debian.org/wsvn/pkg-ocaml-maint/trunk/packages/mldonkey/trunk/debian/utils/mldonkey_server.ml?rev=2947&op=diff
==============================================================================
--- trunk/packages/mldonkey/trunk/debian/utils/mldonkey_server.ml (original)
+++ trunk/packages/mldonkey/trunk/debian/utils/mldonkey_server.ml Thu Jul 13 21:52:19 2006
@@ -852,59 +852,59 @@
 let restart_mldonkey_server st =
   kill_mldonkey_server st Sys.sighup "SIGHUP"
 
-let _ = 
+let () = 
   try
-    let state = get_mldonkey_server_state ()
-    in
-    begin
-    match state.action with
-    Start ->
-      start_mldonkey_server state
-    | Stop ->
-      stop_mldonkey_server state
-    | Restart ->
-      restart_mldonkey_server state
-    end;
-    exit 0
-  with No_home_variable ->  
-    begin
-    prerr_string (" Could not guess $HOME environnement variable: provide a --chdir or $HOME");
-    prerr_newline ()
-    end
-  | No_home_to_chdir ->
-    begin
-    prerr_string (" Home dir doesn't exist");
-    prerr_newline ()
-    end
-  | Fails_daemonize ->
-    begin
-    prerr_string (" Cannot daemonize process");
-    prerr_newline ()
-    end
-  | Already_running ->
-    begin
-    prerr_string (" Some others mldonkey_server are running (a pidfile exists)");
-    prerr_newline ()
-    end
-  | No_pidfile ->
-    begin
-    prerr_string (" No pidfile, maybe no mldonkey_server are running");
-    prerr_newline ()
-    end
-  | Invalid_pidfile ->
-    begin
-    prerr_string (" Invalid pidfile, maybe the pidfile is corrupted");
-    prerr_newline ();
-    end
-  | No_proc_entry str ->
-    begin
-    prerr_string (" Cannot find /proc entry for "^str);
-    prerr_newline ();
-    end
-  | Unix.Unix_error (error,_,_) ->
-    begin 
-    prerr_string (" "^(error_message error));
-    prerr_newline ()
-    end
-in
-exit 1
+    let state = get_mldonkey_server_state () in
+      begin
+        match state.action with
+          | Start ->
+              start_mldonkey_server state
+          | Stop ->
+              stop_mldonkey_server state
+          | Restart ->
+              restart_mldonkey_server state
+      end;
+      exit 0
+  with
+    | No_home_variable ->  
+        begin
+          prerr_string (" Could not guess $HOME environnement variable: provide a --chdir or $HOME");
+          prerr_newline ()
+        end
+    | No_home_to_chdir ->
+        begin
+          prerr_string (" Home dir doesn't exist");
+          prerr_newline ()
+        end
+    | Fails_daemonize ->
+        begin
+          prerr_string (" Cannot daemonize process");
+          prerr_newline ()
+        end
+    | Already_running ->
+        begin
+          prerr_string (" Some others mldonkey_server are running (a pidfile exists)");
+          prerr_newline ()
+        end
+    | No_pidfile ->
+        begin
+          prerr_string (" No pidfile, maybe no mldonkey_server are running");
+          prerr_newline ()
+        end
+    | Invalid_pidfile ->
+        begin
+          prerr_string (" Invalid pidfile, maybe the pidfile is corrupted");
+          prerr_newline ();
+        end
+    | No_proc_entry str ->
+        begin
+          prerr_string (" Cannot find /proc entry for " ^ str);
+          prerr_newline ();
+        end
+    | Unix.Unix_error (error,_,_) ->
+        begin 
+          prerr_string (" "^(error_message error));
+          prerr_newline ()
+        end
+  
+let () = exit 1