From a3418cf924752accf2f68fc2673da2a661276ae5 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Tue, 21 Oct 2008 15:11:42 -0400 Subject: Recursive unurlify for Default datatypes --- tests/unurlify.ur | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'tests/unurlify.ur') diff --git a/tests/unurlify.ur b/tests/unurlify.ur index 4bb523c1..bb3b1e0b 100644 --- a/tests/unurlify.ur +++ b/tests/unurlify.ur @@ -2,6 +2,19 @@ datatype list t = Nil | Cons of t * list t fun handler (ls : list bool) = return +datatype wlist = WNil | Empty | WCons of bool * wlist + +fun whandler' (ls : wlist) = + case ls of + WNil => Nil + | Empty => Empty + | WCons (x, ls') => {[x]} :: {whandler' ls'} + +fun whandler ls = return (whandler' ls) + fun main () : transaction page = return - ! + !
+ Nil
+ Empty
+ True :: False :: Empty
-- cgit v1.2.3