createFsTree :: FilePath -> FsTree -> IO ()
createFsTree base fstree = do
    createFile base fstree
    applyAttrs base fstree
createFsTree :: FilePath -> FsTree -> IO ()
createFsTree base fstree = do
    createFile base fstree
    applyAttrs base fstree
createFsTree base fstree = do
    createFile base fstree
    applyAttrs base fstree