processEvent (EventKey (SpecialKey KeyEnter) Down _ _) world = world { lasersPlayer2 = if  (length (player2Lives world))>0 then addLaser (lasersPlayer2 world) (getGameObjectCoordinates (player2 world)) laserRedImage else (lasersPlayer2 world)  }
processEvent (EventKey (SpecialKey KeyEnter) Down _ _) world = world { lasersPlayer2 = if  (length (player2Lives world))>0 then addLaser (lasersPlayer2 world) (getGameObjectCoordinates (player2 world)) laserRedImage else (lasersPlayer2 world)  }
processEvent (EventKey (SpecialKey KeyEnter) Down _ _) world = world { lasersPlayer2 = if  (length (player2Lives world))>0 then addLaser (lasersPlayer2 world) (getGameObjectCoordinates (player2 world)) laserRedImage else (lasersPlayer2 world)  }