let string_to_t ?filename ?(tags=default_tags) () =
let pedantic = List.mem tags `pedantic in
let sharp_comments = List.mem tags `sharp_comments in
let name = sprintf "wig_parser:%s" Option.(value ~default:"<>" filename) in
let next = next ~pedantic ~sharp_comments in
Biocaml_transform.Line_oriented.make_merge_error
~name ?filename ~next ()