Mercurial > urweb
diff src/monoize.sml @ 1835:a8b273f1f7e3
add Placeholder attribute to <password>; change <textbox> code generation to set 'type' to 'text'
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Fri, 30 Nov 2012 10:02:13 -0500 |
| parents | be0c4e2e488a |
| children | 276fa06428ba |
line wrap: on
line diff
--- a/src/monoize.sml Fri Nov 30 09:50:00 2012 -0500 +++ b/src/monoize.sml Fri Nov 30 10:02:13 2012 -0500 @@ -3602,7 +3602,7 @@ val (ts, fm) = tagStart "input" in ((L'.EStrcat (ts, - (L'.EPrim (Prim.String (" name=\"" ^ name ^ "\" />")), + (L'.EPrim (Prim.String (" type=\"text\" name=\"" ^ name ^ "\" />")), loc)), loc), fm) end | SOME (_, src, _) => @@ -3674,7 +3674,7 @@ val (ts, fm) = tagStart "input" in ((L'.EStrcat (ts, - (L'.EPrim (Prim.String " />"), loc)), + (L'.EPrim (Prim.String " type=\"text\" />"), loc)), loc), fm) end | SOME (_, src, _) =>