diff options
Diffstat (limited to 'tests/caseMod.lac')
-rw-r--r-- | tests/caseMod.lac | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/caseMod.lac b/tests/caseMod.lac index 49bfdca8..0a870160 100644 --- a/tests/caseMod.lac +++ b/tests/caseMod.lac @@ -24,8 +24,11 @@ val toString = fn x => | C B => "C B" | D => "D" -val page = fn x => <html><body> - {cdata (toString x)} +val rec page = fn x => <html><body> + {cdata (toString x)}<br/> + <br/> + + <a link={page x}>Again!</a> </body></html> val main : unit -> page = fn () => <html><body> |