equal
deleted
inserted
replaced
572 (output, 0) => split_lines output |
572 (output, 0) => split_lines output |
573 | (output, _) => |
573 | (output, _) => |
574 (warning |
574 (warning |
575 (case extract_known_atp_failure known_perl_failures output of |
575 (case extract_known_atp_failure known_perl_failures output of |
576 SOME failure => string_of_atp_failure failure |
576 SOME failure => string_of_atp_failure failure |
577 | NONE => trim_line output); []))) () |
577 | NONE => output); []))) () |
578 handle Timeout.TIMEOUT _ => [] |
578 handle Timeout.TIMEOUT _ => [] |
579 |
579 |
580 fun find_remote_system name [] systems = |
580 fun find_remote_system name [] systems = |
581 find_first (String.isPrefix (name ^ "---")) systems |
581 find_first (String.isPrefix (name ^ "---")) systems |
582 | find_remote_system name (version :: versions) systems = |
582 | find_remote_system name (version :: versions) systems = |