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