Mercurial > urweb

diff tests/cffi.ur @ 765:a28982de5645

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
line wrap: on
line diff
--- a/tests/cffi.ur	Thu Apr 30 17:15:14 2009 -0400
+++ b/tests/cffi.ur	Sat May 02 11:27:26 2009 -0400
@@ -1,3 +1,8 @@
+fun effect () =
+  Test.print;
+  return <xml/>
+
 fun main () = return <xml><body>
   {[Test.out (Test.frob (Test.create "Hello ") "world!")]}
+  <form><submit action={effect}/></form>
 </body></xml>