From 17a58e0c4c67f27d87635bf1b2ca50fb11795ad3 Mon Sep 17 00:00:00 2001 From: Joris Guyonvarch Date: Sat, 7 Mar 2015 15:12:02 +0100 Subject: Organizing source code with subdirectories --- src/Main.elm | 21 ++++++++++++++------- 1 file changed, 14 insertions(+), 7 deletions(-) (limited to 'src/Main.elm') 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 -- cgit v1.2.3