diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-02 12:10:43 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-02 12:10:43 -0400 |
| commit | f996ddede8ad8df6a6b475185b5384366f0dd6c9 (patch) | |
| tree | b2b7e5a618878c8ac7026aa98312d6f9697bc9f6 /tests/cffi.ur | |
| parent | 4b3399b59d17ed32c8c2800267b8c59fd0378f21 (diff) | |
More FFI compiler options
Diffstat (limited to 'tests/cffi.ur')
| -rw-r--r-- | tests/cffi.ur | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/cffi.ur b/tests/cffi.ur index cc93b8f5..039eac55 100644 --- a/tests/cffi.ur +++ b/tests/cffi.ur @@ -1,6 +1,12 @@ +fun printer () = Test.foo + fun effect () = Test.print; - return <xml/> + return <xml><body> + <button value="Remote" onclick={printer ()}/> + <button value="Local" onclick={Test.bar "Hoho"}/> + <button value="Either" onclick={Test.print}/> + </body></xml> fun main () = return <xml><body> {[Test.out (Test.frob (Test.create "Hello ") "world!")]} |