This page covers Elm 0.18

プレイヤー編集ビュー

私たちは ChangeLevelメッセージを作成しました。 このメッセージをプレイヤーの編集ビューからトリガーしましょう。

src/Players/Edit.elmで btnLevelDecreaseとbtnLevelIncreaseを変更してください：

...
btnLevelDecrease : Player -> Html Msg
btnLevelDecrease player =
    a [ class "btn ml1 h1", onClick (ChangeLevel player.id -1) ]
        [ i [ class "fa fa-minus-circle" ] [] ]


btnLevelIncrease : Player -> Html Msg
btnLevelIncrease player =
    a [ class "btn ml1 h1", onClick (ChangeLevel player.id 1) ]
        [ i [ class "fa fa-plus-circle" ] [] ]

これらの2つのボタンにonClick(ChangeLevel player.id howMuch)を追加しました。ここでhowMuchはレベルを下げる場合は-1、レベルを下げ場合には1になります。