Mercurial > urweb
view demo/metaform.ur @ 1726:4df4521fbd3b
Removed excess zero byte from empty pages.
Zero byte sometimes breaks http tunneling in Safari. Empty page is a "Not Modified" response for app.js
author | Vladimir Shabanov <vshabanoff@gmail.com> |
---|---|
date | Wed, 25 Apr 2012 03:07:07 +0400 |
parents | c7b9a33c26c8 |
children |
line wrap: on
line source
functor Make (M : sig con fs :: {Unit} val fl : folder fs val names : $(mapU string fs) end) = struct fun handler values = return <xml><body> {@mapUX2 [string] [string] [body] (fn [nm :: Name] [rest ::_] [[nm] ~ rest] name value => <xml> <li> {[name]} = {[value]}</li> </xml>) M.fl M.names values} </body></xml> fun main () = return <xml><body> <form> {@foldUR [string] [fn cols => xml form [] (mapU string cols)] (fn [nm :: Name] [rest ::_] [[nm] ~ rest] name acc => <xml> <li> {[name]}: <textbox{nm}/></li> {useMore acc} </xml>) <xml/> M.fl M.names} <submit action={handler}/> </form> </body></xml> end