diff options
| author |  Sergey Mironov <grrwlf@gmail.com> | 2014-10-12 10:03:36 +0000 |
|---|---|---|
| committer | Sergey Mironov <grrwlf@gmail.com> | 2014-10-12 10:03:36 +0000 |
| commit | ff35b4cbd8c62fed584b48f660e4274c6e357893 (patch) | |
| tree | d17d6586d3c8615a522d6f4eb0e00ce92d0f5f06 /src/monoize.sml | |
| parent | b3f6f1c94a001205dd77ac2e5074e6cc4c300ffd (diff) | |
HTML5 input attributes: placeholder, required, autofocus; email input type (without cformTag equivalent)
Diffstat (limited to 'src/monoize.sml')
| -rw-r--r-- | src/monoize.sml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index 6073a21f..cc5395f0 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -3663,6 +3663,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) = | _ => (Print.prefaces "Targs" (map (fn t => ("T", CorePrint.p_con env t)) targs); raise Fail "No name passed to textbox tag")) | "password" => input "password" + | "email" => input "email" | "textarea" => (case targs of [_, (L.CName name, _)] => |