Subscribe to key presses

Main.elm

module Main exposing (..)

import Html exposing (Html, div, text)
import Html.App as App
import Keyboard exposing (KeyCode, presses)


type Msg
    = KeyPressed KeyCode


type alias Model =
    Int


init : ( Model, Cmd Msg )
init =
    ( -1, Cmd.none )


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        KeyPressed key ->
            key ! []


view : Model -> Html Msg
view model =
    div []
        [ text ("You pressed key code " ++ (toString model))
        ]


subscriptions : Model -> Sub Msg
subscriptions model =
    Keyboard.presses KeyPressed


main : Program Never
main =
    App.program
        { init = init
        , update = update
        , view = view
        , subscriptions = subscriptions
        }