module Main where

import Random
import Html exposing (Html)

import Model.Game exposing (Game, initialGame)

import Update.Update exposing (update)

import Input exposing (getInput)

import View.Game exposing (renderGame)

main : Signal Html
main = Signal.map renderGame game

game : Signal Game
game =
  Signal.foldp
    update
    (initialGame (Random.initialSeed initialTime))
    getInput

port initialTime : Int