diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-01-01 11:13:08 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-01-01 11:13:08 -0500 |
| commit | 9f4d65e9ef14f435aa3b6178f98b9ce1476ce056 (patch) | |
| tree | d140aed7feabff611443a56399504f5420ad6a82 /tests/stypes.ur | |
| parent | 5311577e153580fc5dce3671b47cc49bdfd8e1e9 (diff) | |
Reactive bool
Diffstat (limited to 'tests/stypes.ur')
| -rw-r--r-- | tests/stypes.ur | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/stypes.ur b/tests/stypes.ur index 08de343f..e5006465 100644 --- a/tests/stypes.ur +++ b/tests/stypes.ur @@ -4,6 +4,7 @@ fun main () : transaction page = sBoth <- source (7, 42.1); sOpt <- source None; + sBool <- source True; return <xml><body> <dyn signal={n <- signal sInt; return <xml>{[n + 3]}</xml>}/> <a onclick={set sInt 1}>Change</a><br/> @@ -20,4 +21,6 @@ fun main () : transaction page = None => return <xml>None</xml> | Some n => return <xml>{[n]}</xml>}/> <a onclick={set sOpt (Some 7)}>Change</a><br/> + + <dyn signal={b <- signal sBool; return <xml>{[b]}</xml>}/> <a onclick={set sBool False}>Change</a><br/> </body></xml> |