--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tests/csdebug.ur Sat Dec 03 16:25:09 2011 -0500 @@ -0,0 +1,5 @@ +fun main () : transaction page = + n <- source 0; + return <xml><body> + <button onclick={n' <- get n; set n (n' + 1); debug ("Message: " ^ show n')}/> + </body></xml>