fp

[clean-tests.git] / filepicker / test.icl

diff --git a/filepicker/test.icl b/filepicker/test.icl
index fa05452..f308b33 100644 (file)
--- a/filepicker/test.icl
+++ b/filepicker/test.icl
@@ -30,7 +30,8 @@ where
 selectFile :: FilePath -> Task FilePath
 selectFile root = get (sdsFocus root directoryShare)
        >>= \cs->withShared (RNode root (map fst cs)) \tree->
-       editSelectionWithShared () False selectOption tree :: !d !Bool !(SelectOption c a) (ReadWriteShared c w) (c -> [Int]) -> Task [a] 
+       editSelectionWithShared () False selectOption (mapRead numberTree tree)
+               (\tree->[i\\(i, (f, _))<-leafs tree])
 
 selectFile :: !FilePath !d !Bool [FilePath]-> Task [FilePath] | toPrompt d
 selectFile root prompt multi initial