parseStringLiteral :: Parser StringLiteral
parseStringLiteral = do
  char '"'
  s <- ((try $ char '\\' >> anyChar) <|> anyChar) `manyTill` (char '"')
  return $ StringLiteral s
parseStringLiteral :: Parser StringLiteral
parseStringLiteral = do
  char '"'
  s <- ((try $ char '\\' >> anyChar) <|> anyChar) `manyTill` (char '"')
  return $ StringLiteral s
parseStringLiteral = do
  char '"'
  s <- ((try $ char '\\' >> anyChar) <|> anyChar) `manyTill` (char '"')
  return $ StringLiteral s