diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2013-10-10 18:01:30 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2013-10-10 18:01:30 -0400 |
| commit | cc0d74f6508fa9438d28d054b048a20ce5de7bca (patch) | |
| tree | 36da11fa0eda62dae9ec1f9b6b2e759f28039265 /tests/ffieff.ur | |
| parent | 08ab929c8600abeeab5089b4a3278cf342ba78a2 (diff) | |
Make transactional FFI functions effectful by default
Diffstat (limited to 'tests/ffieff.ur')
| -rw-r--r-- | tests/ffieff.ur | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/ffieff.ur b/tests/ffieff.ur new file mode 100644 index 00000000..a63fa4bc --- /dev/null +++ b/tests/ffieff.ur @@ -0,0 +1,6 @@ +open Ffi_eff + +fun main () : transaction page = return <xml><body> + <button value="shout" onclick={fn _ => shout "Hi!"; shout "Bye!"}/> + <button value="sneakyShout" onclick={fn _ => let val x = sneakyShout "Whoa" in return () end}/> +</body></xml> |