applyAttrs :: FilePath -> FsTree -> IO ()
applyAttrs base (File name _ attrs)      = useAttrs (base </> name) attrs
applyAttrs :: FilePath -> FsTree -> IO ()
applyAttrs base (File name _ attrs)      = useAttrs (base </> name) attrs
applyAttrs base (File name _ attrs)      = useAttrs (base </> name) attrs