]> gerrit.simantics Code Review - simantics/platform.git/blob - bundles/org.simantics.backup.db/scl/Simantics/Backup.scl
First step to enable reading of cache when not writing
[simantics/platform.git] / bundles / org.simantics.backup.db / scl / Simantics / Backup.scl
1 import "Simantics/DB"
2
3 importJava "org.simantics.backup.IBackupProvider" where
4     data IBackupProvider
5
6 importJava "org.simantics.backup.db.ModelledBackup" where
7     modelledBackup :: 
8       (<e> ()) -> 
9       (String -> Integer -> <e> (() -> <e> Maybe String)) -> 
10       (<e> ()) -> 
11       (String -> Integer -> <e> ()) -> 
12       <Proc> IBackupProvider
13     
14 importJava "org.simantics.backup.BackupProviderService" where
15     backup :: String -> Integer -> <Proc> ()