processEvent :: Event -> GameWorld -> GameWorld

-- prvi igrac
processEvent (EventKey (SpecialKey KeyLeft) Down _ _) world = world { player2Left = True }
processEvent :: Event -> GameWorld -> GameWorld
processEvent (EventKey (SpecialKey KeyLeft) Down _ _) world = world { player2Left = True }
processEvent (EventKey (SpecialKey KeyLeft) Down _ _) world = world { player2Left = True }