checkFiles :: [FilePath] -> IO Bool
checkFiles filenames =
    (fmap (all id).mapM checkFile) filenames
checkFiles :: [FilePath] -> IO Bool
checkFiles filenames =
    (fmap (all id).mapM checkFile) filenames
checkFiles filenames =
    (fmap (all id).mapM checkFile) filenames