From e20b0d94365c9f5ff493b14894685abdceab89ce Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 1 Jan 2009 11:16:57 -0500
Subject: Reactive if

---
 tests/stypes.ur | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'tests/stypes.ur')

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>
-- 
cgit v1.2.3