Client.scl

   1 import "Map" as Map
   2
   3 importJava "org.simantics.audit.client.AuditLoggingClient" where
   4     @JavaName sendLog
   5     sendLogM :: Map.T String a -> <Proc> ()
   6     sendLog :: [a] -> <Proc> ()
   7
   8     @JavaName sendError
   9     sendErrorM :: Map.T String a -> <Proc> ()
  10     sendError :: [a] -> <Proc> ()
  11
  12     @JavaName sendTrace
  13     sendTraceM :: Map.T String a -> <Proc> ()
  14     sendTrace :: [a] -> <Proc> ()
  15