@@ -757,7 +757,6 @@ textHelper textInput attrs textOptions =
757757 (Internal.Unkeyed [])
758758
759759 wrappedInput =
760− -- if heightContent then
761760 case textInput.type_ of
762761 TextArea ->
763762 -- textarea with height-content means that
@@ -1010,30 +1009,6 @@ redistributeOver attr els =
10101009 { els | input = attr :: els.input }
10111010
10121011
1013−orElse thing maybe =
1014− case maybe of
1015− Nothing ->
1016− Just thing
1017−
1018− _ ->
1019− maybe
1020−
1021−
1022−inheritablePlaceholderAttributes attr =
1023− case attr of
1024− Internal.StyleClass _ (Internal.PaddingStyle _ _ _ _ _) ->
1025− True
1026−
1027− Internal.StyleClass _ (Internal.BorderWidth _ _ _ _ _) ->
1028− True
1029−
1030− Internal.StyleClass _ (Internal.Transform _) ->
1031− True
1032−
1033− _ ->
1034− False
1035−
1036−
10371012{-| -}
10381013text :
10391014 List (Attribute msg)
@@ -1761,17 +1736,6 @@ onFocusIn msg =
17611736 Internal.Attr <| Html.Events.on "focusin" (Json.succeed msg)
17621737
17631738
1764−type_ : String -> Attribute msg
1765−type_ =
1766− Internal.Attr << Html.Attributes.type_
1767−
1768−
1769−
1770−-- checked : Bool -> Attribute msg
1771−-- checked =
1772−-- Internal.Attr << Html.Attributes.checked
1773−
1774−
17751739selected : Bool -> Attribute msg
17761740selected =
17771741 Internal.Attr << Html.Attributes.selected