From 287562619d37c269260da7144d50cd075576863b Mon Sep 17 00:00:00 2001 From: Danila Fedorin Date: Mon, 25 Dec 2023 13:51:44 -0800 Subject: [PATCH] Use 'value' for textarea inputs Signed-off-by: Danila Fedorin --- src/Main.elm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Main.elm b/src/Main.elm index 78fdb8a..58fd050 100644 --- a/src/Main.elm +++ b/src/Main.elm @@ -243,8 +243,8 @@ view m = , viewSection "Rules" <| Html.div [] <| [ viewTabSelector m.tab [(Rendered, "Rendered"), (Editor, "Editor"), (MetaEditor, "Presentation Rules")] , viewTab m.tab - (Html.textarea [ onInput SetProgram ] [ Html.text m.program ]) - (Html.textarea [ onInput SetRenderProgram ] [ Html.text m.renderProgram ]) + (Html.textarea [ onInput SetProgram, value m.program ] [ ]) + (Html.textarea [ onInput SetRenderProgram, value m.renderProgram ] [ ]) (Html.Lazy.lazy2 viewRules m.renderProgram m.program) ] ++ viewIfError progsOrErr