parseNames :: Cursor -> [Element]
parseNames cur = [Names (T.words variable) names formatting delim others]
  where variable   = stringAttr "variable" cur
        formatting = getFormatting cur
        delim      = stringAttr "delimiter" cur
        elts       = cur $/ parseName
        names      = case rights elts of
                          [] -> [Name NotSet emptyFormatting [] "" []]
                          xs -> xs
        others     = lefts elts
parseNames :: Cursor -> [Element]
parseNames cur = [Names (T.words variable) names formatting delim others]
  where variable   = stringAttr "variable" cur
        formatting = getFormatting cur
        delim      = stringAttr "delimiter" cur
        elts       = cur $/ parseName
        names      = case rights elts of
                          [] -> [Name NotSet emptyFormatting [] "" []]
                          xs -> xs
        others     = lefts elts
parseNames cur = [Names (T.words variable) names formatting delim others]
  where variable   = stringAttr "variable" cur
        formatting = getFormatting cur
        delim      = stringAttr "delimiter" cur
        elts       = cur $/ parseName
        names      = case rights elts of
                          [] -> [Name NotSet emptyFormatting [] "" []]
                          xs -> xs
        others     = lefts elts