src/Main.elm


1
2
3
4
5
6
7
8
9
10

module Main where

import Game (initialGame)
import Display (display)
import Step (step)
import Input (getInput)
import Vec2 (originVec)

main : Signal Element
main = lift display (foldp step (initialGame originVec 0) getInput)