Mercurial > urweb

annotate tests/bool.ur @ 1703:6f2f74cc4ead

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change ID generation scheme to conform to HTML standards (thanks to Edward Yang for the catch)
author Adam Chlipala <adam@chlipala.net>
date Fri, 16 Mar 2012 08:42:51 -0400
parents 71bafe66dbe1
children
rev   line source
adamc@186 1 val page = fn b => <html><body>
adamc@186 2 {cdata (case b of False => "No!" | True => "Yes!")}
adamc@186 3 </body></html>
adamc@186 4
adamc@186 5 val main : unit -> page = fn () => <html><body>
adamc@186 6 <li><a link={page True}>True</a></li>
adamc@186 7 <li><a link={page False}>False</a></li>
adamc@186 8 </body></html>