[Mldonkey-commits] mldonkey/src/daemon/driver driverInterface.ml

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       06/11/12 13:57:05

Modified files:
        src/daemon/driver: driverInterface.ml 

Log message:
        patch #5543 partly removed

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/daemon/driver/driverInterface.ml?cvsroot=mldonkey&r1=1.57&r2=1.58

Patches:
Index: driverInterface.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/daemon/driver/driverInterface.ml,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -b -r1.57 -r1.58
--- driverInterface.ml  12 Nov 2006 12:36:14 -0000      1.57
+++ driverInterface.ml  12 Nov 2006 13:57:05 -0000      1.58
@@ -1097,15 +1097,17 @@
               server_set_preferred s preferred
 
   with 
-  | Failure s ->
+    Failure s ->
       gui_send gui (Console (Printf.sprintf "Failure: %s\n" s))
-  | BTInteractive.Torrent_can_not_be_used ->
+  | e ->
+      match Printexc2.to_string e with
+       "BTInteractive.Torrent_can_not_be_used" ->
       gui_send gui (Console (Printf.sprintf "\nError: This torrent does not 
have valid tracker URLs\n"))
-  | BTInteractive.Already_exists ->
+      | "BTInteractive.Already_exists" ->
       gui_send gui (Console (Printf.sprintf "\nError: This torrent is already 
in download queue\n"))
   | e -> 
       gui_send gui (Console (Printf.sprintf "from_gui: exception %s for 
message %s\n"
-          (Printexc2.to_string e) (GuiProto.string_of_from_gui t)))
+          e (GuiProto.string_of_from_gui t)))
 
 let gui_events () = 
   {