X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.fileimport%2Fscl%2FDropins%2FCore.scl;h=7b3c354a35ddd40e73c9302a9a1af7c900b4559e;hb=refs%2Fchanges%2F38%2F238%2F2;hp=7fdcefebc84f91b42b463aa0269cb1a7145924e7;hpb=0ae5b334ac87008b9487653557f03cc20437cc0a;p=simantics%2Fplatform.git diff --git a/bundles/org.simantics.fileimport/scl/Dropins/Core.scl b/bundles/org.simantics.fileimport/scl/Dropins/Core.scl index 7fdcefebc..7b3c354a3 100644 --- a/bundles/org.simantics.fileimport/scl/Dropins/Core.scl +++ b/bundles/org.simantics.fileimport/scl/Dropins/Core.scl @@ -1,13 +1,13 @@ -import "MMap" as MMap - -importJava "org.simantics.fileimport.scl.DropinsSCL" where - watchDropinsFolder :: () -> () - unwatchDropinsFolder :: () -> () - uploadToDropinsBase64 :: String -> String -> () - getUploadedFiles :: () -> MMap.T String Long - removeFileForId :: Long -> () - -getUploadedDropinFiles :: () -> [Long] -getUploadedDropinFiles dummy = do - files = getUploadedFiles () +import "MMap" as MMap + +importJava "org.simantics.fileimport.scl.DropinsSCL" where + watchDropinsFolder :: () -> () + unwatchDropinsFolder :: () -> () + uploadToDropinsBase64 :: String -> String -> () + getUploadedFiles :: () -> MMap.T String Long + removeFileForId :: Long -> () + +getUploadedDropinFiles :: () -> [Long] +getUploadedDropinFiles dummy = do + files = getUploadedFiles () MMap.values files \ No newline at end of file