Mercurial > urweb
view tests/rpcDE.ur @ 1905:cd1cfecc8c72
Remove autogenerated config.h.in from version control
Signed-off-by: Anders Kaseorg <andersk@mit.edu>
---
.hgignore | 1 +
include/urweb/config.h.in | 104 ----------------------------------------------
2 files changed, 1 insertion(+), 104 deletions(-)
delete mode 100644 include/urweb/config.h.in
author | Anders Kaseorg <andersk@mit.edu> |
---|---|
date | Fri, 22 Nov 2013 09:36:14 -0500 |
parents | 3ee6bb48f6e8 |
children |
line wrap: on
line source
datatype result = Neg | Zero | Pos table t : {A : int} fun main () : transaction page = let fun check () = r <- oneRow (SELECT SUM(t.A) AS X FROM t); return (if r.X < 0 then Neg else if r.X = 0 then Zero else Pos) fun show r = case r of Neg => <xml>-</xml> | Zero => <xml>0</xml> | Pos => <xml>+</xml> in s <- source Zero; return <xml><body> <button value="Get It On!" onclick={r <- check (); set s r}/><br/> <br/> Current: <dyn signal={r <- signal s; return (show r)}/> </body></xml> end