Mercurial > urweb

view tests/dynClassB.ur @ 2126:ec1614fb97bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change MonoReduce to do fixed-pointing, since it sometimes enables more optimizations for itself (e.g., yanking lambdas out of [case]s)
author Adam Chlipala <adam@chlipala.net>
date Fri, 06 Mar 2015 09:46:21 -0500
parents f89be9cd2087
children
line wrap: on
line source
style style1
style style2

fun main () : transaction page =
    toggle <- source False;
    return <xml>
      <head>
	<link rel="stylesheet" type="text/css" href="/style.css"/>
      </head>
      <body dynClass={b <- signal toggle;
                      return (if b then style1 else style2)}
            dynStyle={b <- signal toggle;
                      return (if b then STYLE "margin: 100px" else STYLE "")}>
        Body
	<button onclick={fn _ => b <- get toggle; set toggle (not b)}>TOGGLE</button>
      </body>
    </xml>