Mercurial > urweb

diff tests/list.ur @ 758:8323c1beef2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Subforms type-checks; lists urlified and unurlified
author Adam Chlipala <adamc@hcoop.net>
date Thu, 30 Apr 2009 11:48:56 -0400
parents fa2019a63ea4
children 9021d44ba6b2
line wrap: on
line diff
--- a/tests/list.ur	Thu Apr 30 11:07:29 2009 -0400
+++ b/tests/list.ur	Thu Apr 30 11:48:56 2009 -0400
@@ -8,10 +8,15 @@
             Nil => <xml>Nil</xml>
           | Cons (h, t) => <xml>{[h]} :: {delist t}</xml>
 
+fun callback ls = return <xml><body>
+  {delist ls}
+</body></xml>
+
 fun main () = return <xml><body>
   {[isNil (Nil : list bool)]},
   {[isNil (Cons (1, Nil))]},
   {[isNil (Cons ("A", Cons ("B", Nil)))]}
 
   <p>{delist (Cons ("X", Cons ("Y", Cons ("Z", Nil))))}</p>
+  <a link={callback (Cons ("A", Cons ("B", Nil)))}>Go!</a>
 </body></xml>