@@ -777,6 +777,16 @@ textHelper textInput attrs textOptions =
777777 , [ Internal.unstyled (Html.text textOptions.text) ]
778778 )
779779
780+ heightFillFromChild =
781+ Internal.get attributes <|
782+ \attr ->
783+ case attr of
784+ Internal.Height (Internal.Fill _) ->
785+ True
786+
787+ _ ->
788+ False
789+
780790 attributesFromChild =
781791 Internal.get attributes <|
782792 \attr ->
@@ -832,6 +842,7 @@ textHelper textInput attrs textOptions =
832842 (Element.width Element.fill
833843 :: List.concat
834844 [ nearbys
845+ , heightFillFromChild
835846 , case textOptions.placeholder of
836847 Nothing ->
837848 []