bundles/org.simantics.fileimport/scl/Dropins/Core.scl

   1 import "MMap" as MMap
   2
   3 importJava "org.simantics.fileimport.scl.DropinsSCL" where
   4     watchDropinsFolder :: () -> <Proc> ()
   5     unwatchDropinsFolder :: () -> <Proc> ()
   6     uploadToDropinsBase64 :: String -> String -> <Proc> ()
   7     getUploadedFiles :: () -> <Proc> MMap.T String Long
   8     removeFileForId :: Long -> <Proc> ()
   9
  10
  11 importJava "org.simantics.fileimport.FileImportService" where
  12     performFileImport :: String -> String -> <Proc> String
  13
  14 getUploadedDropinFiles :: () -> <Proc> [Long]
  15 getUploadedDropinFiles dummy = do
  16     files = getUploadedFiles ()
  17     MMap.values files