Displaying the last score in elm graphics instead of in helm html

1 files changed, 3 insertions, 4 deletions

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