stringLiteral :: Parser Text
stringLiteral =
  between
    (string "\"")
    (string "\"")
    (pack <$> many ((string "\\\"" *> pure '"') <|> noneOf ("\"" :: String)) :: Parser Text) <?>
  "string literal"
stringLiteral :: Parser Text
stringLiteral =
  between
    (string "\"")
    (string "\"")
    (pack <$> many ((string "\\\"" *> pure '"') <|> noneOf ("\"" :: String)) :: Parser Text) <?>
  "string literal"
stringLiteral =
  between
    (string "\"")
    (string "\"")
    (pack <$> many ((string "\\\"" *> pure '"') <|> noneOf ("\"" :: String)) :: Parser Text) <?>
  "string literal"