X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=filepicker%2Ftest.icl;h=f308b3315db25d1b815a62007c0ea88a9b78d554;hb=1eb7ba9a34eacb68c762bd9f7f81865cf37ecb0b;hp=fa05452d8c3817a212e4352fcf1ea168c669fe44;hpb=be92eac1a42b32c0ddb187f329fa643d508c1c13;p=clean-tests.git

diff --git a/filepicker/test.icl b/filepicker/test.icl
index fa05452..f308b33 100644
--- 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