let status_filter par = try let (_,s) = (assoc "status" par) in match String.nsplit s " " with |[_;_;"installed"] -> true |_ -> false with Not_found -> false