equal
deleted
inserted
replaced
314 (mash_weight, (mash_suggs, []))] |
314 (mash_weight, (mash_suggs, []))] |
315 val mesh_suggs = mesh_facts I (op =) max_suggs mess |
315 val mesh_suggs = mesh_facts I (op =) max_suggs mess |
316 val mesh_line = encode_str name ^ ": " ^ encode_strs mesh_suggs ^ "\n" |
316 val mesh_line = encode_str name ^ ": " ^ encode_strs mesh_suggs ^ "\n" |
317 in File.append mesh_path mesh_line end |
317 in File.append mesh_path mesh_line end |
318 |
318 |
319 val mash_lines = Path.explode mash_file_name |> File.read_lines |
319 val mash_lines = Path.explode mash_file_name |> Bytes.read |> Bytes.trim_split_lines |
320 val mepo_lines = Path.explode mepo_file_name |> File.read_lines |
320 val mepo_lines = Path.explode mepo_file_name |> Bytes.read |> Bytes.trim_split_lines |
321 in |
321 in |
322 if length mash_lines = length mepo_lines then List.app do_fact (mash_lines ~~ mepo_lines) |
322 if length mash_lines = length mepo_lines then List.app do_fact (mash_lines ~~ mepo_lines) |
323 else warning "Skipped: MaSh file missing or out of sync with MePo file" |
323 else warning "Skipped: MaSh file missing or out of sync with MePo file" |
324 end |
324 end |
325 |
325 |