Elm: clear form on submit

Question

У меня простая форма с одним полем. Я хотел бы очистить поле на форме submit. Я очищаю свою модель в своей функции обновления, но текст остается в текстовом вводе.

type alias Model = 
    { currentSpelling : String } 

type Msg 
    = MorePlease 

update : Msg -> Model -> (Model, Cmd Msg) 
update msg model = 
    case msg of 
     MorePlease -> 
      ( log "cleared spelling: " { model | currentSpelling = "" } 
       , fetchWord model.currentSpelling) 

view : Model -> Html Msg 
view model = 
    div [] 
     [ Html.form [ onSubmit MorePlease ] 
      [ input [ type' "text" 
        , placeholder "Search for your word here" 
        , onInput NewSpelling 
        , attribute "autofocus" "" 
        ] [] 
      , text model.currentSpelling 
      , input [ type' "submit" ] [ text "submit!" ] 
      ] 
     ] 

text отображения model.currentSpelling очищает, когда я очистить его с помощью функции обновления, но поле ввода текста остается заселена. Любая идея, как очистить его?

fetchWord вызывает HTTP-вызов, но здесь он отсутствует.

Answer 1

Добавить value model.currentSpelling в Атрибуты входного элемента . Вот как вы можете управлять строкой внутри элемента ввода в html.