fieldPatTyConName      = thTc (fsLit "FieldPat")       fieldPatTyConKey
fieldPatTyConName      = thTc (fsLit "FieldPat")       fieldPatTyConKey
fieldPatTyConName      = thTc (fsLit "FieldPat")       fieldPatTyConKey