Mercurial > urweb

comparison src/monoize.sml @ 761:16b34dc2e29c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<input type='hidden'>
author Adam Chlipala <adamc@hcoop.net>
date Thu, 30 Apr 2009 14:48:23 -0400
parents 8323c1beef2e
children 7f653298dd66
comparison
equal deleted inserted replaced
760:21f6d2e65685 761:16b34dc2e29c
2531 fm) 2531 fm)
2532 | _ => raise Fail "Monoize: Bad dyn attributes") 2532 | _ => raise Fail "Monoize: Bad dyn attributes")
2533 2533
2534 | "submit" => normal ("input type=\"submit\"", NONE, NONE) 2534 | "submit" => normal ("input type=\"submit\"", NONE, NONE)
2535 | "button" => normal ("input type=\"submit\"", NONE, NONE) 2535 | "button" => normal ("input type=\"submit\"", NONE, NONE)
2536 | "hidden" => input "hidden"
2536 2537
2537 | "textbox" => 2538 | "textbox" =>
2538 (case targs of 2539 (case targs of
2539 [_, (L.CName name, _)] => 2540 [_, (L.CName name, _)] =>
2540 (case List.find (fn ("Source", _, _) => true | _ => false) attrs of 2541 (case List.find (fn ("Source", _, _) => true | _ => false) attrs of