when Str.string_match body_RE uri 0 ->
parse uri tmpfile1 None
| CicParser.Parser_failure msg ->
- printf "%s FAILED (%s)\n" uri msg; flush stdout);
- unlink tmpfile1;
- (match tmpfile2 with None -> () | Some f -> unlink f)
+ printf "%s FAILED (%s)\n" uri msg; flush stdout)
let _ =
try