390 |
try |
try |
391 |
(f filename : unit); |
(f filename : unit); |
392 |
Sys.remove filename |
Sys.remove filename |
393 |
with e -> lprintf_nl () |
with e -> lprintf_nl () |
394 |
"Exception %s in loading downloaded file %s" |
"Exception %s in loading downloaded file %s" |
395 |
(Printexc2.to_string e) filename; |
(Printexc2.to_string e) filename; |
396 |
Sys.remove filename; |
Sys.remove filename; |
402 |
|
|
403 |
get_page r |
get_page r |
404 |
(fun maxlen headers -> |
(fun maxlen headers -> |
405 |
|
if !verbose then |
406 |
lprintf_nl () "headers..."; |
lprintf_nl () "headers..."; |
407 |
(try f headers with _ -> ()); |
(try f headers with _ -> ()); |
408 |
fun sock nread -> |
fun sock nread -> |