/[mldonkey]/mldonkey/src/networks/fileTP/fileTPProtocol.ml
ViewVC logotype

Diff of /mldonkey/src/networks/fileTP/fileTPProtocol.ml

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

revision 1.4 by mldonkey, Mon May 3 08:22:25 2004 UTC revision 1.5 by spiralvoice, Thu Jul 7 00:25:46 2005 UTC
# Line 153  let parse_range range = Line 153  let parse_range range =
153    
154  let parse_range range =  let parse_range range =
155    let x, y, z = parse_range range in    let x, y, z = parse_range range in
156    lprintf "Range parsed: %Ld-%s/%s" x    if !verbose then lprintf "Range parsed: %Ld-%s/%s" x
157      (match y with None -> "" | Some y -> Int64.to_string y)          (match y with None -> "" | Some y -> Int64.to_string y)    
158    (match z with None -> "*" | Some y -> Int64.to_string y);    (match z with None -> "*" | Some y -> Int64.to_string y);
159    x, y, z    x, y, z

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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