Mercurial > urweb

annotate tests/badInline.ur @ 1842:052c5eedc9ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add MLTONARGS to xml/parse
author Jason Gross <jgross@mit.edu>
date Sat, 05 Jan 2013 18:19:20 -0500
parents 62c18ecbfec4
children
rev   line source
adam@1804 1 style s1
adam@1804 2 style s2
adam@1804 3 style s3
adam@1804 4
adam@1804 5 fun ifClass r cls c = if r then classes cls c else c
adam@1804 6
adam@1804 7 fun main (n : int) : transaction page = return <xml><body>
adam@1804 8 <p class={ifClass (n = 0) s1
adam@1804 9 (ifClass (n = 1) s2
adam@1804 10 (ifClass (n = 2) s3
adam@1804 11 null))}>Hi</p>
adam@1804 12 </body></xml>