Generic HTTP REST Client/Server AuditLogging framework

[simantics/platform.git] / bundles / org.simantics.auditlogging / scl / Simantics / AuditLogging / Server.scl

diff --git a/bundles/org.simantics.auditlogging/scl/Simantics/AuditLogging/Server.scl b/bundles/org.simantics.auditlogging/scl/Simantics/AuditLogging/Server.scl
new file mode 100644 (file)
index 0000000..396f5f5
--- /dev/null
+++ b/bundles/org.simantics.auditlogging/scl/Simantics/AuditLogging/Server.scl
@@ -0,0 +1,11 @@
+import "Map" as Map
+
+importJava "org.simantics.audit.AuditLogging" where
+    register :: String -> <Proc> String
+    log :: String -> Map.T String a -> <Proc, Exception> ()
+    error :: String -> Map.T String a -> <Proc, Exception> ()
+    trace :: String -> Map.T String a -> <Proc, Exception> ()
+    getLogEvents :: String -> String -> String -> String -> <Proc, Exception> [String]
+
+importJava "org.simantics.audit.server.AuditLoggingServer" where
+    start :: String -> Integer -> <Proc> ()
\ No newline at end of file