view tests/html_fn.ur @ 1176:51e596feec37

Tone down Reduce and compensate with a new push-lambda-inside-case rule in MonoOpt; expand more Basis synonyms in Monoize
author Adam Chlipala <adamc@hcoop.net>
date Tue, 02 Mar 2010 16:00:48 -0500
parents 71bafe66dbe1
children
line wrap: on
line source
val main : unit -> page = fn () => <html>
        <head>
                <title>Hello World!</title>
        </head>

        <body>
                <b>Hello</b> <i>World</i>!
        </body>
</html>