applyAttrs base (Dir name attrs subtree) = do
    useAttrs (base </> name) attrs
    mapM_ (applyAttrs $ base </> name) subtree
applyAttrs base (Dir name attrs subtree) = do
    useAttrs (base </> name) attrs
    mapM_ (applyAttrs $ base </> name) subtree
applyAttrs base (Dir name attrs subtree) = do
    useAttrs (base </> name) attrs
    mapM_ (applyAttrs $ base </> name) subtree