runFinds :: [Find () a] -> IO [(a, FilePath)]
runFinds = fmap concat . mapM runFind
runFinds :: [Find () a] -> IO [(a, FilePath)]
runFinds = fmap concat . mapM runFind
runFinds = fmap concat . mapM runFind