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 | 08bee251e9471ab1c1e634e85cd2e1c3830cd566 (patch) | |
| tree | 36da11fa0eda62dae9ec1f9b6b2e759f28039265 /tests/ffieff.ur | |
| parent | 8b2c97e6fe1a63cb59655d83c1411fe75d9505d4 (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> |