/[mldonkey]/mldonkey/src/daemon/common/commonComplexOptions.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonComplexOptions.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by spiralvoice, Sat Apr 23 21:54:10 2005 UTC revision 1.23 by spiralvoice, Thu Jul 7 00:25:45 2005 UTC
# Line 83  module FileOption = struct Line 83  module FileOption = struct
83            set_file_state file file_state;                  set_file_state file file_state;      
84            if !verbose then            if !verbose then
85            (match file_state with            (match file_state with
86                FileDownloading -> lprintf "New downloading file\n";                FileDownloading -> lprintf_nl "New downloading file";
87              | FileDownloaded -> lprintf "New downloaded file\n";              | FileDownloaded -> lprintf_nl "New downloaded file";
88              | _ -> lprintf "New file with other state\n"              | _ -> lprintf_nl "New file with other state"
89            );            );
90                        
91            (try            (try
# Line 248  module ServerOption = struct Line 248  module ServerOption = struct
248            in            in
249            let network =            let network =
250              try network_find_by_name network with e ->              try network_find_by_name network with e ->
251                  lprintf "Network %s not supported\n" network;                  lprintf_nl "Network %s not supported" network;
252                  raise e                  raise e
253                in                in
254            let server = network_server_of_option network assocs in            let server = network_server_of_option network assocs in

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26