Add constraints to only allow formatting input options to be applied to text inputs.

This commit is contained in:
Dillon Kearns 2022-01-15 19:03:13 -08:00
parent 4e78fceaef
commit 6de253d91e
2 changed files with 7 additions and 6 deletions

File diff suppressed because one or more lines are too long

View File

@ -719,6 +719,7 @@ text :
(Maybe String)
view
{ required : ()
, plainText : ()
, wasMapped : No
}
text name toHtmlFn =
@ -1269,31 +1270,31 @@ required missingError (Field field) =
{-| -}
telephone : Field error value view constraints -> Field error value view constraints
telephone : Field error value view { constraints | plainText : () } -> Field error value view constraints
telephone (Field field) =
Field { field | type_ = "tel" }
{-| -}
search : Field error value view constraints -> Field error value view constraints
search : Field error value view { constraints | plainText : () } -> Field error value view constraints
search (Field field) =
Field { field | type_ = "search" }
{-| -}
password : Field error value view constraints -> Field error value view constraints
password : Field error value view { constraints | plainText : () } -> Field error value view constraints
password (Field field) =
Field { field | type_ = "password" }
{-| -}
email : Field error value view constraints -> Field error value view constraints
email : Field error value view { constraints | plainText : () } -> Field error value view constraints
email (Field field) =
Field { field | type_ = "email" }
{-| -}
url : Field error value view constraints -> Field error value view constraints
url : Field error value view { constraints | plainText : () } -> Field error value view constraints
url (Field field) =
Field { field | type_ = "url" }