diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-01-01 11:16:57 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-01-01 11:16:57 -0500 |
| commit | e20b0d94365c9f5ff493b14894685abdceab89ce (patch) | |
| tree | d9c2cf66e198b19c607a6d9076c6f32371f37b2c /tests/stypes.ur | |
| parent | 9f4d65e9ef14f435aa3b6178f98b9ce1476ce056 (diff) | |
Reactive if
Diffstat (limited to 'tests/stypes.ur')
| -rw-r--r-- | tests/stypes.ur | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/stypes.ur b/tests/stypes.ur index e5006465..c752234c 100644 --- a/tests/stypes.ur +++ b/tests/stypes.ur @@ -22,5 +22,7 @@ fun main () : transaction page = | 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/> + <dyn signal={b <- signal sBool; return <xml>{[b]}</xml>}/> + <dyn signal={b <- signal sBool; if b then return <xml>Yes</xml> else return <xml>No</xml>}/> + <a onclick={set sBool False}>Change</a><br/> </body></xml> |