diff --git a/src/Element/Input.elm b/src/Element/Input.elm
index 44ab551..c6f4633 100644
--- a/src/Element/Input.elm
+++ b/src/Element/Input.elm
@@ -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