update :: Float ->  GameState -> GameState
update _ game = combinedMove (checkOnKeys game)
update :: Float ->  GameState -> GameState
update _ game = combinedMove (checkOnKeys game)
update _ game = combinedMove (checkOnKeys game)