add 'value' attrib with text for multiline.

This commit is contained in:
Ben Burdette 2019-06-03 09:39:04 -06:00
parent 7ef9985b1a
commit 561e554048

View File

@ -759,7 +759,7 @@ textHelper textInput attrs textOptions =
TextArea ->
let
{ maybePadding, heightContent, maybeSpacing, adjustedAttributes, maybeBorder } =
attributes
(value textOptions.text :: attributes)
|> List.foldr
(\attr found ->
case attr of