Mercurial > urweb

view tests/badInline.ur @ 1888:5f478ecf65e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Identify more local definitions as functions that should be lifted to the top level, which has synergistic effects on inlining later
author Adam Chlipala <adam@chlipala.net>
date Tue, 05 Nov 2013 11:58:52 -0500
parents 62c18ecbfec4
children
line wrap: on
line source
style s1
style s2
style s3

fun ifClass r cls c = if r then classes cls c else c

fun main (n : int) : transaction page = return <xml><body>
  <p class={ifClass (n = 0) s1
            (ifClass (n = 1) s2
             (ifClass (n = 2) s3
              null))}>Hi</p>
</body></xml>