let mkghpat loc d = { ppat_desc = d; ppat_loc = mkghloc loc; }