4 importJava "org.simantics.fileimport.scl.DropinsSCL" where
5 watchDropinsFolder :: () -> <Proc> ()
6 unwatchDropinsFolder :: () -> <Proc> ()
7 uploadToDropinsBase64 :: String -> String -> <Proc> ()
8 getUploadedFiles :: () -> <Proc> MMap.T String Long
9 removeFileForId :: Long -> <Proc> ()
12 importJava "org.simantics.fileimport.FileImportService" where
13 performFileImport :: String -> String -> <Proc> String
14 importGenericFileWithExtension :: String -> String -> <Proc> String
15 importGenericFileWithExtensionAndParent :: Resource -> String -> String -> <Proc> Resource
17 importGenericFileToResource :: String -> String -> <Proc> Resource
18 importGenericFileToResource path extension = do
19 resourceId = importGenericFileWithExtension path extension
20 syncRead (\_ -> resourceFromId (read resourceId :: Long))
22 getUploadedDropinFiles :: () -> <Proc> [Long]
23 getUploadedDropinFiles dummy = do
24 files = getUploadedFiles ()