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> ()
11 importJava "org.simantics.fileimport.FileImportService" where
12 performFileImport :: String -> String -> <Proc> String
14 getUploadedDropinFiles :: () -> <Proc> [Long]
15 getUploadedDropinFiles dummy = do
16 files = getUploadedFiles ()