diff options
Diffstat (limited to 'src/Model/Game.elm')
| -rw-r--r-- | src/Model/Game.elm | 24 |
1 files changed, 13 insertions, 11 deletions
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 |