Implement fold in Data/PSQ.hs: remove unnecessary code