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