fieldsToNameMap :: [S.Field] -> M.Map C.Identifier S.Field
fieldsToNameMap fs = M.fromList $ map go fs
  where
    go f = (S.fieldName f, f)
fieldsToNameMap :: [S.Field] -> M.Map C.Identifier S.Field
fieldsToNameMap fs = M.fromList $ map go fs
  where
    go f = (S.fieldName f, f)
fieldsToNameMap fs = M.fromList $ map go fs
  where
    go f = (S.fieldName f, f)