apply-refact-0.1.0.0: tests/examples/Default55.hs

yes = case concat (map f x) of [] -> []