どのようにして、タグを含まないユニオンタイプの関数に渡すことができますか？

Question

Elm checkboxes exampleで遊ぶ。私は別の関数にview

, label [] 
    [ br [] [] 
    , input [ type' "checkbox", checked model.underline, onCheck Underline ] [] 
    , text "underline" 
    ] 

に次repetativeコードを移動し、それを3回使用しようとしています。これまでのところ私は...

makeLabel : String -> Bool -> Msg -> Html Msg 
makeLabel caption bool msg = 
    label [] 
    [ br [] [] 
    , input [ type' "checkbox", checked bool, onCheck msg ] [] 
    , text caption 
    ] 

を持っていると私は

makeLabel "underline" model.underline Underline 

のようにそれを使用しますが、その後、私は

Function `makeLabel` is expecting the 3rd argument to be: 

Msg 

But it is: 

Bool -> Msg 

次のエラーを受け取るどのように私は私のmakeLabelが正しい機能渡すんユーザーがチェックボックスを変更したときに実行するアクション？

type Msg 
= Red Bool 
| Underline Bool 
| Bold Bool 

私はタグ（下線ブール値）を含めずに機能union型（下線）に渡すことができる方法を理解していない

Answer 1

問題ではなく、コードよりも、あなたのタイプの署名です。これを試してみてください：

makeLabel : String -> Bool -> (Bool -> Msg) -> Html Msg