@@ -853,26 +853,29 @@ textHelper textInput attrs textOptions =
853 TextArea ->
853 TextArea ->
854 Internal.NodeName "textarea"
854 Internal.NodeName "textarea"
856− ([ value textOptions.text
857− , Internal.Attr (Html.Events.onInput textOptions.onChange)
858− , hiddenLabelAttribute textOptions.label
859− , spellcheck textInput.spellchecked
860− , Maybe.map autofill textInput.autofill
861− |> Maybe.withDefault Internal.NoAttribute
863− ++ (case textInput.type_ of
856+ ((case textInput.type_ of
864− TextInputNode inputType ->
857+ TextInputNode inputType ->
858+ -- Note: Due to a weird edgecase in...Edge...
859+ -- `type` needs to come _before_ `value`
860+ -- More reading: https://github.com/mdgriffith/elm-ui/pull/94/commits/4f493a27001ccc3cf1f2baa82e092c35d3811876
865− [ Internal.Attr (Html.Attributes.type_ inputType)
861+ [ Internal.Attr (Html.Attributes.type_ inputType)
866− , Internal.htmlClass classes.inputText
862+ , Internal.htmlClass classes.inputText
869− TextArea ->
865+ TextArea ->
870− [ Element.clip
866+ [ Element.clip
871− , Element.height Element.fill
867+ , Element.height Element.fill
872− , Internal.htmlClass classes.inputMultiline
868+ , Internal.htmlClass classes.inputMultiline
873− , calcMoveToCompensateForPadding withDefaults
869+ , calcMoveToCompensateForPadding withDefaults
872+ ++ [ value textOptions.text
873+ , Internal.Attr (Html.Events.onInput textOptions.onChange)
874+ , hiddenLabelAttribute textOptions.label
875+ , spellcheck textInput.spellchecked
876+ , Maybe.map autofill textInput.autofill
877+ |> Maybe.withDefault Internal.NoAttribute
876 ++ redistributed.input
879 ++ redistributed.input
878 (Internal.Unkeyed [])
881 (Internal.Unkeyed [])