fieldNameSet :: [S.Field] -> Set.Set C.Identifier
fieldNameSet fs = Set.fromList $ map S.fieldName fs
fieldNameSet :: [S.Field] -> Set.Set C.Identifier
fieldNameSet fs = Set.fromList $ map S.fieldName fs
fieldNameSet fs = Set.fromList $ map S.fieldName fs