let string_to_string_content ?filename () = let name = sprintf "track_parser:%s" Option.(value ~default:"<>" filename) in Lines.Transform.make_merge_error ~name ?filename ~next ()