processEvent (EventKey (SpecialKey KeyRight) Up _ _) world = world { player2Right = False }
processEvent (EventKey (SpecialKey KeyRight) Up _ _) world = world { player2Right = False }
processEvent (EventKey (SpecialKey KeyRight) Up _ _) world = world { player2Right = False }