Add missing case for PEq to expandDo in DSL.hs