Elm：提出時のフォームを明確に

Question

私は1つのフィールドを持つ単純なフォームを持っています。私はフォーム提出のフィールドをクリアしたいと思います。私は更新機能で私のモデルをクリアしていますが、テキストはテキスト入力のままです。私は更新機能でそれを空にするときmodel.currentSpellingを表示

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はクリアしますが、テキスト入力ボックスは、人口のまま。どのようにそれをクリアするための任意のアイデア？

fetchWordはHTTPコールを行いますが、ここでは省略されています。

Answer 1

を 入力要素の属性に追加します。これは、htmlの入力要素の内側にある文字列 を制御する方法です。