let x = if x then a else b in x
let x = if StringSet.mem "*" sections then a else b in x
let x =
if StringSet.mem "*" sections then fun _ -> true else
fun x -> StringSet.mem x sections
in x