From 5af770bd99dbb57d78857236c054bc0a6dc4bdfd Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 10 May 2015 16:59:08 +0200
Subject: Updating elm version to 0.15

---
 src/Model/Game.elm | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

(limited to 'src/Model/Game.elm')

diff --git a/src/Model/Game.elm b/src/Model/Game.elm
index 3520c64..8769651 100644
--- a/src/Model/Game.elm
+++ b/src/Model/Game.elm
@@ -3,21 +3,23 @@ module Model.Game
   , initialGame
   ) where
 
-import Random (..)
-import Keyboard (KeyCode)
-import Time (Time)
+import Random exposing (..)
+import Keyboard exposing (KeyCode)
+import Time exposing (Time)
+import Set
+import Set exposing (Set)
 
-import Model.Player (..)
-import Model.Cloud (..)
-import Model.Vec2 (Vec2)
-import Model.Config (..)
-import Model.Round (Round)
-import Model.Board (initBoardSize)
+import Model.Player exposing (..)
+import Model.Cloud exposing (..)
+import Model.Vec2 exposing (Vec2)
+import Model.Config exposing (..)
+import Model.Round exposing (Round)
+import Model.Board exposing (initBoardSize)
 
 type alias Game =
   { time : Float
   , boardSize : Vec2
-  , keysDown : List KeyCode
+  , keysDown : Set KeyCode
   , currentScore : Int
   , player : Player
   , cloud : Cloud
@@ -29,7 +31,7 @@ initialGame : Seed -> Game
 initialGame seed =
   { time = 0
   , boardSize = initBoardSize
-  , keysDown = []
+  , keysDown = Set.empty
   , currentScore = 0
   , player = initPlayer
   , cloud = initCloud
-- 
cgit v1.2.3