-fieldLabelName (FieldLabel n _ _) = n
-fieldLabelType (FieldLabel _ ty _) = ty
-fieldLabelTag (FieldLabel _ _ tag) = tag
+fieldLabelName (FieldLabel n _ _ _) = n
+fieldLabelTyCon (FieldLabel _ tc _ _) = tc
+fieldLabelType (FieldLabel _ _ ty _) = ty
+fieldLabelTag (FieldLabel _ _ _ tag) = tag