remove unnecessary match arg

Author: eWert-Online

atd/src/annot.ml

@@ -218,9 +218,9 @@ let validate schema root =
 let filter_by_tags ~tags full_module =
   let aux (annot : t) =
     annot |> List.filter (fun (section, _) -> (
-      match tags, fields annot ~section ~field:"tag" with
-      | _, [] -> true
-      | tags, fields ->
+      match fields annot ~section ~field:"tag" with
+      | [] -> true
+      | fields ->
           fields
           |> List.filter_map snd 
           |> List.exists (fun value -> List.mem value tags)