Add an instance Pretty (PP a) => Pretty (PP (Maybe a))