useAttrs :: FilePath -> Attrs -> IO ()
useAttrs path (mode, perm) = do
    forM_ mode (chmod path)
    forM_ perm (uncurry $ chown path)
useAttrs :: FilePath -> Attrs -> IO ()
useAttrs path (mode, perm) = do
    forM_ mode (chmod path)
    forM_ perm (uncurry $ chown path)
useAttrs path (mode, perm) = do
    forM_ mode (chmod path)
    forM_ perm (uncurry $ chown path)