diff tests/updateErr.ur @ 1890:abb0e95dcaa1

Fix more of client-side error handlers
author Adam Chlipala <adam@chlipala.net>
date Thu, 14 Nov 2013 06:36:36 -0500
parents 7c6b6c3c7b79
children
line wrap: on
line diff
--- a/tests/updateErr.ur	Thu Nov 14 06:16:58 2013 -0500
+++ b/tests/updateErr.ur	Thu Nov 14 06:36:36 2013 -0500
@@ -8,8 +8,9 @@
       <dyn signal={s <- signal s; return <xml>{[s]}</xml>}/><br/>
       <dyn signal={s <- signal s; if s = "" then return <xml>Init</xml> else error <xml>Crapky</xml>}/><br/>
       <dyn signal={s <- signal s; return <xml>"{[s]}"</xml>}/><br/>
+      <button onclick={fn _ => debug "88"}/><br/>
 
-      <ctextbox source={txt}/> <button onclick={s' <- get txt; set s s'; set txt ""}/>
+      <ctextbox source={txt}/> <button onclick={fn _ => s' <- get txt; set s s'; set txt ""}/>
 
       <hr/>