Sync git svn branch with SVN repository r33189.
[simantics/platform.git] / bundles / org.simantics.fileimport / scl / Dropins / Core.scl
1 import "MMap" as MMap\r
2 \r
3 importJava "org.simantics.fileimport.scl.DropinsSCL" where\r
4     watchDropinsFolder :: () -> <Proc> ()\r
5     unwatchDropinsFolder :: () -> <Proc> ()\r
6     uploadToDropinsBase64 :: String -> String -> <Proc> ()\r
7     getUploadedFiles :: () -> <Proc> MMap.T String Long\r
8     removeFileForId :: Long -> <Proc> ()\r
9 \r
10 getUploadedDropinFiles :: () -> <Proc> [Long]\r
11 getUploadedDropinFiles dummy = do\r
12     files = getUploadedFiles ()\r
13     MMap.values files