processEvent (EventKey (Char 'p') Down _ _) world = world { gamePaused = newGamePaused }
                                                where
                                                      newGamePaused = not (gamePaused world)
processEvent (EventKey (Char 'p') Down _ _) world = world { gamePaused = newGamePaused }
                                                where
                                                      newGamePaused = not (gamePaused world)
processEvent (EventKey (Char 'p') Down _ _) world = world { gamePaused = newGamePaused }
                                                where
                                                      newGamePaused = not (gamePaused world)