diff options
Diffstat (limited to 'tests/option.ur')
-rw-r--r-- | tests/option.ur | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/option.ur b/tests/option.ur index 76fcc6ea..d9e901bf 100644 --- a/tests/option.ur +++ b/tests/option.ur @@ -9,15 +9,15 @@ val show = fn x => case x of None => "None" | Some x => x val show2 = fn x => case x of None => "None'" | Some x => show x -val page = fn x => <html><body> +val page = fn x => return <html><body> {cdata (show x)} </body></html> -val page2 = fn x => <html><body> +val page2 = fn x => return <html><body> {cdata (show2 x)} </body></html> -val main : unit -> page = fn () => <html><body> +val main : unit -> transaction page = fn () => return <html><body> <li><a link={page none_Hi}>None1</a></li> <li><a link={page some_Hi}>Some1</a></li> <li><a link={page2 none_some_Hi}>None2</a></li> |