elmモデルから値を削除する

Question

elm tutorialのプレイヤー削除メソッドを正常に実装しました。 しかし、サーバーからプレーヤーを再び取得するメッセージをForchFetch msg（ボタンをクリックして）を手動で送信しないと、モデルを更新することができません。これは私のコードです：

マイ削除ボタン：

deleteBtn : Player -> Html.Html Msg 
deleteBtn player = 
    let 
     message = 
      Msgs.Delete player 
    in 
     a 
      [ class "btn regular", onClick message] 
      [ i [ class "fa fa-pencil mr1" ] [], text "Delete" ] 

マイ削除メッセージ：

type Msg = 
    | Delete Player 
    | OnDeletePlayer (Result Http.Error Player) 
    | ForceFetch 
    | OnFetchPlayers (WebData (List Player)) 

私の更新機能：

update : Msg -> Model -> (Model, Cmd Msg) 
update msg model = 
     Msgs.ForceFetch -> 
      (model, fetchPlayers) 
     Msgs.OnFetchPlayers response -> 
     ({ model | players = response }, Cmd.none) 
     Msgs.Delete player -> 
      (model, deletePlayerCmd player) 

     Msgs.OnDeletePlayer (Ok player) -> 
      (updateDeletedPlayerList model player, Cmd.none) 

     Msgs.OnDeletePlayer (Err player) -> 
      (model, Cmd.none) 

updateDeletedPlayerList : Model -> Player -> Model 
updateDeletedPlayerList model deletedPlayer =  
    let 
     updatedPlayers = RemoteData.map (List.filter (\p -> deletedPlayer /= p)) model.players 
    in 
     { model | players = updatedPlayers} 

deletePlayerCmd : Player -> Cmd Msg 
deletePlayerCmd player = 
     Http.send Msgs.OnDeletePlayer (deletePlayerRequest player) 

deletePlayerRequest : Player -> Http.Request Player 
deletePlayerRequest player = 
Http.request 
     { body = Http.emptyBody 
     , expect = Http.expectJson playerDecoder 
     , headers = [] 
     , method = "DELETE" 
     , timeout = Nothing 
     , url = savePlayerUrl player.id 
     , withCredentials = False 
     } 
fetchPlayers : Cmd Msg 
fetchPlayers = 
    Http.get fetchPlayersUrl playersDecoder 
     |> RemoteData.sendRequest 
     |> Cmd.map Msgs.OnFetchPlayers 

そして、良い対策のための私のモデル：

type alias Model = 
    { players : WebData (List Player) 
    , route : Route 
    , newPlayerName : String 
    , newPlayerId : String 
    , newPlayerLevel : Int 
    } 

編集：

ノー成功を収めて、次のようにfetchPlayersを組み込む試してみました：

Msgs.OnDeletePlayer (Ok player) -> 
      (updateDeletedPlayerList model player, fetchPlayers) 

Answer 1

あなたが削除した後、それを取得したくない場合は、あなたのコード内でモデルを更新する必要があり、あなたが持っている場所：

：

Msgs.Delete player -> 
      (model, deletePlayerCmd player) 

は、あなたがそれからプレーヤーを削除する関数への「モデル」を変更する必要があります

Msgs.Delete player -> 
     (removePlayer player model, deletePlayerCmd player) 

... 
removePlayer : Player -> Model -> Model 
...