diff options
author | Adam Chlipala <adam@chlipala.net> | 2014-05-02 19:19:09 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2014-05-02 19:19:09 -0400 |
commit | a67b10880366304b1004dedcbf616ba70c1e196d (patch) | |
tree | bdccc17f7ec57e17465ac689d0f02d7b8c219a8b /src/settings.sig | |
parent | 8184fe8f3af43f4b614b79c411fc3b5578645983 (diff) |
New lessSafeFfi
Diffstat (limited to 'src/settings.sig')
-rw-r--r-- | src/settings.sig | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/settings.sig b/src/settings.sig index 20dd00c2..29c4c506 100644 --- a/src/settings.sig +++ b/src/settings.sig @@ -78,18 +78,22 @@ signature SETTINGS = sig (* Which FFI functions should not have their calls removed or reordered, but cause no lasting effects? *) val setBenignEffectful : ffi list -> unit + val addBenignEffectful : ffi -> unit val isBenignEffectful : ffi -> bool (* Which FFI functions may only be run in clients? *) val setClientOnly : ffi list -> unit + val addClientOnly : ffi -> unit val isClientOnly : ffi -> bool (* Which FFI functions may only be run on servers? *) val setServerOnly : ffi list -> unit + val addServerOnly : ffi -> unit val isServerOnly : ffi -> bool (* Which FFI functions may be run in JavaScript? (JavaScript function names included) *) val setJsFuncs : (ffi * string) list -> unit + val addJsFunc : ffi * string -> unit val jsFunc : ffi -> string option val allJsFuncs : unit -> (ffi * string) list @@ -271,4 +275,7 @@ signature SETTINGS = sig val setIsHtml5 : bool -> unit val getIsHtml5 : unit -> bool + + val setLessSafeFfi : bool -> unit + val getLessSafeFfi : unit -> bool end |