Elm 0.17简单鼠标点击示例

为了熟悉0.17中的

订阅

，我正在尝试一个简单的应用程序，它可以订阅Mouse.clicks并将

模型

增加1

目前，该应用程序有以下投诉

函数

程序

希望参数为：

{ ...  
  , subscriptions : Float -> Sub Msg  
  , update : Msg -> Float -> ( Float, Cmd Msg )  
  , view : Float -> Html Msg   
}

{ ...  
  , subscriptions : (Msg -> Position -> a) -> Sub a  
  , update : Msg -> number -> ( number, Cmd b )  
  , view : c -> Html d  
}

但它是：

{ ...  
  , subscriptions : Float -> Sub Msg  
  , update : Msg -> Float -> ( Float, Cmd Msg )  
  , view : Float -> Html Msg   
}

{ ...  
  , subscriptions : (Msg -> Position -> a) -> Sub a  
  , update : Msg -> number -> ( number, Cmd b )  
  , view : c -> Html d  
}

在此方面的任何帮助都将不胜感激

import Html exposing (Html, text, div)
import Html.App as Html
import Mouse exposing (..)

main =
  Html.program
    { init = init
    , view = view
    , update = update
    , subscriptions = subscriptions
    }

-- MODEL

type alias Model = Int

init : (Model, Cmd Msg)
init =
  (0, Cmd.none)

-- UPDATE

type Msg
  = Click

update msg model =
  case msg of
    Click ->
      (model + 1 , Cmd.none)

-- SUBSCRIPTIONS

subscriptions model =
  Mouse.clicks (model Click)

-- VIEW

view model =
  Html.text (toString model)

---

问题出在

订阅功能中。您需要这样设置：

订阅模式=
鼠标点击（\ \ \->点击）
非常感谢。完全正确