Elm - MsgをCmd Msgに変更

Question

elm-lang tutorialから単純なアプリケーションを修正して、最初にモデルを更新してから別の更新をトリガーしようとしています。

update msg model = 
    case msg of 
    MorePlease -> 
     (model, getRandomGif model.topic) 

    NewGif (Ok newUrl) -> 
     ({ model | gifUrl = newUrl }, Cmd.none) 

    NewGif (Err _) -> 
     (model, Cmd.none) 

    -- my addition 
    NewTopic newTopic -> 
     ({ model | topic = newTopic}, MorePlease) 

NewTopic支店ので、これは、コンパイラに失敗します。だから私のメッセージは、タイプCmdをメッセージする必要があります

The 3rd branch has this type: 

({ gifUrl : String, topic : String }, Cmd Msg) 

But the 4th is: 

({ gifUrl : String, topic : String }, Msg) 

。どのように私はCmdをメッセージの中に「私のメッセージを有効にすることができます

注：？私はこの変更を行うための簡単な方法がある認識が、私はもっと根本的

Answer 1

ノー本当にありエルムを理解しようとしていますCmd MsgにMsgを有効にする必要がありますが、再帰的にそれを呼び出すことができますので、updateは単なる関数であることを覚えておいてください

あなたNewTopicケースハンドラは、このように単純化することができます。。

NewTopic newTopic -> 
    update MorePlease { model | topic = newTopic} 

あなたが本当に本当にこのシナリオでCmdをオフ発射するエルムの建築を望んでいた場合は、ご希望のMsgにCmd.noneの簡単なmapを行うことができます：

NewTopic newTopic -> 
    ({ model | topic = newTopic}, Cmd.map (always MorePlease) Cmd.none) 

（実際にはお勧めしません）