diff options
author | Joris Guyonvarch | 2015-03-07 15:12:02 +0100 |
---|---|---|
committer | Joris Guyonvarch | 2015-03-07 15:12:02 +0100 |
commit | 17a58e0c4c67f27d87635bf1b2ca50fb11795ad3 (patch) | |
tree | 8de99cdf0b4021ca6db6920537e7d0fa250e90bc /src/Main.elm | |
parent | 336816d2e8ab4afff1562123dfde61bf3a68e61c (diff) | |
download | catchvoid-17a58e0c4c67f27d87635bf1b2ca50fb11795ad3.tar.gz catchvoid-17a58e0c4c67f27d87635bf1b2ca50fb11795ad3.tar.bz2 catchvoid-17a58e0c4c67f27d87635bf1b2ca50fb11795ad3.zip |
Organizing source code with subdirectories
Diffstat (limited to 'src/Main.elm')
-rw-r--r-- | src/Main.elm | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/src/Main.elm b/src/Main.elm index 6be5766..329492a 100644 --- a/src/Main.elm +++ b/src/Main.elm @@ -5,18 +5,25 @@ import Random import Graphics.Element (Element) import Html (Html) -import Game (Game, initialGame) -import Display (display) -import Step (step) +import Model.Game (Game, initialGame) +import Model.Vec2 (originVec) +import Model.Config (Config(White)) + +import Update.Update (update) + import Input (getInput) -import Vec2 (originVec) -import Config (Config(White)) + +import View.Page (page) main : Signal Html -main = Signal.map display game +main = Signal.map page game game : Signal Game -game = Signal.foldp step (initialGame initialSeed originVec White 0) getInput +game = + Signal.foldp + update + (initialGame initialSeed originVec White 0) + getInput port initialTime : Int |