Mercurial > urweb

view tests/bool.ur @ 925:552c989c1601

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change string URLification to avoid using the empty string, which confuses Apache no2slash()
author Adam Chlipala <adamc@hcoop.net>
date Sat, 12 Sep 2009 09:31:50 -0400
parents 71bafe66dbe1
children
line wrap: on
line source
val page = fn b => <html><body>
        {cdata (case b of False => "No!" | True => "Yes!")}
</body></html>

val main : unit -> page = fn () => <html><body>
        <li><a link={page True}>True</a></li>
        <li><a link={page False}>False</a></li>
</body></html>