playerAsteroidCollision :: GameObject->[GameObject]->Bool
playerAsteroidCollision player asteroids = length (filter  (\x-> collisionExists player x) asteroids) >0
playerAsteroidCollision :: GameObject->[GameObject]->Bool
playerAsteroidCollision player asteroids = length (filter  (\x-> collisionExists player x) asteroids) >0
playerAsteroidCollision player asteroids = length (filter  (\x-> collisionExists player x) asteroids) >0