port module Main exposing
  ( main
  )

import Html.App exposing (programWithFlags)
import Time
import Char

import Model exposing (init)
import Model.Keyboard exposing (KeyCode)
import Msg
import Update exposing (update)
import View exposing (view)

main : Program Float
main =
  programWithFlags
    { init = init
    , update = update
    , subscriptions = (\model ->
        Sub.batch
          [ Time.every 40 Msg.Time
          , keyPress Msg.KeyPressed
          ]
      )
    , view = view
    }

port keyPress : (KeyCode -> msg) -> Sub msg