parseTag = do
  skipSpace
  char '['
  tagType <- takeTill ((==) ' ')
  skipSpace
  tagValue <- stringLiteral
  char ']'
  return (tagType, tagValue)
parseTag = do
  skipSpace
  char '['
  tagType <- takeTill ((==) ' ')
  skipSpace
  tagValue <- stringLiteral
  char ']'
  return (tagType, tagValue)
parseTag = do
  skipSpace
  char '['
  tagType <- takeTill ((==) ' ')
  skipSpace
  tagValue <- stringLiteral
  char ']'
  return (tagType, tagValue)