summaryrefslogtreecommitdiff
path: root/tests/ffieff.ur
diff options
context:
space:
mode:
Diffstat (limited to 'tests/ffieff.ur')
-rw-r--r--tests/ffieff.ur6
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>