aboutsummaryrefslogtreecommitdiff
path: root/src/Update
diff options
context:
space:
mode:
authorJoris Guyonvarch2015-03-08 13:26:52 +0100
committerJoris Guyonvarch2015-03-08 13:29:01 +0100
commit97e494a7c5a105bba6a48f5025e71a376fc8673d (patch)
tree9cd83b9fedfa4787e6237fadce4dfd2d43faa0d6 /src/Update
parent6c1f5e10631a3f66f4c85a45b6f28ffd366105c5 (diff)
Save round durations
Diffstat (limited to 'src/Update')
-rw-r--r--src/Update/Update.elm3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Update/Update.elm b/src/Update/Update.elm
index ef85670..7cf4dee 100644
--- a/src/Update/Update.elm
+++ b/src/Update/Update.elm
@@ -13,6 +13,7 @@ import Model.Vec2 (..)
import Model.Config (otherConfig)
import Model.Cloud (..)
import Model.Game (..)
+import Model.Round (Round)
import Utils.Geometry (..)
import Utils.Physics (getNewPosAndSpeed)
@@ -30,7 +31,7 @@ update input game =
| time <- 0
, currentScore <- 0
, cloud <- initCloud
- , scores <- game.currentScore :: game.scores
+ , rounds <- (Round game.time game.currentScore) :: game.rounds
}
else
let newTime = game.time + input.delta