root :: AnchoredDirTree a -> Path
root (p :/ d) = decodeString p </> decodeString (name d)
root :: AnchoredDirTree a -> Path
root (p :/ d) = decodeString p </> decodeString (name d)
root (p :/ d) = decodeString p </> decodeString (name d)