refactoring: PapillonCore.hs

PegQ -> Peg