selectFile :: FilePath -> Task FilePath
selectFile root = get (sdsFocus root directoryShare)
>>= \cs->withShared (RNode root (map fst cs)) \tree->
selectFile :: FilePath -> Task FilePath
selectFile root = get (sdsFocus root directoryShare)
>>= \cs->withShared (RNode root (map fst cs)) \tree->