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     uploadToDropinsBase64 :: String -> String -> <Proc> ()\r
   5     getUploadedFiles :: () -> <Proc> MMap.T String Long\r
   6     removeFileForId :: Long -> <Proc> ()\r
   7 \r
   8 getUploadedDropinFiles :: () -> <Proc> [Long]\r
   9 getUploadedDropinFiles dummy = do\r
  10     files = getUploadedFiles ()\r
  11     MMap.values files