src/Main.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

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