From ff35b4cbd8c62fed584b48f660e4274c6e357893 Mon Sep 17 00:00:00 2001
From: Sergey Mironov <grrwlf@gmail.com>
Date: Sun, 12 Oct 2014 10:03:36 +0000
Subject: HTML5 input attributes: placeholder, required, autofocus; email input
 type (without cformTag equivalent)

---
 src/monoize.sml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/monoize.sml')

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, _)] =>
-- 
cgit v1.2.3