Mercurial > urweb
comparison tests/cffi.ur @ 765:a28982de5645
Successfully influenced effectful-ness status of FFI func
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sat, 02 May 2009 11:27:26 -0400 |
parents | 7f653298dd66 |
children | df09c95085f8 |
comparison
equal
deleted
inserted
replaced
764:7f653298dd66 | 765:a28982de5645 |
---|---|
1 fun effect () = | |
2 Test.print; | |
3 return <xml/> | |
4 | |
1 fun main () = return <xml><body> | 5 fun main () = return <xml><body> |
2 {[Test.out (Test.frob (Test.create "Hello ") "world!")]} | 6 {[Test.out (Test.frob (Test.create "Hello ") "world!")]} |
7 <form><submit action={effect}/></form> | |
3 </body></xml> | 8 </body></xml> |