--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tests/user.ur Mon Oct 05 12:51:17 2009 -0400 @@ -0,0 +1,5 @@ +table user : {A : int} + +fun main () = + r <- oneRow (SELECT COUNT( * ) AS N FROM user); + return <xml>{[r.N]}</xml>