let file_has_tag tag file =
  let tags = List.map fst (tags_file file) in
  List.mem tag tags