Mercurial > urweb
view tests/dlist.ur @ 1066:740b85ef4352
Basis.currentUrl, plus redirect debugging
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 10 Dec 2009 15:20:36 -0500 |
parents | 20c083327364 |
children |
line wrap: on
line source
datatype dlist = Nil | Cons of string * source dlist fun delist dl = case dl of Nil => <xml>[]</xml> | Cons (x, s) => <xml>{[x]} :: ({delistSource s})</xml> and delistSource s = <xml><dyn signal={dl <- signal s; return (delist dl)}/></xml> fun main () : transaction page = ns <- source Nil; s <- source ns; tb <- source ""; return <xml><body> <dyn signal={s <- signal s; return (delistSource s)}/><br/> <br/> <ctextbox source={tb}/> <button value="Add" onclick={hd <- get tb; tl <- get s; s' <- source (Cons (hd, tl)); set s s'}/> <button value="Reset" onclick={set s ns}/> </body></xml>