stringLiteral = do
  char '"'
  value <- takeTill ((==) '"')
  char '"'
  return value
stringLiteral = do
  char '"'
  value <- takeTill ((==) '"')
  char '"'
  return value
stringLiteral = do
  char '"'
  value <- takeTill ((==) '"')
  char '"'
  return value