diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-07-17 14:18:57 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-17 14:18:57 -0400 |
commit | 2ae89dd4180bb36e3f37ba5f1d92d59a029552c2 (patch) | |
tree | 640137276b8d1308ef2b4df28033b34199851dfe /tests/cdataL.lac | |
parent | 2e00cd0bdfadfab33a3c802994c8c0e5cf565174 (diff) |
Dynamic arena allocation
Diffstat (limited to 'tests/cdataL.lac')
-rw-r--r-- | tests/cdataL.lac | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/cdataL.lac b/tests/cdataL.lac new file mode 100644 index 00000000..3aa3bef6 --- /dev/null +++ b/tests/cdataL.lac @@ -0,0 +1,8 @@ +val subpage = fn s => <html><body> + <h1>{cdata s}</h1> +</body></html> + +val main = fn () => <html><body> + <li> <a link={subpage "<Hi."}>Door #1</a></li> + <li> <a link={subpage "Bye."}>Door #2</a></li> +</body></html> |