From d5ec91d4d01db6f4d476522d5b14e116435ebb7d Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 15 Mar 2015 20:15:19 +0100
Subject: Displaying the last score in elm graphics instead of in helm html

---
 src/Update/Update.elm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src/Update/Update.elm')

diff --git a/src/Update/Update.elm b/src/Update/Update.elm
index 2183d97..2be00b0 100644
--- a/src/Update/Update.elm
+++ b/src/Update/Update.elm
@@ -30,15 +30,14 @@ update input game =
           | time <- 0
           , currentScore <- 0
           , cloud <- initCloud
-          , rounds <- game.rounds `List.append` [Round game.time game.currentScore]
+          , rounds <- (Round game.time game.currentScore) :: game.rounds
           }
         else
-          let newTime = game.time + input.delta
-              newPlayer = playerStep input.delta game.boardSize input.dir (newKeyCode game.keysDown input.inputKeysDown) game.player
+          let newPlayer = playerStep input.delta game.boardSize input.dir (newKeyCode game.keysDown input.inputKeysDown) game.player
               (newCloud, addScore, newSeed) = cloudUpdate game.time game.boardSize game.seed newPlayer game.cloud
           in
               { game
-              | time <- newTime
+              | time <- game.time + input.delta
               , keysDown <- input.inputKeysDown
               , currentScore <- game.currentScore + addScore
               , player <- newPlayer
-- 
cgit v1.2.3