a.elm

import Effects exposing (Never)
import Board exposing (init, update, view, Action(..))
import StartApp
import Task
import Window
import Signal

app =
  StartApp.start
    { init = init
    , update = update
    , view = view
    , inputs = [windowAct]
    }

type Action = 
    Window (Int, Int)
    | Foo

main =
  app.html


port tasks : Signal (Task.Task Never ())
port tasks =
  app.tasks

windowAct : Signal Action
windowAct = Signal.map Window Window.dimensions